删除某图层下的Selected要素

 'On Error GoTo HandleError
Dim pMxDoc As IMxDocument
Dim DeletedFeatureCount As Integer
Dim pDeleteSet As ISet
Dim pFeatureEdit As IFeatureEdit
Dim pFeatureCursor As IFeatureCursor
Dim pInvalidArea As IInvalidArea
Dim pFeatureLayer As IFeatureLayer
Dim pSelectionSet As ISelectionSet
Dim pFeatureSelection As IFeatureSelection
Dim pMap As IMap
Dim pLayer As ILayer
    Set pMxDoc = ThisDocument
    'Set pMap = pMxDoc.FocusMap
    Set pLayer = pMxDoc.SelectedLayer
    Set pFeatureLayer = pLayer
    Set pFeatureSelection = pFeatureLayer
    Set pSelectionSet = pFeatureSelection.SelectionSet

Dim pFeature As IFeature
If Not pSelectionSet.Count = 0 Then
          Set pDeleteSet = New esriSystem.Set
          Set pInvalidArea = New InvalidArea
          pSelectionSet.Search Nothing, False, pFeatureCursor
          Set pFeature = pFeatureCursor.NextFeature
          Do While Not pFeature Is Nothing
            pInvalidArea.Add pFeature
            pDeleteSet.Add pFeature
            DeletedFeatureCount = DeletedFeatureCount + 1
            Set pFeature = pFeatureCursor.NextFeature
          Loop
          pDeleteSet.Reset
          Set pFeatureEdit = pDeleteSet.Next
          Do While Not pFeatureEdit Is Nothing
            pFeatureEdit.DeleteSet pDeleteSet
            Set pFeatureEdit = pDeleteSet.Next
          Loop

      End If
    MsgBox "ok"
Exit Sub
'HandleError:
    'MsgBox "请在图层列表中选择要修改的图层！"