REFERENCEROTATE 리습 축척안되게 수정 요청 드립니다. ^^

리습에 대해서는 전혀 모르고요 ㅜㅜ
그저 카피해서 쓰기만 할줄 압니다
고수분들 도와주세요 ㅜㅜ



(defun c:rrr(/ os ss p1 p2 p3 p4 ang angs dis p2s p2ss)
(prompt “n>>길이 축척 참조 변경>>”)
(setq os (getvar “osmode”))
(command “undo” “be”)
(setq ss (ssget))
(setq p1 (getpoint “n기준 각도(참조길이)의 첫번째 점:”)
p2 (getpoint p1 “n기준 각도(참조길이)의 두번째 점:”))
(setq p3 (getpoint “n참조 각도(새로운길이)의 첫번째 점:”)
p4 (getpoint p3 “n참조 각도(새로운길이)의 두번째 점:”))

(setvar “osmode” 0)
(setq ang (angle p1 p2)
dis (distance p1 p2))
(setq angs (angle p3 p4))
(setq p2s (polar p3 ang dis))
(setq p2ss (polar p3 angs dis))

(command “move” ss “” p1 p3)
(command “rotate” “p” “” p3 “r” p3 p2s p4)
(command “scale” “p” “” p3 “r” p3 p2ss p4)
(command “undo” “e”)
(setvar “osmode” os)
(princ)
) ;defunn