![]() |
This document is archived and information here might be outdated. Recommended version. |
Set Vehicle Routing Problem solver parameters, including settings.
/// <summary>Set Vehicle Routing Problem solver parameters, including settings.</summary>
/// <param name="naSolver">An INASolver interface.</param>
/// <param name="capacityCount"></param>
/// <param name="defaultDate"></param>
/// <param name="excessTransitTimePenaltyFactor"></param>
/// <param name="timeWindowViolationPenaltyFactor"></param>
/// <param name="distanceUnits"></param>
/// <param name="timeUnits"></param>
/// <returns>An INAVRPSolver with default parameters set.</returns>
public ESRI.ArcGIS.NetworkAnalyst.INAVRPSolver SetVehicleRoutingProblemProperties(ESRI.ArcGIS.NetworkAnalyst.INASolver naSolver, int capacityCount, System.DateTime defaultDate,
double excessTransitTimePenaltyFactor, double timeWindowViolationPenaltyFactor, ESRI.ArcGIS.Geodatabase.esriNetworkAttributeUnits distanceUnits,
ESRI.ArcGIS.Geodatabase.esriNetworkAttributeUnits timeUnits)
{
// Set Vehicle Routing Problem solver parameters, including settings for...
ESRI.ArcGIS.NetworkAnalyst.INAVRPSolver naVRPSolver=(ESRI.ArcGIS.NetworkAnalyst.INAVRPSolver)naSolver;
// Date and Time Settings
naVRPSolver.DefaultDate=defaultDate;
naVRPSolver.TimeFieldUnits=timeUnits;
naVRPSolver.TimeWindowViolationPenaltyFactor=timeWindowViolationPenaltyFactor;
naVRPSolver.ExcessTransitTimePenaltyFactor=excessTransitTimePenaltyFactor;
// Distance Units for NAClass fields
naVRPSolver.DistanceFieldUnits=distanceUnits;
// OD Matrix and Route Settings
naVRPSolver.InternalODCostMatrixType=ESRI.ArcGIS.NetworkAnalyst.esriNAODCostMatrixType.esriNAODCostMatrixFull;
naVRPSolver.ExternalODCostMatrix=null;
// Output
naVRPSolver.OutputLines=ESRI.ArcGIS.NetworkAnalyst.esriNAOutputLineType.esriNAOutputLineTrueShape;
return naVRPSolver;
}
''' <summary>Set Vehicle Routing Problem solver parameters, including settings.</summary>
''' <param name="naSolver">An INASolver interface.</param>
''' <param name="capacityCount"></param>
''' <param name="defaultDate"></param>
''' <param name="excessTransitTimePenaltyFactor"></param>
''' <param name="timeWindowViolationPenaltyFactor"></param>
''' <param name="distanceUnits"></param>
''' <param name="timeUnits"></param>
''' <returns>An INAVRPSolver with default parameters set.</returns>
''' <remarks></remarks>
Public Function SetVehicleRoutingProblemProperties(ByVal naSolver As ESRI.ArcGIS.NetworkAnalyst.INASolver, _
ByVal capacityCount As System.Int32, _
ByVal defaultDate As System.DateTime, _
ByVal excessTransitTimePenaltyFactor As System.Double, _
ByVal timeWindowViolationPenaltyFactor As System.Double, _
ByVal distanceUnits As ESRI.ArcGIS.Geodatabase.esriNetworkAttributeUnits, _
ByVal timeUnits As ESRI.ArcGIS.Geodatabase.esriNetworkAttributeUnits) _
As ESRI.ArcGIS.NetworkAnalyst.INAVRPSolver
' Set Vehicle Routing Problem solver parameters, including settings for...
Dim naVRPSolver As ESRI.ArcGIS.NetworkAnalyst.INAVRPSolver=DirectCast(naSolver, ESRI.ArcGIS.NetworkAnalyst.INAVRPSolver)
' Date and Time Settings
naVRPSolver.DefaultDate=defaultDate
naVRPSolver.TimeFieldUnits=timeUnits
naVRPSolver.TimeWindowViolationPenaltyFactor=timeWindowViolationPenaltyFactor
naVRPSolver.ExcessTransitTimePenaltyFactor=excessTransitTimePenaltyFactor
' Distance Units for NAClass fields
naVRPSolver.DistanceFieldUnits=distanceUnits
' OD Matrix and Route Settings
naVRPSolver.InternalODCostMatrixType=ESRI.ArcGIS.NetworkAnalyst.esriNAODCostMatrixType.esriNAODCostMatrixFull
naVRPSolver.ExternalODCostMatrix=Nothing
' Output
naVRPSolver.OutputLines=ESRI.ArcGIS.NetworkAnalyst.esriNAOutputLineType.esriNAOutputLineTrueShape
Return naVRPSolver
End Function