ネットワーク解析レイヤを取得する方法 2

 2016/9/1 (木)    

Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument
 
Dim pNALayer As INALayer
Set pNALayer = pMxDocument.FocusMap.Layer(0)
 
Dim pFeatureLayer As IFeatureLayer
Set pFeatureLayer = pNALayer.LayerByNAClassName("Routes")
 
'ルート
'   ストップ    :"Stops"
'   バリア      :"Barriers"
'   ルート      :"Routes"
 
'サービス エリア
'   施設        :"Facilities"
'   バリア      :"Barriers"
'   ライン      :"SALines"
 
'最寄り施設の検出
'   施設        :"Facilities"
'   インシデント:"Incidents"
'   バリア      :"Barriers"
'   ルート      :"CFRoutes"
 
'ODコスト マトリックス
'   起点        :"Origins"
'   終点        :"Destinations"
'   バリア      :"Barriers"
'   ライン      :"ODLines"
 
'配車ルート(VRP)
'               :"Orders"
'               :"Depots"
'   ルート      :"Routes"
'               :"DepotVisits"
'               :"Breaks"
'   ルート ゾーン:"RouteZones"
'   ルート シード ポイント:"RouteSeedPoints"
'               :"RouteRenewals"
'               :"Specialties"
'               :"OrderPairs"
'   バリア      :"Barriers"
'拠点,拠点立ち寄り状況,訪問先

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.