Update Dynamic block definition from other file's block definition

Anonymous — Tue, 20 Oct 2015 21:02:16 GMT

I use the the below to update block definitions from other drawings. It works on both regular and dynamic blocks. For some reason when the block is dynamic I get errors when auditing along with the "Program Errors were detected. Recommend that you save your work and restart the program." Everything else works as expected. Audit error example directly below. Does anyone have any insight on why I'm getting audit errors when updating dynamic block definitions?

Pass 1 200 objects auditedAcDbSortentsTable(1886)
AcDbSortEntsTable Block Id not valid fixed.

Auditing Entities Pass 2

Pass 2 100 objects auditedAcDbBlockBasepointParameter(1849)
could not be repaired. It will be Erased.
AcDbBlockLinearParameter(184A) could not be repaired. It will be Erased.
AcDbBlockLinearGrip(184B) could not be repaired. It will be Erased.
AcDbBlockGripExpr(184C) could not be repaired. It will be Erased.
AcDbBlockGripExpr(184D) could not be repaired. It will be Erased.
AcDbBlockArrayAction(184E) could not be repaired. It will be Erased.
Pass 2 200 objects audited
Auditing Blocks

3 Blocks audited

Total errors found 1 fixed 1

Erased 6 objects

Sub UpdateBlockDefinitions(myTargetDB As Database, DrawingFilePath As String, BlockName As String)
Dim myTargetDoc As Document = DocumentManager.MdiActiveDocument

Dim myObjIDColl As New ObjectIdCollection
myObjIDColl.Clear()

'Read the drawing into a side database to update block definition

Dim mySourceDB As New Database(False, True)
mySourceDB.ReadDwgFile(DrawingFilePath, FileOpenMode.OpenForReadAndAllShare, True, "")

Using mySourceTrans As Transaction = mySourceDB.TransactionManager.StartTransaction

' Open the Block table for read
Dim mySourceBT As BlockTable = CType(mySourceTrans.GetObject(mySourceDB.BlockTableId, OpenMode.ForRead), BlockTable)

For Each myID As ObjectId In mySourceBT
Dim mySourceBTR As BlockTableRecord = CType(mySourceTrans.GetObject(myID, OpenMode.ForRead), BlockTableRecord)
'Filter out modelspace and paperspaces
If Not mySourceBTR.Name.StartsWith("*") And Not mySourceBTR.Name.StartsWith("_") Then
If mySourceBTR.Name = BlockName Then
If mySourceBT.Has(mySourceBTR.Name) Then
'Add blocktablerecord to collection for cloning
myObjIDColl.Add(myID)
End If
End If
End If
Next
mySourceTrans.Commit()
End Using

If myObjIDColl.Count > 0 Then

'lock target document
Using myTargetLock As DocumentLock = myTargetDoc.LockDocument

Using myTargetTrans As Transaction = myTargetDB.TransactionManager.StartTransaction
' Open the Block table for read
Dim myTargetBT As BlockTable = CType(myTargetTrans.GetObject(myTargetDB.BlockTableId, OpenMode.ForRead), BlockTable)

' Open the Block table record Model space for read
Dim myTargetBTR As BlockTableRecord = CType(myTargetTrans.GetObject(myTargetBT(BlockTableRecord.ModelSpace), OpenMode.ForRead), BlockTableRecord)

Dim BRobjectid As List(Of ObjectId) = CType(GetBlockReference(myTargetDB, BlockName), Global.System.Collections.Generic.List(Of Global.Autodesk.AutoCAD.DatabaseServices.ObjectId))

Dim myMap As New IdMapping

'Clone the collection from the tempDB blocktable to the current drawing's blocktable
mySourceDB.WblockCloneObjects(myObjIDColl, myTargetDB.CurrentSpaceId, myMap, DuplicateRecordCloning.Replace, False)

'Update the anonymous blocks (dynamic blocks)
Dim targetBlockDef As BlockTableRecord = CType(myTargetBT(BlockName).GetObject(OpenMode.ForRead), BlockTableRecord)
targetBlockDef.UpdateAnonymousBlocks()

myTargetTrans.Commit()
End Using

End Using
mySourceDB.Dispose()

End If

Re: Update Dynamic block definition from other file's block definition

Anonymous — Tue, 20 Oct 2015 21:03:31 GMT

Autocad 2012 64 bit by the way

Re: Update Dynamic block definition from other file's block definition

Paulio — Tue, 15 Dec 2015 13:50:57 GMT

Hi trcorp.

Did you ever solve this? I'm getting the same problem (although AutoCAD 2015 64 bit).

Your post helped me to solve a problem I had with the graphics not updating when re-defining the dynamic block (it was the call to UpdateAnonymousBlocks that I was missing so thanks for that).

I'm getting a handful of:

Incorrect object node id
changed to zero

errors after the redefine.

If you haven't resolved it then hopefully this reply will bump this post back to the top and someone will see it and help us both!

topic Update Dynamic block definition from other file's block definition in .NET Forum

Update Dynamic block definition from other file's block definition

Re: Update Dynamic block definition from other file's block definition

Re: Update Dynamic block definition from other file's block definition