这个cad lsp会关闭对象捕捉并清空对象捕捉选项

可以改掉这一漏洞么？代码如下
(defun c:gt(/ os a b d ang p1 aa p2 p3 bb p4 p5 p6)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq a (getdist "\\n 输入腰孔的长度:"))
(setq b (getdist "\\n 输入腰孔的宽度:"))
(setq d (- a b))
(setq ang (getangle "\\n 输入旋转角度:"))
(setq p1 (getpoint "\\n 输入腰孔的中心点："))
(setq aa (/ d 2.0) p2 (polar p1 0 aa) p3 (polar p1 pi aa) bb (/ b 2.0))
(setq p4 (polar p3 (* pi 1.5) bb) p5 (polar p2 (* pi 1.5) bb) p6 (polar p3 (* pi 0.5) bb))
(command "pline" p4 "w" "0" "0" p5 "a" "ce" p2 "a" "180" "l" p6 "a" "ce" p3 "a" "180" "l" "")
(command "rotate" "l" "" p1 (* (/ 180 pi) ang))
(setvar "osmode" os)
(princ))
是个画长圆孔(腰孔)的lsp。操作很繁琐，要分别输入腰孔的长度.宽度.旋转角度,,,,,,能不能简化一下。由鼠标左键先后给定两个点，确定腰孔两圆心的距离。不管X轴方向的两个点，还是Y轴方向的两个点，腰孔自动跟随该两点生成。宽度有人工输入数值确定。谢谢。

把0改成1，就好了

我可以给你修改LSP程序的