Lock all XREF layers, but if on current (unlocked) layer, make new layer?

[Anonymous]

I'm fairly new to coding .lsp:s and making scripts, but I would like to make a script (button) that locks all XREF layers, which seems fairly simple:

(COMMAND "_.layer" "_lock" "*|*" "")
(COMMAND "_qsave")
(COMMAND "_Close")

HOWEVER, if XREF(s) are on the current layer, which happens to be unlocked, I would like to create a new, locked layer to which I sent these XREF:s.

What would be the best way to code this?

[Moshe-A]

Hi,

What would you achieve by locking xref layers?

you can not set xref layer current and even it it is locked you still can modify other layer properties.

[Anonymous]

I'm using a LOCKSELECTION script, which prevents me from being able to select a locked layer. This helps me as I'm making selections only on relevant layers and the locked layers work only as a backdrop.

I never want XREF:s to be selectable, and therefore want to have a quick command/button to lock all of them.