Create a Random MultiLineString

A MultiLineString is a kind of ogc feature that represents a continuous set of points connected by linear segments, but can have several, discontinuous parts associated with a single entity. They are usually used to represent roads, railroads or rivers. Creating a new Shapefile that contains some randomly created MultiLineStrings is shown below. Features represent a coupling of geometric shapes with non-geometric attributes. In this case the elevation value corresponds to an attribute of the integer data type. Each feature has exactly one measured elevation value, regardless of the number of coordinates in the geometric shape.


Imports MapWindow.Data
Imports MapWindow.Geometries
Imports MapWindow.Projections
Private Sub BuildMultiLineString()
    ' Setup a new "shapefile" by using the featureset object
    Dim fs As New FeatureSet(FeatureTypes.Line)
    ' You can control things like the projection with this object
    fs.Projection = KnownCoordinateSystems.Projected.UtmNad1983.NAD1983UTMZone11N
    ' The DataTable is a standard .Net DataTable, so you can add columns the normal way and use with DataGrid controls
    fs.DataTable.Columns.Add("Elevation", GetType(Integer))
    ' Set up the specs for creating random points.  If you already know the point values from a file this is not necessary.
    Dim rnd As New Random(DateTime.Now.Millisecond)
    Const  YMIN As Integer = 0
    Const  YSPAN As Integer = 1000
    Const  XMIN As Integer = 0
    Const  XSPAN As Integer = 1000
    Dim strings As LineString() = New LineString(9) {}
    ' In a loop we are creating 100 different points using the box established above.
    For i As Integer = 0 To 9
        ' An array of coordinates that defines a single, continuous line
        Dim coords As Coordinate() = New Coordinate(9) {}
        For j As Integer = 0 To 9
            ' A coordinate is the simple X and Y location
            coords(j) = New Coordinate(XMIN + rnd.NextDouble() * XSPAN, YMIN + rnd.NextDouble() * YSPAN)
        Dim c As New Coordinate(XMIN + rnd.NextDouble() * XSPAN, YMIN + rnd.NextDouble() * YSPAN)
        ' A point has geoemtry capabilities like testing intersection with polygons etc.
        Dim ls As New LineString(coords)
        ' collect all the LineStrings we create in a single array.
        strings(i) = ls
    Dim mls As New MultiLineString(strings)
    ' A feature also has attributes related to the featureset
    Dim currentFeature As IFeature = fs.AddFeature(mls)
    ' Working with the current feature allows you to control attribute content as well as the feature content.
    currentFeature.DataRow("Elevation") = rnd.[Next](0, 100)
    fs.SaveAs("C:\test.shp", True)
End Sub

Last edited Feb 26, 2010 at 11:48 PM by Shade1974, version 4


No comments yet.