1 2 3 4 5 6 7 8 9 10 11 12 13
| Public Function GetRoutes(ByVal points() As GeoPoint, ByVal pauseAtWayPoints As Integer, ByVal optimizeWayPointsOrder As Boolean) As Routes
Dim wayPoints As Locations = m_objChrono.CreateLocations()
wayPoints.Clear()
For Each p As Novasys.Common.BusinessObjects.GeoPoint In points
wayPoints.Add(p.Longitude, p.Latitude, False, "")
Next
Dim routes As ChronoMapDeveloperKit.Routes = m_objChrono.Router.GetRoutes(wayPoints, pauseAtWayPoints, optimizeWayPointsOrder)
Return routes
End Function |
Partager