不来白不来 发表于 2015-1-9 10:26:18

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

代码，如下，现在的功能是可以框选，请问怎么改成单选并且选择以后立即执行不需要空格来确认。(defun c:gz1 ()
(while t
        (prompt "\n 选取要替换的立管:")
        (setq ss (ssget '((0 . "TCH_VPIPEDIM")))
                i 0)
        (repeat (sslength ss)
                (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))
                        (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))
                (setq i (1+ i))
        )
        (princ)
        )
)

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

本帖最后由 Andyhon 于 2015-1-9 10:42 编辑


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

不来白不来 发表于 2015-1-9 10:48:32

Andyhon 发表于 2015-1-9 10:41 static/image/common/back.gif


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

我自己也找到了一个方法，就是
ssget ":S"
加上:s参数后就可以单选了
页: [1]
查看完整版本: 求助，如何单选后立即执行无需确认