api-error

st788796

1. ;;;***********************************************************************
   
2. ;;; MODULE: api-error
   
3. ;;; DESCRIPTION: wraps a function to trap Active-X errors - if error is found
   
4. ;;; DESCRIPTION: function returns nil.
   
5. ;;; ARGS: function to check, list of arguments, boolean (return error message?) T or nil
   
6. ;;; EXAMPLE: (api-error '/ (list 50 0) T) displays "VLISP Error: divide by zero" & returns 'nil'
   
7. ;;;***********************************************************************
   
8. (defun api-error (func lst bool / trap)
   
9.   (cond
   
10.     ((vl-catch-all-error-p
    
11.        (setq trap (vl-catch-all-apply func lst))
    
12.      )
    
13.      (if bool
    
14.        (princ (strcat "\nVLISP XML Error: "
    
15.                       (vl-catch-all-error-message trap)
    
16.               )
    
17.        )
    
18.      )
    
19.      (setq trap nil)
    
20.     )
    
21.   )
    
22.   trap
    
23. )

;;;***********************************************************************<br /> ;;; MODULE: api-error<br /> ;;; DESCRIPTION: wraps a function to trap Active-X errors - if error is found<br /> ;;; DESCRIPTION: function returns nil.<br /> ;;; ARGS: function to check, list of arguments, boolean (return error message?) T or nil<br /> ;;; EXAMPLE: (api-error '/ (list 50 0) T) displays "VLISP Error: divide by zero" & returns 'nil'<br /> ;;;***********************************************************************<br /> (defun api-error (func lst bool / trap)<br />   (cond<br />     ((vl-catch-all-error-p<br />        (setq trap (vl-catch-all-apply func lst))<br />      )<br />      (if bool<br />        (princ (strcat "\nVLISP XML Error: "<br />                       (vl-catch-all-error-message trap)<br />               )<br />        )<br />      )<br />      (setq trap nil)<br />     )<br />   )<br />   trap<br /> )

enn09

学习是美德，回复是习惯