GeocentricTranslation による地理座標系変換

'GeocentricTranslationの作成
'3 パラメータ変換（地心変換）
Public Function CreateGeoTransformationTKYJGD() As IGeoTransformation
    Dim pSpatialReferenceFactory As ISpatialReferenceFactory
    Set pSpatialReferenceFactory = New SpatialReferenceEnvironment
     
    '定数による作成
    Dim pGeocentricTranslation As IGeocentricTranslation
    Set pGeocentricTranslation = pSpatialReferenceFactory.CreateGeoTransformation(esriSRGeoTransformation3Type.esriSRGeoTransformation_Tokyo_To_JGD_2000_1)
     
'    Set pGeocentricTranslation = New GeocentricTranslation
'    pGeocentricTranslation.Name = "Tokyo_To_JGD_2000_1"
'    pGeocentricTranslation.PutParameters -146.414, 507.337, 680.507
 
    Set CreateGeoTransformationTKYJGD = pGeocentricTranslation
 
End Function