I knows , The current layer can not be frozen, thawed operation, it is excluded, or else they will make mistakes.
(defun c:test (/ *app *doc *blk)
(setq *App (vlax-get-acad-object))
(setq *Doc (vla-get-ActiveDocument *APP))
(vlax-for n (vla-get-layers *DOC)
(if (/= (strcase (vla-get-name n))
(strcase (getvar "clayer"))
)
(vla-put-Freeze n :vlax-false) ;(vlax-dump-object n t)
)
)
(command "regen") ;(vla-regen)
)
;
(defun C:LayUnFrz (/ acadDocument theLayers)
(vl-load-com)
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
(setq theLayers (vla-get-layers acadDocument))
(vlax-for item theLayers
(if (/= (strcase (vla-get-name item))
(strcase (getvar "clayer"))
)
(vlax-put-property item "Freeze" ':vlax-false)
)
)
(princ)
)