[求助]：[求助]：[求助]：请大家帮忙看看哪里错了（很短）

BLACKFORCE

这个程序是我编的第一个lisp程序，通过选择一个园自动画出两条中心线，但有时正确有时错误（画出的图形不对，并不是程序出错），请大家帮忙看看。谢谢。
(defun c:gf(/ cdata ctdata ct rad newrad startpt1 starpt2)

(setq cdata ( entsel"select a circle."))
(setq ctdata ( entget (car cdata)))
(setq ct (cdr ( assoc 10 ctdata)))
(setq rad (cdr ( assoc 40  ctdata)))
(setq newrad (* rad 1.4))
(setq startpt1 (polar ct pi newrad))
(setq startpt2 (polar ct (/ pi 2) newrad))
(setq endpt1 (polar ct 0 newrad ))
(setq endpt2 (polar ct (* pi 1.5) newrad))
(command "line" startpt1 endpt1 "")
(command "line" startpt2 endpt2 "")
)
(prin1)

原地踏步

将捕捉关了试试。