Sub Example_AutoSaveInterval()
    ' Этот пример возвращает текущую установку AutoSaveInterval. Затем
    ' изменяет значение, и наконец сбрасывает это значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currAutoSaveInterval As Integer
    Dim newAutoSaveInterval As Integer
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение AutoSaveInterval
    currAutoSaveInterval = preferences.OpenSave.AutoSaveInterval
    MsgBox "Текущее значение для AutoSaveInterval " & currAutoSaveInterval, vbInformation, "AutoSaveInterval Пример"
    
    ' Измените значение для AutoSaveInterval
    If currAutoSaveInterval = 0 Then
        newAutoSaveInterval = 10
    Else
        newAutoSaveInterval = 0
    End If
    preferences.OpenSave.AutoSaveInterval = newAutoSaveInterval
    MsgBox "Новое значение для AutoSaveInterval " & newAutoSaveInterval, vbInformation, "AutoSaveInterval Пример"
    
    ' Сбросьте AutoSaveInterval к его первоначальному значению
    preferences.OpenSave.AutoSaveInterval = currAutoSaveInterval
    MsgBox "Значение AutoSaveInterval сброшено к " & currAutoSaveInterval, vbInformation, "AutoSaveInterval Пример"
 End Sub

Сайт управляется системой uCoz