【AcBr库应用（一）】获取REGION，BOX的边界曲线

newer

XDRX API从 2018.0508开始提供ObjectARX AcBr API 库的LISP封装。


什么是“ACBR API” ?


AcBr API 是ARX处理拓扑对象的应用程序开发接口，用来处理AcDbRegion, AcDb3DSolid,AcDbBody等三维几何实体的拓扑关系。
除去ARX，其他的开发接口VLISP等没有提供封装的接口。


通过这个API，可以很方便的查询几何模型实体的“体、面、环、边、点”的数据和拓扑关系。
AcBrEntity 是这个接口的基类，本身不能实例化，它下面派生了 AcBrBrep,AcBrFace,AcBrLoop,AcBrEdge,AcBrVertex及AcBrShell等子类。并通过拓扑遍历器AcBrTraverser类，从 体、面、环、边、点的顺序来遍历整个模型实体。


下面我们介绍通过ACBR API来遍历一个面域实体，来得到每个边界曲线。


如图，是一个用SUBTRACT,UNION组合的面域实体，从ACBR的角度出发，它由“两个FACE”，“三个LOOP”，和“三个EDGE”组成。
ACBR的实体模型的拓扑层次结构是： 体（BODY） --->面（FACE）--->路径（LOOP）--->边（Edge）--->顶点（Vertex）


比如一个正方体BOX，由6个面，每个面由一个LOOP，每个LOOP由四条边，每个边由两个顶点组成。
通过遍历器，从BOX的根可以遍历到每个元素。也就可以方便的求出点，线，面的拓扑关系，点线面的交点、交线，点或直线是否在线、面上等等查询。




白色的是面域，红色是取得的三个边界曲线（圆）


上图，得到3DSOLID的每条边，红色。

代码如下：三层循环遍历结构

1. ;面（FACE）-> 路径（LOOP) ->边（EDGE）三层遍历，获得REGION边界曲线
   
2. 
   
3. (defun c:tt ()
   
4.   (if (and (setq e (car (entsel))) (setq br (xdbr::constructor e)))
   
5.     (progn (setq tr (xdbr::constructor "brepfacetraverser" br))
   
6.            (setq xents nil)
   
7.            ;;FACE遍历
   
8.            (while (not (xdbr::traverser:done tr))
   
9.              (setq face (xdbr::getpropertyvalue tr "face"))
   
10.              (setq faceloop (xdbr::constructor "facelooptraverser" face))
    
11.              (xdrx_object_release face)
    
12.              (setq fents nil)
    
13.              ;FACE下LOOP遍历
    
14.              (while (not (xdbr::traverser:done faceloop));;遍历器没到结束，循环
    
15.                (setq loop (xdbr::getpropertyvalue faceloop "loop"))
    
16.                (setq loopedge (xdbr::constructor "loopedgetraverser" loop))
    
17.                (xdrx_object_release loop)
    
18.                (setq ents nil)
    
19.                ;LOOP下Edge遍历
    
20.                (while (not (xdbr::traverser:done loopedge))
    
21.                  (setq edge (xdbr::getpropertyvalue loopedge "edge"))
    
22.                  (setq ents (cons edge ents));;边AcBrEdge保存到全局表中，以后操作。
    
23.                  (xdbr::traverser:next loopedge);;遍历器指针指向下一条边
    
24.                )
    
25.                (xdrx_object_release loopedge)
    
26.                (setq fents (cons ents fents))
    
27.                (xdbr::traverser:next faceloop);;遍历器指向下一条LOOP
    
28.              )
    
29.              (xdrx_object_release faceloop)
    
30.              (setq xents (cons fents xents))
    
31.              (xdbr::traverser:next tr);;遍历器指向下一个面FACE
    
32.            )
    
33.            ;;AcBrEdge -> AcGe Curve
    
34.            (setq ges (mapcar '(lambda (x) (xdbr::getpropertyvalue x "curve"))
    
35.                              (xd::list:flat xents)
    
36.                      )
    
37.            )
    
38.            (setq ss (xdge::entity:make ges)) ;;创建数据库曲线
    
39.            (xdrx_object_release tr br ges xents);;释放中间的ACBR对象
    
40.            (xdrx_entity_setproperty ss "color" 1);;设置颜色红色
    
41.            (xdrx_entity_redraw ss 1);;夹点亮显选择集
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )
    

;面（FACE）-> 路径（LOOP) ->边（EDGE）三层遍历，获得REGION边界曲线<br /> <br /> (defun c:tt ()<br />   (if (and (setq e (car (entsel))) (setq br (xdbr::constructor e)))<br />     (progn (setq tr (xdbr::constructor "brepfacetraverser" br))<br />            (setq xents nil)<br />            ;;FACE遍历<br />            (while (not (xdbr::traverser:done tr))<br />              (setq face (xdbr::getpropertyvalue tr "face"))<br />              (setq faceloop (xdbr::constructor "facelooptraverser" face))<br />              (xdrx_object_release face)<br />              (setq fents nil)<br />              ;FACE下LOOP遍历<br />              (while (not (xdbr::traverser:done faceloop));;遍历器没到结束，循环<br />                (setq loop (xdbr::getpropertyvalue faceloop "loop"))<br />                (setq loopedge (xdbr::constructor "loopedgetraverser" loop))<br />                (xdrx_object_release loop)<br />                (setq ents nil)<br />                ;LOOP下Edge遍历<br />                (while (not (xdbr::traverser:done loopedge))<br />                  (setq edge (xdbr::getpropertyvalue loopedge "edge"))<br />                  (setq ents (cons edge ents));;边AcBrEdge保存到全局表中，以后操作。<br />                  (xdbr::traverser:next loopedge);;遍历器指针指向下一条边<br />                )<br />                (xdrx_object_release loopedge)<br />                (setq fents (cons ents fents))<br />                (xdbr::traverser:next faceloop);;遍历器指向下一条LOOP<br />              )<br />              (xdrx_object_release faceloop)<br />              (setq xents (cons fents xents))<br />              (xdbr::traverser:next tr);;遍历器指向下一个面FACE<br />            )<br />            ;;AcBrEdge -> AcGe Curve<br />            (setq ges (mapcar '(lambda (x) (xdbr::getpropertyvalue x "curve"))<br />                              (xd::list:flat xents)<br />                      )<br />            )<br />            (setq ss (xdge::entity:make ges)) ;;创建数据库曲线<br />            (xdrx_object_release tr br ges xents);;释放中间的ACBR对象<br />            (xdrx_entity_setproperty ss "color" 1);;设置颜色红色<br />            (xdrx_entity_redraw ss 1);;夹点亮显选择集<br />     )<br />   )<br />   (princ)<br /> )<br />

zyclyl

arx该怎么学习呀，现有的教程都太老了，流程、vs等等好多都变了的感觉

liuyj

太超前了，2018.0508版本还不能下载呢

kaibing

当3D有圆角，会出现错误，跑偏了。
可不可以不 创建数据库曲线  直接读取其数据  曲线类型 端点圆心等 或线的颜色？

kaibing

大师.请教了。