• Anton
  • Восстановленный участник
  • На форуме с 10 сентября 2006г.
  • Сообщений: 13
  • Спасибо: 0

Тема: Если нет выделенных объектов

Подскажите пожалуйста
Есть два макроса:
1. Поворот с указанием опорного угла
^C^C_rotate \_reference \\\\;
2. Отражение без копирования
^C^C_mirror;\\_yes;
Оба работают так, как от них ожидается, только если уже выделены какие-то объекты. Если выделенных объектов нет, обе команды работают "по умолчанию", т. е., "_reference" и "_yes" игнорируются. А хотелось бы, чтобы одинаково работали в обоих случаях.
Ещё хотелось бы, чтобы в первом макросе первая точка опорного угла совпадала с базовой точкой поворота. Попробовал на autolisp:
(command (setq bp001 (getpoint)) "_reference" bp001 (getpoint) (getpoint))
но не работает.

  • Anton
  • Восстановленный участник
  • На форуме с 10 сентября 2006г.
  • Сообщений: 13
  • Спасибо: 0

Re: Если нет выделенных объектов

p.s.
(command "_rotate" (setq bp001 (getpoint)) "_reference" bp001 (getpoint) (getpoint))
конечно же.

  • Anton
  • Восстановленный участник
  • На форуме с 10 сентября 2006г.
  • Сообщений: 13
  • Спасибо: 0

Re: Если нет выделенных объектов

С последним разобрался, без autolisp:
^C^C_rotate \_reference @ \\\;
Остаётся вопрос с выделением. Как можно узнать, что на экране что-то выделено ?

  • VVA
  • Активный участник
  • Откуда: Беларусь / Минск
  • На форуме с 29 марта 2006г.
  • Сообщений: 1,859
  • Спасибо: 25

Re: Если нет выделенных объектов

^C^C(progn(if (not(setq nab (ssget "_I")))(setq nab(ssget)))(command "_rotate" nab "" pause "_reference" "@" pause pause pause))

  • Anton
  • Восстановленный участник
  • На форуме с 10 сентября 2006г.
  • Сообщений: 13
  • Спасибо: 0

Re: Если нет выделенных объектов

VVA, спасибо ! : )
то, что нужно.