TextHeight Example

Land Auto

TextHeight Example

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