Le portail francophone de la géomatique

Bonjour
Ça c'est faire durer le suspence

Je pense que je vais déménager en France, le weekend arrive plus vite

Daniel

Fin du suspense ??
Le principe est d'écrire, en grande partie par du copier-coller, un *.WOR muni des instructions qui vont faire le boulot automatiquement. Ce *.WOR ne pourra cependant pas être enregistré, ou alors sous un autre nom (les instructions ne seront pas reprises à l'enregistrement et seul leur résultat sera "figé" dans le WOR enregistré)
Supposition: on utilise les tables mes_sites, mes_tampons, mes_puits
On fait un premier WOR avec une carte et une mise en page, qui sert de modèle: carte centrée sur le tampon, légende tel que désirée, etc... Comme les tampons sont identiques, je suppose que le zoom de chaque carte ne change pas.
On fait ensuite, sur la base de ce premier WOR et par copier-coller, le WOR pour tous les sites.
Pour cela (NL veut dire "nouvelle ligne"):
- on met avant la première "section map" (après les "open") dim i as integer NL i=1
- juste après "Set Map" on indique Fetch Rec i From  mes_sites NL Center(centroidX(mes_sites.obj),centroidY(mes_sites.obj))
- et à la fin Set Window FrontWindow() Title "Carte "+i NL i=i+1
- on recopie N fois toute la partie entre "Map From..." et "i=i+1" (effacer le dernier "i=i+1" pas nuisible mais inutile)
- on trace un trait '__________ .... pour s'y retrouver
- et on commence la partie "layout" par dim j as integer NL dim degreX as string NL dim minuteX as string NL dim secondeX as string NL dim degreY as string NL dim minuteY as string NL dim secondeY as string NL dim nombrepuits as integer NL j=1
- avant les "create" du Layout on écrit Fetch Rec j From mes_sites NL degreX = Int(centroidX(mes_sites.obj)) NL minuteX = Int((centroidX(mes_sites.obj)-Int(centroidX(mes_sites.obj)))*60) NL secondeX = ... je te laisse trouver
On écrit aussi les mêmes lignes pour obtenir degreY, minuteY et secondeY
- reste à touver le nombre de puits dans le tampon concerné: encore quelques lignes Select Count(*) from mes_puits where obj Within any (select obj from  mes_tampons where rowid=j) into toto NL Fetch Rec 1 From toto NL nombrepuits = toto.COL1
- on insère aux "bons endroits" ces valeurs obtenues dans les "bons" Create Text
- on indique dans le Create Frame de la carte Title "Page "+j
- on finit par j=j+1 et on fait la série de copier-coller habituelle
- à la fin on fait une ligne de Undim par variable déclarée par un Dim et une ligne pour Close table toto
- une dernière ligne Run Menu Command 304 pour tour désélectionner et on a un beau WOR prêt à l'emploi
...et si ça coince, on me fait passer le WOR pour correction