[LISP程序]：查询某一图层的状态

guohq

求一函数，执行此函数，输入某一图层名，如果该图层是开着的，则返回T，如果是隐藏的，则返回NIL

请高手解答！！

Underway

Layer 组码 70

LAYER group codes
Group code Description
100 Subclass marker (AcDbLayerTableRecord)
2Layer 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

jxh2003zfr

先(tblsearch "layer" "yourlayername")得到层的组码
,再接楼上所示找code 70的值

guohq

谢谢！！

wyzcm

(vla-get-LayerOn (vlax-ename->vla-object (tblobjname "layer" "0")))