Geo Redes

El siguiente código muestra como crear y definir un Esferoide (Elipsoide de Revolución), en AvenueScript (ArcView 3.2)

' Crea al Sistema Coordenado...
SystemmyCoordSys = CoordSys.Make
myCoordSys.SetName("My Custom Projections")
thePrjs = myCoordSys.GetProjections

' Crea la Proyección...
myPrj = TrnMerc.Make(Rect.MakeXY(-180,-90,180,90))
myPrj.SetDescription("Trinidad")
myPrj.SetCentralMeridian(-63)
myPrj.SetReferenceLatitude(0)
myPrj.SetScale(0.99960)
myPrj.SetFalseEasting(500000)
myPrj.SetFalseNorthing(0)
myPrj.SetSpheroid(#SPHEROID_CLARKE1866)

' Obtiene la proyección del esferoide y lo modifica
mySphere = myPrj.GetSpheroid
mySphere.SetName("Clarke 1858")
mySphere.SetMajorAndMinorAxes(6378294,6356621)
mySphere.SetUnits(#UNITS_LINEAR_METERS)

' Agrega la proyección al sistema de proyecciones
thePrjs.Add(myPrj)

' Crea un archivo de proyeccion por defecto y lo agrega al Sistema de Proyecciones
defprj = ODB.Make("$HOME/default.prj".AsFilename)
defprj.Add(myCoordSys)
defprj.Commit

Georedes, tiene el agrado de comunicar a sus clientes, que se ha tomado la decisión de formar una alianza estratégica con un "nuevo" socio. Esta sociedad permitirá, en el futuro, crecer y poder prestar un mejor servicio a nuestros clientes. Para conocer al nuevo socio haga click aquí