Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

Rencontres QGIS 2025

L'appel à participation est ouvert jusqu'au 19 janvier 2025!

#1 Tue 20 May 2008 12:37

paris_ladéfense
Participant occasionnel
Date d'inscription: 16 Oct 2007
Messages: 11

MapInfo v8.5 générer un atlas automatiquement

Bonjour,

Chaque mois je fait des mises à jour de cartes avec différents thèmes sur MapInfo.
Afin de me faciliter la tâche je souhaiterai automatiser cette procédure, pour qu'en ouvrant le .wor, je puisse avoir mes cartes sur tous les départements français, sans avoir à refaire le .wor à chaque fois.
Avez-vous des tuyaux à me donner à ce sujet?
Je vous remercie!

Hors ligne

 

#2 Tue 20 May 2008 13:06

Maurice
Membre
Lieu: Montpellier
Date d'inscription: 5 Sep 2005
Messages: 5331

Re: MapInfo v8.5 générer un atlas automatiquement

Bonjour
Tant que les départements ne changent pas....vous pouvez vous fabriquer un WOR "modèle" dans lequel vous glissez les instructions ad-hoc
Modèle: il ne peut être enregistré sans perdre ces instructions
Instructions: des choses genre (à titre d'exemple)

Set Map
.....
Dim numero as integer
fetch Rec 1 from Dept
numero=Dept.rowid
  select * from Dept where rowid=numero into __seltable
  add map layer __seltable
  set map zoom entire layer __seltable
  Set Map Clipping Object __seltable.obj Using Display All
  close table __seltable
Set Window FrontWindow() Title "Dept 1"

puis

Layout
...
Dim textedept as string
Select nom_dept from Dept where rowid=1 into nomdept
textedept = textedept.nom_dept
...
Create Text
    " Département :  "+textedept
...
Create Text into window frontwindow() "1 : "+Format$(Round(mapperinfo(windowid(1),1)/19.674332,100), ",#")
...
Set Window FrontWindow() Title "Carte "+textedept
UnDim textedept
Close Table nomdept

etc...

Hors ligne

 

Pied de page des forums

Powered by FluxBB