autoCAD2004中程序运行于预计相差甚大，在2008中却正常为何？

cax

AutoCAD2004中程序运行与预其相差甚大，在2008中却正常为何？更离奇的是在2004中第一次是两根对角线，第二次是单根对角线，第三次就是十字架了。。。。。。难道2004运行语句不稳定，还有个预热进化的过程!!!!!!!望论坛达人给予解答。源码如下：
-------------------------------------------------------------------------------------------------------------------------
(defun c:kpbox()
  ;以下pa、ww、hh须由用户输入
  (setq pa (getpoint"输入左下角点:"))
  (setq ww (getreal"宽度h:"))
  (setq hh (getreal"高度:"))
   ; 以下pb、pc、pd值须由程序依据pa、ww、hh运算得出
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (/ pi 2) hh))
  (setq pd (polar pc pi ww))
  ;以下依据pa、pb、pc、pd点画矩形
(command "pline" pa pb pc pd "c")
;以下mp1、mp2、mp3、mp4值由程序依据pa、ww、hh及pb、pc、pd值运算得出
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2)(/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2)(/ hh 2)))
;以下依据mp1、mp2、mp3、mp4点画出两条线
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
)
------------------------------------------------------------------------------------------------------------------------------

cad2004第一次运行lisp情况（令人惊讶！）

cad2004第三次运行lisp情况(预期）

cad2008情况为预期。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
原因何在，求解释！！！

cabinsummer

捕捉问题，第一次和第二次是捕捉端点、第三次捕捉中点或没有捕捉

cax

cabinsummer 发表于 2011-9-24 07:21
捕捉问题，第一次和第二次是捕捉端点、第三次捕捉中点或没有捕捉

但是源代码就是要求连接矩形四个边的中点啊
怎么可能捕捉端点呢！！！！！
[em0]

xyp1964

增加: (setvar"osmode"0)

cax

1. (defun c:kpbox()
   
2. (setvar "cmdecho" 0)
   
3. (setq os (getvar "osmode"))
   
4. (setvar "osmode" 0),
   
5.   ;以下pa、ww、hh须由用户输入
   
6.   (setq pa (getpoint"输入左下角点:"))
   
7.   (setq ww (getreal"宽度h:"))
   
8.   (setq hh (getreal"高度:"))
   
9.    ; 以下pb、pc、pd值须由程序依据pa、ww、hh运算得出
   
10.   (setq pb (polar pa 0 ww))
    
11.   (setq pc (polar pb (/ pi 2) hh))
    
12.   (setq pd (polar pc pi ww))
    
13.   ;以下依据pa、pb、pc、pd点画矩形
    
14. (command "pline" pa pb pc pd "c")
    
15. ;以下mp1、mp2、mp3、mp4值由程序依据pa、ww、hh及pb、pc、pd值运算得出
    
16. (setq mp1 (polar pa 0 (/ ww 2)))
    
17. (setq mp2 (polar pb (/ pi 2)(/ hh 2)))
    
18. (setq mp3 (polar pd 0 (/ ww 2)))
    
19. (setq mp4 (polar pa (/ pi 2)(/ hh 2)))
    
20. ;以下依据mp1、mp2、mp3、mp4点画出两条线
    
21. (command "line" mp1 mp3 "")
    
22. (command "line" mp2 mp4 "")
    
23. (setvar "cmdecho" 1)
    
24. (setvar "osmode" os)
    
25. )
    

(defun c:kpbox()<br /> (setvar "cmdecho" 0)<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0),<br />   ;以下pa、ww、hh须由用户输入<br />   (setq pa (getpoint"输入左下角点:"))<br />   (setq ww (getreal"宽度h:"))<br />   (setq hh (getreal"高度:"))<br />    ; 以下pb、pc、pd值须由程序依据pa、ww、hh运算得出<br />   (setq pb (polar pa 0 ww))<br />   (setq pc (polar pb (/ pi 2) hh))<br />   (setq pd (polar pc pi ww))<br />   ;以下依据pa、pb、pc、pd点画矩形<br /> (command "pline" pa pb pc pd "c")<br /> ;以下mp1、mp2、mp3、mp4值由程序依据pa、ww、hh及pb、pc、pd值运算得出<br /> (setq mp1 (polar pa 0 (/ ww 2)))<br /> (setq mp2 (polar pb (/ pi 2)(/ hh 2)))<br /> (setq mp3 (polar pd 0 (/ ww 2)))<br /> (setq mp4 (polar pa (/ pi 2)(/ hh 2)))<br /> ;以下依据mp1、mp2、mp3、mp4点画出两条线<br /> (command "line" mp1 mp3 "")<br /> (command "line" mp2 mp4 "")<br /> (setvar "cmdecho" 1)<br /> (setvar "osmode" os)<br /> )<br />

谢谢楼上的二位
我已经搞清楚了
原来是由于osmode变量设置的问题