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