객체를 선택해서 수평, 수직으로 멀티 카피를 하는 립습입니다.
수평, 수직으로 간격을 입력해야 하는 것을 캐드파워의 멀티카피처럼
베이스 포인트 찍고 그다음 포인트를 찍어서도 가능하게 해 주시기 바랍니다.
초보자 배상.
(defun c:Mc(/ objs hv space org tar cont imsi)
(setq objs (ssget))
(setq hv (getstring “수평,수직을 선택하십시요. <수평:Enter, 수직:V > : “))(terpri)
(setq hv (strcase hv))
(setq space (getreal “시작간격을 입력하십시요. : “))(terpri)
(setq org (list 0 0))
(if (/= hv “V”)
(setq tar (list (+ (car org) space) (cadr org)))
(setq tar (list (car org) (+ (cadr org) space)))
)
(command “copy” objs “” org tar)
(setq cont “t”)
(while cont
(princ “다음간격을 입력하십시요. <“)
(princ (fix space))
(setq imsi (getreal “> : “))
(if (/= imsi nil)
(setq space imsi)
)
(if (/= hv “V”)
(setq tar (list (+ (car tar) space) (cadr tar)))
(setq tar (list (car tar) (+ (cadr tar) space)))
)
(command “copy” objs “” org tar)
)
(princ)
)
공유