[LISP函数]：能否在选择集中再创建选择集？

redapple

如题，相当于创建子选择集，3X！

e2002

当然可以,不过具体的请你举个例子说明你的要求?

redapple

比如我创建一选择集SS1，包含圆和直线，但是我想从SS1中再创建直线选择集！

lijiao

用历遍的方法可以实现。

LUCAS

這樣
(setq SS1 (ssget))
(command "_.select" SS1 "")
(setq SSS (ssget "p" '((0 . "line"))))

redapple

如果SS1不是用交互方式选取的呢，程序最后一句应该怎样呢？

XDSoft

最初由 redapple 发布
[B]如果SS1不是用交互方式选取的呢，程序最后一句应该怎样呢？ [/B]

你可以在已知的选择集，循环遍历，测试下实体类型，组码0，看是否是LINE，然后用 ssadd 加入另一个选择集里面

2. 
   
3. [font=courier]
   
4. 
   
5. (setq len (sslength ss)
   
6.         i -1
   
7.         ss1 (ssadd)
   
8. )
   
9. (repeat len
   
10.     (setq e (ssname ss (setq i (1+ i)))
    
11.              etype (cdr (assoc 0 (entget e)))
    
12.    )
    
13.    (if (= "LINE" etype)
    
14.       (ssadd e ss1)
    
15.    )
    
16. )
    
17. [/font]
    

<br /> [font=courier]<br /> <br /> (setq len (sslength ss)<br />         i -1<br />         ss1 (ssadd)<br /> )<br /> (repeat len<br />     (setq e (ssname ss (setq i (1+ i)))<br />              etype (cdr (assoc 0 (entget e)))<br />    )<br />    (if (= "LINE" etype)<br />       (ssadd e ss1)<br />    )<br /> )<br /> [/font]<br />

XDRX_API的代码是：

2. 
   
3. [font=courier]
   
4. (xdrx_setsstodb ss 0)
   
5. (setq ss1 (ssadd))
   
6. (while (setq e (xdrx_getentdata 0))
   
7.     (setq etype (xdrx_getentdxf 0))
   
8.     (if (= "LINE" etype)
   
9.        (ssadd e ss1)
   
10.    )
    
11. )
    
12. [/font]
    

<br /> [font=courier]<br /> (xdrx_setsstodb ss 0)<br /> (setq ss1 (ssadd))<br /> (while (setq e (xdrx_getentdata 0))<br />     (setq etype (xdrx_getentdxf 0))<br />     (if (= "LINE" etype)<br />        (ssadd e ss1)<br />    )<br /> )<br /> [/font]<br />

实际上最好的方法还是你根据原来SS的构建条件，用ssget 构建一个新的，条件加上LINE的选择集。

如：下面的X参数你可以替换成你原来的SS选择集的过滤条件（去掉圆实体）

2. [font=courier]
   
3.      (setq ss1 (ssget "x" '((0 . "line"))))
   
4. [/font]
   

[font=courier]<br />      (setq ss1 (ssget "x" '((0 . "line"))))<br /> [/font]<br />