AreaDisplayUnit Example

AEC Auto

AreaDisplayUnit Example

Sub Example_AreaDisplayUnit()
    
    ' This example returns the AreaDisplayUnit setting for the current drawing.
    Dim dbPref As AecArchBaseDatabasePreferences
    Set dbPref = AecArchBaseApplication.ActiveDocument.preferences
    
    ' Convert the area display unit to a string.
    Dim unit As String
    
    Select Case dbPref.AreaDisplayUnit
    Case aecUnitSquareInch
        unit = "square inch."
    Case aecUnitSquareFoot
        unit = "square foot."
    Case aecUnitSquareYard
        unit = "square yard."
    Case aecUnitSquareMil
        unit = "square millimeters."
    Case aecUnitSquareCentimeter
        unit = "square centimeters."
    Case aecUnitSquareDecimeter
        unit = "square decimeters."
    Case aecUnitSquareMeters
        unit = "square meters."
    End Select
    
      MsgBox "The current value for AreaDisplayUnit is " & unit, _
	 vbInformation, "AreaDisplayUnit Example"
    
End Sub