[求助]：怎样批量修改文字样式?

8714454 · 发表于 2008-4-28 19:41:43

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

您需要登录才可以下载或查看，没有账号？立即注册

×

怎样批量修改文字样式?

我有20个2004版本的DWG文件,其文字样式都为HZ,我想一次性地全部修改,改变文字样式中的字体.

怎样才能做到?请高手指点?

zhynt · 发表于 2008-4-29 00:05:38

不大容易做到，不过我们可以来个曲线救国，如果知道这些图中使用的是何种字体，我们就可以将用来作替换的字体改个名字，使其和这些图中的字体相同。

zd81 · 发表于 2008-5-1 14:52:35

可以这样

tiancao1001 · 发表于 2008-5-1 21:53:15

vba 归并文字样式

'归并文字样式
Sub GuiBingTxtStyle()
Dim TS As AcadTextStyles
Set TS = ThisDrawing.TextStyles
Dim TStyle As AcadTextStyle
For Each TStyle In TS
      TStyle.fontFile = Application.Path & "\fonts\txt.shx"
      TStyle.BigFontFile = Application.Path & "\fonts\HZTXT.SHX"
      TStyle.width = 0.7
Next
Dim T As AcadText
Dim MT As AcadMText
Dim e As AcadEntity
Dim B As AcadBlock
For Each B In ThisDrawing.Blocks
      For Each e In B
         If e.ObjectName = "AcDbText" Then
            Set T = e
            T.StyleName = "Standard"
         ElseIf e.ObjectName = "AcDbMText" Then
            Set MT = e
            MT.StyleName = "Standard"
         End If
      Next
Next
ThisDrawing.SendCommand "regen" & vbLf
End Sub

压缩空间 · 发表于 2008-5-1 22:27:02

3楼是个有耐心的善良人哦。。。

hzhb · 发表于 2008-5-4 11:17:49

三楼的方法很不错,谢谢!

8714454 · 发表于 2008-6-15 08:05:06

zd81 对字体研究得好透彻, 这办法特好

三楼这么好的帖子强烈要求版主加分

lulumm · 发表于 2008-6-16 11:58:16

强烈要求版主加分，方法很好～～

zizhang88 · 发表于 2008-6-19 08:34:03

三楼，赞

qjcpj · 发表于 2008-6-19 09:00:46

改好一个，然后用“格式刷”刷一下。

水飘飘 · 发表于 2008-6-19 14:14:50

牛啊

pipi2 · 发表于 2008-6-19 15:43:01

给大家介绍个小插件

nore · 发表于 2008-6-19 16:08:43

还从来没用过标准这个工具呢，受教了
感觉这个方法没有解决lz的问题啊

mchj · 发表于 2008-6-22 12:22:46

三楼好样的
向三楼学习

哪吒 · 发表于 2008-6-22 13:11:27

3楼的方法正确，但不应加分。
3楼的flash不是自己亲自做的，且没有注明出处、原作者，这是不妥的。
这个flash是2003年11月15日黄金长老2782818284做的。

见这里：
http://www.xdcad.net/forum/showt ... d=620334#post620334

[iframe h=600 w=500]http://www.xdcad.net/forum/showthread.php?postid=620334#post620334[/iframe]

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

[求助]：怎样批量修改文字样式?

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

相关帖子