[编程交流] Can#039；t移除#039；用户i

Private Sub ListAttributes()
           Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
           Dim db As Database = HostApplicationServices.WorkingDatabase
           Dim tr As Transaction = db.TransactionManager.StartTransaction()
           Try
               Dim filList As TypedValue() = New TypedValue(0) {New TypedValue(CInt(DxfCode.Start), "INSERT")}
               Dim filter As New SelectionFilter(filList)
               Dim opts As New PromptSelectionOptions()
               opts.MessageForAdding = "Select block references: "
               Dim res As PromptSelectionResult = ed.GetSelection(opts, filter)
               If res.Status <> PromptStatus.OK Then
                   Return
               End If
               Dim selSet As SelectionSet = res.Value
               Dim idArray As ObjectId() = selSet.GetObjectIds()
               For Each blkId As ObjectId In idArray
                   Dim blkRef As BlockReference = DirectCast(tr.GetObject(blkId, OpenMode.ForRead), BlockReference)
                   Dim btr As BlockTableRecord = DirectCast(tr.GetObject(blkRef.BlockTableRecord, OpenMode.ForRead), BlockTableRecord)
                   ed.WriteMessage(vbLf & "Block: " + btr.Name)
                   btr.Dispose()
                   Dim attCol As AttributeCollection = blkRef.AttributeCollection
                   For Each attId As ObjectId In attCol
                       Dim attRef As AttributeReference = DirectCast(tr.GetObject(attId, OpenMode.ForRead), AttributeReference)
                       Dim str As String = (vbLf & attRef.Tag + "    " & attRef.TextString)
                       ed.WriteMessage(str)
                   Next
               Next
               tr.Commit()
           Catch ex As Autodesk.AutoCAD.Runtime.Exception
               ed.WriteMessage(("Exception: " + ex.Message))
           Finally
               tr.Dispose()
           End Try
       End Sub

Private Function ListAttributes (blockName As String) As Boolean