[VBA]合并文字样式与修改文字字体

cadm0211

    经常碰到客户图纸文字样式建的很多，且个文字样式的文字字体各不一样。给修改图纸带来不便，所以想有没有办法可以把所有的文字样式合并在一起，而不是删除，这样不会影响原有的图纸。下面一段是修改字体的一段程序，请帮助修改成能合并文字样式的，要求文字样式全修改成standard

Sub setfont()
Dim i As Integer
Dim stCount As Integer
Dim TextObj As AcadTextStyles
On Error Resume Next
Set TextObj = ThisDrawing.TextStyles
stCount = TextObj.Count
For i = 0 To stCount - 1
TextObj.Item(i).fontFile = "gbenor.shx"
TextObj.Item(i).BigFontFile = "gbcbig.shx"
TextObj.Item(i).Width = 1
TextObj.Item(i).TextSize = 0
Next
MsgBox "所有字体已经全部更改!    ", vbApplicationModal + vbInformation + vbOKOnly, "code by xukehang"
End Sub

azjmjsj

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=55585

chixun99

有用，收藏一下。我想要的功能是一般使用图纸不能全改别人的字体样式，只是把缺了字形文件的字体替换为本机有的字体就行了。不知哪位大佬有做过？

guangdonglbq

http://bbs.mjtd.com/thread-67164-1-1.html