所有线路到一条线路

lutcus · 发表于 2022-7-6 10:56:09

圆角不是快速方式。佩蒂特也是。。尤其是你有很多线和柱脚要连接。我得到的剧本是最好的方式。这比我想象的要多。只需选择全部并键入lisp cmd！只要两步！默认autocad中没有更好的命令。。或者我不知道。。。所以再次感谢大家！！

eldon · 发表于 2022-7-6 10:57:08

我希望没有Lisp程序的普通人会使用具有多个选项的Pedit，并以模糊距离连接，并设法一次连接所有内容。

这个论坛使得将AutoCAD与Lisps结合使用而不是使用内置命令变得过于简单

alanjt · 发表于 2022-7-6 11:00:32

我完全同意。一点宏并没有错，但首先应该学会使用并熟练理解AutoCAD。
PEdit>多个。。。

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/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>:
2 segments added to polyline
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]:

Lee Mac · 发表于 2022-7-6 11:05:40

这里有一个我使用的过于复杂的代码-它让我不得不选择“多个”。。。

copy


(defun c:pj ( / *error* vl ov ss )
 (defun *error* ( msg )
   (and ov (mapcar 'setvar vl ov))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
 (setq vl '("CMDECHO" "PEDITACCEPT") ov (mapcar 'getvar vl))
 (mapcar 'setvar vl '(0 1))
 (if (setq ss (ssget "_:L" '((0 . "LINE,ARC,LWPOLYLINE"))))
   (command "_.pedit" "_M" ss "" "_J" "" "")
 )
 (mapcar 'setvar vl ov)
 (princ)
)