QuickPoints
Gets all of the points in the specified shape in the shapefile.
Note: Use this method to get all of the specified points from a
shape in the shapefile when speed is essential.
VB.NET Usage
Function QuickPoints(ShapeIndex As Integer, ByRef numPoints As
Integer) As Double
Parameters
ShapeIndex |
The index of the shape for which all points are required. |
numPoints | Reference parameter. The number of points in the shape will be returned through this parameter. |
ReturnValue | An array of all the points in the specified shape will be returned. The points are ordered as follows: (x1, y1, x2, y2, ... , xn-1, yn-1, xn, yn) n = numPoints. |
Sample Code
Private Sub QuickPoints() Dim sf As New MapWinGIS.Shapefile() Dim point As New MapWinGIS.Point() Dim x() As Double, y() As Double, points() As Double Dim i As Integer, numpoints As Integer 'Get the x and y coordinates of all points in shape 0 using the fastest method available points = sf.QuickPoints(0, numpoints) 'Get the x and y coordinates of all points in shape 0 using the slowest method available For i = 1 To sf.Shape(0).numPoints 'Get the current point in shape 0 point = sf.Shape(0).Point(i) 'Get the x and y coordinates of the current point x(i) = point.x y(i) = point.y Next End Sub
VB 6 Usage
Function QuickPoints(ShapeIndex As Long, ByRef
numPoints As Long) As Double
Parameters
ShapeIndex |
The index of the shape for which all points are required. |
numPoints | Reference parameter. The number of points in the shape will be returned through this parameter. |
ReturnValue | An array of all the points in the specified shape will be returned. The points are ordered as follows: (x1, y1, x2, y2, ... , xn-1, yn-1, xn, yn) n = numPoints. |
Sample Code
Private Sub QuickPoints() Dim sf As New MapWinGIS.Shapefile Dim point As New MapWinGIS.point Dim x() As Double, y() As Double, points() As Double Dim i As Long, numpoints As Long 'Get the x and y coordinates of all points in shape 0 using the fastest method available points = sf.QuickPoints(0, numpoints) 'Get the x and y coordinates of all points in shape 0 using the slowest method available For i = 1 To sf.shape(0).numpoints 'Get the current point in shape 0 Set point = sf.shape(0).point(i) 'Get the x and y coordinates of the current point x(i) = point.x y(i) = point.y Next End Sub