返回ENT对象之后所有对象的选择集,

Love-Lisp

1. (defun XD::SS:EntNextAll (ent / ss)
   
2.   (if (not ent)
   
3.     (progn
   
4.       (setq ent (entnext))
   
5.       (if ent
   
6.         (setq ss (ssadd ent))
   
7.         (setq ss (ssadd))
   
8.         )
   
9.       )
   
10.     (setq ss (ssadd))
    
11.     )
    
12.   (while (setq ent (entnext ent))
    
13.     (if (not (member (cdr (assoc 0 (entget ent)))
    
14.                      '("ATTRIB" "VERTEX" "SEQEND")
    
15.                      )
    
16.              )
    
17.       (ssadd ent ss)
    
18.       )
    
19.     )
    
20.   (if (= 0 (sslength ss))
    
21.     nil
    
22.     ss
    
23.     )
    
24.   )

(defun XD::SS:EntNextAll (ent / ss)<br />   (if (not ent)<br />     (progn<br />       (setq ent (entnext))<br />       (if ent<br />         (setq ss (ssadd ent))<br />         (setq ss (ssadd))<br />         )<br />       )<br />     (setq ss (ssadd))<br />     )<br />   (while (setq ent (entnext ent))<br />     (if (not (member (cdr (assoc 0 (entget ent)))<br />                      '("ATTRIB" "VERTEX" "SEQEND")<br />                      )<br />              )<br />       (ssadd ent ss)<br />       )<br />     )<br />   (if (= 0 (sslength ss))<br />     nil<br />     ss<br />     )<br />   )

Free-Lancer

把 ent 也包含了

Lisphk

Free-Lancer 发表于 2013-6-6 10:25
把 ent 也包含了

为什么要包含ent呢？

Free-Lancer

如果中间遇到属性块等，entnext 会进入子实体，子实体循环到头为 nil，不能返回到主实体进行主实体的 entnext吧

Love-Lisp

Free-Lancer 发表于 2013-6-6 11:30
如果中间遇到属性块等，entnext 会进入子实体，子实体循环到头为 nil，不能返回到主实体进行主实体的 entne ...

函数对"ATTRIB" "VERTEX" "SEQEND"子实体是忽略的！

kwok

Lisphk 发表于 2013-6-6 11:21
为什么要包含ent呢？

包含ent
的好，可以全弄成块或组

taner

2. ；我抄来的
   
3. 
   
4. (defun t2-ss-aftere (ent / ss entlst)
   
5.   (and
   
6.     ent
   
7.     (eq 'ename (type ent))
   
8.     (setq ss (ssadd))
   
9.     (while (setq ent (entnext ent))
   
10.       (setq entlst (entget ent))
    
11.       (if (and
    
12.             (not (wcmatch (cdr (assoc 0 entlst)) "ATTRIB,VERTEX,SEQEND"))
    
13.             (eq (cdr (assoc 410 entlst)) (getvar "ctab"))
    
14.           )
    
15.         (ssadd ent ss)
    
16.       )
    
17.     )
    
18.   )
    
19.   (if (and
    
20.         ss
    
21.         (> (sslength ss) 0)
    
22.       )
    
23.     ss
    
24.     (ssget "x")
    
25.   )
    
26. )
    

；我抄来的<br /> <br /> (defun t2-ss-aftere (ent / ss entlst)<br />   (and<br />     ent<br />     (eq 'ename (type ent))<br />     (setq ss (ssadd))<br />     (while (setq ent (entnext ent))<br />       (setq entlst (entget ent))<br />       (if (and<br />             (not (wcmatch (cdr (assoc 0 entlst)) "ATTRIB,VERTEX,SEQEND"))<br />             (eq (cdr (assoc 410 entlst)) (getvar "ctab"))<br />           )<br />         (ssadd ent ss)<br />       )<br />     )<br />   )<br />   (if (and<br />         ss<br />         (> (sslength ss) 0)<br />       )<br />     ss<br />     (ssget "x")<br />   )<br /> )<br />

dbqtju

回帖是一种习惯。