选择集的问题

archt

当选择集里面的实体被砸开或分解后，如何加入选择集？

XDSoft

最初由 archt 发布
[B]当选择集里面的实体被砸开或分解后，如何加入选择集？ [/B]

用(setq ss (ssget "p"))

:9 :9 :9

cy956

2. 
   
3. (Defun get-last-en( / enlast )  ;;;取当前图中最后实体名
   
4.   (setq enlast nil enlast (entlast))
   
5.   (if (and (/= enlast nil)
   
6.            (or (= "POLYLINE" (dxf 0 (entget enlast)))
   
7.                (and (= "INSERT" (dxf 0 (entget enlast)))
   
8.                     (entnext enlast)
   
9.                     (= "ATTRIB" (dxf 0 (entget (entnext enlast))))
   
10.            )   )
    
11.       )
    
12.     (while (/= "SEQEND" (dxf 0 (entget enlast)))
    
13.       (setq enlast (entnext enlast)))
    
14.   )
    
15.   enlast
    
16. )
    
17. (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集
    
18.   (setq ss (ssadd) ep e)
    
19.   (if (not ep) (setq ep (entnext)))
    
20.   (while (/= (setq ep (entnext ep)) nil)
    
21.     (ssadd ep ss)
    
22.   )
    
23.   ss
    
24. )
    
25. (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体
    
26.   (setq ss (ssadd) ep e)
    
27.   (if (not ep) (setq ep (entnext)))
    
28.   (while (/= (setq ep (entnext ep)) nil)
    
29.     (setq en(entget ep)ty(dxf 0 en))
    
30.     (if (not (member TY '("VERTEX" "SEQEND")))
    
31.       (ssadd ep ss)
    
32.     )
    
33.   )
    
34.   ss
    
35. )
    

<br /> (Defun get-last-en( / enlast )  ;;;取当前图中最后实体名<br />   (setq enlast nil enlast (entlast))<br />   (if (and (/= enlast nil)<br />            (or (= "POLYLINE" (dxf 0 (entget enlast)))<br />                (and (= "INSERT" (dxf 0 (entget enlast)))<br />                     (entnext enlast)<br />                     (= "ATTRIB" (dxf 0 (entget (entnext enlast))))<br />            )   )<br />       )<br />     (while (/= "SEQEND" (dxf 0 (entget enlast)))<br />       (setq enlast (entnext enlast)))<br />   )<br />   enlast<br /> )<br /> (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (ssadd ep ss)<br />   )<br />   ss<br /> )<br /> (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (setq en(entget ep)ty(dxf 0 en))<br />     (if (not (member TY '("VERTEX" "SEQEND")))<br />       (ssadd ep ss)<br />     )<br />   )<br />   ss<br /> )<br />

archt

不错！
我印象中，当在lsp中炸开块，需要设定一个autocad的系统变量，你还记得吗？

cy956

我女儿两岁时，喜欢听别人念小动物卡片。有一回，
我们看到她居然也手里拿着张卡片念念有词：
“小耗子有一条又细又长的尾巴...”就卡住了，
奇的是她补了一句：“忘记，念过。”然后才把卡片
扔到一边。

呵呵，灌水了。你问的是不是set QAFLAGS = 1.

archt

呵呵，有意思