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

'ジオメトリ オブジェクトには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