;Revision Box layer management by number, i.e., 1, 2, 3... (uses REVTXUR.DWG)
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
;
(defun C:REVS ()
  (setq cmde (getvar"cmdecho"))
  (setvar "cmdecho" 0)
  (if
    (setq rvno (ureal 0 "" "Highest Revision Number (0 for none) " nil))
      (progn
        (command ".layer" "t" "*rev*" "")
        (cond
          ((eq rvno 0)
            (command ".layer" "of" "*rev?" "f" "*8rev?" ""))
          ((eq rvno 1)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev1" "on" "*rev0,*rev1" "of" "*8rev?" ""))
          ((eq rvno 2)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev2" "on" "*rev0,*6rev1,*rev2" "of" "*8rev?" ""))
          ((eq rvno 3)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev3" "on" "*rev0,*6rev1,*6rev2,*rev3" "of" "*8rev?" ""))
          ((eq rvno 4)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev4" "on" "*rev0,*6rev1,*6rev2,*6rev3,*rev4" "of" "*8rev?" ""))
          ((eq rvno 5)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev5" "on" "*rev0,*6rev1,*6rev2,*6rev3,*6rev4,*rev5" "of" "*8rev?" ""))
          ((>= rvno 6)
            (prompt "\nOnly 5 revision spaces are available! "))
        );cond
        (prompt "\nIf Revision Table is not displayed completely, Regen. ")
      );progn
      (prompt "\nNothing to do! ")
  );if
  (setvar "cmdecho" cmde)
);defun