VerticalScale Example

AEC Auto

Sub Example_VerticalScale()

    ' This example will display the vertical scale of the database.

    Dim db As New AecArchBaseDatabase
    Dim pref As AecArchBaseDatabasePreferences
    
    db.Init ThisDrawing.Database
    
    Set pref = db.Preferences
    MsgBox "Vertical Scale of the database: " & pref.VerticalScale, vbInformation, _

	 "VerticalScale Example"

End Sub

previous page start next page