한점은 직접 입력받구여 나머지는 dat 화일로 읽어 들여서
한점을 중심으로 길이와 각이 다른 라인을 그리는
리습을 만들려고 하는데 안되네염
모가 틀렸는지 고수님들 봐주세염 ㅠㅠ
(defun c:dp ()
(setq fname (getfiled “file select” “” “” 4))
(setq fd (open fname “r”))
(setq pt1 (getpoint ” pick point :”))
(setq rl (read-line fd))
(while (/= rl nil)
(setq an (atof (substr rl 1 8))
d (atof (substr rl 9 16))
)
(setq pt2 (list an d))
(setq pt2 (polar pt1(*(/ an 180.0)pi)d))
(command “line” pt1 pt2)
)
(close fd)
)