엔지니어 기술블로그
;참조회전
(defun c:roc(/ ss rc1 rc2 p1)
;->*error* start
 (defun *error* (msg)(princ "error: ")(princ msg)
 (setvar "osmode" os)
 (princ))
;-<*error* end
  (setq os (getvar "osmode"))
  (setq ss (ssget))
  (setvar "osmode" 37) ; 1 끝, 32 교차, 4 중심
  (setq p1 (getpoint "n≫ 기준점 지정:"))
  (setq rc1 (getpoint p1 (strcat "n≫ 현재각 끝점 지정 :"))) 
  (setq rc2 (getpoint p1 "n≫ 새로운각 끝점 지정 :"))
  (command "undo" "be")
  (setvar "osmode" 0)
  (command "rotate" ss "" p1 "r" p1 rc1 rc2)
  (setvar "osmode" os)
  (command "undo" "e")
(princ)
);defun