lisp VP UNFREEZE

[abcdef1234]

;VPFL - VP Freeze Layer
;(discussion forum routine, modified by XANADU)
;
(defun c:VZ ( / ent cLayer pLayer)
(setq ent (car(entsel "\nSelect object to VP-freeze layer: ")))
(setq cLayer (getvar "clayer"))
(setq pLayer (cdr (assoc 8 (entget ent))))
(if (= pLayer cLayer)
 (command "_.layer" "_s" "0" "_off" pLayer "")
 (command "_.vplayer" "_f" pLayer "_c" "")
)
(prompt (strcat "Layer " pLayer " frozen in current viewport"))
(princ)
)

 

 

 

using vp freeze lisp

 

i want to unfreeze lisp in viewport

Edited August 3, 2022 by SLW210
Added Code Tags

[Emmanuel Delay]

Thaw, that's the opposite of freeze.

 

;; unfreeze layer in Viewport
(defun c:ulvp ( / lay)
    (setq lay (getstring "\nLayer to unfreeze: "))
    (command "_VPLAYER" "Thaw" lay "Current" "")
)