关于寻找填充边界曲线

lisp_beginner

如果填充是关联的，应该通过填充实体容易找到边界，如果填充是不关联的，那么通过填充实体，如何能找到图中的边界曲线呢？

Lispboy

思路是
1、由填充实体，获取边界LOOP

2、由填充实体的包围盒，构建CP曲线选择集，把可能的边界曲线都构建到选择集中
3、循环处理比较，条件可以是同时满足，长度相等，平行、距离=0，满足的保存到表中

处理完，保存表里面的曲线就是边界了。

下面用API写个函数和测试的工具，函数里面该注释的地方都注释了，方便你理解。

1. (defun c:tt ()
   
2.   (while (and
   
3.         (setq e (car (xdrx_entsel "\n点取填充<退出>:" '((0 . "HATCH")))))
   
4.         (setq ents (xd::hatch:getloopents e))
   
5.       )
   
6.     (progn
   
7.       (XD::Pickset:GripDisplay ents)
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    

(defun c:tt ()<br />   (while (and<br />         (setq e (car (xdrx_entsel "\n点取填充<退出>:" '((0 . "HATCH")))))<br />         (setq ents (xd::hatch:getloopents e))<br />       )<br />     (progn<br />       (XD::Pickset:GripDisplay ents)<br />     )<br />   )<br />   (princ)<br /> )<br />

1. (defun XD::Hatch:GetLoopEnts (ha / box dis e ents ge2d ge3d ges loops loops1 n ss tf tf1 x)
   
2.   (if (xdrx_object_isa ha "AcDbHatch")
   
3.     (progn
   
4.       (setq ents (xdrx_getpropertyvalue ha "AssocObjIds")) ; 如果是关联的直接返回曲线
   
5.       (if (not ents)
   
6.         (progn
   
7.           (setq ges (xdrx_getpropertyvalue ha "getloops" t) ; 获得所有的边LOOP几何实体
   
8.                 ges (mapcar
   
9.                       '(lambda (x)
   
10.                          (if (= (xdge::type x) "kCompositeCrv2d")
    
11.                            (list x (xdge::getpropertyvalue x "getcurvelist"))
    
12.                            (if (= (type x) 'LIST)
    
13.                              (cons (xdge::constructor "kCompositecrv2d" x) x)
    
14.                              x
    
15.                            )
    
16.                          )
    
17.                        )
    
18.                       ges
    
19.                     )
    
20.                 ges (xd::list:flat ges)
    
21.                 box (xdrx_entity_box ha)
    
22.           )
    
23.           (setq tf1 (XD::Doc:SafeZoom box)) ; 确保边界范围显示在屏幕内
    
24.           (if (setq ss (ssget "cp" box '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE")))) ; 构建CP曲线选择集
    
25.             (progn
    
26.               (setq loops (xdrx_pickset->ents ss))
    
27.               (foreach n ges
    
28.                 (setq tf t
    
29.                       loops1 loops
    
30.                 )
    
31.                 (while (and
    
32.                          tf
    
33.                          (setq e (car loops1))
    
34.                        )
    
35.                   (setq ge3d (xdge::constructor e)
    
36.                         ge2d (xdge::entity:3d->2d ge3d)
    
37.                   )
    
38.                   (if (and
    
39.                         (if (/= (xdge::type n) "kCompositeCrv2d")
    
40.                           (xdge::getpropertyvalue n "isparallelto" ge2d)
    
41.                           t
    
42.                         )
    
43.                         (equal (xdge::getpropertyvalue n "length")
    
44.                                (xdge::getpropertyvalue ge2d "length") 1e-2
    
45.                         )
    
46.                         (equal (setq dis (xdge::getpropertyvalue n "distanceto"
    
47.                                                                  ge2d
    
48.                                          )
    
49.                                )
    
50.                                0.0 1e-2
    
51.                         )
    
52.                       )                       ; 判断是否平行、长度相同、距离=0
    
53.                     (setq ents (cons e ents)
    
54.                           tf nil
    
55.                     )
    
56.                   )
    
57.                   (setq loops1 (cdr loops1))
    
58.                   (xdge::free ge2d ge3d)
    
59.                 )
    
60.               )
    
61.               (setq ents (reverse ents))
    
62.             )
    
63.           )
    
64.           (if tf1
    
65.             (xdrx_document_zoomprevious) ; 如果ZOOM，恢复原来的显示
    
66.           )
    
67.           (xdge::free ges)
    
68.         )
    
69.       )
    
70.     )
    
71.   )
    
72.   ents
    
73. )
    
74. 
    

(defun XD::Hatch:GetLoopEnts (ha / box dis e ents ge2d ge3d ges loops loops1 n ss tf tf1 x)<br />   (if (xdrx_object_isa ha "AcDbHatch")<br />     (progn<br />       (setq ents (xdrx_getpropertyvalue ha "AssocObjIds")) ; 如果是关联的直接返回曲线<br />       (if (not ents)<br />         (progn<br />           (setq ges (xdrx_getpropertyvalue ha "getloops" t) ; 获得所有的边LOOP几何实体<br />                 ges (mapcar<br />                       '(lambda (x)<br />                          (if (= (xdge::type x) "kCompositeCrv2d")<br />                            (list x (xdge::getpropertyvalue x "getcurvelist"))<br />                            (if (= (type x) 'LIST)<br />                              (cons (xdge::constructor "kCompositecrv2d" x) x)<br />                              x<br />                            )<br />                          )<br />                        )<br />                       ges<br />                     )<br />                 ges (xd::list:flat ges)<br />                 box (xdrx_entity_box ha)<br />           )<br />           (setq tf1 (XD::Doc:SafeZoom box)) ; 确保边界范围显示在屏幕内<br />           (if (setq ss (ssget "cp" box '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE")))) ; 构建CP曲线选择集<br />             (progn<br />               (setq loops (xdrx_pickset->ents ss))<br />               (foreach n ges<br />                 (setq tf t<br />                       loops1 loops<br />                 )<br />                 (while (and<br />                          tf<br />                          (setq e (car loops1))<br />                        )<br />                   (setq ge3d (xdge::constructor e)<br />                         ge2d (xdge::entity:3d->2d ge3d)<br />                   )<br />                   (if (and<br />                         (if (/= (xdge::type n) "kCompositeCrv2d")<br />                           (xdge::getpropertyvalue n "isparallelto" ge2d)<br />                           t<br />                         )<br />                         (equal (xdge::getpropertyvalue n "length")<br />                                (xdge::getpropertyvalue ge2d "length") 1e-2<br />                         )<br />                         (equal (setq dis (xdge::getpropertyvalue n "distanceto"<br />                                                                  ge2d<br />                                          )<br />                                )<br />                                0.0 1e-2<br />                         )<br />                       )                       ; 判断是否平行、长度相同、距离=0<br />                     (setq ents (cons e ents)<br />                           tf nil<br />                     )<br />                   )<br />                   (setq loops1 (cdr loops1))<br />                   (xdge::free ge2d ge3d)<br />                 )<br />               )<br />               (setq ents (reverse ents))<br />             )<br />           )<br />           (if tf1<br />             (xdrx_document_zoomprevious) ; 如果ZOOM，恢复原来的显示<br />           )<br />           (xdge::free ges)<br />         )<br />       )<br />     )<br />   )<br />   ents<br /> )<br /> <br />

sicky111

学习了。