Revision Number HELP

[DISH]

Does anyone know how to activate this feature. I find it in the properties dialogue box, but think that it would be handy on my layout.

 

[borgunit]

This is a cool routine to update the revision field...

;;;;
;;;;Beginning of the AutoLISP routine
;;;
(defun add-record (/ Xrec Xname)
(setq Xrec '((0 . "XRECORD&quot
(100 . "AcDbXrecord&quot
(1 . "DWGPROPS COOKIE&quot
(9 . "&quot
)
)
(setq Xname (entmakex Xrec))
(dictadd (namedobjdict) "DWGPROPS" Xname)
)

(prompt "\nType in UPDREV to start this routine&quot
(defun c:updRev (/ xlist rev)
(setq Rev (getstring "\nEnter drawing Revision Number: &quot)
(setq xlist (dictsearch (namedobjdict) "DWGPROPS&quot)
(if Xlist
(progn
(dictremove (namedobjdict) "DWGPROPS&quot
(dictadd (namedobjdict) "DWGPROPS" (entmakex (subst (cons 9 Rev)
(assoc 9 xlist) xlist)))
)


(progn
(add-record)
(setq xlist (dictsearch (namedobjdict) "DWGPROPS&quot)
(dictremove (namedobjdict) "DWGPROPS&quot
(dictadd (namedobjdict) "DWGPROPS" (entmakex (subst (cons 9 Rev)(assoc
9 xlist) xlist)))
;(entmod (subst (cons 9 Rev) (assoc 9 xlist) xlist))
)
)
(princ)
)
;;;;
;;;;End of the AutoLISP routine
;;;



"Whether you think that you can, or that you can't, you are usually right "
.. Henry Ford

 

[DISH]

Thanks that worked.
Now can I get that to show up on my drawings by using rtext.
Is this a variable that can be pulled up?