therock005 发表于 2022-7-5 15:52:18

谢谢你们的回复。我试了一下这里增加的Lisp程序。让我猜猜它是如何工作的。Ir计算两个物体之间所有可能的垂直距离，然后比较它们以找到最小的一个？
 
我也想尝试一下。你在帖子上说你的例程需要AT子程序是什么意思？这个子程序有什么用？

alanjt 发表于 2022-7-5 15:54:26

 
这是一个选择子程序。按照提供的链接，将子例程保存在与交叉点文件相同的文件中，然后加载。然而，另一个帖子要好得多。我的只是一个概念的证明，我做了一段时间了。我只是把它作为另一个例子。
 
正如你在视频中看到的，他们做的基本相同。

therock005 发表于 2022-7-5 16:00:03

 
好的，我也很乐意尝试一下你的。它看起来也很整洁，甚至可以创建连接点和报告窗口眨眼：
 
但您的意思是将子例程保存在同一文件夹或目标中？如果我将其保存在与lisp相同的文件中，它将覆盖lisp，使我没有要执行的主例程！

fahim108 发表于 2022-7-5 16:02:10

 
我要纠正我之前的观察，这个Lisp程序确实有效。然而，我第一次在Windows 2000上运行时，它崩溃了。但在XP上，情况不同

alanjt 发表于 2022-7-5 16:06:03

无论哪种方式都会奏效，但我所说的是正确的。复制子例程并将内容粘贴到交叉点文件中（附加到现有数据，而不是覆盖）。LISP文件可以像文本文件一样查看，只需滚动到底部并粘贴子文件的内容。

therock005 发表于 2022-7-5 16:08:40

哦，对了，这就是你的意思。我误解你了，对不起！

alanjt 发表于 2022-7-5 16:09:39

别担心。你让它工作了吗？

therock005 发表于 2022-7-5 16:14:01

我会在周一试试，因为我现在不在办公室的电脑上！不过，我会把我的反馈告诉你。

neodd70 发表于 2022-7-5 16:18:30

我意识到这是一个老帖子，但这里提到的minDist lisp函数非常接近我需要的，我想知道它是否可以根据我需要进行修改，或者是否有其他更好的方法。我刚开始写代码，所以我可以摸索简单的例程，但复杂的例程仍然困扰着我。我要找的是一个lisp例程，它可以让我通过窗口选择多个实体（多段线、圆、圆弧、样条曲线），可以是2个，但可以是30或40个，它们可以是闭合的或开放的，让它确定并告诉我是否有任何实体比指定的距离更近，如果是，可以在实体太近的一个或多个点上绘制一条红色的线。任何帮助都将不胜感激。TIA

BIGAL 发表于 2022-7-5 16:22:10

这是一个复杂的问题，是比较一个物体还是所有物体之间？
页: 1 [2]
查看完整版本: 计算betwe之间的最小距离