Извлечение имен и значений атрибутов из вставки блока

(defun ru-block-attrib-list (ent / lst ent_data)
;;; Функция извлечения атрибутов и их значений из блока
;;; (ru-block-attrib-list (car ent))
  (if (= 1 (cdr (assoc 66 (entget ent))))
    (progn
      (setq ent (entnext ent))
      (while (and
	       ent
	       (/= "SEQEND" (cdr (assoc 0 (setq ent_data (entget ent)))))
	     ) ;_ end of and

	(if (equal (assoc 0 ent_data) (cons 0 "ATTRIB"))
	  (setq	ent_data  (list
		      (cdr (assoc 2 ent_data))
		      (cdr (assoc 1 ent_data))
		      (cdr (assoc -1 ent_data))
		    ) ;_ end of list
		lst (append lst (list ent_data))
	  ) ;_ end of setq
	)	    ;  ** if
	(setq ent (entnext ent))
      )		    ; *** while
    ) ;_ end of progn
  ) ;_ end of if
  lst
) ;_ end of defun