As rotinas abaixo, servem para dar um toque mais profissional nas rotinas, assim como o acet-error-init do Express Tools, elas controlam o que acontece com a rotina em caso de erro. Isso evita que tenhamos Undos e Redos desnecessários, fazendo a rotina se comportar como um comando do cad.
Elas devem ser usadas assim:
(defun c:sualisp (/)
; sempre aperece no início
(tbn:error-init
(list (list “cmdecho” 0 )
;| após a execução,
restaure estas variaveis
em caso de erro, execute isto… |;
‘(func_de_erro)
))
;| a sua rotina normal…
aqui você coloca seus codigos
se tudo correr bem até aqui termina com |;
A seguir as rotinas de prevenção de erros:
(defun tbn:error-init (sys / tmp ss cmd)
(defun-q-list-set ‘tbn:error_exe (list nil (cadr sys)))
(setq tbn:olderr *error*
*error* (lambda (s)
(setq yy s)
(if (/= s “Function cancelled”)
(prompt (strcat “\nError: “ s)))
(if (/= (getvar “cmdnames”) “”)
(command))
(tbn:error_exe)
(tbn:error-restore))
sys (car sys)
tbn:sysvars nil
tbn:error-undo (getvar “undoctl”)
ss (ssgetfirst)
cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(cond ((= 2 (logand tbn:error-undo 2))
(command “_.undo” “_control” “_all”
“_.undo” “_auto” “_off”))
((/= 1 (logand tbn:error-undo 1))
(command “_.undo” “_all”
“_.undo” “_auto” “_off”)))
(command “_.UNDO” “_group”)
(setvar “cmdecho” cmd)
(repeat (/ (length sys) 2)
(setq tmp (car sys)
tbn:sysvars (cons (list tmp (getvar tmp))
tbn:sysvars)
tmp (setvar tmp (cadr sys))
sys (cddr sys)))
(sssetfirst (car ss) (cadr ss)))
(defun tbn:error-restore (/ cmd)
(setq *error* tbn:olderr)
(foreach x tbn:sysvars (setvar (car x) (cadr x)))
(redraw)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(command “_.UNDO” “_e”)
(cond ((/= 1 (logand tbn:error-undo 1))
(command “_.undo” “_control” “_none”))
((= 2 (logand tbn:error-undo 2))
(command “_.undo” “_control” “_one”)))
(setvar “cmdecho” cmd)
(princ))