[求助]：打散Pline,保持原宽度

ydf7332462

请用lisp打散Pline,保持原宽度
因explode会成细线

tsy_sds_chwr

可以在图层设置中考虑宽度即可

aeo

临时写了一个.

2. 
   
3. (defun c:bpl( / en j oldos ss)
   
4. (if(setq ss(ssget '((0 . "*POLYLINE"))))
   
5.   (progn
   
6.    (command"undo""group")
   
7.    (setq oldos(getvar"osmode") j -1)
   
8.    (setvar "osmode" 0)
   
9.    (command"convert""p""s"ss"")
   
10.    (repeat (sslength ss)
    
11.     (setq en(reverse(entget(setq e(ssname ss(setq j(1+ j)))))))
    
12.     (foreach x en
    
13.      (if(= 10(car x))(command".break"(list e(cdr x))"F"(cdr x)(cdr x)))
    
14.     )
    
15.    )(setvar "osmode" oldos)
    
16.     (command"undo""end")
    
17. ))(princ))
    

<br /> (defun c:bpl( / en j oldos ss) <br /> (if(setq ss(ssget '((0 . "*POLYLINE"))))<br />   (progn <br />    (command"undo""group")<br />    (setq oldos(getvar"osmode") j -1)<br />    (setvar "osmode" 0)<br />    (command"convert""p""s"ss"")<br />    (repeat (sslength ss)<br />     (setq en(reverse(entget(setq e(ssname ss(setq j(1+ j)))))))<br />     (foreach x en<br />      (if(= 10(car x))(command".break"(list e(cdr x))"F"(cdr x)(cdr x)))<br />     )<br />    )(setvar "osmode" oldos)<br />     (command"undo""end")<br /> ))(princ))<br />

hgqhq

aeo斑竹写的程序能用，其实我以前就碰到过楼主说的问题。在此感谢