社区 › Auto Lisp › 我可以用自动化连接吗

c2designkitchen 发表于 2022-7-6 12:20:39

但即使我可以打开两个端点的窗口并点击回车键将它们连接起来，也会节省大量时间。

wizman 发表于 2022-7-6 12:26:02

请尝试：
 
 
（defun c：连接（/end fuzz pt ron ss sset）（if（and（setq ss（ssget’（（0.line）））（setq fuzz 0.20））（foreach x（setq sset（vl remove if‘listp（mapcar’cadr（ssnamex ss））））（foreach p（list（vlax curve getstartpoint x）（vlax curve getendpoint x））（foreach y sset（如果（和（不（等于（vlax曲线GetClosestPoint to y p）p 1e-11））（或（

c2designkitchen 发表于 2022-7-6 12:28:44

哇，谢谢wizman！
 
你能告诉我一些关于这个代码的信息吗？我以前只使用过一个宏。
 
我会通过CUI命令添加这个吗？

wizman 发表于 2022-7-6 12:31:45

如何使用？只需复制并粘贴到记事本，然后另存为connect。lsp。然后键入命令行Appload，然后查找文件。要启动它，只需键入connect。如果我正确理解了您的问题，这个lisp将提示您选择所有行，然后如果间隙在0.20个单位以内，它将把每个顶部端点-底部层连接到其上方层的底部端点。

eldon 发表于 2022-7-6 12:34:09

也许在自动化的今天，您已经忘记了Pedit命令。
 
这将连接两条非共线，将其中一条线延伸至与另一条线相交，然后生成一条多段线。
 
因为你的两条线在不同的角度，你永远不可能把它们都画成一条直线。

eldon 发表于 2022-7-6 12:40:08

如果要将线保留在其现有图层中，则始终存在命令Fillet。

SEANT 发表于 2022-7-6 12:42:06

这根线已经轻微断裂了。这里是一个相关线程的链接。
http://www.cadtutor.net/forum/showthread.php?t=44795

查看完整版本: 我可以用自动化连接吗