고수님 문장수정 점해주세요.,,
조립도에서 부품을 블록으로 묶을려고 하는데..
어떻게 해야하는지 알려주세요…ㅜㅜ
;
(defun c:VVvv(/ a aa os E pt)
(princ “ncopyclip entity”)
(if (setq a (ssget))
(setq aa (getpoint “ncopyclip origin: “)
os (getvar “osmode”)
) ; Setq
)
(
(initget 1)
(setq pt (getpoint “n_pasteblock to point: “))
(command “erase” p “”)
)
(princ)
)
;