szxgsh 发表于 2013-7-14 16:15:42

如何批量修改属性块中文字颜色？

如题：如何批量修改属性块中文字颜色？
图中轴线编号为属性块，圆圈的颜色是跟层（随层），可文字为什么不跟层，而显示白色的呢？有什么方法可以一次性修改为其他颜色？

论坛如果有类似功能的，麻烦哪位大侠提醒一下，给个链接。十分感谢。


tianquan3 发表于 2013-7-14 20:46:51

CAD默认的命令battman可以解决

vectra 发表于 2013-7-14 21:30:17

双击实例 -》增加属性编辑器 -》 特性-》图层-》设置为0层-》确定

szxgsh 发表于 2013-7-15 21:23:36

tianquan3 发表于 2013-7-14 20:46 static/image/common/back.gif
CAD默认的命令battman可以解决

谢谢，搞定了。

sosomany 发表于 2015-9-17 13:58:02

非常感谢！

ll_j 发表于 2015-9-17 14:24:47

(defun c:cbc (/ ss i en et)
(princ "\n请选择属性块。")
(setq ss (ssget '((0 . "Insert") (66 . 1)))
      i-1
)
(if ss
    (repeat (sslength ss)
      (setq en (ssname ss (setq i (1+ i))))
      (while (and (setq en (entnext en))
                  (/= (cdr (assoc 0 (entget en))) "SEQEND")
             )
      (if (assoc 62 (setq et (entget en)))
          (entmod (subst '(62 . 0) (assoc 62 et) et))
          (entmod (append et '((62 . 0))))
      )
      (entupd en)
      )
    )
)
(princ)
)
(princ "\n将属性块中属性文字颜色改为“随块(byblock)”。")
(princ "\n命令：cbc")
(princ)

alexmai 发表于 2018-6-7 12:00:19

ll_j 发表于 2015-9-17 14:24


如果把所有属性文字的角度调为0度，应该怎样处理？

jkop 发表于 2023-8-4 11:32:28

ll_j 发表于 2015-9-17 14:24


测试ok，感谢分享，顶一个先！
页: [1]
查看完整版本: 如何批量修改属性块中文字颜色？