Sub Example_DistanceToReal()
    ' Этот пример передает несколько различных расстояний в различных
    ' единицах, которые будут преобразованы в значения real.
    
    Dim distAsString As String
    Dim unit As Long
    Dim distAsReal As Double
    
    ' Конвертируйте расстояние real в научных единицах
    unit = acScientific
    distAsString = "1.75E+01"
    distAsReal = ThisDrawing.Utility.DistanceToReal(distAsString, unit)
    MsgBox "1.75E+01 преобразовывает в " & distAsReal & " в научных единицах.", , "DistanceToReal Пример"
    
    ' Конвертируйте расстояние real в единицах decimal
    unit = acDecimal
    distAsString = "17.5"
    distAsReal = ThisDrawing.Utility.DistanceToReal(distAsString, unit)
    MsgBox "1.75 преобразовывает в " & distAsReal & " в единицах decimal.", , "DistanceToReal Пример"
    
    ' Конвертируйте расстояние real в технических единицах
    unit = acEngineering
    distAsString = "1'-5.50"""
    distAsReal = ThisDrawing.Utility.DistanceToReal(distAsString, unit)
    MsgBox "1'-5.50"" преобразовывает в " & distAsReal & " в технических единицах.", , "DistanceToReal Пример"
    
    
    ' Конвертируйте расстояние real в архитектурных единицах
    unit = acArchitectural
    distAsString = "1'-5 1/2"""
    distAsReal = ThisDrawing.Utility.DistanceToReal(distAsString, unit)
    MsgBox "1'-5 1/2"" преобразовывает в " & distAsReal & " в архитектурных единицах.", , "DistanceToReal Пример"
    
    ' Конвертируйте расстояние real в дробных единицах
    unit = acFractional
    distAsString = "17 1/2"
    distAsReal = ThisDrawing.Utility.DistanceToReal(distAsString, unit)
    MsgBox "1'-5 1/2"" преобразовывает в " & distAsReal & " в дробных единицах.", , "DistanceToReal Пример"
    
End Sub