예전에 멀티카피리습으로 잘 쓰던거였는데 갑자기 안되네요
어디가 문제인지 아시는 고수님들 알려주세요
(defun C:MAC_MC()
(memvar “MULTIPLE COPY”)
(MEM_OS)
(setq sel (ssget))
(setq p1 (getpoint ($p_com “Pick base point”)))
(setq p2 (getpoint p1 ($p_com “pick second point”)))
(setq ang1 (angle p1 p2))
(setq dd1 (distance p1 p2))
(while (/= dd1 nil)
(set_os 0)
(command “copy” sel “” p1 p2)
(pop_os)
(setq dd2 (getdist ($p_com (strcat “Angle:” (angtos ang1 0 2) “/ Next distance:<” (rtos dd1 2 2) “>”))))
(if (= dd2 nil) (setq dd2 dd1) (setq dd1 dd2))
(setq p2 (polar p2 ang1 dd2))
)
(term)
(POP_OS)
)