MultiptFSVB - sindizzy/DSW GitHub Wiki

Sample code that demonstrates how to create a new Multi Point Feature Set

Imports DotSpatial.Data
Imports DotSpatial.Geometries

Private Sub button1_Click(sender As Object, e As EventArgs)
	Dim c As Coordinate() = New Coordinate(49) {}
	Dim rnd As New Random()
	Dim f As New Feature()
	Dim fs As New FeatureSet(f.FeatureType)
	For i As Integer = 0 To 49
		c(i) = New Coordinate((rnd.[Next](Next)(0, 50) + 360) - 90, (rnd.NextDouble() * 360) - 180)
		fs.Features.Add(c(i))
	Next
	fs.SaveAs("C:\Temp\test.shp", True)
End Sub