일정간격 다중 복사 리습

MC : 수평 수직 입력 간격으로 연속 다중복사

CR : 다중 회전복사  각도 다르게 입력가능 (동일간격은 엔터 )

 

;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;MC.LSP..... 다중복사(방향 임의 지정)
;멀티 복사 -> 1 객체선택 2 방향 지정 3간격입력 4 연속 엔터
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
(defun C:MC ( / os1 ent tdist pnt1 spt1 ang1 dist udist)
;->*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" 32)
(setq ent T)
(setq tdist 0) 
(setq Ent (SSget))
(if ent (progn (setvar "OSMODE" 32)
   (setq Pnt1 (getpoint "\n 기준점 지정 : "));
   ;(setvar "OSMODE" 255)
   (setq spt1 (getpoint Pnt1 "\n 복사 방향 지정(또는 복사할 점) : "))
   (setq ang1 (angle pnt1 spt1))
   (setq udist (distance Pnt1 spt1))
              (setvar "OSMODE" 0)
   (while (/= dist 0.0)
    (setq dist (getreal (strcat "\n 다중복사할 간격입력 <"(rtos udist 2 2)"> : ")))
    (setvar "OSMODE" 0)
    (if (= dist nil) (setq dist udist)(setq udist dist))
    (setq tdist (+ tdist dist))
    (setq spt1 (polar pnt1 ang1 tdist))
    (command "Copy" Ent "" Pnt1 spt1)
   )
)
(princ "\n 다중복사종료 !! (객체가 선택되지 않았습니다.)"))
(setvar "osmode" os1)
(command "undo" "e")
 (princ)
)
(princ "\n[MC] 다중복사")

;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;;; CR.LSP.....Copy & Rotate
;다중 회전복사 -> 입력각도다르게 (동일 각도 반복은 엔터)
; by SuHa
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
(defun c:CR (/ os ss cn af en )
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os) (princ))
 (setq os (getvar "osmode"))
 (princ " > Array Copy Rotateloaded. Command : CR <")
  (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)
)