Frozen Layer

Step one:
(setq OldLayer (getvar "CLAYER"))

Step two:
Set another layer as current, and freeze the previous layer

Step three:
How would I thru lisp check if OldLayer has been frozen?

(defun Thaw-OLDLAYER ()
(setq OldLayer (getvar "CLAYER"))
(if (..........
(command ".-layer" "thaw" OldLayer "")
)
)

Gary

 

This is getting closer, but still having trouble.


(defun Thaw-OLDLAYER ()
(setq lay (entget (tblobjname "layer" OldLayer)))
(setq clr (cdr (assoc 62 lay)))
(if (= clr -1)(command ".-layer" "thaw" OldLayer ""))
)

Gary

 

Is this what you're after?

Code:

(setq oldLayer (getvar "clayer"))
(setvar "clayer" "Layer1")
(setq lay (entget (tblobjname "layer" oldLayer)))
(entmod (subst '(70 . 1) (assoc 70 lay) lay))
(if (= 1 (cdr (assoc 70 lay)))
;it's frozen
;it's not frozen
)

 

OldLayer has already been set by a previous routine.
I want to thaw that layer if it has been frozen

The following is still not working, and I am brain dead right now.

(defun Thaw-OLDLAYER ()
(setq lay (entget (tblobjname "layer" oldLayer)))
(if (< (cdr (assoc 62 lay)) 0)
(command ".-layer" "thaw" OldLayer "")
)
)

Gary

 

Gary, note the use of assoc 70
assoc 62 is for color, a negative color turns OFF the layer.....

--
Jeff
check out www.cadvault.com

 

I got this to work...was mixing apples and oranges.

(setq OldLayern "A-DETL-03")



(defun Thaw-OLDLAYER ()
(setq lay (entget (tblobjname "layer" OldLayern)))
(if (< (cdr (assoc 62 lay)) 0)
(command ".-layer" "on" OldLayern "")
)
(if (= (cdr (assoc 70 lay)) 1)
(command ".-layer" "thaw" OldLayern "")
)
)

Thanks


Gary

 

FYI, this:
(< (cdr (assoc 62 lay)) 0)
can also be written as:
(minusp (cdr (assoc 62 lay)))

--
Jeff
check out www.cadvault.com

 

Thanks again

Gary

 

Actually, you don't need to know if a layer is frozen. Thaw it anyway; no harm
shall come to thee.

rs