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

投稿日:2016/9/1 (木) 更新日:

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

関連記事

-プログラミング, ArcGIS
-, ,

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.