this is a revision of my routine.... i hope someone help me with that...
;;; 2021-nov-03 by Martin Duval from Rochon experts Infrastructel
;;; revision sheet lisp for autocad
;;; REC_REVISION
;; dwg document property (DWGPROP) add this to this lisp work...
;CurrentSheetRevisionBy
;00SheetRevisionNumber
;00SheetRevisionNumber
;00SheetRevisionDate
;00SheetIssuePurpose
;00SheetRevisionBy
;01SheetRevisionNumber
;01SheetRevisionDate
;01SheetIssuePurpose
;01SheetRevisionBy
;02SheetRevisionNumber
;02SheetRevisionDate
;02SheetIssuePurpose
;02SheetRevisionBy
(defun c:rec_revision
(vl-load-com)
(setq dwgrevRN (vlax-get-Property dProps 'RevisionNumber))
(setq dwgrevRD (vlax-get-Property dProps 'RevisionDate))
(setq dwgrevIP (vlax-get-Property dProps 'IssuePurpose))
(setq dwgrevBY (vlax-get-Property dProps 'CustomCurrentSheetRevisionBy))
(setq dwgrev00RN (vlax-get-Property dProps 'Custom00SheetRevisionNumber))
(setq dwgrev00RD (vlax-get-Property dProps 'Custom00SheetRevisionDate))
(setq dwgrev00IP (vlax-get-Property dProps 'Custom00SheetIssuePurpose))
(setq dwgrev00BY (vlax-get-Property dProps 'Custom00SheetRevisionBy))
(setq dwgrev01RN (vlax-get-Property dProps 'Custom01SheetRevisionNumber))
(setq dwgrev01RD (vlax-get-Property dProps 'Custom01SheetRevisionDate))
(setq dwgrev01IP (vlax-get-Property dProps 'Custom01SheetIssuePurpose))
(setq dwgrev01BY (vlax-get-Property dProps 'Custom01SheetRevisionBy))
(setq dwgrev02RN (vlax-get-Property dProps 'Custom02SheetRevisionNumber))
(setq dwgrev02RD (vlax-get-Property dProps 'Custom02SheetRevisionDate))
(setq dwgrev02IP (vlax-get-Property dProps 'Custom02SheetIssuePurpose))
(setq dwgrev02BY (vlax-get-Property dProps 'Custom02SheetRevisionBy))
(setq 100 REVRN)
(setq 100 REVRD)
(setq 100 REVIP)
(setq 100 REVBY)
(cond
(
(/= dwgrev00RN dwgrevRN)
(setq (vlax-get-Property dProps 'Custom00SheetRevisionNumber) dwgrevRN)
(setq 0 REVRN)
)
)
(if
(and
(/= dwgrev01RN dwgrev00RN)
(= 0 REVRN)
)
(setq (vlax-get-Property dProps 'Custom01SheetRevisionNumber) dwgrevRN)
(setq 1 REVRN)
)
(if
(and
(/= dwgrev02RN dwgrev01RN)
(= 1 REVRN)
)
(setq (vlax-get-Property dProps 'Custom02SheetRevisionNumber) dwgrevRN)
(setq 2 REVRN)
)
(princ)
)