Annonce
#1 Mon 08 October 2001 00:35
- Cécile REBOUT
- Invité
creation de quadrillage metrique UTM (en vecteur)
Bonjour,
Je cherche a construire sur un fond Scan 25 ou un fond GEOFLA communes (tous deux en Lambert 2 etendu) un quadrillage vecteur correspondant au quadrillage metrique UTM (celui qui figure sur les nouvelles cartes IGN) afin d'y affecter des donnees de presence/absence d'especes animales ou vegetales.
Je dispose deja d'un script (recupere dans un precedent message passe sur cette liste et que je vous rappelle ci-dessous en fin de message) permettant de construire un quadrillage vecteur mais lorsque j'affiche le fond scan 25 ou GEOFLA Communes, les coordonnees de la zone a quadriller doivent etre exprimees en lambert.
Pouvez-vous me dire comment dois-je proceder pour generer mon quadrillage UTM ?
Merci d'avance pour votre aide,
Cordialement,
------------
Cecile REBOUT
Chargee de mission SIG
Bretagne Vivante - SEPNB
Code:
'----------------------------------------------------- 'Ben Aurich and Jonah Beram '11/13/00 - Montgomery Blair High School 'Mentor - Leslie Rogers '----------------------------------------------------- 'The script draws a grid of squares of user defined 'dimension over a user defined area of interest. This enables 'planimetric techniques to be applied to a shapefile. '----------------------------------------------------- theView = av.GetActiveDoc theThemes=theView.GetActiveThemes theExtent=AreaOfInterestDialog.Show(theView) theDisplay = theView.GetDisplay theGraphicList = theView.GetGraphics i=MsgBox.Input( How large is the increment? , Increment size , 1 ).AsNumber maxX = theExtent.ReturnSize.GetX+theExtent.ReturnOrigin.GetX maxY = theExtent.ReturnSize.GetY+theExtent.ReturnOrigin.GetY theSize = Point.Make(i, i) for each theTheme in TheThemes theOrigin = Point.Make(theExtent.ReturnOrigin.GetX, theExtent.ReturnOrigin.GetY) while(theOrigin.GetY)
