中华钢结构论坛 China Structure Forum                                              XinY structural consultants ltd

 
autocad能否批量修改标注样式中的某个值?
zhlg






积分 246
帖子 284
2010-12-22 18:03    顶部


最近发现设计院来的图纸字体样式太多,不想用这么多字体,想批量改标注样式中的字体,,请问有没有什么好的办法?



深化转设计
kellerbestare






积分 54
帖子 52
2010-12-23 14:38    QQ 顶部
在标注样式里就可以改,直接将你想改的标注的标注样式里的字体设置成你想改成的就好了
zhlg






积分 246
帖子 284
2010-12-23 23:59    顶部
kellerbestare wrote:
在标注样式里就可以改,直接将你想改的标注的标注样式里的字体设置成你想改成的就好了

你误解意思了,我的意思是所有标注样式的字体一起全改
NTFP






积分 75
帖子 51
2016-3-2 10:26    顶部
在文字样式里新建一个你喜欢文字,比如取名“AA”,然后输入系统变量名Dimtxsty回车,再输入AA;然后输入Dim回车,输update回车,就可以框选你想要修改的标注。但是有一点很重要:update后的标注的所有系统变量(比如:dimlfac、dimscale、dimtxt等等)都会被对应的当前系统变量替换更新。
00nan






积分 305
帖子 164
2017-3-24 16:55    顶部
试试这段代码:命令:ztysxg
(defun c:ztysxg(/ StyleLst TxtStyle TxtStyleObj)
        (setq StyleLst    (GET:EntityLst "style")
              TxtStyle    (getvar "TEXTSTYLE"))
        (foreach x StyleLst
            (setvar "TEXTSTYLE" x)
                (setq TxtStyleObj (vla-get-ActiveTextStyle *DOC*))
                (vla-put-fontfile TxtStyleObj "brtxt") ;; 这里的brtxt 可以换成需要的字体形文件名
                (vla-put-bigfontfile TxtStyleObj "hztxt")) ;; 这里的hztxt 可以换成需要的大字体形文件名
        (setvar "TEXTSTYLE" TxtStyle))

(defun GET:EntityLst (entitystyle / Entity Entitylst)
        (setq Entity (tblnext entitystyle T) EntityLst nil)
        (while Entity
                (setq EntityLst (cons (cdr (assoc 2 Entity)) EntityLst)
                             Entity (tblnext entitystyle)))
        (reverse EntityLst))
00nan 修改于2017-03-27 17:22
 


上海市通信管理局
沪ICP备020910
联系我们 版权声明 发帖规则 论坛制度 关于我们
版权所有.中华钢结构论坛.永久保留所有权利

[Processing Time] User:0.28, System:0.03, Children of user:0, Children of system:0