利用MPOLYGON建立拓扑关系快速查找重叠的标注和实体

newer

普通的查找实现，算法上是n*n的时间复杂度
利用MPOLYGON，可以将复杂度降低到n


1、查找重叠的标注

1. (defun c:tt ()  (xdrx_begin)
   
2.   (if (and (xdrx_initssget "\n选择查重叠的标注<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "dim*"))))
   
4.            (setq mt (xdrx_entity_getproperty ss "textbox")
   
5.                  mt (apply 'append mt)
   
6.            )
   
7.            (setq mp (xdrx_curve->mpolygon mt))
   
8.            (setq cp (xdrx_getpropertyvalue mp "haschildloop" t))
   
9.       )
   
10.     (progn (xdrx_curve->mpolygon (xdge::entity:make cp))
    
11.            (xdrx_mpolygon->hatch (entlast))
    
12.            (xdrx_entity_setcolor (entlast) 1)
    
13.     )
    
14.   )
    
15.   (xdrx_object_release cp)
    
16.   (xdrx_entity_delete mp)
    
17.   (xdrx_end)
    
18.   (princ)
    
19. )
    

(defun c:tt ()  (xdrx_begin)<br />   (if (and (xdrx_initssget "\n选择查重叠的标注<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "dim*"))))<br />            (setq mt (xdrx_entity_getproperty ss "textbox")<br />                  mt (apply 'append mt)<br />            )<br />            (setq mp (xdrx_curve->mpolygon mt))<br />            (setq cp (xdrx_getpropertyvalue mp "haschildloop" t))<br />       )<br />     (progn (xdrx_curve->mpolygon (xdge::entity:make cp))<br />            (xdrx_mpolygon->hatch (entlast))<br />            (xdrx_entity_setcolor (entlast) 1)<br />     )<br />   )<br />   (xdrx_object_release cp)<br />   (xdrx_entity_delete mp)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

2、查找重叠的实体

1. (defun c:tt ()  (xdrx_begin)
   
2.   (if (and (xdrx_initssget "\n选择查重叠的实体<退出>:")
   
3.            (setq ss (xdrx_ssget))
   
4.            (setq mt (xdrx_entity_getproperty ss "boundingbox")
   
5.                  mt (apply 'append mt)
   
6.            )
   
7.            (setq mp (xdrx_curve->mpolygon mt))
   
8.            (setq cp (xdrx_getpropertyvalue mp "haschildloop" t))
   
9.       )
   
10.     (progn
    
11.       (xdrx_curve->mpolygon (xdge::entity:make cp))
    
12.       (xdrx_mpolygon->hatch (entlast))
    
13.       (xdrx_entity_setcolor (entlast) 1))
    
14.   )
    
15.   (xdrx_object_release cp)
    
16.   (xdrx_entity_delete mp)
    
17.   (xdrx_end)
    
18.   (princ)
    
19. )
    

(defun c:tt ()  (xdrx_begin)<br />   (if (and (xdrx_initssget "\n选择查重叠的实体<退出>:")<br />            (setq ss (xdrx_ssget))<br />            (setq mt (xdrx_entity_getproperty ss "boundingbox")<br />                  mt (apply 'append mt)<br />            )<br />            (setq mp (xdrx_curve->mpolygon mt))<br />            (setq cp (xdrx_getpropertyvalue mp "haschildloop" t))<br />       )<br />     (progn<br />       (xdrx_curve->mpolygon (xdge::entity:make cp))<br />       (xdrx_mpolygon->hatch (entlast))<br />       (xdrx_entity_setcolor (entlast) 1))<br />   )<br />   (xdrx_object_release cp)<br />   (xdrx_entity_delete mp)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

coverne

是个好函数

xoyo88

查重叠的实体，很实用。

木惜木

缺函数缺函数缺函数

开心68602

老师：查找重叠实体无法查找标示重叠的实体，跟没有使用一样。