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