MULTIPLE LAYERS TURNING OFF BY SELECTING MULTIPLE ELEMENTS BY CROSS WINDOW

[Anonymous]

Hi helpers,

I need a lisp for that can turn off multiple layers, by selecting multiple elements in different layers.

Thanks,

T.Brahmanandam.

[dbhunia · Accepted solution]

Check this.......

(defun C:DEBA ( / )
(setq selectionset (ssget))
(repeat (setq N (sslength selectionset))
(setq Data (ssname selectionset (setq N (- N 1))))
(setq EntityData (entget Data))
(setq Lay_Name (cdr (assoc 8 EntityData)))
(setq layobj (tblobjname "layer" Lay_Name))
(vla-put-LayerOn (vlax-ename->vla-object layobj) 0)
)
(princ)
)

[Moshe-A · Accepted solution]

@Anonymous hi,

have you tried LAYOFF command?

moshe

[dbhunia · Accepted solution]

If you want to turn off the layers by window selection then go through the code.....

otherwise go through "Layoff" command by selection an object of each layers.....

[Moshe-A · Accepted solution]

@dbhunia

if user just press enter to (ssget) or by mistake, what would happened to your code?

are you sure you can use (vlax-ename->vla-object) without loading ActiveX?

moshe

[Anonymous]

Thank you for smart and immediate reply Sir.