;;;Sets the list of files to plot based on CDMNDX.TXT for the project.
;;;Calls BPLOT once the list is made.  (CDMNDX.TXT is written by CDMNDX.LSP)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-13-2001
;;;>		   EDITED: 10-06-2003
;;;
(DEFUN c:bproj ()
  (SETQ bprjplst nil)
  (SETQ out_filn nil)
  (IF (SETQ prjndx_dat
	     (OPEN (STRCAT (GETVAR "dwgprefix") "huandx.txt") "r")
      ) ;_ end of setq
    (PROGN
      (WHILE
	(SETQ prjrd_lin (READ-LINE prjndx_dat))
	 (IF
	   (AND
	     (WCMATCH (STRCASE prjrd_lin) "*.DWG*")
	     (NOT (WCMATCH (STRCASE prjrd_lin) "*DUMMY*"))
	     (NOT (WCMATCH (STRCASE prjrd_lin) "*BOGUS*"))
	   ) ;_ end of and
	    (IF	(WCMATCH prjrd_lin "*.*")
	      (PROGN
		(SETQ step_read 1)
		(WHILE (/= (SUBSTR prjrd_lin step_read 1) ".")
		  (SETQ step_read (1+ step_read))
		) ;_ end of WHILE
		(IF (FINDFILE (SUBSTR prjrd_lin 1 (+ step_read 3)))
		  (SETQ out_filn (SUBSTR prjrd_lin 1 (+ step_read 3)))
		  (SETQ out_filn nil)
		) ;_ end of IF
	      ) ;_ end of PROGN
	      (SETQ out_filn nil)
	    ) ;_ end of IF
	 ) ;_ end of if
	 (IF out_filn
	   (IF bprjplst
	     (IF
	       (MEMBER (STRCAT (GETVAR "dwgprefix") out_filn) bprjplst)
		nil
		(SETQ bprjplst
		       (APPEND (LIST (STRCAT (GETVAR "dwgprefix") out_filn))
			       bprjplst
		       ) ;_ end of APPEND
		) ;_ end of SETQ
	     ) ;_ end of IF
	     (SETQ
	       bprjplst	(LIST (STRCAT (GETVAR "dwgprefix") out_filn))
	     ) ;_ end of SETQ
	   ) ;_ end of IF
	 ) ;_ end of IF
      ) ;_ end of while
      (CLOSE prjndx_dat)
    ) ;_ end of PROGN
    (PRINC "\nProject Index file not found! ")
  ) ;_ end of if
  (IF bprjplst
    (SETQ prvplst bprjplst
	  fsslen  (LENGTH prvplst)
    ) ;_ end of SETQ
  ) ;_ end of IF
  (PRINC "\nProject File Plot list is ready.  Run BPLOT2K to plot project files. ")
;;;  (c:bplot2k)
  (PRINC)
) ;_ end of defun

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