(defun c:rrc ()
(setvar “cmdecho” 0)
(setq rr (ssget)
p1 (getpoint “n base point: “)
r_ang (getangle p1 “n Rotate angle:”)
d_ang (/ (* r_ang 180) pi) )
(if (= d_ang 0)
(progn (setq r_ang (getangle “n Rotate angle”))
(setq d_ang (/ (* r_ang 180) pi)))
)
(command “copy” rr “” p1 p1)
(command “rotate” rr “” p1 d_ang)
(setvar “cmdecho” 1)
)
라는 리습을 가지고 있습니다.
예전 기억으로는 회전각과 선택블럭을 지정하고 엔터만 치면 치는 숫자만큼 회전하면서 카피가 됐던 기억이 있는데… 위의 리습은 한번만 되더라구요..
위에 말씀드린 리습이 있거나 수정 가능하시분께 자료 요청합니다..