王鹏_pBZlo 发表于 2020-5-21 21:30:07

把文字转换成属性图块的属性值

本帖最后由 王鹏_pBZlo 于 2020-5-21 22:30 编辑

有些人在画图时,需要把文字内容写进属性块内作为属性值,本工具即可解决该问题
命令: T2ATT

kmliro_2017 发表于 2020-5-22 06:48:38

谢谢分享！！！！

kyky1002 发表于 2020-5-22 08:03:32

真的很方便，多谢分享

Michael527 发表于 2020-5-22 08:18:19

一直想有这样的工具，谢谢分享

kingueo 发表于 2020-5-22 08:20:47

这个命令好像自带的吧

yuren008 发表于 2020-5-22 10:52:38

不错的插件，谢谢楼主分享。

vlisp2012 发表于 2020-5-22 12:00:39

(defun c:txt2atta (/ ss i en ed);;;Convert text to attribute
(vl-load-com)
(while (not ss)
      (princ "\nSelect TEXT to Convert to ATTDEF:   ")
      (setq ss (ssget (list (cons 0 "TEXT")
                              (cons 410 (getvar "CTAB"))))))
(setq i (sslength ss))
(while (not (minusp (setq i (1- i))))
      (setq en (ssname ss i)
            ed (entget en)
            ed (subst (cons 1
                        (vl-string-subst "_" " "
                            (cdr (assoc 1 ed))))
                        (assoc 1 ed) ed))
   (entmake (list (cons 0 "ATTDEF")
                  (assoc 8 ed)
                  (assoc 10 ed)
                  (assoc 11 ed)
                  (assoc 7 ed)
                  (assoc 40 ed)
                  (assoc 41 ed)
                  (assoc 50 ed)
                  (assoc 51 ed)
                  (cons 70 0)
                  (assoc 71 ed)
                  (assoc 72 ed)
                  (cons 74 (cdr (assoc 73 ed)))
                  (assoc 210 ed)
                  (assoc 1 ed)
                  (cons 2 (cdr (assoc 1 ed)))
                  (cons 3 (cdr (assoc 1 ed)))
                  (if (assoc 6 ed) (assoc 6 ed)'(6 . "BYLAYER"))
                  (if (assoc 39 ed) (assoc 39 ed)'(39 . 0))
                  (if (assoc 62 ed) (assoc 62 ed)'(62 . 256))))
   (entdel en))
(redraw)
(prin1))

974778504 发表于 2020-5-28 13:22:17

不错的，谢谢楼主分享。

意思哥 发表于 2020-5-29 08:54:28

回复看看，谢谢共享！

singa 发表于 2020-5-29 08:58:20

谢谢分享，学习了！

13174545660 发表于 2023-8-2 15:15:28

好东西先收藏

蟹岛蟹岛 发表于 昨天 10:56

感谢分享
页: [1]
查看完整版本: 把文字转换成属性图块的属性值