Sub Example_AutoAudit()
    ' Этот пример возвращает текущую установку AutoAudit. Затем изменяет
    ' значение, и наконец сбрасывает это значение назад к первоначальной
    ' установке.
    
    Dim preferences As AcadPreferences
    Dim currAutoAudit As Boolean
    Dim newAutoAudit As Boolean
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Восстановите текущее значение AutoAudit
    currAutoAudit = preferences.OpenSave.AutoAudit
    MsgBox "Текущее значение для AutoAudit " & currAutoAudit, vbInformation, "AutoAudit Пример"
    
    ' Переключите значение для AutoAudit
    newAutoAudit = Not (currAutoAudit)
    preferences.OpenSave.AutoAudit = newAutoAudit
    MsgBox "Новое значение для AutoAudit " & newAutoAudit, vbInformation, "AutoAudit Пример"
    
    ' Сбросьте AutoAudit к его первоначальному значению
    preferences.OpenSave.AutoAudit = currAutoAudit
    MsgBox "Значение AutoAudit сброшено к " & currAutoAudit, vbInformation, "AutoAudit Пример"
End Sub