[原创] 请高手帮忙优化一下代码，刚刚学

请看图片，在不缩放cad的情况下，所有的代码运行正常，缩放cad就出现问题，请高手帮忙解决，谢谢

请忙解决一下，我的账号也有点问题，不能发帖了，hhh454

重新申请了一个账号，原来的账号用不了了

ZZXXQQ

(defun c:rt(/ pa pb pc pd pe ll)
 (princ "\激光矩形外框绘制----钮广春2010--QQ-626860125")
 (setvar "cmdecho" 0)
 (setq oldos (getvar "OSMODE"))
 (setq ll 10)
 (setq pa (getpoint "指定一点:"))
 (setq pb (polar pa 0 ll))
 (setq pc (polar pb (/ pi 2) ll))
 (setq pd (polar pc 0 ll))
 (setq pe (polar pd (/ pi 2) ll))
 (setvar "OSMODE" 0)
 (command "RECTANG" pa "d" 600 300 pe)
 (command "RECTANG" pc "d" 580 280 pe)
 (setvar "OSMODE" oldos)
 (prin1)
)
(prompt "**启动命令rt，钮广春2010**")
(prin1)

谢谢，zzxxqq,问题解决了，需然不懂什么意思，不过已经遇到这个问题直接把你这个设置搬过来应该就行了吧！！

明白了，原来是捕捉点的问题，代码本身没有问题，就是画矩形的时候自动捕捉了，如果关掉捕捉开关，也可以不要那些代码了，谢谢版主了。又学了一点