;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 01-13-2006
;;;
(DEFUN c:next ()
  (SETQ	princprfx (IF princprfx
		    (STRCAT princprfx "  ")
		    "[DEBUG]  "
		  ) ;_ end of IF
  ) ;_ end of SETQ
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx " Beginning NEXT. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (SETQ do_prev nil
        do_next T
  ) ;_ end of SETQ
  (SETQ dwg_incrno 1)                   ;(uint 1 "" "Number of drawings to advance" (if dwg_incrno dwg_incrno 1)))
  (c:nextdwg)
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx " End NEXT. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (SETQ	princprfx
	 (COND
	   ((AND princprfx (WCMATCH princprfx "`[DEBUG`]   *"))
	    (SUBSTR princprfx 1 (- (STRLEN princprfx) 2))
	   )
	   (T "[DEBUG]  ")
	 ) ;_ end of COND
  ) ;_ end of SETQ
  (PRINC)
) ;_ end of DEFUN
(DEFUN c:prev ()
  (SETQ	princprfx (IF princprfx
		    (STRCAT princprfx "  ")
		    "[DEBUG]  "
		  ) ;_ end of IF
  ) ;_ end of SETQ
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx " Beginning PREV. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (SETQ do_prev T
        do_next nil
  ) ;_ end of SETQ
  (SETQ dwg_incrno 1)                   ;(uint 1 "" "Number of drawings to retreat" nil))
  (c:nextdwg)
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx " End PREV. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (SETQ	princprfx
	 (COND
	   ((AND princprfx (WCMATCH princprfx "`[DEBUG`]   *"))
	    (SUBSTR princprfx 1 (- (STRLEN princprfx) 2))
	   )
	   (T "[DEBUG]  ")
	 ) ;_ end of COND
  ) ;_ end of SETQ
  (PRINC)
) ;_ end of DEFUN
(DEFUN c:nextdwg ()
  (IF initandsdichk NIL (LOAD "initandsdichk" "\nFile INITANDSDICHK.LSP not loaded! "))
  (SETQ pre_initandsdichk_dbmod (GETVAR "DBMOD"))
  (initandsdichk)
  (IF (EQ pre_initandsdichk_dbmod (GETVAR "DBMOD"))
    NIL
    (IF (EQ pre_initandsdichk_dbmod 0)
      (COMMAND ".qsave")
      NIL
    )
  )
  (IF save_file_chk NIL (LOAD "save_file_chk" "\nFile SAVE_FILE_CHK.LSP not loaded! "))
  (save_file_chk)
  (SETQ skip_save_chk T)
;;;         (PRINC "\nsel_proj=")
;;;         (PRINC sel_proj)
;;;         (PRINC "\nrproj=")
;;;         (PRINC rproj)
;;;  (PRINC)
  (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
  (check_for_doslib)
  (SETQ dwgslist (ACAD_STRLSORT
                   (DOS_DIR (STRCAT (GETVAR "dwgprefix") "*.dwg"))
                 ) ;_ end of ACAD_STRLSORT
  ) ;_ end of setq
  (IF do_next
    (IF
      (MEMBER (GETVAR "dwgname") dwgslist)
       (PROGN
         (SETQ membrlist (MEMBER (GETVAR "dwgname") dwgslist))
         (IF (> (LENGTH membrlist) 1)
           (SETQ newdwgnm (CADR membrlist))
           (SETQ newdwgnm (GETVAR "dwgname"))
         ) ;_ end of IF
       ) ;_ end of progn
       (SETQ newdwgnm (GETVAR "dwgname"))
    ) ;_ end of if
    (IF
      (MEMBER (GETVAR "dwgname") dwgslist)
       (PROGN
         (SETQ membrlist (MEMBER (GETVAR "dwgname") (REVERSE dwgslist)))
         (IF (> (LENGTH membrlist) 1)
           (SETQ newdwgnm (CADR membrlist))
           (SETQ newdwgnm (GETVAR "dwgname"))
         ) ;_ end of IF
       ) ;_ end of progn
       (SETQ newdwgnm (GETVAR "dwgname"))
    ) ;_ end of if
  ) ;_ end of if
  (IF (EQ what_to_do 1)
    (PROGN
;;;      (PRINC "\nHELP! ********************************** 0 ")
;;;      (PRINC)
      (SETQ what_to_do nil)
    )
    (IF (AND sel_proj rproj)
      (IF
        (AND
          client#
          project#
          (WCMATCH (STRCASE (GETVAR "DWGPREFIX"))
                   (STRCASE (STRCAT "*:" client# "\\" project# "\\800*"))
          ) ;_ end of WCMATCH
        ) ;_ end of AND
         (PROGN
;;;           (PRINC "\nHELP! ********************************** 1 ")
;;;           (PRINC)
           (sel_proj rproj)
           (SETQ skip_save_chk NIL)
         )
         (PROGN
;;;           (PRINC "\nHELP! ********************************** 2 ")
;;;           (PRINC)
           (SETQ foundfile (FINDFILE newdwgnm))
           (SETQ
             opnfil (GETFILED
                      (STRCAT "Open "
                              client_name
                              " "
                              (SUBSTR proj_desc (1+ count))
                              " Drawing"
                      ) ;_ end of STRCAT
                      (IF foundfile
                        foundfile
                        ""
                      ) ;_ end of if
                      "dwg;dxf;dwt"
                      4
                    ) ;_ end of getfiled
           ) ;_ end of SETQ
;;;           (IF MYOPENCMD NIL
             (LOAD "MYOPENCMD" "\nFile MYOPENCMD.LSP not found! ")
;;;           )
           (MYOPENCMD opnfil)
           (SETQ skip_save_chk NIL)
;;;           (PRINC "\nHELP! ********************************** 3 ")
;;;           (PRINC)
         ) ;_ end of PROGN
      ) ;_ end of IF
      (PROGN
;;;        (PRINC "\nHELP! ********************************** 4 ")
;;;        (PRINC)
        (IF (LOAD "proj" "\nFile PROJ.LSP not found! ")
          (c:proj)
          nil
        ) ;_ end of if
        (SETQ skip_save_chk NIL)
;;;        (PRINC "\nHELP! ********************************** 5 ")
;;;        (PRINC)
      )
    ) ;_ end of if
  ) ;_ end of IF
  (SETQ dwg_incrno nil)
  (PRINC)
) ;_ end of defun
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 100 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;