(defun c:4mi(/ ents p1 a i)
(setq ents (ssget))
(setq a (entlast))
(setq p1 (getpoint))
(command “_.mirror” ents “” p1 (polar p1 0 100) “N”)
(command “_.mirror” ents “” p1 (polar p1 (dtr 90) 100) “N”)
(command “_.copy” ents “” p1 p1)
(command “_.mirror” ents “” p1 (polar p1 0 100) “Y”)
(command “_.mirror” ents “” p1 (polar p1 (dtr 90) 100) “Y”)
(princ)
)
오류: no function definition: DTR이라 뜨면서 먹히지가 않네요ㅠㅠ
고수님들 도와주세요 ^^*
(defun dtr(a)(* pi(/ a 180.0)))
수야님 감사합니다. 부산에 내려오시면 식사 대접하겠습니다.~! ^^ 수야님 덕분에 야근도 덜 하게 되고 업무에 많은 도움이 되고 있습니다. 정말로 감사합니다. 매번 신세만 지는거 같아서 부탁 드리는 것도 죄송할 따름입니다. 리습 공부 더 열심히 하겠습니다.
^^;; 서로 돕고 사는 거죠