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