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 = 3

    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. © 2001- Menhirs NV - All rights reserved.