command that selecting a congeli object all layers except that belonging to the object itself and a layer called

[lattu]

Hello everyone, I need help from experts.
I would have the need to create a command that by selecting an object you conge all layers except that belonging to the object itself and the layer called carpentry
is something similar to the layer island but in my case it does not work properly. Can you do that?

 

[MassiVonWeizen]

there is the special command for both freezing and blocking layers.

https://knowledge.autodesk.com/it/s...d011adfd-cb4b-4f29-954a-ef2246c1dfb2-htm.html

 

[lattu]

Thank you, but I need to freeze them

 

[MassiVonWeizen]

Sorry, I was with my phone and I couldn't put both links

https://knowledge.autodesk.com/it/s...e7db1e23-eb54-4db7-b168-7725dfe6f100-htm.html

 

[lattu]

you read too quickly, I need a command that doesn't exist, type island layer but with freezing of all other layers except 1 with a well defined name

 

[MassiVonWeizen]

practically the reverse of what makes the command I indicated. That I am. Sorry again.
you tried the command percorrlay?

 

[lattu]

percorlay leaves 1 layer visible at a time, does not do what I need

 

[lattu]

or, do you suggest how to extract the code from the Isola Layer command?

 

[dieva]

very rough but it works... .
(defun c:ii () (command"_undo" "_gr" "_isolay" pauses")
(command"_layer" "_t" "carpenteria" "_on" "carpenteria" "_undo" "_end")
)

 

[lattu]

Thank you, the text in the evening.
but so it turns out or freezes?

 

[dieva]

when you call me back isolay alone there is the option settings on the command line, you can choose whether to put layers in off or freeze them.
qui help di autocad

 

[rpor66]

(defun c:setlayerfreeze(/ sel piano)
    (while (not (setq sel (entsel "\nseleziona entità: "))))   
  (setq piano (cdr (assoc 8 (entget (car sel)))))
    (command "_layer" "_m" "carpenteria" "")
    (command "_layer" "_freeze" "*" "")
    (command "_layer" "_thaw" piano "")
)
(defun c:setlayerstd()
    (command "_layer" "_thaw" "*" "")
)

setlayerfreeze: entity selections, all frozen except carpentry and plane entity.
setlayerstd: destroy all plans.

 

[lattu]

Okay, thanks, I haven't been able to test them yet, but they should be fine.

 

[lattu]

Sorry about the latitude but there were other priorities.
the rpor66 lisp works (as always).
If now you want to add layers that remain thawed in addition to carpentry, how can I change the code?
Thank you.

 

[rpor66]

aggiungi dopo la linea che contiene (command "_layer" "_thaw" piano "")
altri command:
(command "_layer" "_thaw" "miopiano1" "")
(command "_layer" "_thaw" "miopiano2" "")
etc.