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