Public Sub UpdateAtt(ByVal tr As Transaction, ByVal objID As ObjectId)
Dim br As BlockReference = DirectCast(tr.GetObject(objID, OpenMode.ForWrite), BlockReference)
Dim btr As BlockTableRecord = DirectCast(tr.GetObject(br.DynamicBlockTableRecord, OpenMode.ForWrite), BlockTableRecord)
For Each attID As ObjectId In btr
Dim ent As DBObject = tr.GetObject(attID, OpenMode.ForWrite)
If TypeOf ent Is AttributeDefinition Then
Dim AttDef As AttributeDefinition = ent
If AttDef.Tag = "SH" Then AttDef.TextString = "111"
End If Next
If br is not dynamic block, br's attribute can edit by br's attribute collection, but it's not working for dynamic block, so i think this work can do by attribute definition but it's not working too, thanks for read...