not elegant....
but work...
(defun fortry (/ list1)
(foreach n (ai_table "layer" 0)
(setq list1
(append list1 (list (list n
(cdr (assoc 70 (entget (tblobjname "layer" n))))
(cdr (assoc 290 (entget (tblobjname "layer" n))))
(cdr (assoc 6 (entget (tblobjname "layer" n))))
(cdr (assoc 62 (entget (tblobjname "layer" n))))
))))))