编制了一个程序，画一个圆，并以圆心为端点画一条线，并自动修剪掉圆内线段，程序正常运行，缩放绘图视口后程序就失效了。请问大神这是什么原因，之前看过一个帖子，也有人遇到类似问题，记得是输入一个命令修改参数，就解决了。
(defun c:hx()
(setq pa (getpoint "输入第一点:"))
(setq pb (getpoint pa "输入第二点:"))
(setq wa 1)
(command "line" pa pb "")
(setq l1l (entlast))
(command "circle" pa 1)
(setq cc1 (entlast))
(command "trim" cc1 l1l "" pa "" )
)
(defun c:hx()
(setq pa (getpoint "输入第一点:"))
(setq pb (getpoint pa "输入第二点:"))
(setq wa 1)
(command "line" pa pb "")
(setq l1l (entlast))
(command "circle" pa 1)
(setq cc1 (entlast))
(command "trim" cc1 l1l "" pa "" )
)
