;;LLL commands
;
;
;   LLL - Lisp, Look and Load
;
;
;   Written by :    Mark W. Kiker - caddmanager.com
;   Date:           2004
;
;   USE AT YOUR OWN RISK...
;
;
;     Permission to use, copy, modify, and distribute this software 
;     for any purpose and without fee is hereby granted, provided 
;     that the above copyright notice appears in all copies and that 
;     both that copyright notice and this permission notice appear in 
;     all supporting documentation.
;
;     THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;     WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;     PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;     ****************************************************************

;;;
;;; Error Function
;;;
(defun *cng_err* (msg)
   (if (/= msg "Function cancelled")
      (if (= msg "quit / exit abort")   
         (princ)
         (princ (strcat "\nError: " msg))
      )
   )
   (setq *error* *err_old* *err_old* nil)
   (princ)
)

(setq lispath "C:/Program Files/AutoCAD 2005/Support/")

;;;	DEFINE THE LISP LOOK AND LOAD
	(defun c:lll()
	   (setq lispf (getfiled "Select a LISP file to load" (strcat lispath) "lsp" 8))
	   (setq namelen (strlen lispf))(setq namelen (- namelen 4))
	   (setq lispname (substr lispf 1 namelen))
	   (if (findfile lispf)(progn (load lispf)(eval (read (strcat "(" "c:" lispname ")"))))))