Le portail francophone de la géomatique

Merci de votre rapidité !
Je vais opter pour les .WOR, ça va être très long mais l'autre solution, j'ai beaucoup de mal à la déchifrer ;-)

A bientôt et merci encore

C'est une excellente astuce pour un sorte de travail "en batch"
On pourrait avoir un exemple de ces 3 sortes de .wor enchainés (sur un cas simple) ??
Merci d'avance

J'ai eu 5min !!

Ci joint le principe : on va exporter N cartes de france au format jpg en la nommant en code_dept.jpg en coloriant le departement choisi

l'enchainement est le suivant:
1)on ne lance qu'initialisation.wor que initialise les variables et lance département.wor
2)departement.wor ne sert qu'a incrementer le code du département
3)mise en page.wor sert à colorier le département sélectionner et exporter la carte colorisée

... puis on incrémente de 1 département on relance mise en page . wor etc ....

INITIALISATION.WOR
!Workspace
!Version 750
!Charset WindowsLatin1

dim departement as integer
dim chemin as string

chemin="c:\"

Open Table "C:\SIG\Fonds de cartes\France et international\France\F_dept.TAB" Interactive
Map From F_dept


Run Application chemin & "departement.wor"

end mapinfo

DEPARTEMENT.WOR
!Workspace
!Version 750
!Charset WindowsLatin1


departement=8
Run Application "c:\mise en page.wor"

departement=departement+1
Run Application "c:\mise en page.wor"

departement=departement+1
Run Application "c:\mise en page.wor"

departement=departement+1
Run Application "c:\mise en page.wor"

departement=departement+1
Run Application "c:\mise en page.wor"

departement=departement+1
Run Application "c:\mise en page.wor"

MISE EN PAGE.WOR
!Workspace
!Version 750
!Charset WindowsLatin1


Select * from F_dept where CODE_DEPART=departement into departement_choisi
set map redraw off
Add Map Layer departement_choisi
Set Map Layer 1 Display Global Zoom (0, 100000) Units "km" Off Editable Off Selectable On Global Line (1,2,0)  Global Pen (1,2,0)  Global Brush (2,16719904,16777215)  Global Symbol (35,0,12)  Global Font ("Arial",0,9,0) Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0)  With NOM Parallel On Auto Off Overlap Off PartialSegments Off Duplicates On Offset 2 Max Visibility On Nodes Off Arrows Off Centroids Off
set map redraw on

save window frontwindow() as chemin & departement & ".jpg" type "JPEG" resolution 50

Après on peut corser l'affaire bien sur, définir des alias, définir différentes analyses en fonctions des alias choisis mais ne s'appuyer que sur une mise en page  ETC

Ne disposant pas de Mapbasic, je trouve cette solution pile poil:  un .wor terminé, Mapinfo passe à l'instruction suivante et si on parametre bien ses données, de simples copier coller suffisent.

Bonne journée

@ Olivier merci pour l'astuce

Dernière modification par Brindavoine (Thu 06 September 2007 10:26)

ps:  Merci Robin de te soucier de ma "phobie" du noir

Dites vous bien une chose, le temps que vous allez passer a faire en manuel ce qui pourrait etre fait en automatique c'est du temps perdu...
Même si vous mettez un peu plus de temps a apprendre comment faire fonctionner ce .WOR, une fois que c'est acquis c'est pour la vie !

Bonjour,

J'aimerais tester cette méthode.
cette méthode est elle valable avec MapInfo 7.8 et MapBasic ????

Je n'ai jamais utilisé MapBasic et ne connait pas WorBasic.
Pouvez vous détailler un petit plus la méthode.

Les .WOR sont ils crées au préalable, ensuite suffit-il d'ajouter dans WORD les compléments de vos code.

Est ce possible de m'éclairer ??

Bonjour,

Effectivement comme éditeur de texte , bannir Word !!

Pour ma part , et pour réaliser sa première boucle, je vous invite à faire l'exercice tout simple de colorier et exporter un jpg de chaque département francais

C'est très simple et assez pédagogique, il me semble..

Bonne journée , à disposition !!

Bonjour
Vous pouvez intégrer à la fin de chaque Set Map les lignes suivantes:

Dim numero as integer  ' la première fois, inutile après
fetch first from ma_table  ' la première fois, ensuite il suffira de fetch next from ma_table
numero=Comm66.rowid
  select * from ma_table where rowid=numero into __seltable
  add map layer __seltable
  set map zoom entire layer __seltable
  close table __seltable
Set Window FrontWindow() Title "Carte "+numero    '  facultatif...
' ne pas oublier Undim numero à la fin de la série de Set Map..., avant la série de Layout ...

Bonjour
Désolé mais c'est non: ni boucle ni sauts conditionnels ! Ils son réservés aux outils MapBasic (mb et mbx)

Au passage, quelqu'un connaitrait il les capacités de MI10.5 en terme d'impression en série ?
Est-ce qu'il faut toujours bricoler ou y a t il un MBX magique (ou une fonction) pouvant le faire ?

Robin, au cas où.

Bouh, je vais devoir m'y coller... snif. Merci quand même.

Au passage, j'ai quand même trouvé ça pour 5 WOR, c'est déjà mieux que rien
http://www.directionsmag.com/files/view … exe/138991

Pour suivi, je remets ici la méthodo de Joël un peu modifiée pour créer du JPG en chaîne :

1. Téléchargement et installation de Scriptgen : http://rictrem.com/Scriptgen.aspx

2. Ouverture du logiciel pour la création du fichier de script :

3. La commande de base (=le modèle) est la suivante:

Run Application "C:\...\XXXX.WOR"
save window frontwindow() as "C:\...\XXXXCarte.jpg" type "JPEG" resolution 150
Close all

4. Cocher : "Utiliser une liste". Le logiciel ouvre un nouvel onglet.

5. Cliquer sur le gros bouton "Faire une liste". On peut alors lui faire créer la liste des fichiers WOR (ou autres pour d'autres logiciels) à ouvrir, avec différents paramètres. Sélectionner le bon répertoire et les paramètres souhaités.

[img]http://nsa28.casimages.com/img/2011/07/19/110719063203710485.jpg[/img]

En principe, on doit obtenir une liste de noms de WOR.

6. Dans "valeur à remplacer" du premier onglet "Script de base" écrire ---> XXXX
Ca aura pour effet de remplacer XXXX par les valeurs de la liste. Il est possible de modifier le script de base si on a utilisé par exemple la collecte de l'arborescence entière.

Dans ce cas, le script de base sera par exemple  :

Run Application "XXXX"
save window frontwindow() as "XXXX_Carte.jpg" type "JPEG" resolution 150
Close all

7. Aller dans le menu Outils -> Options -> Décocher "utiliser des lignes de séparation"

8. Aller dans le menu Outils -> "Générer le script final". On obtient toutes les commandes dans un fichier texte.

9 .Faire une copie de tout ça puis coller dans la FMB

10. Sélectionner tout le code puis taper sur la touche Entrée.

Bilan : à priori, ça semble fonctionner.

Premier bémol : la résolution est crassouille, même en l'augmentant de 150 à 600 pour du JPG. A 600 j'ai des énormes traits c'est mochissime.
Deuxième bémol, le PDF ne marche pas, je suppose qu'il ne génère pas forcément ce format via le save window frontwindow().

A suivre,
Robin, qui creuse.

500ko maximum pour les membres, 2Mo pour les modo, il me semble

Je la mets en pièce jointe de mon message.

Dernière modification par Robin (Wed 20 July 2011 09:52)