[LISP函数]：显示十字光标拉伸中有些问题

elitefish

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. ;  拉伸显示十字光标
   
6. ;{
   
7. (defun XStretch(/ p1 iCURSORSIZE)
   
8.   (setq iCURSORSIZE (getvar "CURSORSIZE"))
   
9.   (setq olderror *error*
   
10.     *error* errorCURSORSIZE
    
11.   )
    
12.   (setvar "CURSORSIZE" 100)
    
13.   (if (setq p1 (getpoint "\n指定起始点:"))
    
14.     (if (setq p2 (getcorner p1 "\n指定对角点:"))
    
15.       (command "stretch" p1 p2)
    
16.     )
    
17.   )
    
18.   (setvar "CURSORSIZE" iCURSORSIZE)
    
19.   (setq *error* olderror)
    
20. )
    
21. ;  出错处理－恢复十字光标 起始
    
22. ;  {
    
23. (defun errorCURSORSIZE(msg)
    
24.   (setvar "CURSORSIZE" iCURSORSIZE)
    
25.   (setq *error* olderror)
    
26. )
    
27. ;  }
    
28. ;}
    
29. 
    
30. 
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> ;  拉伸显示十字光标<br /> ;{<br /> (defun XStretch(/ p1 iCURSORSIZE)<br />   (setq iCURSORSIZE (getvar "CURSORSIZE"))<br />   (setq olderror *error*<br />     *error* errorCURSORSIZE<br />   )<br />   (setvar "CURSORSIZE" 100)<br />   (if (setq p1 (getpoint "\n指定起始点:"))<br />     (if (setq p2 (getcorner p1 "\n指定对角点:"))<br />       (command "stretch" p1 p2)<br />     )<br />   )<br />   (setvar "CURSORSIZE" iCURSORSIZE)<br />   (setq *error* olderror)<br /> )<br /> ;  出错处理－恢复十字光标 起始<br /> ;  {<br /> (defun errorCURSORSIZE(msg)<br />   (setvar "CURSORSIZE" iCURSORSIZE)<br />   (setq *error* olderror)<br /> )<br /> ;  }<br /> ;}<br /> <br /> <br />   [/FONT]<br />

目的是 先取一点 p1 再取一点 p2
然后执行 stretch 以p1 p2点作为输入范围点

但执行到 stretch 时，是将p2作为范围的第一点 而要我再输入第二点

请高手指点

但下面这个Lisp 中 执行是正常的

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. ; 窗选放大视图
   
6. ;{
   
7. (defun ZoomWindow(/ iOSMODE)
   
8.   (setq iOSMODE (getvar "OSMODE"))
   
9.   (setq olderror *error*
   
10.     *error* errorZoom
    
11.   )
    
12.   (setvar "OSMODE" 0)
    
13.   (command "zoom" "E")
    
14.   (if (setq p1 (getpoint "\n指定起始点:"))
    
15.     (if (setq p2 (getcorner p1 "\n指定对角点:"))
    
16.       (command "zoom" "W" p1 p2)
    
17.     )
    
18.   )
    
19.   (setvar "OSMODE" iOSMODE)
    
20.   (setq *error* olderror)
    
21. )
    
22. 
    
23. ;  出错处理－恢复上次视图
    
24. ;  {
    
25. (defun errorZoom(msg)
    
26.   (command "zoom" "p")
    
27.   (setvar "OSMODE" iOSMODE)
    
28.   (setq *error* olderror)
    
29. )
    
30. ;  }
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> ; 窗选放大视图<br /> ;{<br /> (defun ZoomWindow(/ iOSMODE)<br />   (setq iOSMODE (getvar "OSMODE"))<br />   (setq olderror *error*<br />     *error* errorZoom<br />   )<br />   (setvar "OSMODE" 0)<br />   (command "zoom" "E")<br />   (if (setq p1 (getpoint "\n指定起始点:"))<br />     (if (setq p2 (getcorner p1 "\n指定对角点:"))<br />       (command "zoom" "W" p1 p2)<br />     )<br />   )<br />   (setvar "OSMODE" iOSMODE)<br />   (setq *error* olderror)<br /> )<br /> <br /> ;  出错处理－恢复上次视图<br /> ;  {<br /> (defun errorZoom(msg)<br />   (command "zoom" "p")<br />   (setvar "OSMODE" iOSMODE)<br />   (setq *error* olderror)<br /> )<br /> ;  }<br />   [/FONT]<br />