Поворот объекта на 180°

Товарищи, подскажите макрос (или лисп) "поворот объекта на 180", чтоб указать мышкой базовую точку и всё. Вручную три цифры вводить влом, если объектиков иногда попадается под сотню. Заранее всем спасиб.

 

выбираешь команду "повернуть", указываешь объект, указываешь базовую точку, указываешь угол поворота (если не очень влом), и поворачиваешь, затем выделяешь второй объект, жмешь пробел (повтор последней команды), указываешь точку поворота и снова пробел и так далее..

 

Код:

^C^C^P(defun c:r_pi (/ sel)(while(setq sel (ssget))(vl-cmdf "_rotate" sel "" pause "180" "")));r_pi 

 

СПАСИБО!!!! супер!

 

А как в автокаде один из двух пересекающихся отрезков развернуть относительно точки пересечения так, чтобы он точно совпал с другим по направлению? Как при привязке. Как бы вручную не доворачивал, при сильном увеличении все равно нет абсолютного совпадения! Угол между отрезками всегда не равен 0

 

Команда: Повернуть, выбираешь объект, указываешь базовую точку поворота, потом ПКМ, выбираешь опорный угол, указываешь центр и окончание объекта, и с привязкой крути.

 

Можно по-подробней. Сейчас сижу делаю все по- порядку и комментирую 1)Команда Повернуть- жму команду поворота,маркер превращается в маленький прямоугольник. 2) выбираешь объект- Навожу этот прямоугольный маркер на один из отрезков. Он становится состоящим из прерывистых кусочков.(наверное так специфически отмечается). 3) указываешь базовую точку поворота - здесь уже затык. Прямоугольный маркер ни в какую не хочет указать эту самую точку. Если сначала отметить отрезок, потом команда повернуть, то точку поворота можно отметить. Но не пойму как тогда выбирается опорный угол.

 

Попробуйте воспользоваться этим лиспом.

Раскрыть Спойлер Свернуть Спойлер

Код:

(defun c:rotateplus (/ *adoc* ss bpt opt nopt var_lst rec_var_lst)
  (vl-load-com)
  (vla-StartUndoMark (setq *adoc* (vla-get-ActiveDocument (vlax-get-acad-object))))
  (vl-catch-all-apply
    (function (lambda ()
        (sssetfirst nil (setq ss (ssget)))
        (setq bpt  (getpoint "\nBase point:")
              opt  (getpoint bpt "\nOrientation point:")
              nopt (getpoint bpt "\nNew position for orientation point:")
        ) ;_ end of setq
          ) ;_ end of lambda
    ) ;_ end of function
  ) ;_ end of vl-catch-all-apply
  (setq    rec_var_lst
    (mapcar (function getvar)
        (setq var_lst (list "osmode" "cmdecho"))
    ) ;_ end of mapcar
  ) ;_ end of setq
  (mapcar (function setvar) var_lst (list 0 0))
  (sssetfirst nil nil)
  (vl-cmdf "_.rotate"
      ss
      ""
      bpt
      "_r"
      bpt
      opt
      nopt
  ) ;_ end of vl-cmdf
  (mapcar (function setvar) var_lst rec_var_lst)
  (vla-EndUndoMark *adoc*)
  (princ)
) ;_ end of defun

 

После этого надо Ентер нажать, после того как выбрал объект, а то Автокад мысли угадывать не умеет еще, может ты еще какие-то объекты для поворота выбрать хочешь, не только тот, который в мыслях выбрал и смотришь на него.

 

Спасибо! Понял!

 

Есть такой макрос, который исключает "ПКМ", т.е. после выбора объектов, можно сразу же выбирать базис:

Код:

^C^C^P(defun c:kr () (setq ss (ssget)) (command "_rotate" ss "" pause "_r" (getvar "lastpoint") pause));kr

*Этот макрос, на сколько я помню, отсюда. Если _rotate заменить на _scale можно использовать при масштабировании

 

Вот тут есть видео про поворот на опорный угол:
http://video.is2013.ru/как-повернуть-объект-по-опорному-углу-video_008138c44.html
Всё очень подробно рассказано. Удачи.

 

А чем команда "выровнять" не нравицца?