#1 Mon 26 April 2010 16:16
- mlking31
- Participant occasionnel
- Date d'inscription: 17 Dec 2008
- Messages: 36
Création de cartes à la chaine
Bonjour à toutes et à tous,
Je voudrais exporter en lot des cartes au jormat jpeg mais j’aimerais qu’elles soient centrées sur une commune différentes à chaque exportation.
J’ai fait mon .wor que je souhaite
Code:
!Workspace !Version 700 !Charset WindowsLatin1 Open Table "C\...\communes dep13" As communes_dep13 Interactive Set Window Info Position (9.48958,5.30208) Units "in" Width 2.60417 Units "in" Height 4.69792 Units "in" Font ("Arial",0,8,0) Open Window Info Map From communes_dep13 Position (0.0520833,0.0520833) Units "in" Width 6.66667 Units "in" Height 4.47917 Units "in" Set Window FrontWindow() ScrollBars Off Autoscroll On Set Map CoordSys Earth Projection 3, 1002, "m", 0, 46.8, 45.898918964419, 47.696014502038, 600000, 2200000 Center (851298.3575,1816638.506) Zoom 37.51688603 Units "km" Preserve Zoom Display Zoom Distance Units "km" Area Units "sq km" XY Units "m" Set Map Layer 1 Display Graphic Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0) Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0) With COMMUNE Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Set Window FrontWindow() Printer Name "PDFCreator09" Orientation Portrait Copies 1 Papersize 9 Layout Position (1.86458,1.80208) Units "in" Width 6.625 Units "in" Height 4.47917 Units "in" Dim uniqueStringName As String uniqueStringName = "Set " + SessionInfo(1) Set CoordSys Layout Units "in" Create Frame (0.1965,0.1965) (8.0708,11.4958) Pen (1,2,0) Brush (2,16777215,16777215) Title "communes_dep13 Carte" FillFrame On Set Layout Ruler On Pagebreaks On Frame Contents Active Zoom 76.247 Center (4.06329,2.6777) Extents To Fit Set Window FrontWindow() Autoscroll On Run Command uniqueStringName Undim uniqueStringName Set Window FrontWindow() Printer Name "PDFCreator09" Orientation Portrait Copies 1 Papersize 9 Dim WorkspaceMaximizedWindow As Integer WorkspaceMaximizedWindow = Frontwindow() Set Window WorkspaceMaximizedWindow Max Undim WorkspaceMaximizedWindow save window Frontwindow() as "C:\...\aix.jpg" type "JPEG" resolution 150 Close All Interactive
cependant je ne sais pas trop comment jouer avec le zoom ni la position de la carte
J'ai trouver une étude qui correspond parfaitement a ce que je veux faire
http://www.ppige-npdc.fr/article.php3?id_article=105
(lien direct vers le pdf qui explique --> http://www.ppige-npdc.fr/documentation/ … pinfo.zip)
Voila merci.
Hors ligne
#2 Mon 26 April 2010 17:21
- Spacejo
- Membre
- Lieu: Nancy
- Date d'inscription: 17 Aug 2008
- Messages: 2511
Re: Création de cartes à la chaine
Salut,
Ce travail peut être fait en batch avec la FMB couplée avec un générateur de script.
A voir:
Il te suffit d'ajouter le zoom et le centre de la fenêtre dans:
http://www.forumsig.org/showthread.php? … hlight=pdf
A+
Joël
Dernière modification par Spacejo (Mon 26 April 2010 17:39)
Hors ligne
#3 Mon 26 April 2010 19:02
- Maurice
- Membre
- Lieu: Montpellier
- Date d'inscription: 5 Sep 2005
- Messages: 5331
Re: Création de cartes à la chaine
Bonjour
Voir - entre autres - ce sujet...
Hors ligne
#4 Mon 10 May 2010 11:24
- mlking31
- Participant occasionnel
- Date d'inscription: 17 Dec 2008
- Messages: 36
Re: Création de cartes à la chaine
désolé j'ai oublier de vous remercier pour les liens,
Merci bien
Hors ligne