求助，如何单选后立即执行无需确认

不来白不来

代码，如下，现在的功能是可以框选，请问怎么改成单选并且选择以后立即执行不需要空格来确认。

2. (defun c:gz1 ()
   
3. (while t
   
4.         (prompt "\n 选取要替换的立管:")
   
5.         (setq ss (ssget '((0 . "TCH_VPIPEDIM")))
   
6.                 i 0)
   
7.         (repeat (sslength ss)
   
8.                 (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))
   
9.                         (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))
   
10.                 (setq i (1+ i))
    
11.         )
    
12.         (princ)
    
13.         )
    
14. )

(defun c:gz1 ()<br /> (while t<br />         (prompt "\n 选取要替换的立管:")<br />         (setq ss (ssget '((0 . "TCH_VPIPEDIM"))) <br />                 i 0)<br />         (repeat (sslength ss)<br />                 (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))<br />                         (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))<br />                 (setq i (1+ i))<br />         )<br />         (princ)<br />         )<br /> )

Andyhon

2. 
   
3. (defun c:gz1 ()
   
4.    (setq ee (entsel "\n 选取要替换的立管:")
   
5.         obj (vlax-ename->vla-object (car ee))
   
6.        snum (atoi (vlax-get obj 'VPipeNum))
   
7.    )
   
8.    ;; (vlax-put-property obj 'VPipeNum (+ snum 1))
   
9.    (vlax-put-property obj 'VPipeNum (1+ snum))
   
10.    (princ)
    
11. )
    

<br /> (defun c:gz1 ()<br />    (setq ee (entsel "\n 选取要替换的立管:")<br />         obj (vlax-ename->vla-object (car ee))<br />        snum (atoi (vlax-get obj 'VPipeNum))<br />    )<br />    ;; (vlax-put-property obj 'VPipeNum (+ snum 1))<br />    (vlax-put-property obj 'VPipeNum (1+ snum))<br />    (princ)<br /> )<br />

不来白不来

Andyhon 发表于 2015-1-9 10:41

谢谢回复，确实有效，多谢。

我自己也找到了一个方法，就是
ssget ":S"
加上:s参数后就可以单选了