I'm having a bit of a dilemma here...I'm storing custom properties into the active drawing but they don't show when I go look at the drawing properties in AutoCAD...some times it seems to work, some times it doesn't...any ideas?
Dim oDWG As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim oDB As Database = oDWG.Database
Dim oSumBuilder As New DatabaseSummaryInfoBuilder(oDB.SummaryInfo)
Try
With oSumBuilder.CustomProperties
If Not .ContainsKey("site") Then
.Add("site", txtSiteID.Text)
Else
.Item("site") = txtSiteID.Text
End If
If Not .ContainsKey("contract") Then
.Add("contract", txtContractID.Text)
Else
.Item("contract") = txtContractID.Text
End If
End With
Dim dummy As Integer = oSumBuilder.CustomProperties.Count
oDB.SummaryInfo = oSumBuilder.ToDatabaseSummaryInfo