Le portail francophone de la géomatique

Frago · Tue 16 April 2013 22:56

Bonsoir,

Je souhaitais savoir s'il était possible d'utiliser la fonction "imprimer la fenêtre" sur les mises en page via la fenêtre MapBasic.
Ceci dans le but d'obtenir des images JPEG rapidement de toutes les mises en page déjà crées dans mon .WOR

Par ailleurs et pour aller plus loin, je possède :
- un fond de plan (plusieurs vecteurs surfaciques) qui se doit d'être fixe (l'emprise est la même pour toutes les cartes)
- une table de points avec en attribut un "CODE". Cet identifiant est à l'origine de la mise en page (exemple : tous les points like "A1" --> carte_a1.jpg)

Dans quelle mesure serait-il possible de générer les mises en page, avec une emprise fixe (fond), en fonction des valeurs de l'attribut "CODE" (points) et de les imprimer de façon automatique ?

Merci,

Spacejo · Wed 17 April 2013 09:45

Salut,

Est ce que ceci t'aide:
http://www.forumsig.org/showthread.p...light=worbasic
http://www.forumsig.org/showthread.p...nerateur+carte
http://www.forumsig.org/showthread.p...duction+cartes
A+
Joël

Frago · Wed 17 April 2013 12:37

Bonjour,

Pourrais-tu stp rééditer les liens. Ils ne passent pas avec les " ... ".

Spacejo · Wed 17 April 2013 13:00

Re,

-->
http://www.forumsig.org/showthread.php/ … t=worbasic
http://www.forumsig.org/showthread.php/ … ur%20carte
http://www.forumsig.org/showthread.php/ … n%20cartes
A+
Joël

nicoboud · Wed 17 April 2013 15:03

Bonjour,

Il y a aussi des ressources chez nous :

http://georezo.net/forum/viewtopic.php? … 34#p195634
http://georezo.net/forum/viewtopic.php?id=49934
http://georezo.net/forum/viewtopic.php?id=78873

Nicolas.

Frago · Wed 24 April 2013 09:08

Bonjour,

Merci pour ces liens...
Je commence par retenir le code d'Olivier T (http://georezo.net/forum/viewtopic.php?pid=79769#p79769) qui me parait le plus simple...

Je suis parvenu à faire tourner les 3 .wor sur un exemple similaire et pense pouvoir l'adapter à mes besoins.
Cependant, je ne parviens pas à effectuer une sélection à partir d'un champ caractère.

Si je reprend l'exemple d'Olivier T, sur les numéros de département :
initialisation.wor

Code:

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

--> Ici on commence par le département 8 et on incrémente +1 à chaque fois. Mais si on souhaite effectuer une sélection sur le nom du département comment cela fonctionne ?
J'ai essayé departement like "Ain"... sans résultat

departement.wor

Code:

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

Puis ici, je reprend mon champ caractère avec un like sur la variable département : NOM_DEPART like "departement"

mep.wor

Code:

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

Merci,

Damien BEAUSEIGNEUR · Fri 26 April 2013 11:55

Bon il est toujours possible du texte la variable departement doit être définie comme un string

Code:

[b]dim departement as string[/b]
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

Code:

[b]departement="AIN"[/b]
Run Application "c:\mise en page.wor"

[b]departement="ARDECHE"[/b]
Run Application "c:\mise en page.wor"

[b]departement="ISERE"[/b]
Run Application "c:\mise en page.wor

et pour finir

Code:

Select * from F_dept where ucase$(nom_DEPART) like 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

Voilà en gros l'idée.

Dernière modification par Damien BEAUSEIGNEUR (Fri 26 April 2013 14:28)

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

#1 Tue 16 April 2013 22:56

Imprimer depuis la FMB

#2 Wed 17 April 2013 09:45

Re: Imprimer depuis la FMB

#3 Wed 17 April 2013 12:37

Re: Imprimer depuis la FMB

#4 Wed 17 April 2013 13:00

Re: Imprimer depuis la FMB

#5 Wed 17 April 2013 15:03

Re: Imprimer depuis la FMB

#6 Wed 24 April 2013 09:08

Re: Imprimer depuis la FMB

Code:

Code:

Code:

#7 Fri 26 April 2013 11:55

Re: Imprimer depuis la FMB

Code:

Code:

Code:

Pied de page des forums