新手求助：自动修剪程序，发现缩放绘图视口后程序正常...

zlp

写了一个程序，画一个圆，并以圆心为端点画一条线，并自动修剪掉圆内线段，程序正常运行，缩放绘图视口后程序就失效了。

请问大神这是什么原因，之前看过一个帖子，也有人遇到类似问题，记得是输入一个命令修改系统参数，就解决了。程序如下：

(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 "" )

)