DockedVisibleLines property example

Sub DockedVisibleLines_Example()
' This example obtains and modifies the DockedVisibleLines property.
    Dim myPrefs As AcadPreferences
    Set myPrefs = ThisDrawing.Application.preferences
    Dim iCurrentNumberLines As Long
    iCurrentNumberLines = myPrefs.Display.DockedVisibleLines
    MsgBox "The DockedVisibleLines property is: " & myPrefs.Display.DockedVisibleLines
    myPrefs.Display.DockedVisibleLines = 15
    MsgBox "The DockedVisibleLines property is: " & myPrefs.Display.DockedVisibleLines
    myPrefs.Display.DockedVisibleLines = iCurrentNumberLines
    MsgBox "The DockedVisibleLines property is: " & myPrefs.Display.DockedVisibleLines
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. Copyright © 2001- Menhirs NV - All rights reserved.