删除图层过滤器

     _
    Public Sub CreateDeleteFilters()
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim acEditor As Editor = acDoc.Editor
        Try
            ' Get the existing layer filters
            ' (we will add to them and set them back)
            Dim MyLayerFilterTree As LayerFilterTree = acCurDb.LayerFilters
            Dim MyLayerFilterCollections As LayerFilterCollection = MyLayerFilterTree.Root.NestedFilters
            ' Prompt for the index of the filter to delete
            For i As Integer = 0 To MyLayerFilterCollections.Count - 1
                ' Get the selected filter
                Dim MyLayerFilter As Autodesk.AutoCAD.LayerManager.LayerFilter = _
                    MyLayerFilterCollections(i)
                ' If it's possible to delete it, do so
                Select Case MyLayerFilter.AllowDelete
                    Case False
                        acEditor.WriteMessage(vbLf & "Layer filter cannot be deleted.")
                    Case True
                        MyLayerFilterCollections.Remove(MyLayerFilter)
                        acCurDb.LayerFilters = MyLayerFilterTree
                End Select
            Next
        Catch ex As Exception
            acEditor.WriteMessage(vbLf & "Exception: {0}", ex.Message)
        End Try
    End Sub