需要创建p的lisp

ceseme · 发表于 2022-7-6 08:40:44

我正在使用AutoCAD 2011。我有一位测量师的基础DWG，他使用虚线在图形中创建实体，我需要将它们放在连续的多段线中，因此当我将它们繁琐地拼接在一起时，我开始怀疑是否有一个lisp例程可以快速完成这项工作。谢谢大家！

alanjt · 发表于 2022-7-6 08:49:11

PEdit还是Join？

Tharwat · 发表于 2022-7-6 08:53:49

我想这就足够了。


(defun c:TesT (/ ss)
 (if (setq ss (ssget '((0 . "LINE"))))
   (command "_.pedit" "_m" ss "" "_j" "" "_w" 0. "")
 )
 (princ)
)

ceseme · 发表于 2022-7-6 08:59:18

这些是间距约为10’的直线段和/或多段线段，因此PEdit和JOIN不起作用。Tharwat，我试过你的密码，但什么都没发生。但哇，你们反应很快！

alanjt · 发表于 2022-7-6 09:05:39

使用PEdit中的模糊因子或挖掘非常古老的LISP例程GLUE。

如。

copy

Command: pe
PEDIT Select polyline or [Multiple]: m
Select objects: Specify opposite corner: 3 found
Select objects:
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype 
gen/Reverse/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.00>: 10
2 segments added to polyline
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype 
gen/Reverse/Undo]:

ceseme · 发表于 2022-7-6 09:06:13

我尝试了PEdit/multiple/fuzz因子，但并不是所有的实体都使用该命令加入。差距确实在长度上有所不同，但我不知道这是否是一个因素。不管怎样，如果我使用更大的模糊因子，则较短的间隙不会连接。如果一定要精确，我认为这违背了目的。我有glue，但在我加载它之后，它说glue是一个未知的命令，所以我还没能尝试那个命令。

alanjt · 发表于 2022-7-6 09:15:43

将其圆角。
发布示例图形。

ceseme · 发表于 2022-7-6 09:19:33

测试。图纸

正如你们将看到的，我不能把这些大部分切成圆角。这就是为什么我想要一个lisp例程，该例程能够选择现有PLINE的端点，以创建替换这些端点的多段线。

LibertyOne · 发表于 2022-7-6 09:23:48

这一定是一个糟糕的画，不会让你圆角，连接或胶水线在一起！

ceseme · 发表于 2022-7-6 09:29:53

很难对互不成角度的线进行圆角处理。只有当线条的末端接触时，连接才起作用（如果它们接触了，pedit也会起作用！）我的胶水程序不起作用。如果我有一个测试和真正的工作lisp胶水我想看看它是否会为我工作。我使用较大的模糊因子尝试PEdit/multiple时，并不是所有选定的线都是连接的，其中一些线添加了在pline上翻倍的顶点。

[编程交流] 需要创建p的lisp

发表回复

精选推荐