Список имен атрибутов для имени блока

(defun ru-block-get-tag-names (block_name / is_block _ru-block-get-tag-name)
    (if (setq is_block (tblsearch "BLOCK" block_name))
        (progn
            (defun _ru-block-get-tag-name (ent / dxf)
                (cond
                    ((not ent) nil)
                    ((= (cdr (assoc 0 (setq dxf (entget ent)))) "ATTDEF")
                     (cons (list (cdr (assoc 2 dxf)) (cdr (assoc 70 dxf)))
                           (_ru-block-get-tag-name (entnext ent))
                     ) ;_ end of cons
                    )
                    (t (_ru-block-get-tag-name (entnext ent)))
                ) ;_ end of cond
            ) ;_ end of defun
            (_ru-block-get-tag-name (cdr (assoc -2 is_block)))
        ) ;_ end of progn
    ) ;_ end of if
) ;_ end of defun