座標系の精度・許容値

 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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.