[VBA/Autocad]最短距离

lubracali · 发表于 2022-7-6 22:49:12

我试图找出一条直线到另一条直线的最近点，但我找不到正确的方法。

这些线不相交，但在一个点上非常接近。
我应该写点东西告诉我这个点的坐标。

这两条线是在3D中绘制的，并且是倾斜的。

我需要一些关于如何解决这个问题的想法。

Tharwat · 发表于 2022-7-6 23:02:42

希望这能帮助你实现你的期望。


(vl-load-com)
(setq ss (vlax-ename->vla-object (setq e (car (entsel "\n Select First Line :")))))
(setq ss1 (vlax-ename->vla-object (setq e1 (car (entsel "\n Select Second Line :")))))
(setq pt (vlax-curve-getClosestPointTo ss (cdr (assoc 10 (entget e1)))))

塔瓦特

alanjt · 发表于 2022-7-6 23:09:58

http://www.theswamp.org/index.php?topic=23170.60

designerstuart · 发表于 2022-7-6 23:21:06

这是一次事故吗？请看这里。。。。
http://www.cadtutor.net/forum/showthread.php?56687-VBA Autocad两条直线之间的最短距离

lubracali · 发表于 2022-7-6 23:29:54

我想我在论坛上打开了两个窗口，这两个窗口都是我错贴的，这是正确的地方，我的要求是vba而不是lisp。
我现在在另一个帖子里道歉。

我们可以在这里继续。

lubracali · 发表于 2022-7-6 23:38:06

我很抱歉在错误的部分张贴。

我的问题是关于VBA和不要lisp。

我感谢那些回答我的人，我也会努力学习lisp。

也许主持人可以关闭？

我再次道歉。

SLW210 · 发表于 2022-7-6 23:46:36

我合并了线程。涉及口齿不清的回答帮助了其他人，所以我将离开。

BIGAL · 发表于 2022-7-6 23:55:30

也许有人会画一条弧，穿过一条直线，然后求出它的交点

此图纸。公用事业GetEntity oPoly、snapPt、vbCr和“选择多段线：”
设置arcobj=ThisDrawing。模型空间。AddArc（vertPt、cRad、endang、startang）
retval2=arcobj。相交（oPoly，acExtendOtherEntity）

有4个不同的相交选项检查帮助

[编程交流] [VBA/Autocad]最短距离

发表回复

精选推荐