Здесь вы можете скачать документацию и программы для САПР AutoCAD, PCAD, 3DS, Inventor, Pro/E, Solidworks и других CAD CAM CAE EDA GIS

Изменение числа команд, хранящихся в истории командной строки

Удобно, если необходимо изменить или увеличить историю командной строки которая по умолчанию ограничена 400 строками.

;;; HISTORYLINES.LSP
;;; Изменение числа команд, хранящихся в истории командной строки
;;; Данные сохраняются в профиль.
;;; Проверено на AutoCAD 2000

(defun c:PutHistoryLines (/ hl)
  (vl-load-com)
  (if (setq hl 
        (getint
          (strcat "\nЧисло строк истории <"
            (itoa 
              (vla-get-HistoryLines
                (vla-get-display
                  (vla-get-preferences
                    (vlax-get-acad-object)))))
            ">: ")))
    (if (or (< hl 25) (> hl 2048))
      (prompt "\nЗначение между 25 и 2048.")
      (vla-put-HistoryLines (vla-get-display (vla-get-preferences (vlax-get-acad-object))) hl)
    )
  )
  (princ)
)

;;; Тоже самое другим способом
(defun c:cmdhistlines ( / chl)
  (if (setq chl (getint (strcat "\nНовое значение для CMDHISTLINES <" (getenv
"CmdHistLines") ">: ")))
    (if (or (< chl 25) (> chl 2048))
      (progn
        (prompt "\nНеобходимо целое число между 25 и 2048.")
        (c:cmdhistlines)
      )
      (setenv "CmdHistLines" (itoa chl))
    )
  )
  (princ)
)