;;;
;;;
;;;
;;;
;;;***************************************  WARNING  **************************************************
;;;
;;;       Add code to ensure no overwrites of existing files.  Until then use with caution!
;;;
;;;***************************************  WARNING  **************************************************
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 04-09-2002
;;;
(DEFUN c:renumdwg ()
  (SETQ fdatlst nil)
  (SETQ dwgfname (ustr 1
                       "Drawing filename prefix w/o numbered portion? "
                       (IF dwgfname
                         dwgfname
                         ""
                       ) ;_ end of if
                       nil
                 ) ;_ end of ustr
  ) ;_ end of setq
  (SETQ maxfno (uint 1
                     ""
                     "Maximum filename numbered portion to process? "
                     (IF maxfno
                       maxfno
                       nil
                     ) ;_ end of if
               ) ;_ end of uint
  ) ;_ end of setq
  (SETQ minfno (uint 1
                     ""
                     "Minimum filename numbered portion to process? "
                     (IF minfno
                       minfno
                       nil
                     ) ;_ end of if
               ) ;_ end of uint
  ) ;_ end of setq
  (SETQ incrfno (uint 1
                      ""
                      "Filename numbered portion adjustment increment? "
                      (IF incrfno
                        incrfno
                        nil
                      ) ;_ end of if
                ) ;_ end of uint
  ) ;_ end of setq
  (SETQ fillst (DOS_DIR (STRCAT dwgfname "*.*")))
  (FOREACH n fillst (SETQ fdatlst (APPEND fdatlst (LIST (CAR (DOS_FILE n))))))
  (WHILE (IF (< incrfno 0)
           (<= minfno maxfno)
           (>= maxfno minfno)
         ) ;_ end of if
    (FOREACH n fdatlst
      (IF (AND (WCMATCH (STRCASE n)
                        (STRCASE (STRCAT "*"
                                         dwgfname
                                         (IF (< incrfno 0)
                                           (STRCAT (IF (< minfno 10)
                                                     "0"
                                                     ""
                                                   ) ;_ end of if
                                                   (ITOA minfno)
                                           ) ;_ end of strcat
                                           (STRCAT (IF (< maxfno 10)
                                                     "0"
                                                     ""
                                                   ) ;_ end of if
                                                   (ITOA maxfno)
                                           ) ;_ end of strcat
                                         ) ;_ end of if
                                         "*.*"
                                 ) ;_ end of strcat
                        ) ;_ end of strcase
               ) ;_ end of wcmatch
               (NOT (WCMATCH (STRCASE n) "*@.@@@"))
          ) ;_ end of and
        (PROGN (SETQ thisfdat (DOS_SPLITPATH n))
               (SETQ newname (STRCAT (SUBSTR (CADDR thisfdat) 1 6)
                                     (IF (< (+ incrfno (ATOI (SUBSTR (CADDR thisfdat) 7 2))) 10)
                                       "0"
                                       ""
                                     ) ;_ end of if
                                     (ITOA (+ incrfno (ATOI (SUBSTR (CADDR thisfdat) 7 2))))
                             ) ;_ end of strcat
               ) ;_ end of setq
;;;               (IF
                 (DOS_RENAME n (STRCAT (CAR thisfdat) (CADR thisfdat) newname (CADDDR thisfdat)))
                 (PROGN
                   (PRINC "\n")
                   (PRINC n)
                   (PRINC " renamed to ")
                   (PRINC (STRCAT (CAR thisfdat) (CADR thisfdat) newname (CADDDR thisfdat)))
                 )
;;;               )
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of foreach
    (IF (< incrfno 0)
      (SETQ minfno (1+ minfno))
      (SETQ maxfno (1- maxfno))
    ) ;_ end of if
  ) ;_ end of while
  (PRINC)
) ;_ end of defun
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;