Update Custom Property Value

[Commandobill]

I have searched quite a bit for this with no avail. I am trying to update the value of pre-existing custom properties in a drawing using .net. I can get the current value with ease, but updating it has become difficult.

 

Any help?

[Commandobill]

Never mind I figured it out

    Sub PutAcadCustomeProps(ByVal custPropName As String, ByVal custPropVal As String)

       Dim DB As Database = Application.DocumentManager.MdiActiveDocument.Database
       Dim objSumBuilder As DatabaseSummaryInfoBuilder = New DatabaseSummaryInfoBuilder(DB.SummaryInfo)
       Dim custProps As IDictionary = objSumBuilder.CustomPropertyTable



       If custProps.Contains(custPropName) Then
           objSumBuilder.CustomPropertyTable.Item(custPropName) = custPropVal
           DB.SummaryInfo = objSumBuilder.ToDatabaseSummaryInfo()
       End If




   End Sub