Le portail francophone de la géomatique

!Workspace
!Version 700
!Charset WindowsLatin1
Open Table "C:\Documents and Settings\stagiaire.sca\Bureau\centrer_carte\communes dep13" As communes_dep13 Interactive
Open Table "C:\Documents and Settings\stagiaire.sca\Bureau\pgm map basic\tache_desagregee" As tache_desagregee Interactive
Open Table "C:\Documents and Settings\stagiaire.sca\Bureau\pgm map basic\mittage" As mittage Interactive
Select *  from communes_dep13  where ID = 1  into resultat_select noselect  
Set Window MapBasic
  Position (0.572917,7.11458) Units "in"
  Width 11.5521 Units "in" Height 1.63542 Units "in" 
Open Window MapBasic
Browse * From resultat_select
  Position (0.927083,1.30208) Units "in"
  Width 6.625 Units "in" Height 4.47917 Units "in" 
Set Window FrontWindow() Printer
 Name "PDFCreator09" Orientation Portrait Copies 1
 Papersize 9
Map From resultat_select,mittage,tache_desagregee,communes_dep13 
  Position (0.0520833,0.0520833) Units "in"
  Width 11.3854 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 (847035.4456,1841760.967)
  Zoom 28.85358177 Units "km"
  Preserve Zoom Display Zoom
  Distance Units "km" Area Units "sq km" XY Units "m"
Set Map
  Layer 1
    Display Global
    Global Pen (2,2,16711680)  Brush (1,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
  Layer 2
    Display Global
    Global Pen (1,2,0)  Brush (2,16750640,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 Hauteur
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Global
    Global Pen (1,2,0)  Brush (2,12632256,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 Hauteur
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 4
    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 (0.708333,0.989583) 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.1722,0.1396) (11.5597,8.1444)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "resultat_select,...,communes_dep13 Carte"
    FillFrame On
  Create Rect (9.6806,6.5181) (11.6944,8.2632)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
  Create Region  1
  18
(10.6208,7.6132)
(10.6208,7.6132)
(10.6208,7.6132)
(10.6208,7.6306)
(10.6583,7.6306)
(10.6583,7.5653)
(10.7063,7.6306)
(10.7215,7.6306)
(10.7215,7.4007)
(10.7396,7.4007)
(10.7063,7.3681)
(10.6722,7.4007)
(10.6882,7.4007)
(10.6882,7.5326)
(10.6389,7.4833)
(10.6208,7.4833)
(10.6208,7.6132)
(10.6208,7.6132)
    Pen (1,2,0) 
    Brush (2,8421504,16777215)
    Center (10.6208,7.6132)
  Create Text
    "0"
    (9.8722,7.6951) (9.9424,7.8569)
    Font ("Times New Roman",1,10,0)

  Create Region  1
  5
(9.9049,7.8924)
(10.6944,7.8924)
(10.6944,7.9313)
(9.9049,7.9313)
(9.9049,7.8924)
    Pen (1,2,0) 
    Brush (2,0,0)
    Center (10.2993,7.9118)
  Create Region  1
  5
(9.9049,7.9313)
(10.6944,7.9313)
(10.6944,7.9708)
(9.9049,7.9708)
(9.9049,7.9313)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Center (10.2993,7.9507)
  Create Text
    "2"
    (10.6549,7.6951) (10.725,7.8569)
    Font ("Times New Roman",1,10,0)

  Create Region  1
  5
(10.6944,7.8924)
(11.484,7.8924)
(11.484,7.9313)
(10.6944,7.9313)
(10.6944,7.8924)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Center (11.0889,7.9118)
  Create Region  1
  5
(10.6944,7.9313)
(11.484,7.9313)
(11.484,7.9708)
(10.6944,7.9708)
(10.6944,7.9313)
    Pen (1,2,0) 
    Brush (2,0,0)
    Center (11.0889,7.9507)
  Create Text
    "4"
    (11.4444,7.6951) (11.5146,7.8569)
    Font ("Times New Roman",1,10,0)

  Create Text
    "Kilomètres"
    (10.4132,8.0056) (11.0646,8.1674)
    Font ("Times New Roman",1,10,0)

  Create Rect (9.8896,6.6972) (10.3812,6.9278)
    Pen (1,2,0) 
    Brush (2,12632256,16777215)
  Create Rect (9.8819,7.0701) (10.3736,7.3007)
    Pen (1,2,0) 
    Brush (2,16750640,16777215)
  Create Text
    "Tache urbaine"
    (10.4632,6.7271) (11.4431,6.9035)
    Font ("Arial",0,11,0)

  Create Text
    "Mittage"
    (10.4632,7.0924) (10.9646,7.2688)
    Font ("Arial",0,11,0)

  Create Text
    "Tache urbaine et mittage dans la commune d'Aix en Provence"
    (1.3701,0.1819) (10.5451,0.5653)
    Font ("Arial",0,24,0,16777215)

  Set Layout Ruler On Pagebreaks On Frame Contents Active
  Zoom 69.8338 Center (4.42271,2.92313) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Printer
 Name "PDFCreator09" Orientation Landscape Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow