ディスプレイ座標をマップ座標に変換

 2016/9/1 (木)    

'MxApplicationの取得
Dim pMxApplication As IMxApplication
Set pMxApplication = Application
 
'Displayの取得
Dim pDisplay As IDisplay
Set pDisplay = pMxApplication.Display
 
'DisplayTransformationの取得
Dim pDisplayTransformation As IDisplayTransformation
Set pDisplayTransformation = pDisplay.DisplayTransformation
 
'Map座標値をPointとして取得
Dim pPoint As IPoint
Set pPoint = pDisplayTransformation.ToMapPoint(x, y)

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved Powered by AFFINGER5.