Sub Example_AngleToReal()
    ' Этот пример передает несколько различных строк, представляющих угол
    ' в различных единицах, чтобы они были преобразованны в радианы.
    
    Dim angAsStr As String
    Dim unit As Integer
    Dim angAsReal As Double
    
    ' Конвертируйте угол, данный в градусах к действительному значанию
    angAsStr = "45"
    unit = acDegrees
    angAsReal = ThisDrawing.Utility.AngleToReal(angAsStr, unit)
    MsgBox "45 градусов преобразовывают в " & angAsReal & " радианы.", , "AngleAsReal Пример"
    
    ' Конвертируйте угол, данный в единице градусов /минут /секунд к Радианам
    angAsStr = "45d0' 0"""
    unit = acDegreeMinuteSeconds
    angAsReal = ThisDrawing.Utility.AngleToReal(angAsStr, unit)
    MsgBox "45 градусов, 0 минут, 0 секунд преобразовывают в " & angAsReal & " радианы.", , "AngleAsReal Пример"
    
    ' Конвертируйте угол, данный в единице градиентов к Радианам
    angAsStr = "50"
    unit = acGrads
    angAsReal = ThisDrawing.Utility.AngleToReal(angAsStr, unit)
    MsgBox "50 градиентов преобразовывают в " & angAsReal & " радианы.", , "AngleAsReal Пример"
    
End Sub