Topic: Check if current layer is frozen (yes, frozen)

[w64bit]

How can I check with lisp if the current layer is frozen?
I used a lisp (WIP version, not final) to change layers from off to frozen and if the current layer in some of the files was off, now it's frozen.

[rkmcswain]

You don't need this test. The current layer can never be frozen.

Did you actually mean how to test if the current layer is OFF?

[w64bit]

Nobel Prize for the world first dwg with current layer frozen.

[rkmcswain]

Sweet !
Neither AutoCAD or BricsCAD seem to care at all, Audit turns up no errors in either one. LOL

[ronjonp]

Nobel Prize for the world first dwg with current layer frozen.

Maybe second .. or third or fourth
http://www.theswamp.org/index.php?topic=56718.msg604509#msg604509

[tombu]

Code: [Select]

(logand 1(cdr(assoc 70(entget(tblobjname "layer" (getvar 'clayer))))))would check if current layer is frozen.

[w64bit]

Thank you all very much.

[David Bethel]

You can turn it 'Off'  if that helps .

-David

[w64bit]

I am trying to use tombu code to display an alert but it's seems that what I added is not working.

Code: [Select]

(if (= (logand 1(cdr(assoc 70(entget(tblobjname "layer" (getvar 'clayer)))))) 1) (alert "Current Layer is FROZEN !"))


[tombu]

Could you attach a drawing with Layer 0 frozen for testing?

[w64bit]

Attached in post 3.

[JohnK]

You can freeze the current layer with code (code sample below).

Freezing the layers and running your additions to tombu's code gives me the alert box (works for me).

Code sample to freeze all the layers in the drawing (including the current).

Code - Auto/Visual Lisp: [Select]

1. ( (lambda ( / lay )
2.   ;; freeze all layers in drawing
3.     (while
4.       (setq lay (tblnext "layer" (not lay)))
5.       ;; get the first block
6.           (setq lay (entget (tblobjname "LAYER" (cdr (assoc 2 lay))))
7.                 lay (subst (cons 70 (boole 6 (cdr (assoc 70 lay)) 1)) (assoc 70 lay) lay))
8.           (entmod lay)
9.       )
10.     )
11.  )

[w64bit]

I tried to run my proposed code in a script, but the message box is not showing.