ConvertToCurrentAreaDisplay Example

ConvertToCurrentAreaDisplay Example

Sub Example_ConvertToCurrentAreaDisplay()

    ' This example returns the value of ConvertToCurrentAreaDisplay

    ' for the current drawing.

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.preferences

    ' Set the area display units to square yards

    dbPref.AreaDisplayUnit = aecUnitSquareYard

    Dim SourceArea As Double

    Dim TargetArea As Double

    SourceArea = 36# 'Square feet, assumes drawing set to foot units

    TargetArea = dbPref.ConvertToCurrentAreaDisplay(SourceArea)

    MsgBox "The area to convert is 36 square feet." & vbCrLf & _

        "The AreaDisplayUnit is set to square yard." & vbCrLf & _

        "The value for ConvertToCurrentAreaDisplay is " & TargetArea & " square yards.", _

        vbInformation, "ConvertToCurrentAreaDisplay Example"

End Sub