!Workspace
!Version  700
!Charset WindowsCyrillic
Open Table "D:\1\ПроектИнжинирингНефть\48-08 Высокон-й водовод на скважину №140 Западно-Тэбукского\Утв ПД_водовод на скв 140 Зап-Тэбукского нм_1,4402 га_Страница_5.TAB" As Утв_ПД_водовод_на_скв_140_Зап_ Interactive
Open Table "D:\Проект Инжиниринг\ГИП Тимур Хайбуллин\Стр-во и рек-ия тр-дов Восточно-Савиноборского нм (3 оч.)\1_Стр и рек труб В-Савинобор (3 очередь)\Схема расп Сосногорск.TAB" As Схема_расп_Сосногорск Interactive
Open Table "D:\Проект Инжиниринг\ГИП Тимур Хайбуллин\Стр-во и рек-ия тр-дов Восточно-Савиноборского нм (3 оч.)\14-02 ППиМТ кор\замечания\Схема границ лесничеств, лесопарков.TAB" As Схема_границ_лесничеств__лесоп Interactive
Map From Схема_границ_лесничеств__лесоп
  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 (793.5,-560.5)
  Zoom 1563.1 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" 
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.4979,0.6618) (11.1062,7.7569)
    Pen (1,2,0) 
    Brush (2,16777215,16777215)
    Title "Схема_границ_лесничеств__лесоп Карта"
    FillFrame On
  Create Rect (6.0632,6.1701) (11.0847,7.7431)
    Pen (1,2,16777215) 
    Brush (2,16777215,16777215)
  Create Rect (9.4701,6.0347) (10.241,6.4618)
    Pen (1,2,16777215) 
    Brush (2,16777215,16777215)
  Create Text
    "7.6   	Границы лесничеств, лесопарков, участковых лесничеств, лесных кварталов, лесотаксационных выделов или частей лесотаксационных\n""Строительство и реконструкция трубопроводов Восточно-Савиноборского нефтяного месторождения (3-я очередь)"""
    (0.4083,0.1701) (8.6785,0.4583)
    Font ("Arial CYR",0,9,0,16777215)

  Create Text
    "Лист 1 из 1\nФормат А4"
    (10.6417,7.85) (11.1444,8.075)
    Font ("GOST 2.304 type A",0,7,0)

  Create Pline 5
(11.3604,0.1403)
(0.3771,0.1403)
(0.3771,7.9542)
(11.3604,7.9542)
(11.3604,0.1403)
    Pen (1,2,0) 
  Create Text
    " строительство, реконструкция, эксплуатация линейных объектов"
    (2.0639,1.341) (5.0569,1.4535)
    Font ("Arial Cyr",0,7,0,16777215)

  Create Rect (5.0583,1.3458) (6.9854,1.45)
    Pen (1,2,16777215) 
    Brush (2,16777215,16777215)
  Set Layout Ruler On Pagebreaks On Frame Contents On
  Zoom 100 Center (3.29271,3.61042) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Printer
 Name "Adobe PDF" Orientation Landscape Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow
