Sub Example_AngleToString()
    ' Этот пример конвертирует значение радиана к нескольким различным
    ' строкам, представляющим значение в различных единицах.
    
    Dim angAsRad As Double
    Dim unit As Integer
    Dim precision As Long
    Dim angAsString As String
    angAsRad = 0.785398163397448
    unit = acDegrees
    precision = 6
    
    ' Конвертируйте значение в радианах к градусам с точностью 6
    angAsString = ThisDrawing.Utility.AngleToString(angAsRad, unit, precision)
    MsgBox "0.785398163397448 радиана =  " & angAsString & " градусы", , "AngleAsString Пример"
    
    ' Конвертируйте значение в радианах к градусам /Минутам /Секундам с точностью 6
    unit = acDegreeMinuteSeconds
    angAsString = ThisDrawing.Utility.AngleToString(angAsRad, unit, precision)
    MsgBox "0.785398163397448 радиана =  " & angAsString, , "AngleAsString Пример"
    
    ' Конвертируйте значение в радианах к градиентам с точностью 6
    unit = acGrads
    angAsString = ThisDrawing.Utility.AngleToString(angAsRad, unit, precision)
    MsgBox "0.785398163397448 радиана =  " & angAsString, , "AngleAsString Пример"
    
End Sub