DatabaseScale Example

Sub Example_DatabaseScale()

    ' This example returns the HorizontalScale setting for the current drawing.

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.Preferences

    MsgBox "The current value for DatabaseScale is: " & dbPref.DatabaseScale, _

        vbInformation, "DatabaseScale Example"

End Sub