Utility Example

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