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

szxgsh

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

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

tianquan3

CAD默认的命令battman可以解决

vectra

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

szxgsh

tianquan3 发表于 2013-7-14 20:46
CAD默认的命令battman可以解决

谢谢，搞定了。

sosomany

非常感谢！

ll_j

1. (defun c:cbc (/ ss i en et)
   
2.   (princ "\n请选择属性块。")
   
3.   (setq ss (ssget '((0 . "Insert") (66 . 1)))
   
4.         i  -1
   
5.   )
   
6.   (if ss
   
7.     (repeat (sslength ss)
   
8.       (setq en (ssname ss (setq i (1+ i))))
   
9.       (while (and (setq en (entnext en))
   
10.                   (/= (cdr (assoc 0 (entget en))) "SEQEND")
    
11.              )
    
12.         (if (assoc 62 (setq et (entget en)))
    
13.           (entmod (subst '(62 . 0) (assoc 62 et) et))
    
14.           (entmod (append et '((62 . 0))))
    
15.         )
    
16.         (entupd en)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    
22. (princ "\n将属性块中属性文字颜色改为“随块(byblock)”。")
    
23. (princ "\n命令：cbc")
    
24. (princ)

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

alexmai

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

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

jkop

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

测试ok，感谢分享，顶一个先！