字体定义了构成每个字符集的文字字符的形状。一种字体可以被多个样式使用。要指定文字样式的字体，请使用 TextStyle 对象的 FontFile 特性。通过输入包含 AutoCAD 编译的 SHX 字体的字体文件，可以将该字体指定给文字样式。
本例获取活动文字样式的当前字体值，并随后将该字体更改为“PlayBill”。然后，将使用 SetFont 方法设置新的字体。要查看字体更改的效果，请在运行样例之前，向当前图形中添加一些多行文字或文字。注意，如果系统上没有 PlayBill 字体，则需要将其替换为一种已有的字体以使本例有效。
Sub Ch4_UpdateTextFont()
MsgBox ("Look at the text now...")
Dim typeFace As String
Dim SavetypeFace As String
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long
' 获取当前设置，填充
' SetFont 方法的默认值
ThisDrawing.ActiveTextStyle.GetFont typeFace, _
Bold, Italic, charSet, PitchandFamily
' 改变字体
SavetypeFace = typeFace
typeFace = "PlayBill"
ThisDrawing.ActiveTextStyle.SetFont typeFace, _
Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport
MsgBox ("Now see how it looks after changing the font...")
' 恢复原始字体
ThisDrawing.ActiveTextStyle.SetFont SavetypeFace, _
Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport
End Sub