请问各位如何将属性文字转换为单行或多行文字

hyz932

炸掉块还保留有原来的属性怎么做

weimeng555

感谢分享，先收藏以备不时之需

newmooooon

edata 发表于 2015-6-10 20:46
http://blog.csdn.net/jingxuan84/article/details/8668507
论坛也有

亲测，好用，好评，略微美中不足的是没处理局部变量

2. (defun C:TAG2TXT(/ sset num itm hnd ent new dolst grp addto)  
   
3.   (setq  sset  (ssget  ' ((0  .  "ATTDEF"))))  
   
4.   (setq  num  (sslength  sset)  itm  0)  
   
5.   (while   (<  itm num)  
   
6.     (setq  hnd  (ssname  sset itm))  
   
7.     (setq  ent  (entget  hnd))  
   
8.     (setq  new ' ((0  .  "TEXT")))  
   
9.     (setq  new  (append  new  (list   (cons   1   (cdr   (assoc   2  ent))))))  
   
10.     (setq  dolst  (list   7  8  10  11  39  40  41  50  51  62  71  72  73))  
    
11.     (foreach  grp dolst
    
12.       (setq  addto  (assoc  grp ent))  
    
13.       (if   (/=  addto nil)
    
14.         (setq  new  (append new (list (assoc grp ent))))  
    
15.       )
    
16.     )
    
17.     (entdel hnd)  
    
18.     (entmake new)  
    
19.     (setq itm (1+ itm))  
    
20.   )
    
21.   (princ)
    
22. )
    

(defun C:TAG2TXT(/ sset num itm hnd ent new dolst grp addto)  <br />   (setq  sset  (ssget  ' ((0  .  "ATTDEF"))))  <br />   (setq  num  (sslength  sset)  itm  0)  <br />   (while   (<  itm num)  <br />     (setq  hnd  (ssname  sset itm))  <br />     (setq  ent  (entget  hnd))  <br />     (setq  new ' ((0  .  "TEXT")))  <br />     (setq  new  (append  new  (list   (cons   1   (cdr   (assoc   2  ent))))))  <br />     (setq  dolst  (list   7  8  10  11  39  40  41  50  51  62  71  72  73))  <br />     (foreach  grp dolst <br />       (setq  addto  (assoc  grp ent))  <br />       (if   (/=  addto nil)<br />         (setq  new  (append new (list (assoc grp ent))))  <br />       ) <br />     )<br />     (entdel hnd)  <br />     (entmake new)  <br />     (setq itm (1+ itm))  <br />   )<br />   (princ)<br /> )<br />