Lisp绘制多段线

acheok24 · 发表于 2022-7-5 19:45:55

大家好，

这是我在这里的第一个帖子，如果这是在其他地方发布的，请原谅我的无知。我试图创建一个lisp，它将围绕一组多段线绘制一条多段线，基本上连接所有起点和所有端点。

我上周刚开始写lisps，所以我对这方面很陌生，但我想做的是选择所有的多段线，过滤掉集合中可能存在的闭合多段线，运行一个while循环来创建起点和终点列表，使用repeat从起点1到起点2到起点3等绘制一条线，然后对端点执行相同的操作，最后将所有这些线连接成一条多段线。

让我知道你们的想法。

提前谢谢。

CafeJr · 发表于 2022-7-5 19:53:49

你好acheok24。。。

试试看。。。

http://www.cadtutor.net/forum/showthread.php?82351-链接-端点-线-创建-等高线。

邮政#7。

感谢Tharwat to！。。。

acheok24 · 发表于 2022-7-5 20:04:49

感谢CafeJr的快速回复。我根据你的链接找到了alanjt写的代码。我编辑了它，现在几乎可以正常工作了。我附上了两张图片：1）显示代码的功能2）我需要它做什么。谢谢你的帮助。

（定义c:SPLC（/ss lst）
;; 样条连接
;; 艾伦·J·汤普森，05.15.10
;; 编辑：acheok24，05.21.15
（vl load com）
（if（setq ss（ssget））
（程序
（vl cmdf“pline”）
（foreach p（vl排序）
（（λ（i）
（while（setq e（ssname ss（setq i（1+i）））
（setq lst
（缺点
（汽车
（vl排序（列表（vlax curve getStartPoint e）（vlax curve getEndPoint e））
（函数（λ（a b）（>（cadr a）（cadr b）））
)
)
lst公司
)
)
)
)
-1
)
（函数（λ（a b））(
)
（vl cmdf“非”（trans p 0 1））
)
（vl cmdf“”“”）
)
)
（普林斯）
)

CafeJr · 发表于 2022-7-5 20:12:31

Acheok24。。。

也许它可以帮助你，我看不到你之前帖子的原始图像，有很多横线吗？！。。。我想你可以使用另一个帖子#7，但是选择你的部分绘图，限制端点的链接。。。

试试其他方法：
http://www.lee-mac.com/outlineobjects.html

acheok24 · 发表于 2022-7-5 20:19:42

当我运行上面引用的代码时，会创建与图形相交的线。代码似乎只是绘制直线来连接每条多段线的起点，并以随机顺序连接它们。

谢谢你的链接。这是我正在寻找的正确想法，但不幸的是，它不会在多段线范围周围创建边界。

谢谢你的帮助。

BIGAL · 发表于 2022-7-5 20:27:27

再深入一点，不久前有人提出了另一个解决方案，用于寻找普林斯的外部边界。

Cad64 · 发表于 2022-7-5 20:34:24

欢迎来到acheok24论坛。请花点时间阅读代码发布指南：http://www.cadtutor.net/forum/showthread.php?9184-代码发布指南

CafeJr · 发表于 2022-7-5 20:44:40

你能把你的示例图纸附在这里（在dwg文件中）！？。。。

正如我所说，之所以会发生这种情况，是因为你执行命令并选择所有图形（我猜），如果你分部分执行（我不知道需要多少个图形或次数），但你将创建端点的小链接，在它的末尾，你可以根据需要连接这些线以生成最终的柱脚线。

acheok24 · 发表于 2022-7-5 20:52:45

这是一张图和我使用的lisp。我花了一些时间挖掘，但我找不到任何像我需要的东西已经张贴。再次感谢您的帮助。如果你有任何问题，请告诉我。

SPLC。LSP
CADUTOR_示例。图纸

[编程交流] Lisp绘制多段线

发表回复

精选推荐