NetworkAnalystExtension オブジェクトの取得

 2016/9/1 (木)    

Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument
 
Dim pUID As New UID
Set pUID.Value = "esriNetworkAnalystUI.NetworkAnalystExtension"
 
Dim pNetworkAnalystExtension As INetworkAnalystExtension
Set pNetworkAnalystExtension = Application.FindExtensionByCLSID(pUID)
'FindExtensionByNameだと正常に取得できない

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.