To clarify, the lines of code in my last post only transferred the items in “CopyObjects” (presumably blocks WD_M and WD_PNLM) from objContainFile to the original documents Block collection.
The part that is a bit odd is that the transfer required access to the collection through Modelspace – the blocks have not been inserted into Modelspace. At this stage the blocks are ready for insertion i.e., are visible only as options from the INSERT command.
To actually insert them via code would require:
Code:
Dim entRef As AcadBlockReference
Dim dblInsPt(0 to 2) as Double
. . . .
Set entRef = ThisDrawing.ModelSpace.InsertBlock(dblInsPt, " WD_M", 1#, 1#, 1#, 0#)