Programando ArcObjects

Para todos aquellos que deseen ver un poco más allá en la Geomática...

un presente...la página oficial de recursos online para desarrolladores...ejemplos, scripts, funciones geodésicas y mucho más.

Ejemplo:

' This section retrieves the spheroid parameters from the geographic
' coordinate system.
Dim pDatum As IDatum
Dim pSpheroid As ISpheroid
Set pDatum = pGCS.Datum
Set pSpheroid = pDatum.Spheroid
a = pSpheroid.SemiMajorAxis
f = pSpheroid.Flattening
e2 = f * (2# - f)