Dim pSpatialRefFact As ISpatialReferenceFactory
Dim pProjCoordSys As IProjectedCoordinateSystem
Dim point As WKSPoint
Set pSpatialRefFact = New SpatialReferenceEnvironment
Set pProjCoordSys = pSpatialRefFact.CreateESRISpatialReferenceFromPRJFile("Test.prj")
point.X = 627106.5
point.Y = 4484124.4
pProjCoordSys.Inverse 1, point
Debug.Print "->", point.X, point.Y
pProjCoordSys.Forward 1, point
Debug.Print "<-", point.X, point.Y
Set pProjCoordSys = Nothing
Set pSpatialRefFact = Nothing
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario