求助：我先用鼠标选择某一个或两个图元，然后程序把我之前选择的图元加入到选择集。

xiayuxue213

就是想让程序识别我用鼠标选好的图元，并对他们进行处理。

Lisphk

1. (defun c:tt ()
   
2.   (setq ss (ssadd))
   
3.   (while (setq e (car (entsel "\n拾取图元加入选择集<结束>:")))
   
4.     (redraw e 3)
   
5.     (ssadd e ss)
   
6.   )
   
7.   (sssetfirst nil ss);;亮显选择集
   
8.   (princ)
   
9. )
   
10. 
    

(defun c:tt ()<br />   (setq ss (ssadd))<br />   (while (setq e (car (entsel "\n拾取图元加入选择集<结束>:")))<br />     (redraw e 3)<br />     (ssadd e ss)<br />   )<br />   (sssetfirst nil ss);;亮显选择集<br />   (princ)<br /> )<br /> <br />

xiayuxue213

Lisphk 发表于 2017-8-1 13:28

我的意思是不用entsel选取   程序运行的时候图元已经用鼠标选取加亮显示了。程序把这些加亮显示的图元放进选择集。

Lisphk

xiayuxue213 发表于 2017-8-1 13:48

那就是先选择后执行了

1. (defun c:tt ()
   
2.   (setvar "pickfirst" 1)
   
3.   (command ".select" "")
   
4.   (if (setq ss (ssget "p"))
   
5.     (progn
   
6.       (princ (strcat "\n选到了" (itoa (sslength ss)) "个实体."))
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    

(defun c:tt ()<br />   (setvar "pickfirst" 1)<br />   (command ".select" "")<br />   (if (setq ss (ssget "p"))<br />     (progn<br />       (princ (strcat "\n选到了" (itoa (sslength ss)) "个实体."))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

xiayuxue213

Lisphk 发表于 2017-8-1 14:01

是这个意思，谢谢。