Lock all layers except current layer

Hello,

I searched for an autolisp that lock all layers except the current layer that I'm using but I can't find one.

Right now I have to lock all layers then unlock the layer by click on an object of the current layer.

Would you be kind enough to write one for me if it can be done.

Thank you very much.

Take a look

(defun C:LOCKALL (/ cmdecho)
 (setq cmdecho (getvar 'cmdecho))
 (setvar 'cmdecho 0)
 (command "_.-LAYER" "_LOck" "*" "_Unlock" (getvar "CLAYER") "")
 (setvar 'cmdecho cmdecho)
 (princ)
 )

(defun C:UNLOCKALL (/ cmdecho)
 (setq cmdecho (getvar 'cmdecho))
 (setvar 'cmdecho 0)
 (command "_.-LAYER" "_Unlock" "*" "")
 (setvar 'cmdecho cmdecho)
 (princ)
 )

It works beautifully.

Thank you Stefan.

Some releases asked for verification to LOck the current layer

So maybe:

(command "_.LAYER" "_LOck" (strcat "~" (getvar "CLAYER")) "")

-David

Thank you David, I'll keep this code handy for future use.

Why not just use layiso?

Because I need to use all layers that are there to draw on top of them making right of way descriptions.

Because I need to use all layers that are there to draw on top of them making right of way descriptions.

That's what layiso's [Lock and fade] setting is for. Nothing wrong with doing it with lisp, beauty of AutoCAD is there's at least 3 ways to do anything.

That's what layiso's [Lock and fade] setting is for. Nothing wrong with doing it with lisp, beauty of AutoCAD is there's at least 3 ways to do anything.

Which is good and bad in so many ways

I actually prefer the layiso method because of the fade but I suppose you can accomplish this with locked layers as well.