[编程交流] VB。net/edit插入动态

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
End Sub