填充实体边界（LOOP）的拓扑关系的确定（一）

XDSoft

下面代码演示了XDRX API 得到填充实体的边界LOOP拓扑关系的过程，
1、拾取填充
2、在一个边界附近拾取测试点
3、该边界实体品红色显示，该边界内部的所有LOOP黄色显示

1. (defun c:tt ()
   
2.   (if (and (setq e (xdrx_entsel "\n拾取填充<退出>:" '((0 . "HATCH"))))
   
3.            (xdrx_pickset_redraw e)
   
4.            (setq p (getpoint "\n在填充环附近点一点<退出>:"))
   
5.       )
   
6.     (progn
   
7.       (xdrx_begin)
   
8.       (setq mp (xdrx_hatch->mpolygon e)
   
9.             mp (entlast)
   
10. 
    
11. 
    
12.       )
    
13.       (if (and (setq closestLoop
    
14.                       (xdrx_getpropertyvalue mp "ClosestLoopTo" p)
    
15.                )
    
16.                (setq childLoops
    
17.                       (xdrx_getpropertyvalue
    
18.                         mp
    
19.                         "childloops"
    
20.                         closestloop
    
21.                       )
    
22.                )
    
23.           )
    
24.         (progn
    
25.           (setq loopdata (xdrx_getpropertyvalue mp "MPolygonLoopAt" closestloop))
    
26.           (xdrx_polyline_make loopdata)
    
27.           (xdrx_setpropertyvalue (entlast) "constantwidth" 20.0 "color" 6)
    
28.           (setq i -1)
    
29.           (mapcar '(lambda (x)
    
30.                      (setq loopdata (xdrx_getpropertyvalue
    
31.                                       mp
    
32.                                       "MPolygonLoopAt"
    
33.                                       x
    
34.                                     )
    
35.                      )
    
36.                      (xdrx_polyline_make loopdata)
    
37.                      (xdrx_setpropertyvalue
    
38.                        (entlast)
    
39.                        "constantwidth"
    
40.                        20.0
    
41.                        "color"
    
42.                        2
    
43.                      )
    
44.                    )
    
45.                   childloops
    
46.           )
    
47.         )
    
48.       )
    
49.       (xdrx_entity_delete mp)
    
50.       (xdrx_pickset_redraw e t)
    
51.       (xdrx_end)
    
52.     )
    
53.   )
    
54.   (princ)
    
55. )
    
56. 
    

(defun c:tt ()<br />   (if (and (setq e (xdrx_entsel "\n拾取填充<退出>:" '((0 . "HATCH"))))<br />            (xdrx_pickset_redraw e)<br />            (setq p (getpoint "\n在填充环附近点一点<退出>:"))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq mp (xdrx_hatch->mpolygon e)<br />             mp (entlast)<br /> <br /> <br />       )<br />       (if (and (setq closestLoop<br />                       (xdrx_getpropertyvalue mp "ClosestLoopTo" p)<br />                )<br />                (setq childLoops<br />                       (xdrx_getpropertyvalue<br />                         mp<br />                         "childloops"<br />                         closestloop<br />                       )<br />                )<br />           )<br />         (progn<br />           (setq loopdata (xdrx_getpropertyvalue mp "MPolygonLoopAt" closestloop))<br />           (xdrx_polyline_make loopdata)<br />           (xdrx_setpropertyvalue (entlast) "constantwidth" 20.0 "color" 6)<br />           (setq i -1)<br />           (mapcar '(lambda (x)<br />                      (setq loopdata (xdrx_getpropertyvalue<br />                                       mp<br />                                       "MPolygonLoopAt"<br />                                       x<br />                                     )<br />                      )<br />                      (xdrx_polyline_make loopdata)<br />                      (xdrx_setpropertyvalue<br />                        (entlast)<br />                        "constantwidth"<br />                        20.0<br />                        "color"<br />                        2<br />                      )<br />                    )<br />                   childloops<br />           )<br />         )<br />       )<br />       (xdrx_entity_delete mp)<br />       (xdrx_pickset_redraw e t)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

sh_h

回的人少，我来小顶一下