;; | ---------------------------------------------------------------------------
;; | BL_GetAllXrefs
;; | ---------------------------------------------------------------------------
;; | Function : Find out the names of the currently Xref'ed drawing
;; | Argument : none
;; | Returns  : A list of all current Xrefs
;; | Updated  : April 17, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_GetAllXRefs ( / XRefLst Lst tmp flag )

(setq
	XRefLst '()
	Lst (MI_tbldata "BLOCK")
)
(if Lst
(progn
	(setq Lst (cadr Lst))
	(foreach tmp Lst
		(setq flag (LI_item 70 tmp))
		(if (not (zerop (logand flag 4)))
			(setq XRefLst (cons (list (LI_item 2 tmp) flag) XRefLst))
		)
	)
))
XRefLst
)