TextHeight Example
Sub Example_TextHeight()
' This example displays the TextHeight setting for the current drawing.
Dim dbPref As AecArchBaseDatabasePreferences
Set dbPref = AecArchBaseApplication.ActiveDocument.preferences
MsgBox "The current value for TextHeight is: " & dbPref.TextHeight, _
vbInformation, "TextHeight Example"
End Sub