Le portail francophone de la géomatique

Bonjour,
J'ai fait un un petit utilitaire pour sortir le scan25  sur un département en A3 en fonction d'un maillage.
Les paramètres sont à modifier dans le script, si vous avez mapbasic, je peut vous le passer.
Cordialement
Jean-Michel

Bonjour,

Jean Michel, vous pouvez aussi le poster sur le forum si vous le désirez

Robin.

Bonjour les MapInforumeurs.

Une mise en page réalisée avec MapBasic m'intéresse.
Est-ce que cet utilitaire a été posté ? Si oui, où ça ? Car je ne le trouve pas...
(besoin de lunettes peut-être... )

Petite précision : c'est parce que je voudrais afficher, de manière automatique, un cadre pour une localisation, un autre avec un graphique et deux autres pour des cartes avec analyse thématique... sur format A4 en paysage.

Ou alors cet utilitaire n'a aucun rapport avec mon attente et peut-être dois-je poser une nouvelle question dans le Forum...

Cordialement, Nicolas.

Dernière modification par Nicolas Szlapka (Mon 31 March 2008 12:21)

Bonjour à tous !
je suis novice dans le métier et là je suis en stage au sein d'une entreprise. Ma mission consiste à la constitution d'une base cartographique départementale infrastructures de télécommunication. Et j'ai un grand problème sous mapinfo10.5. Je dois réaliser plus d'une centaine de carte et je ne sais pas comment m'y prendre. Je dispose d'une couche .shp qui est la couverture du réseau wi-fi que j'ai matérialisé sur ma carte. J'ai fait un géocodage pour pouvoir afficher mes points (micro stations) et je l'ai aussi matérialisé sur la carte départementale. Ce qui me reste à faire c'est de produire un atlas communal de couverture du réseau wi-fi. J'utilise comme fond de carte le scan 25 de l'ign. Je ne sais pas comment faire pour débuter mon atlas encore moins comment faire pour l'automatiser. Vos réponses seraient les bienvenues !!! Merci. BN

Bonjour ,
Merci Nicolas pour cette réponse rapide, j'ai bien bien consulté le lien que tu m'a envoyé et j'avoue que j'ai du mal à déchiffrer le"wor basic" de Olivier. En effet je sais pas trop pour mon cas comment débuter l'atlas. Est-ce que je dois d'abord faire une mise en page et enregistrer mon travail sous un wor. Ensuite ré ouvrir le .wor à partir du bloc note ou d'un éditeur de texte,changer dans le wor les "éléments" de ma nouvelle mise en page; aprés enregistrer ce nouveau wor sous un nouveau nom. Si j'ai bien compris, le nombre de .wor est égale au nombre de cartes à réaliser ??? Pour mon travail, je veux faire apparaître au niveau de la mise en page : la répartition de la couverture wi-fi et les micro station présents. En vous rappelant que je dois faire une carte pour chaque commune concernée par le projet environ 230 communes. Et vraiment automatiser cette tache me permettrait d'avancer sur le projet.
Grand merci encore !!!

Bonjour,
Merci Nicolas j'ai trouvé le fichier sur le publipostage mais sincèrement je sais pas comment faire. Je dispose d'un tableau mapinfo avec l'ensemble des communes à cartographier pour mon atlas.
Au fait je travaille sur un projet et je dois réaliser une centaine de cartes toujours en gardant la meme en page. J'utilise le scan 25 de l'IGN comme fond de carte; en gros voilà les couches suivantes que j'ai dans mon workspace :
- lim_com_reg(couche vecteur des limites régionales)
- site_opéra( analyse thématique de ponts permettant de représenter les micros station du réseau sur ma carte départementale),
- couv_wifi (couche shp représentant la couverture du réseau wi-fi)
- scan25_dep ( couche d'habillage utilisé comme fond de carte pour les cartes communales de mon atlas)
- log.tab( couche d'habillage représentant le logo de mon entreprise).
Je fais une selection " select table lim_com_reg where Not No_Insee="xxxxx" et là je selectionne l'ensemble des communes de ma région exceptée la commune"xxxxx", j'ajoute la requete dans le controle des couches, je régle les paramétres de translucidité pour mieus faitre apparaitre la commune "xxxxx", je fais un zoom sur la commune "xxxxx", je fais une mise en page et je l'importe sous format image JPEG dans le répertoire qui contiendra mes 150 cartes. Après j'enregistre mon travail sous .wor. Je re-ouvre celui-ci avec le bloc note, je change le code insee,le titre de la mise en page etc.
Bon ce que je voudrais c'est quand je relance le .wor que cela zoom automatiquement sur la nouvelle commune sans que je refasse une selection ni reparamettrer les options de translucidité. Du coup j'aurais juste à faire les modifications à partir du .wor, une fois que celui-ci relancé, j'importe la carte sous format image dans mon répertoire ; ainsi de suite jusqu'au total de cartes visé.
Espérant etre très clair, je voudrais que vous m'aidiez sur le "comment réaliser tout ce travail ".
Merci merci encore merci d'avance !!!

!Workspace
!Version 780
!Charset WindowsLatin1
Open Table "F:\BN\Projet Atlas de couverture wi fi par Commune\essaijob\Limites_Communes_Dept" As Limites_Communes_Dept Interactive
Open Table "F:\BN\Projet Atlas de couverture wi fi par Commune\essaijob\Noms_Communes_150" As Noms_Communes_150 Interactive
Open Table "F:\BN\Projet Atlas de couverture wi fi par Commune\essaijob\couv-is_wifi" As couv_is_wifi Interactive
Open Table "F:\BN\Projet Atlas de couverture wi fi par Commune\Donnees\géocadage_C3" As géocadage_C3 Interactive
Select *  from Limites_Communes_Dept  where not No_Insee = "xxxxx"  into Query1
Set Window Legend
  Position (10.0833,5.20833) Units "in"
  Width 2.60417 Units "in" Height 0.958333 Units "in"
Open Window Legend
Map From couv_isere,Noms_Communes_150,géocadage_C3,Query1,Limites_Communes_Dept
  Position (0.03125,0) Units "in"
  Width 8.95833 Units "in" Height 6.28125 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 (887000.3944,2035285.72)
  Zoom 10.63172995 Units "km"
  Preserve Zoom Display Zoom
  Distance Units "km" Area Units "sq km" XY Units "m"
shade 3 with Site_carto ignore "" values apply color
  "Collecte" Line (1,2,16711680) ,
  "Desserte / Transport" Line (1,2,0) Symbol (35,0,24)
  default Line (1,2,0)   # color 1 #
Set Map
  Layer 1
    Display Global
    Global Pen (1,1,0)  Brush (2,65280,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 Layer
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    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 Arrow Position Right Font ("Arial",0,9,0) Pen (1,2,0)
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Value
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (34,0,12)  Line (1,2,0)  Font ("Arial",0,9,0)
    Selectable Off
  Layer 4
    Display Global
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (34,0,12)  Line (1,2,0)  Font ("Arial",0,9,0)
    Label Line Arrow Position Right Font ("Arial",0,9,0) Pen (1,2,0)
      With insee
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 5
    Display Global
    Global Pen (1,2,0)  Brush (2,16776960,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 No_Insee
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 6
    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 No_Insee
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
set legend
  layer 3
    display on
    shades on
    symbols off
    lines off
    count on
    title "micro station" Font ("Arial",0,9,0)
    subtitle auto Font ("Arial",0,8,0)
    ascending on
    ranges Font ("Arial",0,8,0)
      auto display off ,
      auto display on ,
      auto display on 
Set Window FrontWindow() Printer
Name "MapInfo PDF Printer Version 11.0" Orientation Portrait Copies 1
Papersize 9
Create Cartographic Legend
  Position (10.875,0.260417) Units "in"
  Width 2.92708 Units "in" Height 5 Units "in"
  Window Title "Légende de couv_isere,...,Limites_Communes_Dept Carte"
  Portrait
  Style Size Large
  Frame From Layer 3
    Border Pen (0,1,0)
Set Window FrontWindow() Printer
Name "MapInfo PDF Printer Version 11.0" Orientation Portrait Copies 1
Papersize 9
Browse * From Limites_Communes_Dept
  Position (0.3125,0.364583) Units "in"
  Width 7.03125 Units "in" Height 3.15625 Units "in"
Set Window FrontWindow() Printer
Name "MapInfo PDF Printer Version 11.0" Orientation Portrait Copies 1
Papersize 9
Browse * From Query1
  Position (0.572917,0.677083) Units "in"
  Width 7.03125 Units "in" Height 3.15625 Units "in"
Set Window FrontWindow() Printer
Name "MapInfo PDF Printer Version 11.0" Orientation Portrait Copies 1
Papersize 9
Layout
  Position (-0.0833333,-0.3125) Units "in"
  Width 0 Units "in" Height 0 Units "in"
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (0.275,0.2313) (8.0306,11.4792)
    Pen (1,2,0)
    Brush (2,16777215,16777215)
    Title "couv_isere,...,Limites_Communes_Dept Carte"
    FillFrame On
  Create Frame (10.875,0.5) (13.6354,5.3333)
    Pen (1,2,0)
    Brush (2,16777215,16777215)
    Title "Légende de couv_is_wifi,...,Limites_Communes_Dept Carte"
    FillFrame Off
  Create Text
    "WI-FI"
    (2.4931,0.6181) (4.9382,1.7681)
    Font ("Arial",1,72,0)

  Create Point (6.4868,2.2187)
    Symbol (42,0,72,"MapInfo Arrows",0,0)
  Create Frame (5.2333,9.2028) (7.6639,10.0903)
    Pen (1,2,0)
    Brush (2,16777215,16777215)
    Title "Légende de couv_isere,...,Limites_Communes_Dept Carte"
    FillFrame Off
  Set Layout Ruler On Pagebreaks On Frame Contents Active
  Zoom 53.9914 Center (-0.400564,-0.36657) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Printer
Name "MapInfo PDF Printer Version 11.0" Orientation Portrait Copies 1
Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow

Dernière modification par bnsig (Sat 28 January 2012 21:51)