  <CommandMethod("TagCorrect")> _
    Public Sub TagRemoveOverrides()
        Dim ed As Editor = DocumentManager.MdiActiveDocument.Editor
        Dim db As Database = HostApplicationServices.WorkingDatabase
        Dim tm As AcadDb.TransactionManager = db.TransactionManager

        Dim tr As Transaction = tm.StartTransaction()

        Try
            Dim id As ObjectId
            Dim bt As BlockTable = tm.GetObject(db.BlockTableId, OpenMode.ForWrite, False)
            Dim btr As BlockTableRecord = tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)

            For Each id In btr 'For Each id In drawing
                Dim obj As Autodesk.AutoCAD.DatabaseServices.DBObject = tr.GetObject(id, OpenMode.ForWrite)

                If obj IsNot Nothing Then
                    If obj.[GetType]().Name = "MultiViewBlockReference" Then
                        Dim mvb As Autodesk.Aec.DatabaseServices.MultiViewBlockReference = TryCast(obj, Autodesk.Aec.DatabaseServices.MultiViewBlockReference) 'attempt to convert object  
                        mvb.Overrides.Clear()

                    End If
                End If
            Next id
            tr.Commit()
        Catch ex As System.Exception
            'MsgBox("Error in TagRemoveOverrides " & ex.Message)
            'e error was frequently reported so this is repressed
        Finally
            tr.Dispose()
        End Try
        
    End Sub