XDGE几何库应用(13)--平面 Plane 构造

st788796

在 AutoCAD 中经常会用到 Plane 概念，先看看 ARX 中 Plane  构造方法

1 用平面方程，这个不常用，有计算功夫都构造完了

AcGePlane 建构器和析构器

AcGePlane::AcGePlane Function AcGePlane( double a, double b, double c, double d); a 输入坐标 a b 输入坐标 b c 输入坐标 c d 输入坐标 d 建构器。建构满足以下等式的平面： a*x + b*y + c*z + d = 0 这个平面的参数设置如下：原点是在平面上最接近点（0,0,0), uAxis= norm.perpVector()和vAxis=norm.crossProduct(uAxis),其中向量norm是vec.normal()。 注意:坐标为 (a, b, c)的向量vec是非零长度。

2 这个说明和翻译比较坑爹，你要这样用 vec 构造的就不是需要的 Plane ，应该是同一平面上的 三个点

AcGePlane(

const AcGePoint3d& or,

const AcGeVector3d& uAxis,

const AcGeVector3d& vAxis);

or	输入原点
uAxis	输入任意向量
vAxis	输入任意向量

用原点or,U轴uAxis和V轴vAxis建构平面。

注意: 向量uAxis vAxis=pntV-or不在同一直线上。

3 这个是三点构造，必须在同一平面内的非共线三点

AcGePlane(

const AcGePoint3d& pntU,

const AcGePoint3d& or,

const AcGePoint3d& pntV);

pntU	输入U轴上的点U
or	输入原点
pntV	输入V轴上的点V

用原点=or, uAxis=v1和vAxis=v2建构平面。

注意: 向量v1=pntU-or和v2=pntV-or不在同一条直线上

4 原点 +  Normal

AcGePlane(

const AcGePoint3d& origin,

const AcGeVector3d& normal);

origin	输入平面原点
normal	输入法向量

用origin=pnt, uAxis= normal.perpVector()和vAxis=normal.crossProduct(uAxis)建构平面。

注意: 法向量是非零长度。

一个测试

1. (defun c:tt (/ p1 p2 p3 ln ln3d plane pnt vx vy vz)
   
2.   (if (and (setq p1 (getpoint "\nFirst Point on Plane: "))
   
3.            (setq p2 (getpoint "\nSecond Point on Plane: "))
   
4.            (setq p3 (getpoint "\nThird point on Plane: "))
   
5.            (setq pc (mapcar '(lambda (x y z) (/ (+ x y z) 3.)) p1 p2 p3))
   
6.            (setq ln (xdrx_entsel "\nPick Line: " '((0 . "line"))))
   
7.            (setq vx (xdrx_vector_normalize (mapcar '- p2 p1))
   
8.                  vy (xdrx_vector_perpvector vx)
   
9.                  vz (xdrx_vector_crossproduct vx vy)
   
10.            )
    
11.            (setq line3d        (xdge::constructor
    
12.                           "kLine3d"
    
13.                           (xdrx_curve_getstartpoint (car ln))
    
14.                           (xdrx_curve_getendpoint (car ln))
    
15.                         )
    
16.            )
    
17.            ;;构造平面按手册说明几种方法
    
18.            ;;1 方式2  (xdge::constructor "kPlane" pc vx vy) 平面不是 p1 p2 p3 平面
    
19.            ;;         (xdge::constructor "kPlane" pc (mapcar '+ pc vx) (mapcar '+ pc vy)) 正确
    
20.            ;;2 方式3  (xdge::constructor "kPlane" p1 p2 p3) 正确
    
21.            ;;3 方式4  (xdge::constructor "kPlane" pc vz)    正确
    
22.            ;;4        (xdge::constructor "kPlane" p1 vz)    任意点加Normal均可
    
23.            (setq plane (xdge::constructor
    
24.                          "kPlane"
    
25.                          (trans pc 1 0);_ WCS 坐标
    
26.                          vz
    
27.                        )
    
28.            )
    
29.            (progn
    
30.              (princ "\n")
    
31.              (princ (xdge::getpropertyvalue plane "getCoordSystem"))
    
32.              t
    
33.            )
    
34.            (setq pnt (xdge::getpropertyvalue line3d "intersectWith" plane))
    
35.       )
    
36.     (progn
    
37.       (princ "\n")
    
38.       (princ pnt)
    
39.       (xdrx_point_make pnt)
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )

(defun c:tt (/ p1 p2 p3 ln ln3d plane pnt vx vy vz)<br />   (if (and (setq p1 (getpoint "\nFirst Point on Plane: "))<br />            (setq p2 (getpoint "\nSecond Point on Plane: "))<br />            (setq p3 (getpoint "\nThird point on Plane: "))<br />            (setq pc (mapcar '(lambda (x y z) (/ (+ x y z) 3.)) p1 p2 p3))<br />            (setq ln (xdrx_entsel "\nPick Line: " '((0 . "line"))))<br />            (setq vx (xdrx_vector_normalize (mapcar '- p2 p1))<br />                  vy (xdrx_vector_perpvector vx)<br />                  vz (xdrx_vector_crossproduct vx vy)<br />            )<br />            (setq line3d        (xdge::constructor<br />                           "kLine3d"<br />                           (xdrx_curve_getstartpoint (car ln))<br />                           (xdrx_curve_getendpoint (car ln))<br />                         )<br />            )<br />            ;;构造平面按手册说明几种方法<br />            ;;1 方式2  (xdge::constructor "kPlane" pc vx vy) 平面不是 p1 p2 p3 平面<br />            ;;         (xdge::constructor "kPlane" pc (mapcar '+ pc vx) (mapcar '+ pc vy)) 正确<br />            ;;2 方式3  (xdge::constructor "kPlane" p1 p2 p3) 正确<br />            ;;3 方式4  (xdge::constructor "kPlane" pc vz)    正确<br />            ;;4        (xdge::constructor "kPlane" p1 vz)    任意点加Normal均可<br />            (setq plane (xdge::constructor<br />                          "kPlane"<br />                          (trans pc 1 0);_ WCS 坐标<br />                          vz<br />                        )<br />            )<br />            (progn<br />              (princ "\n")<br />              (princ (xdge::getpropertyvalue plane "getCoordSystem"))<br />              t<br />            )<br />            (setq pnt (xdge::getpropertyvalue line3d "intersectWith" plane))<br />       )<br />     (progn<br />       (princ "\n")<br />       (princ pnt)<br />       (xdrx_point_make pnt)<br />     )<br />   )<br />   (princ)<br /> )

csharp

2 3一样的，三点（非共线）确定一个平面，学过几何的都知道

XDSoft

很好的演示，3D 都离不开平面的概念。
GE库是ACAD的基础，所有关于曲线相关的LISP,ARX DB实体提供的函数，都是通过GE库实现的，所以熟练掌握了几何库的使用，会开发出效率更高，功能更强的工具来。