由指定实体先后获取 N 个实体（包括指定实体)

iLisp

2. 
   
3. (defun entnext_n (e n / el)
   
4.   (setq el (list e))
   
5.   (repeat (1- n)
   
6.     (if        (and (setq e (entnext e))
   
7.              (not (member (cdr (assoc 0 (entget e)))
   
8.                           '("ATTRIB" "VERTEX" "SEQEND")
   
9.                   )
   
10.              )
    
11.         )
    
12.       (setq el (cons e el))
    
13.     )
    
14.   )
    
15.   (if (= n (length el))
    
16.     (reverse el)
    
17.     nil
    
18.   )
    
19. )

<br /> (defun entnext_n (e n / el)<br />   (setq el (list e))<br />   (repeat (1- n)<br />     (if        (and (setq e (entnext e))<br />              (not (member (cdr (assoc 0 (entget e)))<br />                           '("ATTRIB" "VERTEX" "SEQEND")<br />                   )<br />              )<br />         )<br />       (setq el (cons e el))<br />     )<br />   )<br />   (if (= n (length el))<br />     (reverse el)<br />     nil<br />   )<br /> )

Lisphk

大师，一般什么时候用昵？

iLisp

陆续发的函数最后会整合一个应用

kqqt6236

不错，谢谢分享。

liunian0524

感谢楼主分享

yoyoho

实用，谢谢分享。

sicky111

谢谢分享。