tblnext

(tblnext tabla [desde-el-principio])

Siguiente registro de la tabla, o nil al final. Con el segundo argumento no nil, vuelve al primero.

(setq r (tblnext "LAYER" T))
(while r (princ (strcat "\n" (cdr (assoc 2 r)))) (setq r (tblnext "LAYER")))