Freeze Layer AutoLisp Help...

[skooter26]

I would like to an Autolisp that freezes all layers except the layers that I grip select.
I would grip select certain lines which layers are attached and hit a button to freeze all the other layers that I didn't select. And hit a button to unfreeze all the layers. Can anyone please help me on this? I will be anxiously awaiting your response.

Thanks,
skooter26

[golf32902]

Here you go this sould work the same way just instead of clicking a button type QW

(defun c:qw()
(command "layiso" )
(princ)
)

and to undo what you froze type QE

(defun c:qe()
(command "layuniso")
(princ)
)

there you go that should get you started

[Cad64]

If you're going to use the LAYISO and LAYUNISO commands, why don't you just add them to your acad.pgp rather than creating routines to call them? There's no need to create routines to call commands that are already available. Just create keyboard shortcuts to them in the pgp file.