图层问题

wql

请教如何用autolisp获取cad图形文件中所有的图层名称？
   谢谢！

陈伯雄

(Defun C:SLayer ()
       (SetQ snl '()
             sll (TblNext "LAYER" T)
       )
       (While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)
                    sll (TblNext "LAYER" nil)
              )
       )
       (PrinC "\n现有层：")(PrinC snl)(PrinC)
)

龙龙仔

;;;USAGE: (TABLE_LIST "LAYER")
(defun TABLE_LIST (NAME / TBL TBL_LIST)
  (while (setq TBL (tblnext NAME (null TBL)))
    (setq TBL_LIST (cons (cdr (assoc 2 TBL)) TBL_LIST))
  )
)