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

王鹏_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

好东西先收藏

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。