(defun c:XrefList( / *acad-object* *active-doc* *blocks* a fn fp n)
  (vl-load-com) 
  (setq a '() fn (strcat (getvar "dwgprefix") (getvar "dwgname") ".txt")) 
  (setq fp (open fn "w")) 
  (setq *acad-object* (vlax-get-acad-object)) 
  (setq *active-doc* (vla-get-ActiveDocument *acad-object*)) 
  (setq *blocks* (vla-get-Blocks *active-doc*)) 
  (vlax-for n *blocks*
    (if (eq (vla-get-IsXref n) :vlax-true)
      (progn
        (princ (vla-get-Name n) fp) 
        (princ "," fp) 
        (princ (vla-get-Path n) fp) 
        (princ "\n" fp)
      )
    )
  ) 
  (close fp)
)