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é ?

#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

 

Pied de page des forums

Powered by FluxBB