멀티 회전복사 리습

;멀티 회전복사 -> 입력각도다르게
(defun c:crr (/ os ss cn af en nang)
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os) (princ))
 (setq os (getvar "osmode"))
  (setq ss (ssget))
  (SETVAR "OSMODE" 32)
  (setq cn (getpoint "\n > Base point  : "))
  (setq af (getstring 5 "\n > Rotate Angle : "))
  (SETVAR "OSMODE" 0)
  (command "copy" ss "" cn cn "Rotate" ss "" cn af )
      (while
          (setq Nang (getstring "\n > Next Angle <동일값=엔터> [종료=ESC]:"))
         (if (or (= Nang nil) (= Nang "")) (setq af af))
         (SETVAR "OSMODE" 0)
         (command "copy" "p" "" cn cn )
         (command "Rotate" "p" "" cn Nang )
         (command "undo" "e")
      ) ;while 
 (setvar "osmode" os)

(princ)
);;;end of defun