Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

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

Назад к списку функций
Удобно, если необходимо изменить или увеличить историю командной строки которая по умолчанию ограничена 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)
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko