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

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"
'拠点、拠点立ち寄り状況、訪問先