Union Intersecting Shapes in a FeatureSet

This example shows how to use a newly added extension method that allows for intersecting shapes in the same Shapefile to be Unioned, but leaving shapes that don't overlap unchanged.

UnionIntersecting.png

Public Sub UnionShapes()
	Dim fs As New FeatureSet()
	fs.Open()
	Dim result As IFeatureSet = fs.UnionShapes(ShapeRelateType.Intersecting)
	Dim sfd As New SaveFileDialog()
	sfd.Filter = "*Shapefiles (*.shp)|*.shp"
	If sfd.ShowDialog() <> DialogResult.OK Then
		Return
	End If
	result.SaveAs(sfd.FileName, True)
End Sub

Last edited Sep 5, 2010 at 6:35 PM by Shade1974, version 2