Le portail francophone de la géomatique

Bonjour,

Je suis à la recherche d'une méthode (d'un outil !) pour créer automatiquement des images centrées sur des plages de numéros d'objets défini par un numéro de départ et de fin.
Ces images en jpg nommées à partir du nom de la table et de son numéro (sur 4 chiffres pour un classement automatique)  auraient  étés préalablement définies  par leur taille, échelle et  leur définition.

(Je sais,  je sais,  je suis terriblement exigeant  pour une personne qui n’est pas capable d’aligner deux lignes de commande sans se tromper mais bon c 'est comme ça qu'on essaie de progresser… ).

Une recherche sur ce forum (que je sollicite beaucoup pour ce type de travail) m’a permis de trouver des premières pistes de réponses (cf « réaliser plus de 600 cartes automatique ») avec  notamment la méthode de Olivier T qui utilise des fichiers Wor en cascade. Mais je suis encore très loin du résultat escompté :

Les trois fichiers Wor
##########################INITIALISATION.wor#########################################
!Workspace
!Version 750
!Charset WindowsLatin1

dim Num_depart as integer 'déclaration de variable
dim chemin as string ' chemin d'acces

chemin="c:\"

Open Table "c:\noeud.tab" Interactive
Map From noeud
Run Application chemin & "Num_depart.wor"

end mapinfo

############################################Num_Depart.WOR######################


!Workspace
!Version 750
!Charset WindowsLatin1

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

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

‘…… les 2 dernières lignes, autant de fois que je veux de cartes en théorie en pratique bloque à 12 cartes

############################Mise_en_page.wor###############################
!Workspace
!Version 750
!Charset WindowsLatin1


Select * from noeud where IDU=num_depart into numero_choisi
set map redraw off
Add Map Layer numero_choisi


Set Map  Scale 1 Units "cm" For 500 Units "cm" 'echelle
Set Map Layer 1 Label Position Above Right Font ("Arial",257,8,16711680,16777215) With IDU Auto On 'etiquette de numero'
Set map zoom entire layer numero_choisi 'centre la fentre'
 
set map redraw on

save window frontwindow() as chemin & "Loc_noeud_" & num_depart & ".jpg" type "JPEG" resolution 200
###############################################################################


MONSIEUR Maurice avait donné également quelques bons conseils ( comme à son habitude).
Mais là je cale au message  d'erreur "aucun objet trouvé" trois fois de suite puis arrêt et malgré cela 12 images crées alors que 30 été demandées ...

En vous remerciant par avance de vos réponses.