ジオメトリの座標値を空間参照の精度に合わせる

'ジオメトリ オブジェクトにはdouble型の座標値がそのまま入力できるがフィーチャにコミットすると空間参照の精度に丸められる
'IGeometry::SnapToSpatialReferenceメソッドを実行すると空間参照の精度に座標がシフトする
 
Dim pPoint As IPoint
Set pPoint = New Point
'Set pPoint.SpatialReference = pGeoDataset.SpatialReference '投影座標系
 
pPoint.x = -38057.8029000001
pPoint.y = -16190.5250000001
 
 
Debug.Print pPoint.x, pPoint.y
 
pPoint.SnapToSpatialReference
 
Debug.Print pPoint.x, pPoint.y