Utility Example

Land Auto

Utility Example

Sub Example_Utility()
    
    ' This example returns the AngleToString value for 0.785398 radians using
    ' the active document.
    Dim doc As AeccDocument
    Set doc = AeccApplication.ActiveDocument
    
    MsgBox "The setting for AngleToString is " & doc.Utility.AngleToString(0.785398, acDegrees, 4) _
        , vbInformation, "Utility Example"
    
End Sub