!Workspace
!Version  700
!Charset WindowsCyrillic
Open Table "D:\Проект Инжиниринг\48-08\48-08 MapInfo\bordermo.TAB" As borderstia Interactive
Open Table "D:\Проект Инжиниринг\ГИП Тимур Хайбуллин\Стр-во и рек-ия тр-дов Восточно-Савиноборского нм (3 оч.)\borderstia.TAB" As borderstia_2 Interactive
Map From borderstia
  Position (0.0520833,0.0520833) Units "in"
  Width 7.03125 Units "in" Height 2.95833 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (6454.973584,-6297.140646)
  Zoom 4667.5 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  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)
    Selectable Off
    Zoom (25, 10000) Units "ft" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency off 
  color 0 
    grayscale off 
Set Window FrontWindow() Printer
 Name "Adobe PDF" Orientation Portrait Copies 1
 Papersize 9
Map From borderstia
  Position (0.3125,0.375) Units "in"
  Width 7.03125 Units "in" Height 2.95833 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (6360.510935,-4496.924278)
  Zoom 6538.2 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  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)
    Selectable Off
    Zoom (25, 10000) Units "ft" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency off 
  color 0 
    grayscale off 
Set Window FrontWindow() Printer
 Name "Adobe PDF" Orientation Portrait Copies 1
 Papersize 9
Map From borderstia_2
  Position (0.0520833,0.0520833) Units "in"
  Width 7.03125 Units "in" Height 2.95833 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (3163.633933,-11090.40242)
  Zoom 3218.12 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  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)
    Selectable Off
    Zoom (25, 10000) Units "ft" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency on 
  color 0 
    grayscale off 
Set Window FrontWindow() Printer
 Name "Adobe PDF" Orientation Portrait Copies 1
 Papersize 9
Map From borderstia_2
  Position (0.572917,0.697917) Units "in"
  Width 7.03125 Units "in" Height 2.95833 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (5118.5,-5905)
  Zoom 5601 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  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)
    Selectable Off
    Zoom (25, 10000) Units "ft" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency on 
  color 0 
    grayscale off 
Set Window FrontWindow() Printer
 Name "Adobe PDF" Orientation Portrait Copies 1
 Papersize 9
Layout
  Position (0.3125,0.375) Units "in"
  Width 7.03125 Units "in" Height 2.95833 Units "in" 
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (0.5431,0.9847) (7.8917,9.425)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "borderstia_2 Карта:2"
    FillFrame On
  Create Pline 2
(7.2326,4.925)
(7.2951,4.9139)
    Pen (7,2,16711680) 
  Create Frame (0.4125,8.4299) (7.7771,11.2528)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "borderstia_2 Карта:1"
    FillFrame On
  Create Pline 5
(8.0375,0.1403)
(0.3771,0.1403)
(0.3771,11.4722)
(8.0375,11.4722)
(8.0375,0.1403)
    Pen (1,2,0) 
  Create Text
    "3.2	 Схема использования территории в период подготовки проекта планировки территории\n""Строительство и реконструкция трубопроводов Восточно-Савиноборского нефтяного месторождения (3-я очередь)""\nМасштаб 1:25 000"
    (0.516,0.2076) (6.5938,0.5903)
    Font ("GOST 2.304 type A",0,8,0,16777215)

  Create Text
    "Формат А4"
    (7.4375,11.5104) (7.9326,11.6229)
    Font ("GOST 2.304 type A",0,7,0)

  Create Text
    "Условные обозначения:"
    (0.5792,8.1333) (2.2743,8.3278)
    Font ("Times New Roman CYR",0,12,0)

  Create Rect (0.5583,10.9354) (0.9646,11.1438)
    Pen (3,2,16711680) 
    Brush (2,16777215,16777215)
  Create Text
    "- границы зон планируемого размещения \nлинейных объектов"
    (0.9958,10.8833) (3.2306,11.1764)
    Font ("Times New Roman CYR",0,9,0)

  Create Rect (5.7028,9.9444) (5.8854,10.0382)
    Pen (1,2,0) 
    Brush (2,14745520,16777215)
  Create Text
    "Земли лесного фонда"
    (5.9319,9.9556) (6.641,10.0347)
    Font ("Arial Cyr",0,5,0)

  Set Layout Ruler On Pagebreaks On Frame Contents On
  Zoom 100 Center (3.29401,7.33307) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Printer
 Name "Adobe PDF" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow
