;;;Lists just names of all XREFs attached, one per line.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 10-11-2002
;;;
(defun c:xrilst (/ blk_def blk_lst xrlst_in xrlst_out line_in ex_xr_lst)
  (setq blk_def (tblnext "block" T))
  (if (assoc 1 blk_def)
    (setq blk_lst (list (cdr (assoc 1 blk_def))))
  ) ;_ end of if
  (while (setq blk_def (tblnext "block"))
    (if	(assoc 1 blk_def)
      (setq blk_lst (append (list (cdr (assoc 1 blk_def))) blk_lst))
    ) ;_ end of if
  ) ;_ end of while
    (if	blk_lst
      (progn
	(setq blk_lst (acad_strlsort blk_lst))
	(setq xrlst_out (open (strcat (getvar "dwgprefix") "ALLDWGXREF.LST") "a"))
	(write-line (strcat (getvar"dwgprefix")(getvar"dwgname")) xrlst_out)
	(foreach n blk_lst
	  (write-line (strcat "\t" n) xrlst_out)
	) ;_ end of foreach
	(close xrlst_out)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;