[求助]如何实现选N个即执行N个？

sen.sam

我们在用ssget时，一般是选择N个物体后再按回车（空格）键，程序才执行下面的命令。我在一个外挂上看到它可以选一个物体就立刻执行一个命令（不用按回车），然后鼠标仍呈选择状态，选N个，就立即执行N次。借用phoenixdjq的程序举例：

(defun c:jj()
(setq a (ssget))
(while a
(command "chprop" a "" "c" 1 "")
(setq a (ssget))
))

如何修改上程序才能实现框选几个（不要按回车）就立即把所选的线改颜色？期望高手出现，帮忙解决！

colder

(defun c:jj()
(setq a (car (entsel)))
(while a
(command "chprop" a "" "c" 1 "")
(setq a (car (entsel)))
))

英雄无敌

(defun c:jj()
(while (setq a (ssget":S"))

(command "chprop" a "" "c" 1 "")

))

在ssget后加上":S"就行了。

sen.sam

谢谢colder和英雄无敌回帖！！英雄无敌的方法正是我所想要的。colder的虽然可以立即变色，但是只能点选不能框选。再次感谢两位！！

dinosaurhxe2

向英雄无敌请教：

：S是什么意思？

英雄无敌

:s是只允许单一选择集，也就是只能选择一次，这在CAD的帮助里面有介绍。