donghuidong2003 发表于 2015-6-10 20:25:26

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

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

依然小小鸟 发表于 2020-8-7 08:44:25

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

hyz932 发表于 2023-11-24 15:00:13

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

weimeng555 发表于 2024-5-5 00:19:18

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

edata 发表于 2015-6-10 20:46:17

http://blog.csdn.net/jingxuan84/article/details/8668507
论坛也有
;; 属性转文本　
(defun C:TAG2TXT ()
   (setq sset (ssget '((0 . "ATTDEF"))))
   (setq num (sslength sset) itm 0)
   (while (< itm num)
   (setq hnd (ssname sset itm))
   (setq ent (entget hnd))
   (setq new '((0 . "TEXT")))
   (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
   (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
   (foreach grp dolst
       (setq addto (assoc grp ent))
       (if (/= addto nil)
         (setq new (append new (list (assoc grp ent))))
       )
   )
   (entdel hnd)
   (entmake new)
   (setq itm (1+ itm))
   )
   (princ)
)

donghuidong2003 发表于 2015-6-11 12:28:40

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

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

hooboxu 发表于 2015-7-4 00:07:41

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

/fendou结构绘图 发表于 2019-3-25 10:53:33

luhy2008 发表于 2019-3-25 19:47:40

谢谢EDATA!
收藏了.

心中的梦想 发表于 2019-6-19 18:25:42

收藏起来，谢谢！！！

creatorzxz 发表于 2022-4-3 15:49:30

感谢分享，一直在找

烟花丝雨 发表于 2022-8-19 17:24:42

感谢分享，一直在找
页: [1] 2
查看完整版本: 请问各位如何将属性文字转换为单行或多行文字