Sub Example_IncrementalSavePercent()
    ' Этот пример возвращает текущую установку IncrementalSavePercent. 
    ' Затем изменяет значение, и наконец сбрасывает значение назад к    
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currIncrementalSavePercent As Integer
    Dim newIncrementalSavePercent As Integer
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Отыщите текущее значение IncrementalSavePercent
    currIncrementalSavePercent = preferences.OpenSave.IncrementalSavePercent
    MsgBox "Текущее значение для IncrementalSavePercent " & currIncrementalSavePercent, vbInformation, "IncrementalSavePercent Пример"
    
    'Измените значение для IncrementalSavePercent
    newIncrementalSavePercent = 20
    preferences.OpenSave.IncrementalSavePercent = newIncrementalSavePercent
    MsgBox "Новое значение для IncrementalSavePercent " & newIncrementalSavePercent, vbInformation, "IncrementalSavePercent Пример"
    
    'Сбросьте IncrementalSavePercent к его оригинальному значению
    preferences.OpenSave.IncrementalSavePercent = currIncrementalSavePercent
    MsgBox "Значение IncrementalSavePercent сброшено к " & currIncrementalSavePercent, vbInformation, "IncrementalSavePercent Пример"
End Sub