(defun getlayers (/ ly l d) (setq d(TBLNEXT "LAYER" 't) l nil) (while d (setq ly(cdr(assoc 2 d))) (setq l(append l(list ly))) (setq d(TBLNEXT "layer")) ) l ) 你可以在每个"D"后面加个"(princ d)"，即可查看每个图层的完整信息。 ..
