基于AE删除选择的要素-

' //Deletes all features selected on the current layer
Public Sub DeleteAllSelectedFeatures(ByVal pFeatureCursor As IFeatureCursor, ByVal GeometryTypeStr As String)
Dim pWorkspaceEdit As IWorkspaceEdit
Dim pFeature As IFeature
' If there are no features currently selected then nothing to do
If pFeatureCursor Is Nothing Then Exit Sub
Try
Dim bResponse As DialogResult
bResponse = MsgBox("您确定删除所有" & GeometryTypeStr & "要素吗？", MessageBoxButtons.YesNo)
If bResponse = Windows.Forms.DialogResult.Yes Then
' Loop over the selected features deleting each in turn
pWorkspaceEdit = pSdeWorkspace
pWorkspaceEdit.StartEditing(True)
pWorkspaceEdit.StartEditOperation()
pFeature = pFeatureCursor.NextFeature
While Not pFeature Is Nothing
pFeature.Delete()
pFeature = pFeatureCursor.NextFeature
End While
pWorkspaceEdit.StopEditOperation()
pWorkspaceEdit.StopEditing(True)
End If
mainForm1.AxMapControl1.ActiveView.Refresh()
Exit Sub
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub