(XD::Entity:AssIntersectEnts)获得从一个实体出发循环相交的所有实体

Lispboy

1. (defun XD::Entity:AssIntersectEnts (e fillter offset / box elst n ss)
   
2.   (setq box (xdrx_entity_box e)
   
3.         offset (abs offset)
   
4.         box (if (> offset 0)
   
5.               (apply 'xdrx_points_offset (cons offset box))
   
6.               box
   
7.             )
   
8.         ss (ssget "cp" (xd::PNTS:wcs2ucs box) (if fillter fillter nil))
   
9.   )
   
10.   (if (not (member e AssIntersectEnts))
    
11.     (setq AssIntersectEnts (cons e AssIntersectEnts))
    
12.   )
    
13.   (if ss
    
14.     (progn
    
15.       (setq elst (xdrx_pickset->ents ss))
    
16.       (foreach n elst
    
17.         (if (not (member n AssIntersectEnts))
    
18.           (progn
    
19.             (XD::Entity:AssIntersectEnts n fillter offset)
    
20.           )
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   AssIntersectEnts
    
26. )

(defun XD::Entity:AssIntersectEnts (e fillter offset / box elst n ss)<br />   (setq box (xdrx_entity_box e)<br />         offset (abs offset)<br />         box (if (> offset 0)<br />               (apply 'xdrx_points_offset (cons offset box))<br />               box<br />             )<br />         ss (ssget "cp" (xd::PNTS:wcs2ucs box) (if fillter fillter nil))<br />   )<br />   (if (not (member e AssIntersectEnts))<br />     (setq AssIntersectEnts (cons e AssIntersectEnts))<br />   )<br />   (if ss<br />     (progn<br />       (setq elst (xdrx_pickset->ents ss))<br />       (foreach n elst<br />         (if (not (member n AssIntersectEnts))<br />           (progn<br />             (XD::Entity:AssIntersectEnts n fillter offset)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   AssIntersectEnts<br /> )

Lispboy

1. (defun XD::Entity:AssIntersectEntsInit()
   
2.    (setq AssIntersectEnts nil)
   
3. )
   

(defun XD::Entity:AssIntersectEntsInit()<br />    (setq AssIntersectEnts nil)<br /> )<br />

dyjwyqz5221

该函数有问题吧，函数名称为XD::Entity:AssIntersectEnts，在函数里面又引用了该函数(XD::Entity:AssIntersectEnts n fillter offset)

marting

dyjwyqz5221 发表于 2018-4-12 14:14
该函数有问题吧，函数名称为XD::Entity:AssIntersectEnts，在函数里面又引用了该函数(XD::Entity:AssInters ...

递归调用啊。

dyjwyqz5221

明白了，谢谢，还要继续学习

dyjwyqz5221

测试此函数过程中，fillter采用 \\\'((0 . "LINE,ARC")) 有问题，采用'((0 . "LINE,ARC"))就可以了，请教是否如此？

pengfei2010

这个函数我用lisp写过了，效率很一般，不知道 arx是不是很快

dyjwyqz5221

有个缺陷，就是这样找出的实体是采用(ssget "cp")方式查找的，假如：cp范围内，有不相交、但是图层也相同的实体也包含在内了吧。并非真正的相交。