MeasurementUnit Example

MeasurementUnit Example

Sub Example_MeasurementUnit()

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

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.preferences

    ' Convert the measurement unit to a string.

    Dim unit As String

    If dbPref.MeasurementUnit = acEnglish Then

        unit = "English"

    Else

        unit = "Metric"

    End If

    MsgBox "The current value for MeasurementUnit is " & unit, _

        vbInformation, "MeasurementUnit Example"

End Sub