[活动结束]LISP知识问答第2期--基础篇2-(难度指数:★)

Gu_xl

回复 狂刀lxx 的帖子

説的不错！是有这个问题，poly和mesh图元结构是一样的，不知道还有没有其他类似的图元实体，可以修改下，

2. 
   
3. (defun EntNextAll (ent / ss)
   
4.   (if (not ent)
   
5.     (progn
   
6.       (setq ent (entnext))
   
7.     (setq ss (ssadd ent))
   
8.   )
   
9.     (setq ss (ssadd))
   
10.     )
    
11.   (while (and ent (setq ent (entnext ent)))
    
12.     (cond ((= "ATTRIB" (cdr (assoc 0 (entget ent))))
    
13.            (while (/= "SEQEND" (cdr (assoc 0 (entget(setq ent (entnext ent))))))
    
14.              )
    
15.            (setq ent (entnext ent))
    
16.         )
    
17.           ((= "VERTEX" (cdr (assoc 0 (entget ent))))
    
18.            (while (/= "SEQEND" (cdr (assoc 0 (entget(setq ent (entnext ent))))))
    
19.              )
    
20.            (setq ent (entnext ent))
    
21.         )
    
22.       )
    
23.     (if ent
    
24.     (ssadd ent ss)
    
25.       )
    
26.     )
    
27.   (if (= 0 (sslength ss))
    
28.     nil
    
29.     ss
    
30.     )
    
31.   )
    

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

qcw911

好东西，什么时候下期 啊

328302216

怎么都把代码分一点一点的发上来啊~~~~~

q530496591

g版开贴.留个记号!

yssok

谢谢分享，学习了~