­

historylines.lsp Free AutoLISP for AutoCAD

 

More Free AutoLISP and Visual LISP code snippets for AutoCAD

This is useful if you want to change or increase the command line history that can be quite limited with its default of 400 rows.


 Click here to download the code as a file.

 

;;; HISTORYLINES.LSP
;;; Change the number of command history lines.
;;; Saves into profile.
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 1999-09-25 - First release
;;; To be run on AutoCAD 2000

(defun c:PutHistoryLines (/ hl)
  (vl-load-com)
  (if (setq hl 
        (getint
          (strcat "\nNumber of History Lines <"
            (itoa 
              (vla-get-HistoryLines
                (vla-get-display
                  (vla-get-preferences
                    (vlax-get-acad-object)))))
            ">: ")))
    (if (or (< hl 25) (> hl 2048))
      (prompt "\nOnly between 25 and 2048.")
      (vla-put-HistoryLines (vla-get-display (vla-get-preferences (vlax-get-acad-object))) hl)
    )
  )
  (princ)
)

;;; another way to do it by someone else
(defun c:cmdhistlines ( / chl)
  (if (setq chl (getint (strcat "\nNew value for CMDHISTLINES <" (getenv
"CmdHistLines") ">: ")))
    (if (or (< chl 25) (> chl 2048))
      (progn
        (prompt "\nRequires and integer between 25 and 2048.")
        (c:cmdhistlines)
      )
      (setenv "CmdHistLines" (itoa chl))
    )
  )
  (princ)
)
­