！自动整理图第一篇！

尘缘一生

自动整理图，炸开，清理等!

希望大家补充更多，打开图，就自动清理完成所有的，别浪费设计者宝贵时间！

2. (defun C:T-EXPLODE(/ s p n nam)
   
3. ;; 炸开属性块，属性转文字
   
4.    (setq s nil)
   
5.    (if (setq s(ssget "X" (list (cons 0 "INSERT")(cons 66 1))))
   
6.       (progn   
   
7.           (vl-load-com)
   
8.           (setq p(sslength s))
   
9.           (setq n 0 )
   
10.           (undobegin)         
    
11.           (setq p(- p 1))
    
12.              (while (<= n p)
    
13.                  (a2t (ssname s n))            
    
14.                  (setq n (+ n 1))
    
15.                  (undoend)
    
16.               )
    
17.         )
    
18.      )
    
19. (setq s nil)
    
20. ;; 炸开各种块、MTEXT字体，，，，，，，，，，
    
21.   (setq s nil)
    
22.   (if (setq s(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))   
    
23.      (progn      
    
24.        (setq p(sslength s))
    
25.         (setq n 0 )
    
26.         (setq p (- p 1))
    
27.            (while (<= n p)
    
28.              (setq nam(ssname s n))
    
29.              (command "EXPLODE" nam "")
    
30.              (setq n (+ n 1))
    
31.             )
    
32.       )
    
33.     )
    
34. (command "_.PURGE" "a" "*" "N")
    
35. (command "regenall")
    
36. )
    

(defun C:T-EXPLODE(/ s p n nam)<br /> ;; 炸开属性块，属性转文字<br />    (setq s nil)<br />    (if (setq s(ssget "X" (list (cons 0 "INSERT")(cons 66 1))))<br />       (progn   <br />           (vl-load-com)<br />           (setq p(sslength s))<br />           (setq n 0 )<br />           (undobegin)         <br />           (setq p(- p 1))<br />              (while (<= n p)<br />                  (a2t (ssname s n))            <br />                  (setq n (+ n 1))<br />                  (undoend)<br />               )<br />         )<br />      )<br /> (setq s nil)<br /> ;; 炸开各种块、MTEXT字体，，，，，，，，，，<br />   (setq s nil)<br />   (if (setq s(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))    <br />      (progn      <br />        (setq p(sslength s))<br />         (setq n 0 )<br />         (setq p (- p 1))<br />            (while (<= n p)<br />              (setq nam(ssname s n))<br />              (command "EXPLODE" nam "")<br />              (setq n (+ n 1))<br />             )<br />       )<br />     )<br /> (command "_.PURGE" "a" "*" "N")<br /> (command "regenall") <br /> )<br />

SunSpring

全部炸开以后怎么编辑，这么做不太合适吧，有些用块还是很方便的。

尘缘一生

SunSpring 发表于 2014-5-24 21:24
全部炸开以后怎么编辑，这么做不太合适吧，有些用块还是很方便的。

正相反啊，炸开才能编辑。

lsjj

(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))
請問TCH*是啥?  
(command "EXPLODE" nam "")  可以少一組""

尘缘一生

lsjj 发表于 2014-5-25 09:03
(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))
請問TCH*是啥?  
(command "EXPLODE" nam "")   ...

天正实体啊

fl202

好好的块，干嘛炸开？ 块不炸开也可以编辑的。

zhangrunze

正好适合工作使用呢~
底图正好要虚化处理，不再开五颜六色的。
感谢分享~