谁能帮我改尚一下程序

烛光

这是一个自动串接的程序，但是如果图形中有重复线和没有闭合的线时它不会提示用户。
程序如下：
（defun c:j()
(setvar "Cmdecho" 0)
(setq ss(ssget))
(setq n 0 )
(setq c 0 )
    (while (<= c (- (sslength ss) 1))
    (setq e(ssname ss c))
    (if (= "LINE" (cdr (assoc 0 (entget e))))
        (command "pedit" e "y" "j" ss "" "")
         (princ)
)
(if (= "ARC" (cdr (assoc 0 (entget e))))
   (command "pedit" e "y" "j" ss "" "")
(princ)
)
(setq c (+ 1 c))
)
(princ)
)
谁写过删重复线的程序吗？

烛光

南子

烛光

你说的这个是命令吗？我回去试一下。