各位老师，如何才能实现输出带特定字符开头的图层列表

yamjqq

;===========================================================================图层列表插件======================================================
;===========================该插件显示全部图层列表，能否显示特定字符开头的图层列表 ，如y开头的（特定字符可以自己输入）========================
(defun c:tclb(/ LST N PT)
(command "undo" "be")
(defun TABLE (S / D R)
(while (setq D (tblnext S (null D)))
(setq R (cons (cdr (assoc 2 D)) R))))
(setq LST (reverse (TABLE "LAYER")))
(setq PT (getpoint "请指定文字插入點:") N 0)
(foreach NAME LST (entmake (list '(0 . "TEXT") (cons 8 NAME) '(100 . "AcDbText")
(cons 10 (list (car PT) (- (cadr PT) N))) ' (40 . 6) (cons 1 NAME)))
(setq N (+ N 10.0)))
(command "zoom" "O" (entlast) "")
(command "undo" "e")
(princ))

start4444

http://bbs.mjtd.com/forum.php?mo ... =%B9%D8%BC%FC%D7%D6

yamjqq

各位老师：

      我想输出带特定字符的图层列表，一直没有思路，麻烦老师们指教!

                                      谢谢