两面域平面夹角

iLisp · 发表于 2014-11-17 20:45:14

Highflybird 发表于 2014-11-17 20:31
给出一个LISP算法：

这些计算把cal看懂了就不需要到处找

newer · 发表于 2014-11-17 20:49:46

iLisp 发表于 2014-11-17 20:45
这些计算把cal看懂了就不需要到处找

论坛上的大师都喜欢挖到最基本的数学方法，而不喜欢加载别人的库直接利用。{:soso_e113:}

iLisp · 发表于 2014-11-17 20:55:24

本帖最后由 iLisp 于 2014-11-17 20:59 编辑

newer 发表于 2014-11-17 20:49
论坛上的大师都喜欢挖到最基本的数学方法，而不喜欢加载别人的库直接利用。

cal也是库，谁的库也是库

呵呵，由初级到高级，先会走再学跑:)

st788796 · 发表于 2014-11-17 23:42:16

Highflybird 发表于 2014-11-17 20:31
给出一个LISP算法：

补充一个 API 算法

(defun c:tt (/ ss lst an)
(princ "\nSelect two Region or 3dFace....")
(if (and (setq ss (ssget '((0 . "region,3dface"))))
(= (sslength ss) 2)
)
(princ
(strcat
"\nAngle = "
(angtos
(apply
'xdrx_vector_angle
(mapcar
'(lambda (x / v p1 p2 p3)
(if (setq v (xdrx_getpropertyvalue x "normal"))
v
(progn
(mapcar 'set
'(p1 p2 p3)
(xdrx_getpropertyvalue x "stretchPoint")
)
(xdrx_points_normal p1 p2 p3)
)
)
)
(xdrx_pickset->ents ss)
)
)
0
4
)
)
)
)
(princ)
)

(defun c:tt (/ ss lst an) 
  (princ "\nSelect two Region or 3dFace....") 
  (if (and (setq ss (ssget '((0 . "region,3dface")))) 
           (= (sslength ss) 2) 
      ) 
    (princ 
      (strcat 
        "\nAngle = " 
        (angtos 
          (apply 
            'xdrx_vector_angle 
            (mapcar 
              '(lambda (x / v p1 p2 p3) 
                 (if (setq v (xdrx_getpropertyvalue x "normal")) 
                   v 
                   (progn 
                     (mapcar 'set 
                             '(p1 p2 p3) 
                             (xdrx_getpropertyvalue x "stretchPoint") 
                     ) 
                     (xdrx_points_normal p1 p2 p3) 
                   ) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
            ) 
          ) 
          0 
          4 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

Highflybird · 发表于 2014-11-18 01:25:14

iLisp 发表于 2014-11-17 20:45
这些计算把cal看懂了就不需要到处找

CAL有cal的优势，函数有函数的优势。函数是CAL替代不了的。

Free-Lancer · 发表于 2014-11-18 07:53:30

3dface 在 dxf 中没有 210，ActiveX 中没有 Normal ，dxf 10，11，12以及 ActiveX 中的 Coordinates 是有顺序，可以知道 3dface 是顺时针绘制还是逆时针绘制，不过由点取的方向按 autodesk 规则会具有相反的 Normal 指向

st788796 · 发表于 2014-11-18 08:02:53

本帖最后由 st788796 于 2014-11-18 08:03 编辑

newer 发表于 2014-11-17 19:32
构造平面和原点有关。原点不同，NORMAL不同。

构造平面和 uAxis 和 vAxis 有关，即使三点构造也和先后有关，三点构造时，第一、三点实际是 uAxis 、vAxis 上点

AcGePlane(
const AcGePoint3d& pntU,
const AcGePoint3d& org,
const AcGePoint3d& pntV
);

Constructs the plane with origin=or, uAxis=v1, and vAxis=v2.

Contract: Vectors v1=pntU-or and v2=pntV-or are non-collinear.

按原点、轴构造是

AcGePlane(
const AcGePoint3d& org,
const AcGeVector3d& uAxis,
const AcGeVector3d& vAxis
);

所以轴的先后决定了 Normal 指向

lucas3 · 发表于 2014-11-18 08:26:40

凑热闹啊，大师们别见怪，一直不明白3dface有什么作用，没有用到过，画了两个三维面测试，用高飞版主的代码测试，夹角为什么是1.91683 ？为什么不是度？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:TT.rar
下载次数:3 文件大小:7.59 KB
下载权限: 不限以上 [免费赚D豆]

st788796 · 发表于 2014-11-18 08:32:53

lucas3 发表于 2014-11-18 08:26
凑热闹啊，大师们别见怪，一直不明白3dface有什么作用，没有用到过，画了两个三维面测试，用高飞版主的代 ...

CAD 中的角度计算都是弧度，angle getangle 计算和获取的都是弧度，如果需要十进制度就得自己计算，可以用数学方法，也可以使用 angtos 函数

lucas3 · 发表于 2014-11-18 12:10:12

能不能来个三维实体面与面之间的夹角呢？两个面可能来之不同的两个三维实体，意思是这两个面不一定在一个三维实体上

Free-Lancer · 发表于 2014-11-18 20:31:18

lucas3 发表于 2014-11-18 12:10
能不能来个三维实体面与面之间的夹角呢？两个面可能来之不同的两个三维实体，意思是这两个面不一定在一个 ...

1 面可以单独 entsel 时修改代码

2 每个面描三个点

lucas3 · 发表于 2014-11-18 20:44:54

Free-Lancer 发表于 2014-11-18 20:31
1 面可以单独 entsel 时修改代码

2 每个面描三个点

大师，能不能来个示例，最好测量出来的是角度值，以度为单位

Free-Lancer · 发表于 2014-11-19 10:56:12

lucas3 发表于 2014-11-18 20:44
大师，能不能来个示例，最好测量出来的是角度值，以度为单位

cal 方法结果是度

scnjlwb · 发表于 2018-3-23 15:18:08

谢谢分享！

账号		自动登录	找回密码
密码			立即注册

[教学] 两面域平面夹角

点评

点评

评分

点评

点评

点评