Sub Example_RenderSmoothness()
    'Этот пример возвращает текущую установку RenderSmoothness. 
    'Затем изменяет значение и наконец сбрасывает значение назад к оригинальной установке.
    
    Dim currRenderSmoothness As Double
    Dim newRenderSmoothness As Double
    
    'Получите текущее значение RenderSmoothness
    currRenderSmoothness = ThisDrawing.preferences.RenderSmoothness
    MsgBox "Текущее значение для RenderSmoothness " & currRenderSmoothness, vbInformation, "RenderSmoothness Пример"
    
    'Измените значение для RenderSmoothness
    newRenderSmoothness = 2.5
    ThisDrawing.preferences.RenderSmoothness = newRenderSmoothness
    MsgBox "Новое значение для RenderSmoothness " & newRenderSmoothness, vbInformation, "RenderSmoothness Пример"
    
    'Сбросьте RenderSmoothness к его оригинальному значению
    ThisDrawing.preferences.RenderSmoothness = currRenderSmoothness
    MsgBox "Значение RenderSmoothness сброшено к " & currRenderSmoothness, vbInformation, "RenderSmoothness Пример"
End Sub