gz_map.wor

来自「基于GIS开发的关于赣州市地理信息系统 包括供水、道路等类型交通地理数据的录入」· WOR 代码 · 共 154 行

!Workspace
!Version 600
!Charset WindowsSimpChinese
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 "铁路" 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 "银行" As 银行 Interactive
Open Table "码头" As 码头 Interactive
Open Table "乡镇" As 乡镇 Interactive
Open Table "旅游景点" As 旅游景点 Interactive
Open Table "车站" As 车站 Interactive
Open Table "C:\WINDOWS\~MAP0019" As SYMBOL Interactive
Open Table "医院" As 医院 Interactive
Map From 医院,运动场,邮局,铁路,桥,转盘,
  道路,江中小岛,江、湖,村,市内区域,底图 
  Position (0.0520833,0.0520833) Units "in"
  Width 5.29167 Units "in" Height 3.15625 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (528.6824147,-636.64731)
  Zoom 1487.980409 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  Distance Type Cartesian
Set Map Layer 0 Selectable
Set Map
  Layer 1
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 4
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Above Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 5
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Above Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 6
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 7
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 8
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 9
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 10
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 11
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto On Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 12
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line None Position Center Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
Set CoordSys NonEarth Units "ft" Bounds (0, -1695) (1173, 1)
Set Map Layer 0 Editable
Create Region  1
  5
(0,-1008.64398)
(0,-1008.64398)
(0,-1017.362615)
(0,-1017.362615)
(0,-1008.64398)
    Pen (1,2,0) 
    Brush (2,16777215,0)
    Center (0,-1013.003298)
Create Region  1
  5
(0,-1008.64398)
(0,-999.9253452)
(0,-999.9253452)
(0,-1008.64398)
(0,-1008.64398)
    Pen (1,2,0) 
    Brush (2,0,16777215)
    Center (0,-1004.284662)
Set Map Layer 0 Editable Off
Set CoordSys Earth
Set Window FrontWindow() Printer
 Name "Acrobat Distiller" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow