I have captured the "before save" event and created a routine to increment a version property in the document properties.
It appears to work, but the ToDatabaseSummaryInfo does not update the current summary info (I assume that is what the method does)
Am I grossly mislead?
Public Sub IncrementVersionCounter(ByVal o As Object, ByVal e As Autodesk.AutoCAD.DatabaseServices.DatabaseIOEventArgs)
Dim intVersion As Integer
Dim strVersion As String
Dim oOldAcadSummaryInfo As DatabaseSummaryInfo
Dim oNewAcadSummaryInfo As DatabaseSummaryInfo
Dim oAcadDB As Database = Application.DocumentManager.MdiActiveDocument.Database
oOldAcadSummaryInfo = oAcadDB.SummaryInfo
strVersion = oOldAcadSummaryInfo.RevisionNumber
Try
If strVersion = "" Then strVersion = "0"
intVersion = CInt(strVersion)
Catch ex As Exception
intVersion = 0
Finally
Try
intVersion = intVersion + 1
strVersion = CStr(intVersion)
Dim oAcadSumBuilder As New Autodesk.AutoCAD.DatabaseServices.DatabaseSummaryInfoBuilder
oAcadSumBuilder.Author = oOldAcadSummaryInfo.Author
oAcadSumBuilder.Comments = oOldAcadSummaryInfo.Comments
oAcadSumBuilder.HyperlinkBase = oOldAcadSummaryInfo.HyperlinkBase
oAcadSumBuilder.LastSavedBy = oOldAcadSummaryInfo.LastSavedBy
oAcadSumBuilder.Keywords = oOldAcadSummaryInfo.Author
oAcadSumBuilder.Subject = oOldAcadSummaryInfo.Subject
oAcadSumBuilder.Title = oOldAcadSummaryInfo.Title
oAcadSumBuilder.RevisionNumber = strVersion
oNewAcadSummaryInfo = oAcadSumBuilder.ToDatabaseSummaryInfo()
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(vbNewLine + "Version Property Incremented to : " & strVersion + vbNewLine)
Catch
End Try
oOldAcadSummaryInfo = Nothing
oNewAcadSummaryInfo = Nothing
oAcadDB = Nothing
intVersion = Nothing
strVersion = Nothing
End Try
End Sub