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

snsj

如何实现ENTSEL的左键点选循环（点选循环即，如果没点选到物体一直循环到选中为止），右键取消，而不是非要用ESC取消
SSGET就很好，选不中自动循环，右键取消

lijiao

是不是这样的：

snsj

我的意思是：在用ENTSEL函数选择物体时候，如果你没选中物体则返回NIL后推出，现在想要的是如果无意中没选中物体，则重新返回ENTSEL进行选择，如果突然不想用这个命令了，点右键推出，现在如果用WHILE循环必须用ESC推出，不太方便，想实现右键退出，左键点选循环

hqd9639

用LISP好像难以实现你的要求，对ENTSEL空选和右键返回的都是NIL，不好判断.

mmmm

可能的思路：
使用grread代替entsel,获得返回值之后，如是右健返回空
如是左健，再自动执行一次(nentselp (getvar "lastpoint"))，如果
选中实体，再判断实体，否则，保持循环

我没有测试，仅作参考

lijiao

最初由 snsj 发布
[B]我的意思是：在用ENTSEL函数选择物体时候，如果你没选中物体则返回NIL后推出，现在想要的是如果无意中没选中物体，则重新返回ENTSEL进行选择，如果突然不想用这个命令了，点右键推出，现在如果用WHILE循环必须用ESC?.. [/B]

我曾经在论坛中发过一个叫“全新的ENTSEL”，可以稍作修改达到你的目的。

eachy

最初由 snsj 发布
[B]我的意思是：在用ENTSEL函数选择物体时候，如果你没选中物体则返回NIL后推出，现在想要的是如果无意中没选中物体，则重新返回ENTSEL进行选择，如果突然不想用这个命令了，点右键推出，现在如果用WHILE循环必须用ESC?.. [/B]

是这个吗？

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.mjtd.com/function/alisp/024.htm">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

cy956

用entsel看来是没招了，用grread也会有无穷烦恼。
建议你用getpoint，有点再判断是否选中合适的物体，无点（右键）退出，用while循环。
不过既然你觉得ssget好用，何不直接用？

XDSoft

最初由 cy956 发布
[B]用entsel看来是没招了，用grread也会有无穷烦恼。
建议你用getpoint，有点再判断是否选中合适的物体，无点（右键）退出，用while循环。
不过既然你觉得ssget好用，何不直接用？ [/B]

论坛以前讨论过的.

点右键退出还是点左键空选退出, 查看错误码errno, 如果为7 则是左键空选退出, 如果为52, 则是右键退出.

利用上面原理,写个循环处理程序很容易了吧.

参考下:

2. <normalfont>
   
3. (setq tf t)
   
4. (while tf
   
5.    (setvar "errno" 0)
   
6.    (setq e (entsel "\rPick Object<鼠标右键退出>:"))
   
7.     (if (/= (getvar "errno") 7)
   
8.       (setq tf nil)
   
9.    )
   
10. )
    
11. (if e  ;;如果选了实体,进行处理
    
12.   (progn
    
13.    ....
    
14.   )
    
15. )     
    
16. </normalfont>
    

<normalfont><br /> (setq tf t)<br /> (while tf<br />    (setvar "errno" 0)<br />    (setq e (entsel "\rPick Object<鼠标右键退出>:"))<br />     (if (/= (getvar "errno") 7)<br />       (setq tf nil)<br />    )<br /> )<br /> (if e  ;;如果选了实体,进行处理<br />   (progn<br />    ....<br />   )<br /> )     <br /> </normalfont><br />

写成一个通用函数是:

2. <normalfont>
   
3. (defun $XDLSP_Entsel (prompt / tf e ret)
   
4.   (setq tf t)
   
5.   (while tf
   
6.     (setvar "errno" 0)
   
7.     (setq e (entsel prompt))
   
8.     (if (/= (getvar "errno") 7)
   
9.       (setq tf nil)
   
10.     )
    
11.   )
    
12.   e
    
13. )
    
14. </normalfont>
    

<normalfont><br /> (defun $XDLSP_Entsel (prompt / tf e ret)<br />   (setq tf t)<br />   (while tf<br />     (setvar "errno" 0)<br />     (setq e (entsel prompt))<br />     (if (/= (getvar "errno") 7)<br />       (setq tf nil)<br />     )<br />   )<br />   e<br /> )<br /> </normalfont><br />

用法:

2. <normalfont>
   
3. 
   
4. (if (setq e ($XDLSP_Entsel "\r请拾取实体<回车或右键退出>:"))
   
5.    (progn
   
6.      ....
   
7.   )
   
8. )
   
9. </normalfont>
   

<normalfont><br /> <br /> (if (setq e ($XDLSP_Entsel "\r请拾取实体<回车或右键退出>:"))<br />    (progn<br />      ....<br />   )<br /> )<br /> </normalfont><br />

ll_j

我是利用关键字空格与自循环实现，这是我在论坛贴的文章“Autolisp编程心得”的一个例子：

2. 
   
3. (defun ett_ct()
   
4.   (initget "C  ")                                         ;关键字“C”及空格
   
5.   (setq s0 (entsel "\n设置颜色C / 选取文本:"))
   
6.   (cond
   
7.     ( (= s0 "C") (ett_col))                               ;转设置颜色子函数
   
8.     ( (= s0 "") nil)                                      ;空格退出
   
9.     ( (and (= (type s0) 'LIST)                            ;选择实体
   
10.            (= (cdr (assoc 0 (entget (car s0)))) "TEXT")   ;判别文本
    
11.       )
    
12.       ...                                                 ;操作内容
    
13.       (ett_ct)                                            ;编辑后返回选择
    
14.     )
    
15.     (t (ett_ct))                                          ;空选返回选择
    
16.   )
    
17. )

<br /> (defun ett_ct()<br />   (initget "C  ")                                         ;关键字“C”及空格<br />   (setq s0 (entsel "\n设置颜色C / 选取文本:"))<br />   (cond<br />     ( (= s0 "C") (ett_col))                               ;转设置颜色子函数<br />     ( (= s0 "") nil)                                      ;空格退出<br />     ( (and (= (type s0) 'LIST)                            ;选择实体<br />            (= (cdr (assoc 0 (entget (car s0)))) "TEXT")   ;判别文本<br />       )<br />       ...                                                 ;操作内容<br />       (ett_ct)                                            ;编辑后返回选择<br />     )<br />     (t (ett_ct))                                          ;空选返回选择<br />   )<br /> )

梦断江南

我的是:
(while (= nil (entsel "\n选择:")))
不知合适不.哈哈
大家想想.....

ll_j

最初由 梦断江南 发布
[B]我的是:
(while (= nil (entsel "\n选择:")))
不知合适不.哈哈
大家想想..... [/B]

右键不能取消。

cy956

最初由 XDSoft 发布
[B][QUOTE]最初由 cy956 发布
[B]用entsel看来是没招了，用grread也会有无穷烦恼。
建议你用getpoint，有点再判断是否选中合适的物体，无点（右键）退出，用while循环。
不过既然你觉得ssget好用，何不直接用... [/B]

确实讨论过。

XDSoft

最初由 梦断江南 发布
[B]我的是:
(while (= nil (entsel "\n选择:")))
不知合适不.哈哈
大家想想..... [/B]

entsel 左键空选,返回NIL, 右键退出也返回NIL, 这个不可以的实现左键按下,继续执行 entsel 的.

你这个右键退出不了的.

hqd9639

XD的方法最符合题意，我没想到用错误码errno。