!Workspace
!Version  700
!Charset WindowsCyrillic
Open Table "Административно-территориальное деление\Границы_НП_пр" As Границы_НП_пр Interactive
Open Table "Административно-территориальное деление\Границы_НП_сущ" As Границы_НП_сущ Interactive
Open Table "Современное состояние территории\Территории_жилые_сущ" As Территории_жилые_сущ Interactive
Open Table "Современное состояние территории\Территории_обществ_сущ" As Территории_обществ_сущ Interactive
Open Table "Современное состояние территории\Территории_пром_сущ" As Территории_пром_сущ Interactive
Open Table "Современное состояние территории\Водные_объекты_сущ" As Водные_объекты_сущ Interactive
Open Table "Комплексная оценка\ОЗ_сущ" As ОЗ_сущ Interactive
Open Table "Топография\Ортофотоплан\Крупской.TAB" As Крупской Interactive
Open Table "Исходная информация\МСК_НСО\KK_CS276" As KK_CS276 Interactive
Open Table "Исходная информация\МСК_НСО\LAND01_CS276" As LAND01_CS276 Interactive
Open Table "Исходная информация\МСК_НСО\LAND05_CS276" As LAND05_CS276 Interactive
Open Table "Исходная информация\МСК_НСО\LAND06_CS276" As LAND06_CS276 Interactive
Map From ОЗ_сущ,Водные_объекты_сущ,Территории_пром_сущ,Территории_обществ_сущ,Территории_жилые_сущ,
  Границы_НП_сущ,Границы_НП_пр,LAND06_CS276,LAND05_CS276,LAND01_CS276,KK_CS276,Крупской 
  Position (0.364583,0.03125) Units "in"
  Width 4.20833 Units "in" Height 4.19792 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "m"
  Center (4186109.044,465691.613)
  Zoom 2800 Units "m"
  Preserve Zoom Display Zoom
  Distance Units "m" Area Units "sq m" XY Units "m"
  Distance Type Cartesian
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 CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With TYPE_SECURITY_ZONE
      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 CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With TYPE_WATER_SURFACE
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With TYPE_TERR
      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 CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With TYPE_TERR
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 5
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With TYPE_TERR
      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 CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With POPULATION
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 7
    Display Graphic
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line Arrow Position Right Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With POPULATION
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 8
    Display Global
    Global Pen (1,2,0)  Brush (1,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line None Position Center Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With CAD_NUM
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 9
    Display Global
    Global Pen (1,2,0)  Brush (1,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line None Position Center Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With CAD_NUM
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 10
    Display Global
    Global Pen (1,2,0)  Brush (1,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line None Position Center Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With CAD_NUM
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 11
    Display Global
    Global Pen (1,2,0)  Brush (1,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Label Line None Position Center Font ("Arial CYR",0,9,0) Pen (1,2,0) 
      With CAD_NUM
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 12
    Display Off
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial CYR",0,9,0)
    Selectable Off
    Zoom (4.3, 1700) Units "m" Off 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency off 
  color 0 
    grayscale off 
Set Map Layer 7 Editable
Set Window FrontWindow() Printer
 Name "MapInfo PDF Printer Version 10.0" Orientation Portrait Copies 1
 Papersize 9
Layout
  Position (0.8125,0.583333) Units "in"
  Width 6.58333 Units "in" Height 4.70833 Units "in" 
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (12.4639,1.5639) (67.5819,61.0653)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "ОЗ_сущ,...,Крупской Карта"
    FillFrame On
  Set Layout Ruler On Pagebreaks On Frame Contents On
  Zoom 12.6292 Center (35.2528,17.0529) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Printer
 Name "MapInfo PDF Printer Version 10.0" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow
