怎么修改选择一条线就可以把相连接的线转为多段线代码？

75215195

选择一条线，其它和这条线相连的组成闭合多义线。需要效果如图

去年发过一次贴，按  “marting” 大佬 给的思路写了一个命令
由于本人能力有限，下面的代码可以实现简单的一些闭合，但复杂一些的相连图形就出错了。
如果不管图形是否闭合，只要是相连的连就转为多段线，如何修改？
(defun C:V()
  (setq plst '() elst '() sp nil ep nil)
  (if (setq e (car (entsel "\n请选择直线或圆弧:")))
    (progn
  (setq e1 e)
  (setq ss (ssadd))
  (while e
    (setq sp1 sp)
    (setq sp (vlax-get (vlax-ename->vla-object e) 'StartPoint))
    (setq plst (cons sp plst))
    (setq ep1 ep)   
    (setq ep (vlax-get (vlax-ename->vla-object e) 'EndPoint))
    (setq plst (XD::List:RemoveDup (cons ep plst)))
    (if (/= nil sp1)
      (if (equal sp1 sp 0.01)(setq plst (vl-remove sp plst)))
      )
    (if (/= nil ep1)
      (if (equal ep1 ep 0.01) (setq plst (vl-remove ep (XD::List:RemoveDup plst))))
      )
    (foreach x plst
     (setq s (ssget "C" x x '((0 . "LINE,ARC"))))
     (ssdel e s)
    (setq i 0)
    (repeat (sslength s)
      (setq elst (cons (ssname s i) elst))
      (setq i (1+ i))
            )
      )
    (setq plst (vl-remove sp plst))
    (setq plst (vl-remove ep plst))
    (ssadd e ss)
    (setq elst (XD::List:RemoveDup elst))
    (setq e (car elst))
    (setq elst (vl-remove e elst))
    (if (eq e e1) (setq e nil))
    )
(command "pedit" "m" ss "" "y" "j" "" "")
  )
    )
  (princ)
  )

原地踏步

(setq ent (car (entsel "\nSelect a line or an arc: ")))
(setq ss (ssget "X" '((0 . "LINE,ARC"))))
(command "_.PEDIT" ent "" "j" ss "" "")

75215195

原地踏步 发表于 2018-9-19 23:49
(setq ent (car (entsel "\nSelect a line or an arc: ")))
(setq ss (ssget "X" '((0 . "LINE,ARC"))))
...

这个是全部的线和圆弧都选了，我需要的是 只选择线或圆弧相连接的线

sicky111

论坛有源码，搜索一下。

原地踏步

75215195 发表于 2018-9-19 23:58
这个是全部的线和圆弧都选了，我需要的是 只选择线或圆弧相连接的线

虽然全选了，但结果只会将与你最初选的那条线端点相连的线连起来

75215195

原地踏步 发表于 2018-9-20 09:26
虽然全选了，但结果只会将与你最初选的那条线端点相连的线连起来

感谢，这正是我想要的效果！！

kqqt6236

学习一下。