Jul 30, 2003 #1 DISH Mechanical Feb 5, 2003 28 0 0 CA 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.
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.
Jul 30, 2003 #2 borgunit Mechanical Jul 26, 2002 1,153 0 0 US This is a cool routine to update the revision field... ;;;; ;;;;Beginning of the AutoLISP routine ;;; (defun add-record (/ Xrec Xname) (setq Xrec '((0 . "XRECORD" (100 . "AcDbXrecord" (1 . "DWGPROPS COOKIE" (9 . "" ) ) (setq Xname (entmakex Xrec)) (dictadd (namedobjdict) "DWGPROPS" Xname) ) (prompt "\nType in UPDREV to start this routine" (defun c:updRev (/ xlist rev) (setq Rev (getstring "\nEnter drawing Revision Number: ") (setq xlist (dictsearch (namedobjdict) "DWGPROPS") (if Xlist (progn (dictremove (namedobjdict) "DWGPROPS" (dictadd (namedobjdict) "DWGPROPS" (entmakex (subst (cons 9 Rev) (assoc 9 xlist) xlist))) ) (progn (add-record) (setq xlist (dictsearch (namedobjdict) "DWGPROPS") (dictremove (namedobjdict) "DWGPROPS" (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 Upvote 0 Downvote
This is a cool routine to update the revision field... ;;;; ;;;;Beginning of the AutoLISP routine ;;; (defun add-record (/ Xrec Xname) (setq Xrec '((0 . "XRECORD" (100 . "AcDbXrecord" (1 . "DWGPROPS COOKIE" (9 . "" ) ) (setq Xname (entmakex Xrec)) (dictadd (namedobjdict) "DWGPROPS" Xname) ) (prompt "\nType in UPDREV to start this routine" (defun c:updRev (/ xlist rev) (setq Rev (getstring "\nEnter drawing Revision Number: ") (setq xlist (dictsearch (namedobjdict) "DWGPROPS") (if Xlist (progn (dictremove (namedobjdict) "DWGPROPS" (dictadd (namedobjdict) "DWGPROPS" (entmakex (subst (cons 9 Rev) (assoc 9 xlist) xlist))) ) (progn (add-record) (setq xlist (dictsearch (namedobjdict) "DWGPROPS") (dictremove (namedobjdict) "DWGPROPS" (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
Jul 31, 2003 Thread starter #3 DISH Mechanical Feb 5, 2003 28 0 0 CA 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? Upvote 0 Downvote
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?