通过VBA事件实现对中文字体的自动设置

mccad

在AutoCAD中，如果你的模板没有经过修改的话，则写入中文时会显示“？？？”这样的文字，这时，你必须手动修改文字样式，增加中文字体的支持，如使用大字体或使用TTF中文字体。
以下程序你可以保存为DVB文件，然后加入到启动组中，这样当你在写文字时系统会自动设置好中文字体，免去手动设置的麻烦。

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If (CommandName = "TEXT" Or CommandName = "MTEXT") And _
    ThisDrawing.ActiveTextStyle.BigFontFile = "" And _
    LCase(Right(ThisDrawing.ActiveTextStyle.fontFile, 4)) <> ".ttf" Then
        ThisDrawing.ActiveTextStyle.BigFontFile = "gbcbig.shx"
    End If
End Sub

thankyou