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