求教 如何构造一个选集，选集中的要素为上次命令新生成的要素

远方小山

各位大神，小弟想构造一个选集，选集的要素为上次执行cad命令新生成的要素，求大神指教。

xiaolong1487

2. (defun EntNextAll (en / ss)
   
3.         (setq ss (ssadd))
   
4.         (while (setq en (entnext en))
   
5.                 (setq ss (ssadd en ss))
   
6.         )
   
7.         (if (/= (sslength ss) 0)
   
8.                 ss
   
9.         )
   
10. )
    
11. 
    
12. (defun c:ts ()
    
13.         (setq en (entlast))
    
14.         ......
    
15.         ......
    
16.         (sssetfirst nil (setq ss (EntNextAll en)))
    
17. )

(defun EntNextAll (en / ss)<br />         (setq ss (ssadd))<br />         (while (setq en (entnext en))<br />                 (setq ss (ssadd en ss))<br />         )<br />         (if (/= (sslength ss) 0)<br />                 ss<br />         )<br /> )<br /> <br /> (defun c:ts ()<br />         (setq en (entlast))<br />         ......<br />         ......<br />         (sssetfirst nil (setq ss (EntNextAll en)))<br /> )

cchessbd

xiaolong1487 发表于 2016-4-28 18:47

高手啊，太棒了。