엔지니어 기술블로그

1. MRC 엔터
2. 회전 복사할 객체를 선택
3. 회전 중심점을 찍고
4.여기서 바로 각도를 입력할수 있으며
참조각도(rotate명령에서의 참조각도이용방식)를
이용하려면 엔터키 또는 스페이스바를 이용하시면 가능하구요.

그담부터는 원하는 갯수만큼 계속 엔터 및 스페이스바를 쳐주시면 객체가 복사됩니다.

; 다중회전복사
; 1. MRC 엔터
; 2.객체선택택
; 3. 중심점을 지정
; 4.각도 입력
; 같은 간격으로 계속 돌리고 싶을땐..엔터 또는 스페이스바...
; 끝낼땐 ESC

(defun C:MRC ( / os1 %ent %ang_0 %pt1 spt1 ang1 %angle_ins %angle_ro)
;*error* start
(defun *error* (msg)(princ "n 오류내용 : ")(princ msg)
(setvar "osmode" os1) (princ));*error* end
(setvar "cmdecho" 0)
(setq os1 (getvar "osmode"))
(command "undo" "be")
(setvar "osmode" 0)
(setq %ang_0 0)
(setq %ent (SSget))
(if %ent (progn
   (setvar "OSMODE" 36) ;;; INT, CEN
   (setq %pt0 (getpoint "n 회전 중심점 지정 : "))
   (setq %angle_ro (getreal "n 회전복사할 각도 입력 <참조> : "))
    (if (= %angle_ro nil)
     (progn
     (setq %pt1 (getpoint %pt0 "n 기준각도 점 지정 : "))
     (setq %pt2 (getpoint %pt0 "n 상대각도 점 지정 : "))
     (setq a (angle %pt0 %pt1))
     (setq b (angle %pt0 %pt2))
     (setq %angle_ro (- b a))
     (setq %angle_ro (/ (* %angle_ro 180.0) pi))
     )
    )
   (setvar "OSMODE" 255)
   (while (/= %angle_ins 0.0)
    (setq %angle_ins (getreal (strcat "n 회전복사할 각도 입력 <"(rtos %angle_ro 2 2)"> : ")))
    (if (= %angle_ins nil) (setq %angle_ins %angle_ro)(setq %angle_ro %angle_ins))
    (setq %ang_0 (+ %ang_0 %angle_ins))
    (setvar "osmode" 0)
    (command "Copy" %ent "" %pt0 %pt0)
    (command "rotate" %ent "" %pt0 %angle_ro)
   )
)
(princ "n 다중회전복사종료 (객체가 선택되지 않았습니다.)"))
(setvar "osmode" os1)
(command "undo" "e")
(princ)
)
(princ "n[MRC] 다중회전복사")