if the layer plot is no make the layer freeze

[S_S_SS]

Hello every one 
I need I lisp to make freeze for all the layers that plot is no 

and thanks in advance 

[pbejse · Accepted solution]

---

@S_S_SS wrote:

Hello every one 
I need I lisp to make freeze for all the layers that plot is no 

and thanks in advance 

---

(defun c:FNP (/ clay aDoc)
  (setq	clay   (getvar 'Clayer)
	Layers (vla-get-layers
		 (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
	       )
  )
  (vlax-for lay	Layers
    (if	(and
	  (/= clay (vla-get-name lay))
	  (zerop (Vlax-get lay 'Plottable))
	)
      (vlax-put lay 'Freeze -1)
    )
  )
  (vla-regen aDoc acActiveViewport)
  (princ)
)

[S_S_SS]

Thanks sir ....