jueves, junio 14, 2007

 

Definiendo un Esferoide...

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

# entrada de Geografía Cuántica @ jueves, junio 14, 2007
Comentarios: Publicar un comentario en la entrada

Suscribirse a Enviar comentarios [Atom]



Enlaces a esta entrada:

Crear un enlace



<< Página principal

This page is powered by Blogger. Isn't yours?

Suscribirse a Entradas [Atom]