Autolisp for batch freezing & Thaw

[Ikkukp]

Hi all,
I’m looking for a custom AutoLISP script (for batch freezing/thawing layers before printing). some particular layer i need for drawing internal circulation. bet they are not required during submission. is there any other method ther?

[mhupp]

Depends on what you want to do. this will freeze a layer of the entity you select is on.

 

(defun c:FreezeEntity (/ ent layN layO)
  (while (setq ent (entsel "\nSelect an entity to freeze layer: "))
    (setq layN (cdr (assoc 8 (entget (car ent)))))
    (setq layO (vla-item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-Acad-Object))) layN))
    (vla-put-Freeze layO :vlax-true)
    (prompt (strcat "\nLayer \"" layN "\" has been frozen."))
  )
  (princ)
)