添加块属性程序

Public Sub AddAttribute(ByVal attTag As String, ByVal attText As String)
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim attRef As AttributeReference
        Dim blkTr As BlockTableRecord
        Using docLock As DocumentLock = doc.LockDocument
            Using trs As Transaction = doc.Database.TransactionManager.StartTransaction()
                bkRef = trs.GetObject(MyClass.BlockId, OpenMode.ForRead)
                If bkRef.IsDynamicBlock Then
                    _blkTbRecId = bkRef.DynamicBlockTableRecord
                Else
                    _blkTbRecId = bkRef.BlockTableRecord
                End If
                blkTr = TryCast(trs.GetObject(_blkTbRecId, OpenMode.ForWrite), BlockTableRecord)
                Dim attDef As AttributeDefinition = New AttributeDefinition(blkTr.Origin, attText, attTag, "", doc.Database.Textstyle)
                blkTr.AppendEntity(attDef)
                trs.AddNewlyCreatedDBObject(attDef, True)
                trs.Commit()
            End Using
        End Using
    End Sub