Lisp to lock/unlock layer of selected objects

[Kurpulio]

Hello,

 

I couldn't find a lisp which does this correctly

Somewhy all the ones i found has this flaw: The layers are locked/unlocked, but they remain 100% visible

For example when i manually lock a layer, it fades/greys out, and i can set the visibility with "LAYLOCKFADECTL" command.

But strangely with lisps this fading out was always wrong, sometimes objects even kept being greyed out whilst their layer wasn't locked

 

So i'd really need a lisp which can : " lock layer of selected objects", and "unlock the locked layer of selected objects"

[Kurpulio]

Nevermind, i just discovered LAYLCK and LAYULK command and also that they have icons