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