[求助]：秋枫大哥请进，如何使选集S1，单击左键时，不被退出？

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun c:w ()
   
5.   (princ "\n*** 图元改层◆|颜色→Bylayer| ***")
   
6.   (setq cm (getvar "cmdecho"))
   
7.   (setq *error* cd_err)
   
8.   (setvar "cmdecho" 1)
   
9.   (princ "\n选择要更改图层的图元 <退出>:")
   
10.   (setq ss (ssget))
    
11.   (if ss
    
12.     (progn
    
13.            (if (setq s1 (car (entsel "\n拾取目标图层上的图元 或, <当前图层>:")))
    
14.                (command ".laymch" ss "" s1)
    
15.                (command ".laymch" ss "" "" "y")                         ;;;也可用(command ".laycur" ss "")
    
16.            )
    
17.                (while (/= 0 (getvar "cmdactive")) (command pause))
    
18.                (setvar "cmdecho" 0)
    
19.                (command ".chprop" ss "" "c" "bylayer" "")
    
20.     )
    
21.   )
    
22.   (setvar "cmdecho" cm)
    
23.   (princ)
    
24. )
    
25. 
    
26. (defun cd_err (s)
    
27.   (setvar "cmdecho" cm)
    
28.   (command "_.undo" "_e")
    
29. )
    
30. 
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:w ()<br />   (princ "\n*** 图元改层◆|颜色→Bylayer| ***")<br />   (setq cm (getvar "cmdecho"))<br />   (setq *error* cd_err)<br />   (setvar "cmdecho" 1)<br />   (princ "\n选择要更改图层的图元 <退出>:")<br />   (setq ss (ssget))<br />   (if ss<br />     (progn<br />            (if (setq s1 (car (entsel "\n拾取目标图层上的图元 或, <当前图层>:")))<br />                (command ".laymch" ss "" s1)<br />                (command ".laymch" ss "" "" "y")                         ;;;也可用(command ".laycur" ss "")<br />            )<br />                (while (/= 0 (getvar "cmdactive")) (command pause))<br />                (setvar "cmdecho" 0)<br />                (command ".chprop" ss "" "c" "bylayer" "")<br />     )<br />   )<br />   (setvar "cmdecho" cm)<br />   (princ)<br /> )<br /> <br /> (defun cd_err (s)<br />   (setvar "cmdecho" cm)<br />   (command "_.undo" "_e")<br /> )<br /> <br />   [/FONT]<br />

如何使上面的代码中的选集S1，在用户选择对象单击左键没有选择到对象时，不退出，而继续的提示点选对象。单击右键可以退出。

我是LISP肓，请求们可以看看如何做？谢谢！

秋枫

e2002给出如下答案：

当(entsel)返回nil时，可以通过 (getvar "errno")来区分用户是回车了还是没有选中物体。

andyhua5240

其实理正的很多单选的命令，也是左键没有拾取到物体时，也会退出。

秋枫

举例说明，qun即可修正。