社区 › Auto Lisp › [VBA/Autocad]最短距离

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

[VBA/Autocad]最短距离

我试图找出一条直线到另一条直线的最近点，但我找不到正确的方法。
 
这些线不相交，但在一个点上非常接近。
我应该写点东西告诉我这个点的坐标。
 
这两条线是在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]最短距离