座標系の精度・許容値

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