china.wor

来自「利用MapX开发应用型GIS源代码 VC++」· WOR 代码 · 共 62 行

!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "D:\MIPRO6~1\Data\China\China" As China Interactive
Open Table "D:\MIPRO6~1\Data\China\Chinahwy" As Highways Interactive
Open Table "D:\MIPRO6~1\Data\China\Chincaps" As Capitals Interactive
Open Table "D:\MIPRO6~1\Data\China\Chcty_2k" As Major_Cities Interactive
Open Table "D:\MIPRO6~1\Data\China\Chcty_5k" As Cities Interactive
Map From Capitals,Cities,Major_Cities,Highways,China 
  Position (0,0.0520833) Units "in"
  Width 5.44792 Units "in" Height 3.22917 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 9, 62, "mi", 110, 10, 25, 40, 0, 0
  Center (-286.6448987,1667.164798)
  Zoom 4500 Units "mi"
  Preserve Zoom Display Zoom
  Distance Units "mi" Area Units "sq mi" XY Units "degree"
Set Map
  Layer 1
    Display Graphic
    Zoom (750, 4500) Units "mi" 
    Label Line Arrow Position Right Font ("Arial",5,8,0) Pen (1,2,0) 
      With Place_Name
      Parallel On Auto On Overlap Off Duplicates On Offset 5
      Visibility On
  Layer 2
    Display Graphic
    Zoom (0, 300) Units "mi" 
    Label Line Arrow Position Right Font ("Arial",0,8,0) Pen (1,2,0) 
      With Place_Name
      Parallel On Auto On Overlap Off Duplicates On Offset 5
      Visibility On
  Layer 3
    Display Graphic
    Zoom (300, 750) Units "mi" 
    Label Line Arrow Position Right Font ("Arial",0,9,0) Pen (1,2,0) 
      With Place_Name
      Parallel On Auto On Overlap Off Duplicates On Offset 5
      Visibility On
  Layer 4
    Display Graphic
    Zoom (0, 4500) Units "mi" 
    Label Line Arrow Position Above Font ("Arial",0,9,0) Pen (1,2,0) 
      With Highway
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 5
    Display Graphic
    Label Line None Position Center Font ("Arial",1,8,8388608) Pen (1,2,0) 
      With Chinese_Char_Name
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility Zoom (751, 5500) Units "mi"
Set Window FrontWindow() Title "China"
Set Window FrontWindow() Printer
 Name "\\APOLLO\HP4_ADMIN" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow