*error*

[aaronic_abacus]

how should i feel about loading *error* as a routine? is it a violation?

(DEFUN *error* (MSG)

(vl-load-com)

 (PROGN
 ; (vl-cmdf  "_UCS" "D" "WATUCS")
 ; (vl-cmdf  "_UCS" "S" "WATUCS")
 ; (IF (/= (TBLSEARCH "UCS" "OUCS") NIL) (vl-cmdf  "_UCS" "R" "OUCS"))
  (IF (/= FILP NIL) (SETVAR "CMDECHO" FILP))

(IF (/= INSU NIL) (SETVAR "INSUNITS" INSU))

(IF (/= INSUDF NIL) (SETVAR "INSUNITSDEFSOURCE" INSUDF))

(IF (/= INSUDT NIL) (SETVAR "INSUNITSDEFTARGET" INSUDT))



;  (PRINC "error: ")
;  (PRINC MSG)
  (PRINC) 
));END PROGN/DEFUN

[Tom Beauford]

That could affect every other lisp run afterwards in that drawing session.
You can include *error* as a local variable and define a local *error* function inside your lisp like many of us programers do.

Well described example: http://www.lee-mac.com/errorhandling.html

[aaronic_abacus]

thanks Tom!!

[aaronic_abacus]

Is there a way to restore a UCS without calls to command or vl-cmdf, so I can use it in *error* ?

i tried:

(IF (/= (TBLSEARCH "UCS" "OUCS") NIL) (SETVAR "UCSBASE" "OUCS"))

didn't work

[LiDo]

Is there a way to restore a UCS without calls to command or vl-cmdf, so I can use it in *error* ?

i tried:

(IF (/= (TBLSEARCH "UCS" "OUCS") NIL) (SETVAR "UCSBASE" "OUCS"))

didn't work

Try the function vla-sendcommand

[aaronic_abacus]

thanks Lido! now i can call from the *error* file!!! and locally tom

(DEFUN *error* (MSG)

  (vl-load-com)

  (PROGN
  ; (vl-cmdf  "_UCS" "D" "WATUCS")
  ; (vl-cmdf  "_UCS" "S" "WATUCS")
  ; (IF (/= (TBLSEARCH "UCS" "OUCS") NIL) (vl-cmdf  "_UCS" "R" "OUCS"))


  (IF (/= (TBLSEARCH "UCS" "OUCS") NIL)
   (PROGN

    (setq thisdrawing ( vla-get-activedocument(vlax-get-acad-object))) 
    (vla-SendCommand thisdrawing (strcat "_UCS" " " "NA" " " "R" " " "OUCS" "\n")) 

  ));END PROGN/IF
  (princ)

  (IF (/= FILP NIL) (SETVAR "CMDECHO" FILP))

  (IF (/= INSU NIL) (SETVAR "INSUNITS" INSU))

  (IF (/= INSUDF NIL) (SETVAR "INSUNITSDEFSOURCE" INSUDF))

  (IF (/= INSUDT NIL) (SETVAR "INSUNITSDEFTARGET" INSUDT))

;  (PRINC "error: ")
;  (PRINC MSG)
  (PRINC) 
 ));END PROGN/DEFUN