xspacex
28th Oct 2009, 09:13 am
Hello everyone,
I am in need of some help with this lisp that I am putting together. The code below will basically thaw a specific frozen layer, however, it will not automatically regen after the thaw - the reason for the regen, is so that all objects, lines... that were frozen on this specific layer, will now appear - while I tried the command regen in the lisp, it did not work, so I am looking for suggestions?
Using the same method below, I am wondering how to thaw a layer frozen in a viewport?
Cheers!
(if (setq ename (tblobjname "layer" layname))
(progn
(setq layent (entget ename))
(if (= (cdr (assoc 70 layent)) 1)
(progn
(setq layent (subst (cons 70 0) (assoc 70 layent) layent))
(entmod layent)
(entupd(cdr (assoc -1 layent)))
)
)
)
)
I am in need of some help with this lisp that I am putting together. The code below will basically thaw a specific frozen layer, however, it will not automatically regen after the thaw - the reason for the regen, is so that all objects, lines... that were frozen on this specific layer, will now appear - while I tried the command regen in the lisp, it did not work, so I am looking for suggestions?
Using the same method below, I am wondering how to thaw a layer frozen in a viewport?
Cheers!
(if (setq ename (tblobjname "layer" layname))
(progn
(setq layent (entget ename))
(if (= (cdr (assoc 70 layent)) 1)
(progn
(setq layent (subst (cons 70 0) (assoc 70 layent) layent))
(entmod layent)
(entupd(cdr (assoc -1 layent)))
)
)
)
)