help with this lisp routine

I have this lisp routine that toggles a layer on and off. what I would like to do is use it to toggle on and off all layers beginning with...I tried putting an asterik after the layer name but that didnt work...any help would be appreciated.
I realize you can do this easily with the command line -layer command but our company uses this in a toolbar as a toggle...

(defun C:LXTOPO (/ ldat clr)
(setq ldat (entget (tblobjname "layer" "topo"))
clr (- (cdr (assoc 62 ldat)))
)
(entmod (subst (cons 62 clr)(assoc 62 ldat) ldat))
(princ)
)

 

This should do it.
--
James Allen
Malicoat-Winslow Engineers, P.C.
Columbia, MO

(defun C:LXTOPO (/ ldat clr)
(setq ldat (tblnext "layer" t))
(while (setq ldat (tblnext "layer"))
(setq ldat (cdr (assoc 2 ldat)))
(if (wcmatch ldat "topo*")
(progn
(setq ldat (entget (tblobjname "layer" ldat))
clr (- (cdr (assoc 62 ldat)))
)
(entmod (subst (cons 62 clr) (assoc 62 ldat) ldat))
)
)
)
(princ)
)

 

hmm....
This isn't working for me. Doesn't do anything to any layer.

 

Sorry. Change (wcmatch ldat "topo*") to (wcmatch (strcase ldat t) "topo*").
This will toggle the current on/off state of every layer that starts with
"topo".

 

great. that did the trick ! Thanks.

 

You're welcome.