LinearDisplayFormat Example

Land Auto

LinearDisplayFormat Example

Sub Example_LinearDisplayFormat()
    
    ' This example returns the LinearDispalyFormat setting for the current drawing.
    Dim dbPref As AeccDatabasePreferences
    Set dbPref = AeccApplication.ActiveDocument.preferences
    
    ' Convert the linear display format to a string.
    Dim linearformat As String
    Select Case dbPref.LinearDisplayFormat
    Case 1
        linearformat = "Scientific"
    Case 2
        linearformat = "Decimal"
    Case 3
        linearformat = "Engineering"
    Case 4
        linearformat = "Architectural"
    Case 5
        linearformat = "Fractional"
    End Select
    
    MsgBox "The current value for LinearDisplayFormat is: " & linearformat, vbInformation, "LinearDisplayFormat Example"
    
End Sub