更新自定义特性值
我找了很多，但都没有找到。我正在尝试使用更新图形中预先存在的自定义特性的值。网我可以轻松获得当前值，但更新它变得很困难。有什么帮助吗？ 没关系，我想出来了
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
页:
[1]