아래 리습을 2002에서는 되는데 2005에서는 안됨니다
(defun c:mc(/ a i ddd ddk olds)
(setq olderr *error* *error* myerror chm 0)
(IF (= C_DIS NIL)(SETQ C_DIS 1500))
(prompt “n Select the COPY target <")(prin1 c_dis)(prompt "> ? : “)
(setq a(ssget))
(if (= a nil)
(progn
(prompt “n Enter coping DISTANCE <")(prin1 c_dis)
(setq ddk (getdist “> ? : “))
(if ddk (setq c_dis ddk)(setq c_dis c_dis))
(setq ddd c_dis)
(prompt “n Select the COPYNG target ? : “)
(setq a (ssget))
(copy_m)
(setq c_dis ddd)
)
(progn
(setq ddd c_dis)
(copy_m)
(setq c_dis ddd)
)
)
(new-sn)
)