Topic: Help to update a purge lisp

[mhy3sx]

Hi. This code works fine in Autocad. I use ZWCAD now and some lisp codes don't work the same. I use this code to have a better purge. The problem is when I use this lisp in ZWCAD  every time gives me this error (look the image), and all the time I have to press enter to continue. Can anyone know why?

The code is

Code - Auto/Visual Lisp: [Select]

1. (defun c:myprg (/ Layer-p results)
2.   (setvar "clayer" "0")
3.   (setvar "cmdecho" 0)
4.   (command "._UNDO" "BEGIN")
5.  
6.     ;; return boole for layer existence
7.  
8.    (defun Layer-p (l)
9.      (and (tblsearch "LAYER" l))
10.    )
11.         (setq results (mapcar
12.                          '(lambda ( x ) (Layer-p x))
13.                          '("layer1" "layer2" "layer3" "layer4")
14.                       );end mapcar
15.  
16.         )
17.  
18.     (foreach x (list "ZERO" "EMPTY" "BLOCK" "MLINESTYLE" "LAYER" "LTYPE" "VISUALSTYLES" "MATERIALS")
19.         (if (member 't results)
20.           (command "-purge" x "*" "n" "" "")
21.           (command "-purge" x "*" "n" "-overkill" "all" "" "")
22.         );end if
23.     ); end foreach
24.       (command "-purge" "R" "" "n")
25.       (command "._UNDO" "END")
26.       (setvar "cmdecho" 1)
27.       (princ)
28. ); end defun
29.  
30.  

Thanks

[PKENEWELL]

I suspect it is because there is no option in the ZWCAD purge command for "VISUALSTYLES" and "MATERIALS".

Change:

Code - Auto/Visual Lisp: [Select]

1. (foreach x (list "ZERO" "EMPTY" "BLOCK" "MLINESTYLE" "LAYER" "LTYPE" "VISUALSTYLES" "MATERIALS")

to:

Code - Auto/Visual Lisp: [Select]

1. (foreach x (list "ZERO" "EMPTY" "BLOCK" "MLINESTYLE" "LAYER" "LTYPE")

I would also check the command for any other missing or added options of the -PURGE command by manually going though it, then add or remove the appropriate strings from the above line.

[mhy3sx]

Thanks PKENEWELL, now working fine

[PKENEWELL]

Thanks PKENEWELL, now working fine

Your most welcome