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

XDSoft

下面代码求指定点附近的LOOP的父亲（PARENTLOOP）和当前的祖宗（ROOTLOOP）

上面演示的图片，上下是一个单独的填充，有两个外部环（ROOT），我们的代码
1、拾取点
2、该点附近的LOOP品红色显示，父亲黄色显示，直系的祖宗（ROOT）红色显示(该图片祖宗有两个分支）

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.       (if (and (setq closestLoop
    
12.                       (xdrx_getpropertyvalue mp "ClosestLoopTo" p)
    
13.                )
    
14.                (setq parentloop
    
15.                       (xdrx_getpropertyvalue
    
16.                         mp
    
17.                         "parentloop"
    
18.                         closestloop
    
19.                       )
    
20.                )
    
21.                (setq roots
    
22.                       (xdrx_getpropertyvalue
    
23.                         mp
    
24.                         "rootloops"
    
25.                         closestloop
    
26.                       )
    
27.                )
    
28.           )
    
29.         (progn
    
30.           (setq        loopdata (xdrx_getpropertyvalue
    
31.                            mp
    
32.                            "MPolygonLoopAt"
    
33.                            closestloop
    
34.                          )
    
35.           )
    
36.           (xdrx_polyline_make loopdata)
    
37.           (xdrx_setpropertyvalue
    
38.             (entlast)
    
39.             "constantwidth"
    
40.             20.0
    
41.             "color"
    
42.             6
    
43.           )
    
44.           (setq        parentdata
    
45.                  (xdrx_getpropertyvalue
    
46.                    mp
    
47.                    "MPolygonLoopAt"
    
48.                    parentloop
    
49.                  )
    
50.           )
    
51.           (xdrx_polyline_make parentdata)
    
52.           (xdrx_setpropertyvalue
    
53.             (entlast)
    
54.             "constantwidth"
    
55.             20.0
    
56.             "color"
    
57.             2
    
58.           )
    
59.           (if (> (length roots) 1)
    
60.             (progn
    
61.               (vl-some
    
62.                 '(lambda (x)
    
63.                    (setq
    
64.                      child (xdrx_getpropertyvalue mp "childloops" x)
    
65.                    )
    
66.                    (if (member closestloop child)
    
67.                      (setq rootloop x)
    
68.                    )
    
69.                  )
    
70.                 roots
    
71.               )
    
72.             )
    
73.             (setq rootloop (car roots))
    
74.           )
    
75.           (setq        rootdata
    
76.                  (xdrx_getpropertyvalue
    
77.                    mp
    
78.                    "MPolygonLoopAt"
    
79.                    rootloop
    
80.                  )
    
81.           )
    
82.           (xdrx_polyline_make rootdata)
    
83.           (xdrx_setpropertyvalue
    
84.             (entlast)
    
85.             "constantwidth"
    
86.             20.0
    
87.             "color"
    
88.             1
    
89.           )
    
90.         )
    
91.       )
    
92.       (xdrx_entity_delete mp)
    
93.       (xdrx_pickset_redraw e t)
    
94.       (xdrx_end)
    
95.     )
    
96.   )
    
97.   (princ)
    
98. )
    
99. 
    

(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 />       (if (and (setq closestLoop<br />                       (xdrx_getpropertyvalue mp "ClosestLoopTo" p)<br />                )<br />                (setq parentloop<br />                       (xdrx_getpropertyvalue<br />                         mp<br />                         "parentloop"<br />                         closestloop<br />                       )<br />                )<br />                (setq roots<br />                       (xdrx_getpropertyvalue<br />                         mp<br />                         "rootloops"<br />                         closestloop<br />                       )<br />                )<br />           )<br />         (progn<br />           (setq        loopdata (xdrx_getpropertyvalue<br />                            mp<br />                            "MPolygonLoopAt"<br />                            closestloop<br />                          )<br />           )<br />           (xdrx_polyline_make loopdata)<br />           (xdrx_setpropertyvalue<br />             (entlast)<br />             "constantwidth"<br />             20.0<br />             "color"<br />             6<br />           )<br />           (setq        parentdata<br />                  (xdrx_getpropertyvalue<br />                    mp<br />                    "MPolygonLoopAt"<br />                    parentloop<br />                  )<br />           )<br />           (xdrx_polyline_make parentdata)<br />           (xdrx_setpropertyvalue<br />             (entlast)<br />             "constantwidth"<br />             20.0<br />             "color"<br />             2<br />           )<br />           (if (> (length roots) 1)<br />             (progn<br />               (vl-some<br />                 '(lambda (x)<br />                    (setq<br />                      child (xdrx_getpropertyvalue mp "childloops" x)<br />                    )<br />                    (if (member closestloop child)<br />                      (setq rootloop x)<br />                    )<br />                  )<br />                 roots<br />               )<br />             )<br />             (setq rootloop (car roots))<br />           )<br />           (setq        rootdata<br />                  (xdrx_getpropertyvalue<br />                    mp<br />                    "MPolygonLoopAt"<br />                    rootloop<br />                  )<br />           )<br />           (xdrx_polyline_make rootdata)<br />           (xdrx_setpropertyvalue<br />             (entlast)<br />             "constantwidth"<br />             20.0<br />             "color"<br />             1<br />           )<br />         )<br />       )<br />       (xdrx_entity_delete mp)<br />       (xdrx_pickset_redraw e t)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

scnjlwb

谢谢分享！