Список всех данных примитивов блока с заданным именем

(defun ru-block-get-all-def (block_name / result ename block_data)
  (setq result '())
  (if (setq block_data (tblsearch "BLOCK" block_name))
    (progn
      (setq ename (ru-ent-dxf-code-data -2 block_data))
      (while (setq ename (entnext ename))
        (setq
          result (append result (list (entget ename)))
        ) ;_ end of setq
      ) ;_ end of while
    ) ;_ end of progn
  ) ;_ end of if
  result
) ;_ end of defun
 ;|«Visual LISP© Format Options»
(72 2 30 2 T "end of " 72 9 1 0 0 nil T T T)
;*** DO NOT add text below the comment! ***|;