;Inserts REVTXLR.DWG, Revision Box for Lower Right corner of sheet.  (see REVS)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	6-19-96
;	Edited:		6-19-96
;
(defun c:revtxt ( / revlocn)
  (setq atreq (getvar"attreq")
        atdia (getvar"attdia")
        dimsc (getvar"dimscale"))
  (setvar "attreq" 0)
  (setvar "attdia" 0)
  (if revblkt
    (progn
      (setq mpb (upoint 1 "" " Insertion point" nil nil))
      (command ".insert" revblkt mpb dimsc dimsc "0")
      (setq rtblst (cdar(entget(entlast))))
      (command ".ddatte" rtblst)
    );progn
    (progn
      (setq revlocn (ukword 1 "Top Bottom Cancel" "Top, Bottom or Cancel revision block text?" "Bottom"))
      (if(eq revlocn "Bottom")
        (setq revblkt "revtxlr")
        (if(eq revlocn "Top")
          (setq revblkt "revtxur")
          (setq revblkt nil)
        );if
      );if
      (if revblkt
        (progn
          (setq mpb (upoint 1 "" " Insertion point" nil nil))
          (command ".insert" revblkt mpb dimsc dimsc "0")
          (setq rtblst (cdar(entget(entlast))))
          (command ".ddatte" rtblst)
        );progn
        (princ "\nRevision block text canceled. ")
      );if
    );progn
  );if
  (setvar "attreq" atreq)
  (setvar "attdia" atdia)
  (setq revblkt nil)
  (princ)
);defun