[LISP函数]：获取图层名称

ghl_729

大家好 ！我怎么能用lsp获取一幅图形中的所有图层名称呢

carrot1983

2. 
   
3. (defun GetLayers (/ LAY LAYS)
   
4.   (setq lay nil)
   
5.   (while (setq lay (tblnext "layer" (not lay)))
   
6.     (setq lays (append lays (list (cdr (assoc 2 lay)))))
   
7.   )
   
8.   lays
   
9. )
   
10. 
    

<br /> (defun GetLayers (/ LAY LAYS)<br />   (setq lay nil)<br />   (while (setq lay (tblnext "layer" (not lay)))<br />     (setq lays (append lays (list (cdr (assoc 2 lay)))))<br />   )<br />   lays<br /> )<br /> <br />

(GetLayers)