文字高度确定使用字体的字母大小，以图形单位计。该值通常表示大写字母的大小，但 TrueType 字体除外。
对于 TrueType 字体，文字高度的值可能不代表大写字母的高度，而是代表大写字母的高度加上预留给重音标记和非英语语言中其他标记的重音区域的高度。指定给大写字母和重音字符区域的相对区域是由字体设计者在设计字体时确定的，因此会随着字体而变动。
除了大写字母和组成用户指定高度的重音字符之外，TrueType 字型还有用于部分字符的下降区域，扩展到文字的插入线之下。这些字符的例子有 y、j、p、g 和 q。
Sub Ch4_ChangeTextHeight()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' 定义 Text 对象
textString = "Hello, World."
insertionPoint(0) = 3
insertionPoint(1) = 3
insertionPoint(2) = 0
height = 0.5
' 在模型空间中创建 Text 对象
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
' 将 Height 值改为 1
textObj.height = 1
textObj.Update
End Sub