调取子函数的选择集

434939575

2. 
   
3. (defun c:tt () ;xzj调取通用函数产生的选择集
   
4.   (sel)
   
5.   (setq ss1 (ssget "p"))
   
6.   (sssetfirst nil ss1)
   
7. )
   
8. 
   
9. (defun sel ()
   
10.   (setq ss1 (ssget '((0 . "circle"))))
    
11. )

<br /> (defun c:tt () ;xzj调取通用函数产生的选择集<br />   (sel)<br />   (setq ss1 (ssget "p"))<br />   (sssetfirst nil ss1)<br /> )<br /> <br /> (defun sel ()<br />   (setq ss1 (ssget '((0 . "circle"))))<br /> )