All layers but current

[tflaherty]

Does anybody have a simple routine to off all the layers but the current one?

Thanks

[fixo]

Play with this
Thanx

[Opie]

Does anybody have a simple routine to off all the layers but the current one?

Thanks
There is a routine to do such a thing with the express tools, if you have them.

[tflaherty]

Yes, but can I use it inside another LISP routine?

[miff]

(command "-layer" "off" "*" "n" "")

[madcadder]

All but the current off...


(DEFUN c:alloff (/ |clayer|)
(SETQ |clayer| (GETVAR "clayer"))
(COMMAND "-layer" "off" "*" "n" "")
(PRINC)
)

[madcadder]

If ON layer needs to be selected.


(DEFUN c:pickalloff (/ |ent| |layer|)
(PROMPT "\nPick entity on layer to remain ON: ")
(SETQ |ent| (ENTGET (CAR (ENTSEL))))
(SETQ |layer| (CDR (ASSOC 8 |ent|)))
(COMMAND "-layer" "set" |layer| "off" "*" "n" "")
(PRINC)
)