Block Attribute Problem

[Anonymous]

I have a small sub that inserts an exesting block. The inserted block has a single attribute, but the AttributeCollection is always empty. If I explode the inserted block, the attribute appears, but I cant get a reference to it in code.

[chiefbraincloud]

you need to add the attribute references to the block reference 'manually' when the block is inserted. If you have done other forms of autocad programming (COM, VBA, LSP) this is counterintuitive because you never had to do it before. This snip should go into your code immediately after you add the BlockReference to the Transaction.

If btr.HasAttributeDefinitions Then

Dim AtDef As AttributeDefinition, AttRef As AttributeReference

For Each SubEntId As ObjectId In btr

If SubEntId.ObjectClass.Name = "AcDbAttributeDefinition" Then

AtDef = TM.GetObject(SubEntId, OpenMode.ForRead, False, True)

AttRef = New AttributeReference

AttRef.SetAttributeFromBlock(AtDef, br.BlockTransform)

br.AttributeCollection.AppendAttribute(AttRef)

T.AddNewlyCreatedDBObject(AttRef, True)

AtDef.Dispose()

AttRef.Dispose()

End If

Next

End If

[Anonymous]

Thanks for the help. I am updating some of my code to get away from using the COM.