Layer table question

i use the following conditional experesion to control groups of layers
on/off status.

(if(<(cdr(assoc 62(tblsearch "layer" "1a")))0)

since negative values for 62 indicate that the layer is off it works
fine. Exept instead of testing on/off, I'd like to test freeze/thaw status.

I think I need to use 70 but I don't know how to test.

Any ideas?

 

If it's frozen dxf 70 = 1.

(if (=(cdr(assoc 70 (tblsearch "layer" "1a")))1)
(princ "Frozen")
(princ "Thawed")
)

Ken Alexander

 

Hi Ken,

You gettin' rusty with this stuff, since you haven't
been around much these days?

I'd suggest using logand.

 

Anyone know I can find a list of table values? I've tried the vlisp
help and my two books but can't find one.

 

Help -> Developer Help -> DXF Reference ->
Tables -> Layer

 

Kurt:



LAYER group codes

Group code

Description

100

Subclass marker (AcDbLayerTableRecord)

2

Layer name

70

Standard flags (bit-coded values):
1 = Layer is frozen; otherwise layer is thawed
2 = Layer is frozen by default in new viewports
4 = Layer is locked
16 = If set, table entry is externally dependent on an xref
32 = If both this bit and bit 16 are set, the externally dependent xref has
been successfully resolved
64 = If set, the table entry was referenced by at least one entity in the
drawing the last time the drawing was edited. (This flag is for the benefit
of AutoCAD commands. It can be ignored by most programs that read DXF files
and need not be set by programs that write DXF files)

62

Color number (if negative, layer is off)

6

Linetype name

290

Plotting flag. If set to 0, do not plot this layer

370

Lineweight enum value

390

Hard-pointer ID/handle of PlotStyleName object



In otherwords...

(defun LayerFrozen (lyr)
(= 1
(logand 1
(cdr (assoc 70 (entget (tblobjname "layer" lyr))))
)
)
)

Don

 

Just to show you there is another way as well...

(defun LayerFrozen (lyr)
(= :vlax-true
(vla-get-freeze
(vla-item (vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
)
lyr
)
)
)
)

Don

 

(= (logand (cdr(assoc 70 (tblsearch "layer" "0"))) 1) 1)

Or conversely

(defun thawed (layer)
(zerop (logand (cdr (assoc 70 (tblsearch "layer" layer))) 1)))

 

True enough.

Good to see everyone still keeps you in check. I need another can of WD40.
<g>