日志
关闭可打印图层
|
(Defun STB (TAB / snl sll)
(SetQ snl '()
sll (TblNext TAB T)
)
(While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)
sll (TblNext TAB nil)
)
)
(vl-sort snl '<)
)
(defun layeroff (lys)
(foreach x lys
(vla-put-layeron
(vlax-ename->vla-object (tblobjname "layer" x))
:vlax-false
)
)
)
(defun c:tt ()
(layeroff
(vl-remove
'nil
(mapcar
'(lambda (x)
(if (= (cdr (assoc 290 (entget (tblobjname "layer" x)))) 1)
x
)
)
(stb "LAYER")
)
)
)
)
