施工线自动呼叫

MaxwellEdison · 发表于 2022-7-5 18:20:44

关于这一点，我的大脑中解决问题的部分一直在发痒，我想我知道这是什么了。与其创建一个例程来帮助您的眼睛检查正交图形的准确性，为什么不保存一个步骤并让例程进行检查？像往常一样，我不会说代码，所以如果这一切看起来不切实际或笨拙，请不要理我。见鬼，它甚至可能是一个现有的命令。我只需要把它记在某个地方，以免它打翻我的脑袋，我想有人可能会从我的漫无目的中受益。

让用户分别选择每个视图的线条，并存储线条端点、圆弧端点和中点以及圆形象限的坐标。将各组点相互比较。一、 e.检查前视图和侧视图的Y值。对于至少没有一个匹配的任何点，请更改相应线条的颜色以标记它。

跨斜接线检查基本上是相同的概念。首先创建一个具有俯视图最低Y值和侧面最低X值（X1，Y1）的参考点，并检查每个点与该参考点的距离是否匹配（X2-X1=Y2-Y1）。

jason_a · 发表于 2022-7-5 18:26:19

如果这样的东西可以被编码，那就太棒了。不幸的是，我没有足够的lisp经验，甚至不知道从哪里开始编写这种类型的例程。我担心的一个问题是，一条线找到了一个理论匹配，但它实际上与实体无关。这基本上是一个误报。快速浏览所有标记的颜色会给人留下一切都很好的印象，但经过进一步检查，情况并非如此。

jason_a · 发表于 2022-7-5 18:28:43

这是工作出色，减少了我的工作时间！谢谢

如果可能的话，我还有一个额外的要求。当前，只有在其路径内检测到45度斜接线时，它才会创建构造线。如果我在屏幕上单击任何未检测到可能与斜接线相交的地方，它将根本不会创建构造线。那么，当它没有检测到其路径内的斜接线时，它是否可以像现在一样工作并创建正常的构造线？类似“OR”函数的东西？谢谢

marko_ribar · 发表于 2022-7-5 18:33:28

当然有可能：
更改：
（if（setq pp（vlax invoke（vlax ename->vla object xli）'与（vlax ename->vla object e）acextendnone相交）
收件人：
（if（setq pp（vlax invoke（vlax ename->vla object xli）'与（vlax ename->vla object e）acextendotherentity相交）

如果您希望两个LISP都以这种方式操作，则应将更改应用于这两个LISP。。。
当做

[编程交流] 施工线自动呼叫

发表回复

精选推荐