查找三维线的交点

giskumar · 发表于 2022-7-6 07:06:42

大家好，

我想找到以下3D线之间的交点
第1行：（5.0,5.0,8.0）（10.0,10.0,5.0）
第2行：（5.0,5.0,4.0）（10.0,10.0,6.0）

请任何人告诉我如何找到这些线之间的交点（3D）。

当做
库马尔。

Stefan BMR · 发表于 2022-7-6 07:16:15

copy

(setq l1 (entmakex '((0 . "LINE") (10 5.0 5.0 8.0) (11 10.0 10.0 5.0)))
     l2 (entmakex '((0 . "LINE") (10 5.0 5.0 4.0) (11 10.0 10.0 6.0)))
     )
(vlax-invoke
 (vlax-ename->vla-object l1)
 'IntersectWith
 (vlax-ename->vla-object l2)
 acExtendBoth ;or acExtendNone
 )

hmsilva · 发表于 2022-7-6 07:23:18

另一种方式：

copy


(setq p1 '(5.0 5.0 8.0)
     p2 '(10.0 10.0 5.0)
     p3 '(5.0 5.0 4.0)
     p4 '(10.0 10.0 6.0)
)
(setq intpoint (inters p1 p2 p3 p4 nil))

亨里克

giskumar · 发表于 2022-7-6 07:36:27

谢谢你的回复。

我认为这些函数只适用于2D，在这里也适用于3D线条很好。

hmsilva · 发表于 2022-7-6 07:38:52

不客气，吉斯库马尔

亨里克

BIGAL · 发表于 2022-7-6 07:47:10

还有一点，Inters是原始的或普通的jane lisp交叉命令，intesectwith是较新的Vl版本，我将从Vl版本开始，intersectwith有4个选项，可以作为交叉点测试的一部分，Inters有1个true或false。Intesectwith可以计算交点，即使直线不相交，也可以计算新pt。