解决CAD宋体显示为问号的问题

不知道是高版本宋体跟低版本宋体不一样还是咋的，我用的CAD2014（win10）打开别人做好的文件，如果有宋体不会提示缺字体，但是宋体的全部显示为问号。解决方法也不复杂，改一下就可以了。

宋体在文字样式里会显示成这样

直接修改

然后应用，这样一个一个的修改有点麻烦，所以我用了VBA。

CAD2014的VBA不是集成安装的，要单独下载。。。

然后代码

    Dim st As AcadTextStyle
    Dim typeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim charSet As Long
    Dim PitchandFamily As Long
    For Each st In ActiveDocument.TextStyles
        st.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
        If typeFace = "SimSun" Then
            st.SetFont "宋体", Bold, Italic, charSet, PitchandFamily
        End If
    Next
    ActiveDocument.Regen acAllViewports
    MsgBox "宋体问号问题已解决", vbOKOnly, "提示"

代码很简单，遍历字体样式，GetFont，如果typeFace是 SimSun 就更改。

在此做个备份