[分享]将选取的多线、直线、圆孤连接成一条多段线

lgw681

;;;将选取的多线、直线、圆孤连接成一条多段线

;;;用法：（XL-L2PLX  SS)

;;;参数：SS   选择集
(defun xl-l2plx (s2 / n e edxflist )
  (setq n (sslength s2))
  (repeat n
    (if (setq e (ssname s2 0))
      (progn
 (if (cdr (assoc 0 (entget e)))
   (progn
     (if (wcmatch (cdr (assoc 0 (entget e))) "*POLYLINE")
       (command ".pedit" e "j" s2 "" "")
       (command ".pedit" e "y" "j" s2 "" "")
     )      )    )  
 (setq edxflist (entget e))
 (if (= (cdr (assoc 70 edxflist)) 1)
   (progn
     (ssdel e s0)
     (setq n (1- n))
   ) 
 )   
      )     ) 
    (ssdel e s2)
  ) 
  (princ)
)

arthwon

很好！另外请问如何合并成一条直线？

gzbccy

你好，断开的能连接吗？是不是要首尾相连才可以？

lqss

命令是什么呢？

tony1435

怎么用这个啊？？

328302216

只发了个子程序噶

c735023723

命令？

清风明月名字

谢谢楼主代码分享！

f4800

学习学习学习一下！