MapWinGIS:Utils RemoveColinearPoints
From MapWindow GIS
RemoveColinearPoints
Removes colinear points from a shapefile. Note: A shapefile containing colinear points leads to the shapefile taking up unecessary space since some points in the shapefile add detail to the display of the shapes.
VB.NET Usage
Function RemoveColinearPoints(Shapes As MapWinGIS.Shapefile, LinearTolerance As Double, Optional cBack As MapWinGIS.ICallback) As Boolean
Parameters
|
Shapes | The shapefile to remove colinear points from. |
| LinearTolerance | Points will be considered colinear if the distance in between them is with in this tolerance. This distance is measured in projected map coordinates. |
| cBack | Optional. The ICallback object which will receive progress and error messages while colinear points are being removed. |
| ReturnValue | A boolean value representing the success or failure of removing colinear points from the shapefile. |
Sample Code
Private Sub RemoveColinearPoints()
Dim utils As New MapWinGIS.Utils()
Dim sf As New MapWinGIS.Shapefile()
Dim tolerance As Double
Dim success As Boolean
'Set the tolerance which will be used to determine the maximum distance between points considered colinear
tolerance = 5
'Remove all colinear points from the shapefile
success = utils.RemoveColinearPoints(sf, tolerance, Me)
End Sub
VB 6 Usage
Function RemoveColinearPoints(Shapes As Shapefile, LinearTolerance As Double, Optional cBack As ICallback) As Boolean
Parameters
|
Shapes | The shapefile to remove colinear points from. |
| LinearTolerance | Points will be considered colinear if the distance between them is with in this tolerance. This distance is measured in projected map coordinates. |
| cBack | Optional. The ICallback object which will receive progress and error messages while colinear points are being removed. |
| ReturnValue | A boolean value representing the success or failure of removing colinear points from the shapefile. |
Sample Code
Private Sub RemoveColinearPoints()
Dim utils As New MapWinGIS.utils
Dim sf As New MapWinGIS.Shapefile
Dim tolerance As Double
Dim success As Boolean
'Set the tolerance which will be used to determine the maximum distance between points considered colinear
tolerance = 5
'Remove all colinear points from the shapefile
success = utils.RemoveColinearPoints(sf, tolerance, Me)
End Sub
