;Lisp to convert all frozen layers to turned off and then unfreeze it
; Created by R.K. McSwain
; http://rkmcswain.blogspot.com

(setq *acad-doc* (vla-get-activedocument (vlax-get-acad-object)))
(setq *layers* (vla-get-layers *acad-doc*))
(vlax-for x *layers*
(if (eq (vla-get-Freeze x) :vlax-true)
(progn
(vla-put-Freeze x :vlax-false)
(vla-put-LayerOn x :vlax-false)
)
)
)

Advertisements