求助：怎样获取所有打开的图层的图层名？

bjchad

请各位高手指教下，有没有简单方法获取所所有状态为打开的图层的图层名？

bjchad

其实我是想选择当前显示的所有图元（不包括关闭图层里的图元），可是(ssget "x" )会选择整个图形的图元（包括关闭图层里的图元）

各位有好办法吗？

我想到的笨办法就是(ssget "x" )加过滤表，但是又不知道怎样获取打开图层的图层名。

真郁闷

Andyhon

http://www.faqs.org/faqs/CAD/autolisp-faq/part2/section-2.html
===>参考
ZOOMPTS

xhq1954425

在网上搜索到的，供你参考：

 

先获取所有图层名

(defun c:tt ()
  (while (setq d (tblnext "layer" (null d)))
    (setq lst (cons (cdr (assoc 2 d)) lst))
  )
  (setq lst (reverse lst))
)

下式为T时图层n是打开的

(> (cdr (assoc 62 (tblsearch "layer" "图层n"))) 0)