(
;; These procedures wrapped up in this lambda statement are
;; part of an error trapping process.
;;
;; Although these procedures were assembled and typed up by me,
;; the knowledge and understanding came from two very good sources
;; I would like to give credit to ElpanovEvgeniy and
;; Vladimir Nesterovsky for their unbelievable talent.
;;
;; Thank you both for giving me so much knowledge.
;; General error trap
;;
;; By: John Kaul
;; 11.28.06
;;
;; Note: This procedure is part of the
;; an ERROR trap set of procedures.
;;
(if (or (= msg
"Function cancelled") (= msg
"quit / exit abort")) (if #Error_Lst#
(#Error_End
)) )
(defun #Error_Start
( / ) ;; this procedure will set up the error trap
;; and set an undo mark.
;;
;; By: John Kaul
;; 11.28.06
;;
;; Note: This procedure is part of the
;; an ERROR trap set of procedures.
;;
(setq #Old_Error
*error*)
;; This procedure will set the users
;; variables back to their orig. settings
;; and reset the error trap var.
;;
;; By: John Kaul
;; 11.28.06
;;
;; Note: This procedure is part of the
;; an ERROR trap set of procedures.
;;
(setq *error* #Old_Error
)
(defun #Error_Push_Vars
( lst
/ push
->lst
) ;; This procedure will generate a list of
;; variables and their orig. value before
;; changing them to a desired value
;;
;; By: John Kaul
;; 11.28.06
;;
;; Example Use: (#Error_Push_Vars
;; '(("CMDECHO" 0) ("BLIPMODE" 1)
;; ("SNAPANG" 45) ("OSMODE" 0)))
;;
;; The syntax of the list members is as follows:
;; ( <Variable name to chage/save> <setting desired> )
;;
;; The variables orig value will be saved for later
;; restoration.
;;
;;
;; Note: This procedure is part of the
;; an ERROR trap set of procedures.
;;
(defun push
->lst
(sym lst
) )
lst
)
)
)
;;
;; End Error Trap Procedures.
;;
)