BorderStyle Example

Land Auto

BorderStyle Example

Sub Example_BorderStyle()
    
    ' This example returns the BorderStyle setting for the current drawing.
    Dim dbPref As AeccDatabasePreferences
    Set dbPref = AeccApplication.ActiveDocument.Preferences
    
    ' Convert the constant to a string.
    Dim strStyle As String
    If dbPref.BorderStyle = kBorderStyleLine Then
        strStyle = "line."
    End If
    If dbPref.BorderStyle = kBorderStyleUnscaledBlock Then
        strStyle = "unscaled block."
    End If
    If dbPref.BorderStyle = kBorderStyleScaledBlock Then
        strStyle = "scaled block."
    End If
    If dbPref.BorderStyle = kBorderStyleNone Then
        strStyle = "none."
    End If
    
    MsgBox "The current value for BorderStyle is " & strStyle, vbInformation, "BorderStyle Example"
    
End Sub