用vba快速修改cad中的所有字体样式

在修改cad的字体时里面有很多个样式，修改起来特别麻烦，每修改一个就需要点一下确定。

可以用vba代码一步修改完所有的文本样式。

Sub Ch4_ChangeFontFiles()
   For Each i In ThisDrawing.TextStyles
      ThisDrawing.ActiveTextStyle = i
        ThisDrawing.ActiveTextStyle.fontFile = "C:\Windows\Fonts\宋体.ttf"
      Next
End Sub

但是这个上面的代码有一个问题，就是有点电脑会报错

我在其他大佬的帮助下改了一下代码：

Sub Ch4_ChangeFontFiles()
   For Each i In ThisDrawing.TextStyles
        ThisDrawing.ActiveTextStyle = i
        i.SetFont "宋体", False, False, 0, 0 Or 0
      Next
End Sub

修改了一下代码，用setfont来替换掉上面的fontfile，我后来分析了一些原因，可能是应该有的电脑上的宋体是采用”ttc“的打包字体，第一种直接设置字体地址会导致无法找到”ttf“但是调用win系统里面的字体只能用”ttf“（要是有大佬，可以解释一下）。

推荐用下面的代码来实现修改图纸字体为系统字体，修改为其他字体只需要改一下字体名字。