多直线多断线合并闭合求救
本帖最后由 hellomotoone 于 2019-11-25 10:15 编辑以下程序来自网络可以多直线合并，但是只能一端闭合，未能封口，如何一个命令直接形成完全闭合的多线段，类似pedit m c的，图片演示要多加一个PE命令，可否一个命令，直接完成，大神们指导一下啊
(defun c:77()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "peditaccept" 1)
(if (setq KX (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(command "_pedit" "m" KX "" "j" "0.1" ""))
(setvar "cmdecho" cm)
(princ))
(command "_pedit" (entlast) "c" "" "") 后面加一句 start4444 发表于 2019-11-22 11:03
(command "_pedit" (entlast) "c" "" "") 后面加一句
这句话加载什么位置啊，我加了以后怎么会变成2个多线段各自闭合，而不是我想要的两端闭合，请大侠指点下怎么操作，谢谢
页:
[1]