Topic: when error, I want Restore the "textstyle"

[liuhaixin88]

This code is restore the layer

Code: [Select]

(defun c:xxx(/ *error* cl  )

Code: [Select]

(defun *error* (msg)
    (redraw)
    (if cl
      (setvar 'clayer cl)
    )
    (if (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
      (princ msg)
      (princ (strcat "\n** Error: " msg " **"))
    )
  )
I want restore the layer and textstyle together, how to modify?

[ronjonp]

Try something like this:

Code: [Select]

(setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("clayer" "textstyle")))
(defun *error* (msg)
  ;; Reset variables
  (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)
  (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    (princ (strcat "\nError: " msg))
  )
  (princ)
)

[liuhaixin88]

Modify it like this ? ok?

Code: [Select]

(defun c:xxx(/ *error* cl ts )

Code: [Select]

(defun *error* (msg)
    (redraw)
    (if cl
      (setvar 'clayer cl)
    )
    (if ts
      (setvar 'TEXTSTYLE ts)
    )
    (if (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
      (princ msg)
      (princ (strcat "\n** Error: " msg " **"))
    )
  )

[liuhaixin88]

Try something like this:

Code: [Select]

(setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("clayer" "textstyle")))
(defun *error* (msg)
  ;; Reset variables
  (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)
  (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    (princ (strcat "\nError: " msg))
  )
  (princ)
)

Hi, ronjonp ,
Thank you
At the end of  routine(normal finish) ,how to restore ?

[ronjonp]

(mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)

[liuhaixin88]

(mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)

OK! is good ! thank you!

[liuhaixin88]

Try something like this:

Code: [Select]

(setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("clayer" "textstyle")))
(defun *error* (msg)
  ;; Reset variables
  (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)
  (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    (princ (strcat "\nError: " msg))
  )
  (princ)
)

Hi ,ronjonp,
Your routine is good , can add in "osmode" ?

Lee's rountine

Code: [Select]

(defun c:test ( / *error* osm )
 
    (defun *error* ( msg )
        (if osm (setvar 'osmode osm))
        (if (not (member msg '("Function cancelled" "quit / exit abort")))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )

    (setq osm (getvar 'osmode))
    (setvar 'osmode 0)

    (rtos (getreal "\nPress Esc to exit, press Enter to force an error ..."))

    (setvar 'osmode osm)
    (princ)
)

[ronjonp]

You can add whatever other variables you want to this portion of the code:


'("clayer" "textstyle")


That's the beauty of it

[liuhaixin88]

You can add whatever other variables you want to this portion of the code:


'("clayer" "textstyle")


That's the beauty of it

This ?

Code: [Select]

(setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("clayer" "textstyle" "osmode")))
(defun *error* (msg)
  ;; Reset variables
  (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)
  (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    (princ (strcat "\nError: " msg))
  )
  (princ)
)

[ronjonp]

Yes

[gile]

Hi,

To set and restore system variables, you can also the ai_sysvar function.
This function is available in AutoCAD since a while.
It's defined in acaddoc20XX.lsp (ai_utils.lsp or acad.mnl in older versions), so it's automatically loaded in each document.

;;; --- ai_sysvar ------------------------------------------
;;; Change system variable settings and save current settings
;;; (Note: used by *merr* to restore system settings on error.)
;;;
;;; The <vars> argument is used to...
;;;   restore previous settings (ai_sysvar NIL)
;;;   set a single sys'var (ai_sysvar  '("cmdecho" . 0))
;;;   set multiple sys'vars (ai_sysvar '(("cmdecho" . 0)("gridmode" . 0)))
;;;
;;; defun-q is needed by Visual Lisp for functions which redefine themselves.
;;; it is aliased to defun for seamless use with AutoLISP.

Anywhere in the code, you can call ai_sysvar to save the current value of one or more sysvar and set it a new value (or not).

Example:

Code - Auto/Visual Lisp: [Select]

1. ;; save and set "osmode" to 0
2. (ai_sysvar '("osmode" . 0))
3. ...
4. ;; save and set "orthomode" to 1 and only save "autosnap"
5. (ai_sysvar '(("orthomode" . 1) ("autosnap" . nil)))
6. ...
7. ;; restor all sysvars
8. (ai_sysvar nil)

<EDIT> I forgot to say, the implementation of ai_sysvar is quite interesting with the use of defun-q which allows to store the list of var names ans values within the function.

[liuhaixin88]

Hi,

To set and restore system variables, you can also the ai_sysvar function.
This function is available in AutoCAD since a while.
It's defined in acaddoc20XX.lsp (ai_utils.lsp or acad.mnl in older versions), so it's automatically loaded in each document.

;;; --- ai_sysvar ------------------------------------------
;;; Change system variable settings and save current settings
;;; (Note: used by *merr* to restore system settings on error.)
;;;
;;; The <vars> argument is used to...
;;;   restore previous settings (ai_sysvar NIL)
;;;   set a single sys'var (ai_sysvar  '("cmdecho" . 0))
;;;   set multiple sys'vars (ai_sysvar '(("cmdecho" . 0)("gridmode" . 0)))
;;;
;;; defun-q is needed by Visual Lisp for functions which redefine themselves.
;;; it is aliased to defun for seamless use with AutoLISP.

Anywhere in the code, you can call ai_sysvar to save the current value of one or more sysvar and set it a new value (or not).

Example:

Code - Auto/Visual Lisp: [Select]

1. ;; save and set "osmode" to 0
2. (ai_sysvar '("osmode" . 0))
3. ...
4. ;; save and set "orthomode" to 1 and only save "autosnap"
5. (ai_sysvar '(("orthomode" . 1) ("autosnap" . nil)))
6. ...
7. ;; restor all sysvars
8. (ai_sysvar nil)

<EDIT> I forgot to say, the implementation of ai_sysvar is quite interesting with the use of defun-q which allows to store the list of var names ans values within the function.

Thanks  gile, I can't understand. Can you give me a routine ? like ronjonp.

[liuhaixin88]

Yes

Hi, ronjonp , How are you!

If I want add "(command ".undo" "e")"  and "DIMSTYLE" to your function, how to do?

Code: [Select]

(setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("clayer" "textstyle" "osmode")))
(defun *error* (msg)
  ;; Reset variables
  (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars)
  (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    (princ (strcat "\nError: " msg))
  )
  (princ)
)

Code: [Select]

;;start;(command "_.undo" "be")
(defun _StartUndo (*DOC*)
  (_EndUndo *DOC*)
  (vla-StartUndoMark *DOC*)
)
;;end;(if (= 8 (logand (getvar "undoctl") 8)) (command "_.undo" "_e"))
(defun _EndUndo (*DOC*)
  (if (= 8 (logand 8 (getvar 'UNDOCTL)))
    (vla-EndUndoMark *DOC*)
  )
)

[reltro]

Hey People...

This is what I use, includes also a mechanism to undo all stuff done...

*error*-functions can also be nested

Code - Auto/Visual Lisp: [Select]

1. ;Note:
2. ;    *error* should not be localized!!!
3.  
4.  
5. (defun ini*error* (name sysvars / *doc*)
6.     (vla-startundomark (setq *doc* (vla-get-activedocument (vlax-get-acad-object))))
7.     (eval
8.         (list 'defun '*error* '(msg / )
9.             (list
10.                 (lambda (name prevErrorHandler SysVars *doc* currentcmdecho / )
11.                     (mapcar
12.                         'setvar
13.                         (mapcar 'car SysVars)
14.                         (mapcar 'cdr SysVars)
15.                     )
16.                     (vla-endundomark *doc*)
17.                     (setq *error* prevErrorHandler)
18.                     (if msg
19.                         (progn
20.                             (setvar 'cmdecho 0)
21.                             (command-s "_.undo" 1 "")
22.                             (setvar 'cmdecho currentcmdecho)
23.                            
24.                             (if (not (wcmatch msg "*EXIT*,*BREAK*,*CANCEL*"))
25.                                 (progn
26.                                     (princ "\n*** error ***\n")
27.                                     (princ (strcat "\t" name ": " (vl-princ-to-string msg) "\n"))
28.                                    
29.                                     (*error* msg)
30.                                     (princ)
31.                                 )
32.                             )
33.                         )
34.                     )
35.                 )
36.                 (vl-princ-to-string name)
37.                 *error*
38.                 (list 'quote
39.                     (mapcar
40.                         '(lambda (a / ) (cons a (getvar a)))
41.                         sysvars
42.                     )
43.                 )
44.                 *doc*
45.                 (getvar 'cmdecho)
46.             )
47.         )
48.     )    
49. )
50.    
51. (ini*error* ;initialize error-handler
52.     "String to display if an error occurs to identify wich function fails: "
53.     '("CLAYER" "OSMODE" "CMDECHO" "DIMZIN") ;LIST of Sysvars to save/restore; String or Sym
54. )
55.  
56. ;other stuff to do....
57.  
58. (*error* nil) ;restore Sys-Vars, and a previous-error-handler

reltro

[roy_043]

@ Reltro:
Interesting code. I have a question about this portion:

Code: [Select]

(if (not (wcmatch msg "*EXIT*,*BREAK*,*CANCEL*"))
  (progn
    (princ "\n*** error ***\n")
    (princ (strcat "\t" name ": " (vl-princ-to-string msg) "\n"))

    (*error* msg)
    (princ)
  )
)
If an EXIT/BREAK/CANCEL error occurs the restored *error* function is not called meaning only a single level is undone.

If a different error occurs the restored *error* function is called meaning all levels are undone. And there will also be a superfluous call to the 'default' *error* function.

I may be missing something but this does not seem logical.