[讨论]：如何实现ENTSEL的左键点选循环，右键取消

XDSoft

最初由 hqd9639 发布
[B]XD的方法最符合题意，我没想到用错误码errno。 [/B]

很多时候,想知道一个命令或者函数的返回状态,试试查查错误返回吗errno, 会有收获的.

snsj

谢谢大家，小东的方法真不错：）

jx2008

我的方法是：（同样适用于nentselp）

2. 
   
3.   [FONT=courier new]
   
4. (defun muzi:nentsel (/ Loop)
   
5.   (setq Loop T)
   
6.   (while Loop
   
7.     (initget " ") ;关键字 " " ：表示空格、回车、鼠标右键
   
8.     (setq WW (nentsel "\n点选对象："))
   
9.     (cond ((= (type WW) 'LIST)
   
10.            ....... ；程序执行部分          )
    
11.           ((= WW "") (setq Loop nil)) ;空格、回车、鼠标右键则退出
    
12.           (T Loop)
    
13.     )
    
14.   )
    
15. )
    
16. (princ)
    
17. )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun muzi:nentsel (/ Loop)<br />   (setq Loop T)<br />   (while Loop<br />     (initget " ") ;关键字 " " ：表示空格、回车、鼠标右键<br />     (setq WW (nentsel "\n点选对象："))<br />     (cond ((= (type WW) 'LIST)<br />            ....... ；程序执行部分          )<br />           ((= WW "") (setq Loop nil)) ;空格、回车、鼠标右键则退出<br />           (T Loop)<br />     )<br />   )<br /> )<br /> (princ)<br /> )<br />   [/FONT]<br />