如何实现几何要素的剪切
IFeatureEdit Example
‘Assume pSet (ISet) and pMoveVector (ILine) already exist.
Dim pUnknown As IUnknown, pFeatureEdit As IFeatureEdit
Set pUnknown = pSet.Next
Do While pUnknown Is Not Nothing
Set pFeatureEdit = pUnknown
pFeatureEdit.MoveSet pSet, pMoveVector
Set pUnknown = pSet.Next
Loop
The following code is an example of one way you could split a selected polygon features by a polyline.
Public Sub SplitFeatures(pSelectionSet As ISelectionSet, pPolyLine As IPolyline)
‘ open a feature cursor on the selected features that
‘ intersect the splitting geometry
Dim pFeatCursor As IFeatureCursor
Dim pSpatialFilter As ISpatialFilter
Set pSpatialFilter = New SpatialFilter
Set pSpatialFilter.Geometry = pPolyLine
pSelectionSet.Search pSpatialFilter, True, pFeatCursor
‘ Clean up the splitting geometry
‘ This is necessary because, for polygons, IFeatureEdit::Split
‘ relies internally on ITopologicalOperator::Cut
Dim pTopoOpo As ITopologicalOperator
Set pTopoOpo = pPolyLine
pTopoOpo.Simplify
‘ Loop through the features and split them
Dim pFeature As IFeature
Set pFeature = pFeatCursor.NextFeature
Do Until pFeature Is Nothing
Dim pFeatureEdit As IFeatureEdit
Set pFeatureEdit = pFeature
pFeatureEdit.Split pPolyLine
Set pFeature = pFeatCursor.NextFeature
Loop
End Sub