[求助]：[1014]如何设定"WHILE"右键返回值?

tctabc

[求助]：[1014]如何设定"WHILE"右键返回值?
程序如下:

2. 
   
3. (DEFUN C:TEST ()
   
4. (WHILE
   
5. (setq pt (getpoint "\n 选取封闭空间:"))
   
6. (command "-BOUNDARY" pt "")
   
7. (setq en (entlast))
   
8. (IF (/= en nil)
   
9. (PROGN
   
10. (setq vla_en_AREA (vla-get-Area (LA-TO-VLA EN)))
    
11. (setq TXT (strcat "\n Area="
    
12. (rtos (/ vla_en_AREA 10000) 2 2)" (㎡)"))
    
13. (princ TXT)
    
14. (ENTDEL en)
    
15. ) ;_ 结束progn
    
16. ) ;_ 结束if
    
17. )
    
18. )
    

<br /> (DEFUN C:TEST ()<br /> (WHILE<br /> (setq pt (getpoint "\n 选取封闭空间:"))<br /> (command "-BOUNDARY" pt "")<br /> (setq en (entlast))<br /> (IF (/= en nil)<br /> (PROGN<br /> (setq vla_en_AREA (vla-get-Area (LA-TO-VLA EN)))<br /> (setq TXT (strcat "\n Area="<br /> (rtos (/ vla_en_AREA 10000) 2 2)" (㎡)"))<br /> (princ TXT)<br /> (ENTDEL en)<br /> ) ;_ 结束progn<br /> ) ;_ 结束if<br /> )<br /> )<br />

当在程序执行时
按下"ESC"键
返回 [函数被取消]

按下"滑鼠右"键
返回 指令:
若想要返回 (princ "程序终止")
那该怎样处理呢?

希望各位高手可以帮忙解答一下
谢谢~

雨箭风刀

；if放到while里面
(while .....
  (if ...)
)
(princ "程序终止")
)

qjcpj

这样行否？

2. 
   
3. (defun c:test        (/ pt en txt)
   
4.         (setq pt "T")
   
5.         (while pt
   
6.                 (setq pt (getpoint "\n 选取封闭空间:"))
   
7.                 (if        pt
   
8.                         (progn
   
9.                                 (command "-boundary" pt "")
   
10.                                 (setq en (bpoly pt))
    
11.                                 (if        en
    
12.                                         (progn
    
13.                                                 (command "area" "e" "l")
    
14.                                                 (setq
    
15.                                                         txt
    
16.                                                          (strcat
    
17.                                                                  "\n area="
    
18.                                                                  (rtos (/ (getvar "area") 1000000) 2 (getvar "dimdec"))
    
19.                                                                  " (㎡)"
    
20.                                                          )
    
21.                                                 )
    
22.                                                 (princ txt)
    
23.                                         )
    
24.                                 )
    
25.                         )
    
26.                 )
    
27.         )
    
28.         (princ)
    
29. )

<br /> (defun c:test        (/ pt en txt)<br />         (setq pt "T")<br />         (while pt<br />                 (setq pt (getpoint "\n 选取封闭空间:"))<br />                 (if        pt<br />                         (progn<br />                                 (command "-boundary" pt "")<br />                                 (setq en (bpoly pt))<br />                                 (if        en<br />                                         (progn<br />                                                 (command "area" "e" "l")<br />                                                 (setq<br />                                                         txt<br />                                                          (strcat<br />                                                                  "\n area="<br />                                                                  (rtos (/ (getvar "area") 1000000) 2 (getvar "dimdec"))<br />                                                                  " (㎡)"<br />                                                          )<br />                                                 )<br />                                                 (princ txt)<br />                                         )<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

tctabc

谢谢楼主的解答
那如果我想使用 GrRead 命令来处理
那么滑鼠右键的 GrRead 该用哪各值呢?

Underway

Command: (GrRead)      ; 右键
(25 461)

xyz518mm

轉載 http://p4.xdcad.net/forum/showth ... 3035133#post3035133
有發表關於 GrRead 使用範例
[PHP]
(defun C:repkey ()
(print "选取物件/右键输入/K键输入")
(setq key (grread))
(anskey key)
)
     
(defun anskey ( key /)
(cond
((= (car key) 3) (print "滑鼠点到点位置"))
((= (CAR key) 2)
(SETQ bigwd (STRCASE (CHR (CADR key))))
(IF (= bigwd "K")
(PRINT "按键K输入")
(PROGN
    (PRINT "未支援此关键命令,请重新输入命令")
    (C:repkey)
)
)
)
((= (CAR key) 25) (print "滑鼠按到右键"))
(t
(print "您的输入,没有任何反应!!!")
)
)
)

[/PHP]