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

donghuidong2003

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

依然小小鸟

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

hyz932

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

weimeng555

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

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

donghuidong2003

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

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

hooboxu

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

/fendou结构绘图

luhy2008

谢谢EDATA!
收藏了.

心中的梦想

收藏起来，谢谢！！！

creatorzxz

感谢分享，一直在找

烟花丝雨

感谢分享，一直在找