解决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 就更改。

在此做个备份