相邻多段线合并

tryhi

2. (defun c:tt ()
   
3.   (setq ss(ssget '((0 . "*line"))))
   
4.   (setq $i -1)
   
5.   (setq ssd (ssadd))
   
6.   (repeat (sslength ss)
   
7.     (setq $i (1+ $i))
   
8.     (command "REGION" (ssname ss $i) "")
   
9.     (setq ssd (ssadd (ssname(ssget "L")0) ssd))
   
10.   )
    
11.   (command "_union" ssd "")
    
12.   (setq ss (ssget "L"))
    
13.   (command "_explode"ss "")
    
14.   (setq ss (ssget "P"))
    
15.   (pex ss)
    
16. )
    
17. ;多线连接
    
18. (defun pex(ss / i ename endata entype)
    
19.   (command "PEDITACCEPT" "1")
    
20.     (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0"))

(defun c:tt ()<br />   (setq ss(ssget '((0 . "*line"))))<br />   (setq $i -1)<br />   (setq ssd (ssadd))<br />   (repeat (sslength ss)<br />     (setq $i (1+ $i))<br />     (command "REGION" (ssname ss $i) "")<br />     (setq ssd (ssadd (ssname(ssget "L")0) ssd))<br />   )<br />   (command "_union" ssd "")<br />   (setq ss (ssget "L"))<br />   (command "_explode"ss "")<br />   (setq ss (ssget "P"))<br />   (pex ss)<br /> )<br /> ;多线连接<br /> (defun pex(ss / i ename endata entype)<br />   (command "PEDITACCEPT" "1")<br />     (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0"))

不小心发成悬赏贴了

xyp1964

qiuhai1991

沙发支持一下，用循环面域会不会不太好

与子成说for伟

附件在哪里呀？