HistoryLines property example

 

Sub HistoryLines_Example()

' This example returns the current setting of HistoryLines.

    Dim myPrefs As AcadPreferences

    Set myPrefs = ThisDrawing.Application.preferences

    Dim iHistoryLines As Integer

    Set myPrefs = ThisDrawing.Application.preferences

    ' Retrieve the current GraphicsWinLayoutBackgrndColor value

    iHistoryLines = myPrefs.Display.HistoryLines

    MsgBox "The current value for HistoryLines is " & iHistoryLines

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.