Minor Tweak to existing macro...

I have a button with the following macro (which I have to credit David Koch for) assigned to it:

(if (minusp (cdr (assoc 62 (entget (tblobjname "LAYER" "a-elev-hatch"))))) (command "._layer" "_ON" "a-elev-hatch" "") (command "._layer" "_OFF" "a-elev-hatch" "") )

If my 'a-elev-hatch' layer is 'on', this routine turns it off, if the layer is 'off', the routine turns it on. It's like a layer light switch.

I tried to apply the same concept to a different scenario by replacing "a-elev-hatch" with "*surf-hatch" but it didn't like the ' * ' (I think). My goal is to be able to turn on/off my "A-Surf-Hatch" layer even if the layer is in an xref, that's why I added the ' * ', because in the xref the layer name will have the name of the root drawing before it. Is this possible? Do I need a lisp routine instead of a macro? Am I making any sense? Thanks.

 

Try this:

(setq this_layer (tblnext "layer" T))(while this_layer(if (vl-string-search "surf-hatch" (setq lname (cdr (assoc 2 this_layer))))(if (minusp (cdr (assoc 62 this_layer)))(command "._layer" "_ON" lname "")(command "._layer" "_OFF" lname "")))(setq this_layer (tblnext "layer")))

 

Got another one for you if you're up for it! I posted it in a new thread titled "Tab and Down Arrow in lisp? Grread?" Thanks! BTW: that surface hatch toggle lisp has been very helpful.