Le portail francophone de la géomatique

!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