Topic: Ignore error and continue execution

[vincent.r]

Is it possible to continue to execute the program if error occur in middle of program ?

For example

1.(defun c:gli (... / .....)         ;program starts here
2.(getblockinfo x y z ..)         ;function for selection of block and get its attributes
3.(arrangeit x1 y1 z1 ...)         ;sort attribute by alphabeticaly
4.(addnumbers n1 n2 n3...)      ;change numbers in specific attribute value
5.(rewrite lst1 lst2...)         ;write attribute to blocks
6.(changelayers laname)         ;change layer of all selected blocks
7.(getblockname&inspoint xyz)   ;get all blocks name and its insertion point
8.(getscale xyz)            ;get all blocks scale
9.(arrangedata xyz)         ;proccess something
10.(writedata lst)            ;write data to notepad files from list
11.)                     ;end defun here

@ line 5 or 6, if function fail (Due to any reason) to perform, is it possible to continue to execute program till defun ends ?

Any help will be highly appreciable.

[kpblc]

Try to use vl-catch-all-apply function

[vincent.r]

Try to use vl-catch-all-apply function

Thanks kpblc for your reply !

vl-catch-all-apply function requires two arguments 1) Function 2) List

In my program I need to call some functions with multiple datatype and parameters . i.e. more than two parameters and multiple datatype.
Example - (getblockinfo  list1     list2   string  Real_number1 Real_number2                  Ename)
                (getblockinfo taglist attrlist *p&id*     420.0               297.0            <Entity name: 2ad5a842aa0>)

I am not expert programmer. Do not understand how to call the sub functions using vl-catch-all-apply. Do I need to use *error* in my main and sub functions ?

Need your help Masters. Thanks in advance.

[kpblc]

As an example:

Code - Auto/Visual Lisp: [Select]

1. (defun getstring-no-error (message use-spaces / res) ;|
2. (getstring-no-error "Enter string" nil)
3. (getstring-no-error "Enter string" t)
4. |;
5.   (if (not
6.         (vl-catch-all-error-p
7.           (setq res (vl-catch-all-apply (function (lambda ()
8.                                                     (if message
9.                                                       (getstring use-spaces (strcat "\n" message " <Cancel> : "))
10.                                                       ) ;_ end of if
11.                                                     ) ;_ end of lambda
12.                                                   ) ;_ end of function
13.                                         ) ;_ end of vl-catch-all-apply
14.                 ) ;_ end of setq
15.           ) ;_ end of vl-catch-all-error-p
16.         ) ;_ end of not
17.     res
18.     ) ;_ end of if
19.   ) ;_ end of defun

[kpblc]

About your function:

Code - Auto/Visual Lisp: [Select]

1. (if (not
2.       (vl-catch-all-error-p
3.         (setq res (vl-catch-all-apply
4.                     (function (lambda () (getblockinfo list1 list2 string real_number1 real_number2 ename)))
5.                     ) ;_ end of vl-catch-all-apply
6.               ) ;_ end of setq
7.         ) ;_ end of vl-catch-all-error-p
8.       ) ;_ end of not
9.   (progn
10.    ; Do smth if there is no error
11.    )
12.   (princ (strcat "\nError execute getblockinfo : " (vl-catch-all-error-message res)))
13.   ) ;_ end of if

[vincent.r]

About your function:

Code - Auto/Visual Lisp: [Select]

1. (if (not
2.       (vl-catch-all-error-p
3.         (setq res (vl-catch-all-apply
4.                     (function (lambda () (getblockinfo list1 list2 string real_number1 real_number2 ename)))
5.                     ) ;_ end of vl-catch-all-apply
6.               ) ;_ end of setq
7.         ) ;_ end of vl-catch-all-error-p
8.       ) ;_ end of not
9.   (progn
10.    ; Do smth if there is no error
11.    )
12.   (princ (strcat "\nError execute getblockinfo : " (vl-catch-all-error-message res)))
13.   ) ;_ end of if

Thanks kpblc!
I am working on it, and trying to understand how it works. Will get back to you soon.

[vincent.r]

About your function:

Code - Auto/Visual Lisp: [Select]

1. (if (not
2.       (vl-catch-all-error-p
3.         (setq res (vl-catch-all-apply
4.                     (function (lambda () (getblockinfo list1 list2 string real_number1 real_number2 ename)))
5.                     ) ;_ end of vl-catch-all-apply
6.               ) ;_ end of setq
7.         ) ;_ end of vl-catch-all-error-p
8.       ) ;_ end of not
9.   (progn
10.    ; Do smth if there is no error
11.    )
12.   (princ (strcat "\nError execute getblockinfo : " (vl-catch-all-error-message res)))
13.   ) ;_ end of if

Thanks kpblc!
I am working on it, and trying to understand how it works. Will get back to you soon.

Yes kpblc, code is working great and flawlessly !

Thanks Again. You made my day.