Ассоциированный список подсписков имен и значений атрибутов для вставки блока

(defun ru-block-get-attributes (ent / result tmp)
;;; Возвращает ассоциированный список подсписков имен и значений
;;; атрибутов
;;; Если атрибутов нет, возвратит NIL
;;; (ru-block-get-attributes (entlast))
;;; (("ОБОЗНАЧЕНИЕ" . "001-01-ВК") ("СТРОЙКА1" . "Торговый центр")
;;; ("СТРОЙКА2" . "") ("СТРОЙКА3" . "") ("ЗДАНИЕ1" . "") ("ЗДАНИЕ2" .
;;; ""))
  (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
                              (cons
                                (cdr (assoc 2 tmp))
                                (cdr (assoc 1 tmp))
                              ) ;_ end of list
                            ) ;_ end of list
                    ) ;_ end of append
       ) ;_ end of setq
    ) ;_ end of while
  ) ;_ end of if
) ;_ end of defun