well, got it to run (and learned something ):
When you look to that object:
AutoCAD returns a BlockTableRecord, not a BlockReference!
So I tried then to get the Blockreferences for that BlockTableRecord and exploded them ... and that worked:
For Each id As ObjectId In oidc1
Dim btr2 As BlockTableRecord = TryCast(tr.GetObject(id, OpenMode.ForWrite), BlockTableRecord)
For Each id2 As ObjectId In btr2.GetBlockReferenceIds(True, False)
Dim br2 As BlockReference = TryCast(tr.GetObject(id2, OpenMode.ForWrite), BlockReference)
(no cast checking, no error handling, no disposes, just shows the workflow!)
HTH, - alfred -
glad I could help, you are welcome, - alfred -
Access a broad range of knowledge to help get the most out of your products and services.