DatabaseScale Example

DatabaseScale Example

Sub Example_DatabaseScale()

    ' This example returns the Database Scale setting for the current drawing.

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences

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

        vbInformation, "DatabaseScale Example"

End Sub