座標系の精度・許容値

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

Dim pSpatialReferenceResolution As ISpatialReferenceResolution
Dim pSpatialreferenceTolerance As ISpatialReferenceTolerance
Dim pControlPrecision  As IControlPrecision2
Set pSpatialReferenceResolution = pNodeLayer.FeatureClass.GetFeature(1).Shape.SplReference
Set pSpatialreferenceTolerance = pSpatialReferenceResolution
Set pControlPrecision = pSpatialReferenceResolution
 
Debug.Print "IsHigh", pControlPrecision.IsHighPrecision
Debug.Print "UseHigh", pControlPrecision.UsePrecision
Debug.Print "XYResolution", pSpatialReferenceResolution.XYResolution(True)
Debug.Print "XYTolerance", pSpatialreferenceTolerance.XYTolerance

関連記事

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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.