Frage

Wie kann man über COM eine ÖV-Kurzwegsuche durchführen?

Antwort

Dazu benötigt man ein RouteSearchPuT-Objekt, dem ein NetElements-Container mit Netzelementen übergeben wird. Ein Beispiel:

 

aNetElementContainer = Visum.CreateNetElements()
aRouteSearchPuT = Visum.Analysis.RouteSearchPuT

aZone1 = Visum.Net.Zones.ItemByKey(718)
aZone2 = Visum.Net.Zones.ItemByKey(1541)

aNetElementContainer.Add(aZone1)
aNetElementContainer.Add(aZone2)

aRouteSearchPuT.Execute(aNetElementContainer, r"PuT", r"08:00:00", "1", False, r"ADDVAL1", False)

Ein komplexeres Beispiel für VBA ist diesem Artikel angehängt.