Является ли вставка блока внешней ссылкой?

(defun ru-block-is-xref (ent / result tbldata block_name)
  ;; Возвращает имя внешней ссылки  или нил если это не вн-сс
 ;|
 (ru-block-is-xref
   (car (ru-get-entsel "Выбери блок или ссылку, но не промахнись!"))
 ) ;_ end of ru-block-is-xref
|;
  (if (setq block_name (cdr (assoc 2 (entget ent))))
    (if (setq tbldata (tblsearch "BLOCK" block_name))
      (setq result (cdr (assoc 1 tbldata)))
    ) ;_ end of if
  ) ;_ end of if
  result

)

;;;(defun ru-block-is-xref (block_ent)
;;;  ;; Возвращает имя внешней ссылки  или нил если это не вн-сс
;;;  ;|
;;; (ru-block-is-xref
;;;   (car (ru-get-entsel "Выбери блок или ссылку, но не промахнись!"))
;;; ) ;_ end of ru-block-is-xref
;;;А этот код красив, но ломается на обычных примитивах, не блоках
;;;
;;;|;
;;;  (= 4
;;;     (logand
;;;       (cdr
;;;         (assoc
;;;           70
;;;           (entget (tblobjname "block" (cdr (assoc 2 (entget block_ent)))))
;;;         ) ;_ end of assoc
;;;       ) ;_ end of cdr
;;;       4
;;;     ) ;_ end of logand
;;;  ) ;_ end of =
;;;
;;;) ;_ end of defun