;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
(defun c:dwgndx ()
  (setq fndndx (findfile (strcat(getvar"dwgprefix") "DWGNDX.TXT")))
  (if fndndx
    (progn
      (setq ndx_fi (open fndndx "r"))
      (setq ndx_fo (open (strcat(getvar"dwgprefix") "INDEX.TXT")"w"))
      (if (and ndx_fi ndx_fo)
        (progn
          (while (setq fi_rdln (read-line ndx_fi))
            (if (eq(substr fi_rdln 1 1)"*")
              nil
              (write-line fi_rdln ndx_fo)
            )
          )
          (close ndx_fi)
          (close ndx_fo)
          (if c:delimin nil (load "delimin"))
          (princ "\nSelect INDEX.TXT now. Column delimiter is \"\\\".\n")
          (c:delimin)
        )
        (progn
          (if ndx_fi
            nil
            (princ (strcat"\nUnable to open file \"" fndndx "\""))
          )
          (if ndx_fo
            nil
            (princ (strcat"\nUnable to open file \"" (getvar"dwgprefix") "INDEX.TXT\". "))
          )
        )
      )
    )
    (princ "\Drawing index file not found. ")
  )
  (princ)
)