[tinik_89]

Код:

[Выделить все]

(defun c:kn
( / p1 p2 p ag en) (setvar "cmdecho" 0)
(setq angd (getvar "angdir")) (command "angdir" 0)
(setq p1 (getpoint "\nSelect Old Point ") 
      p2 (getpoint p1 "\nSelect New Point ")
      p (getpoint "\nSelect Base Rotate ")
      ag (grad (- (angle p1 p) (angle p2 p)))
      );setq

(prompt "Enter objects to Rotate")(terpri)
(setq en (ssget))
(command "rotate" en "" p ag)  (command "angdir" angd)
(setvar "cmdecho" 1) (prin1)
);end

(c:kn)

необходимо выполнить поворот набора примитивов
на неизвестное число градусов.
Например: У Вас уже есть какой-то набор под углом в несколько
градусов и Вам надо чтобы другой набор примитивов был повернут
на этот же угол.
Выбираете новую точку, старую точку, центр поворота и получаете
автоматический поворот всех выбранных Вами объектов.

[Nike]

работает вроде

[tinik_89]

а у тя автокад какой???
и какие точки ты указывал конкретно? рисовал что-нибудь и потом поворачивал или как???

[Кулик Алексей aka kpblc]

_.align не спасет?

[Profan]

Что это за функция (grad)?