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