Sub Example_RealToString()
    'Этот пример преобразовывает значения в данном формате к строкам.
    
    Dim unit As Long
    Dim valueAsStr As String
    Dim precision As Integer
    Dim valueAsReal As Double
    precision = 6
    
    'Преобразуйте значение 17.5, используя режим Scientific для String
    unit = acScientific
    valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
    MsgBox "17.5 в научном формате " & valueAsStr, , "RealToString Пример"
    
    'Преобразуйте значение 17.5, используя режим Decimal для String
    unit = acDecimal
    valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
    MsgBox "17.5 в десятичном формате " & valueAsStr, , "RealToString Пример"
    
    'Преобразуйте значение 17.5, используя режим Engineering для String
    unit = acEngineering
    valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
    MsgBox "17.5 в инжинерном формате " & valueAsStr, , "RealToString Пример"
    
    'Преобразуйте значение 17.5, используя режим Architectural для String
    unit = acArchitectural
    valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
    MsgBox "17.5 в архитектурном формате " & valueAsStr, , "RealToString Пример"
    
    'Преобразовывает значение 17.5, используя дробный режим для String
    unit = acFractional
    valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
    MsgBox "17.5 в дробном формате " & valueAsStr, , "RealToString Пример"
    
End Sub