用于分组的AutoLISP程序

DubanGal · 发表于 2022-7-5 15:29:56

大家下午好，

我必须在AutoLISP上做一个项目，我是这方面的新手。请帮助我提供一些关于如何开始以及在哪里可以找到相关教程的建议。

我有很多矩形的多段线。我想做一个程序，能够将它们分组到某些参数下，例如：

-一条多段线和另一条多段线之间的距离。
-矩形的面积。

我收到你所有的评论。

非常感谢。

ronjonp · 发表于 2022-7-5 16:03:32

也许是这个？

DubanGal · 发表于 2022-7-5 16:17:24

不，假设我有很多矩形，它们不一定是一个接一个的。我只是在图纸中有很多，我需要根据我之前提到的条件进行分组。

这样将它们分组是个好主意，但也可能只是画一个包围它们的圆。

非常感谢。

BIGAL · 发表于 2022-7-5 16:36:28

下面是对你的一个问题的快速回答。只需google Vl lisp命令。


(setq obj (vlax-ename->vla-object (car (entsel "\nPick "))))
(alert (strcat "The area is " (rtos (vla-get-area obj) 2 2)))

两个PLINE之间的距离稍微复杂一点，简单的do they touch is“VLA intersectwith obj1 obj2”在触摸时返回true。会给另一个留下一点提示。

[编程交流] 用于分组的AutoLISP程序