Список значений атрибутов и флагов для вставки блока

(defun ru-block-get-attribs (ent / result tmp)
;;; Возвращает список атрибутов и флагов
;;;(ru-block-get-attribs (entlast))
  ;|
(("001-01-ВК" "ОБОЗНАЧЕНИЕ" 0) ("Торговый центр" "СТРОЙКА1" 0) ("" "СТРОЙКА2" 0) ("" "СТРОЙКА3" 0) ("" "ЗДАНИЕ1" 0) ("" "ЗДАНИЕ2" 0) ("" "ЗДАНИЕ3" 0) ("" "ЧЕРТЕЖ1" 0) ("" "ЧЕРТЕЖ2" 0) ("" "ЧЕРТЕЖ3" 0) ("" "ДОЛ1" 0) ("" "ФИО1" 0) ("" "ДОЛ2" 0) ("" "ФИО2" 0) ("" "ДОЛ3" 0) ("" "ФИО3" 0) ("" "ДОЛ4" 0) ("" "ФИО4" 0) ("" "ДОЛ5" 0) ("" "ФИО5" 0) ("" "ДОЛ6" 0) ("" "ФИО6" 0) ("" "ДОЛ7" 0) ("" "ФИО7" 0) ("" "ДОЛ8" 0) ("" "ФИО8" 0) ("" "ДОЛ9" 0) ("" "ФИО9" 0) ("" "ДОЛ10" 0) ("" "ФИО10" 0) ("" "ДОЛ11" 0) ("" "ФИО11" 0) ("Р" "СТАДИЯ" 0) ("" "ЛИСТ" 0) ("" "ЛИСТОВ" 0) ("" "ИНСТИТУТ1" 0) ("" "ИНСТИТУТ2" 0) ("" "ИНСТИТУТ3" 0))
|;
  (if (and ent
           (= (cdr (assoc 0 (setq tmp (entget ent)))) "INSERT")
           (= (cdr (assoc 66 tmp)) 1)
      ) ;_ end of and
    (while
      (= (cdr (assoc 0 (setq tmp (entget (setq ent (entnext ent))))))
         "ATTRIB"
      ) ;_ end of =
       (setq result (append result
                            (list
                              (list
                                (cdr (assoc 1 tmp))
                                (cdr (assoc 2 tmp))
                                (cdr (assoc 70 tmp))
                              ) ;_ end of list
                            ) ;_ end of list
                    ) ;_ end of append
       ) ;_ end of setq
    ) ;_ end of while
  ) ;_ end of if
) ;_ end of defun