[编程交流] 更新自定义特性值

    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