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

donghuidong2003

请问各位如何将属性文字转换为单行或多行文字 ,最新收到一个图纸的材料表，其中文字全部是属性文字，想统计都不行，请问有这样的程序不？

edata

http://blog.csdn.net/jingxuan84/article/details/8668507
论坛也有

1. ;; 属性转文本　
   
2. (defun C:TAG2TXT ()
   
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. )

;; 属性转文本　<br /> (defun C:TAG2TXT () <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 /> )

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 />

依然小小鸟

如何批量把单行文字或者多行文字转为属性文字呢

donghuidong2003

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

试用了，正是要此效果，感谢edata，有明经真通道。

hooboxu

感谢edata
我也要去试，收藏了

/fendou结构绘图

luhy2008

谢谢EDATA!
收藏了.

心中的梦想

收藏起来，谢谢！！！

creatorzxz

感谢分享，一直在找

烟花丝雨

感谢分享，一直在找