Any thoughts on why this is not committing to the db I get the above error ob the db.
Code:Public Function SetCustomProperty(ByVal sPath As String, ByVal Name As String, ByVal Value As String) As Boolean Dim Builder As DatabaseSummaryInfoBuilder Using db As Database = New Database() db.ReadDwgFile(sPath, FileShare.ReadWrite, True, "") Builder = New DatabaseSummaryInfoBuilder(db.SummaryInfo) Using tr As Transaction = db.TransactionManager.StartTransaction() Try If Builder.CustomPropertyTable(Name) Then Builder.CustomPropertyTable.Item(Name) = Value Else Builder.CustomPropertyTable.Add(Name, Value) End If db.SummaryInfo = Builder.ToDatabaseSummaryInfo Catch Return False End Try tr.Commit() End Using End Using Return True End Function


Reply With Quote