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