需要创建p的lisp
我正在使用AutoCAD 2011。我有一位测量师的基础DWG，他使用虚线在图形中创建实体，我需要将它们放在连续的多段线中，因此当我将它们繁琐地拼接在一起时，我开始怀疑是否有一个lisp例程可以快速完成这项工作。谢谢大家！ PEdit还是Join？ 我想这就足够了。(defun c:TesT (/ ss)
(if (setq ss (ssget '((0 . "LINE"))))
(command "_.pedit" "_m" ss "" "_j" "" "_w" 0. "")
)
(princ)
)
这些是间距约为10’的直线段和/或多段线段，因此PEdit和JOIN不起作用。Tharwat，我试过你的密码，但什么都没发生。但哇，你们反应很快！ 使用PEdit中的模糊因子或挖掘非常古老的LISP例程GLUE。
如。
Command: pe
PEDIT Select polyline or : 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 <0.00>: 10
2 segments added to polyline
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype
gen/Reverse/Undo]: 我尝试了PEdit/multiple/fuzz因子，但并不是所有的实体都使用该命令加入。差距确实在长度上有所不同，但我不知道这是否是一个因素。不管怎样，如果我使用更大的模糊因子，则较短的间隙不会连接。如果一定要精确，我认为这违背了目的。我有glue，但在我加载它之后，它说glue是一个未知的命令，所以我还没能尝试那个命令。 将其圆角。
发布示例图形。 测试。图纸
正如你们将看到的，我不能把这些大部分切成圆角。这就是为什么我想要一个lisp例程，该例程能够选择现有PLINE的端点，以创建替换这些端点的多段线。 这一定是一个糟糕的画，不会让你圆角，连接或胶水线在一起！ 很难对互不成角度的线进行圆角处理。只有当线条的末端接触时，连接才起作用（如果它们接触了，pedit也会起作用！）我的胶水程序不起作用。如果我有一个测试和真正的工作lisp胶水我想看看它是否会为我工作。我使用较大的模糊因子尝试PEdit/multiple时，并不是所有选定的线都是连接的，其中一些线添加了在pline上翻倍的顶点。
页:
[1]
2