[编程交流] 用vb查找块。网

                   Using tr
                       Dim bt As BlockTable = DirectCast(tr.GetObject(DB.BlockTableId, OpenMode.ForRead), BlockTable)
                       For Each btrid As ObjectId In bt
                           Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrid, OpenMode.ForRead), BlockTableRecord)
                           If Not btr.IsAnonymous And Not btr.IsLayout Then