Hi
I'm transforming coordinates (lat and long) from WGS1984 (Google Maps) to ED1950, but results don't have enough accuracy, unless with this arcobjects code.
Is there something error? Or I forgot something..?
Thank you in advance.
Dim pGeometry As IGeometry
Dim pSpatialReferenceFactory As ISpatialReferenceFactory
Dim pSpatialReferencewgs84SR As ISpatialReference
Dim pGeographicCoordinateSystem As IGeographicCoordinateSystem
Dim pPoint As IPoint
Try
pSpatialReferenceFactory = New SpatialReferenceEnvironmentClass
pGeographicCoordinateSystem = pSpatialReferenceFactory.CreateGeographicCoordinateSystem(Integer.Parse(esriSRGeoCSType.esriSRGeoCS_WGS1984))
pSpatialReferencewgs84SR = pGeographicCoordinateSystem
pPoint = New ESRI.ArcGIS.Geometry.Point
pPoint.PutCoords("37.991583", "-1.1304554")
pGeometry = pPoint
pGeometry.SpatialReference = pSpatialReferencewgs84SR
pGeometry.Project(CType(CType(gSesion.pApplication.Document, IMxDocument).FocusMap.SpatialReference, ISpatialReference))
pPoint = pGeometry
Catch ex As Exception
Throw ex
End Try
