多直线多断线合并闭合求救

hellomotoone

以下程序来自网络可以多直线合并，但是只能一端闭合，未能封口，如何一个命令直接形成完全闭合的多线段，类似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))

start4444

(command "_pedit" (entlast) "c" "" "")        后面加一句

hellomotoone

start4444 发表于 2019-11-22 11:03
(command "_pedit" (entlast) "c" "" "")        后面加一句

这句话加载什么位置啊，我加了以后怎么会变成2个多线段各自闭合，而不是我想要的两端闭合，请大侠指点下怎么操作，谢谢