MeasurementUnit Example

MeasurementUnit Example

Sub Example_MeasurementUnit()

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

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.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