startup.wor

采用三角化的方法基于mapinfo的等值线算法例子。

!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "知识库\T001中国经纬网" As T001中国经纬网 Interactive
Open Table "知识库\T001Mesh_点位图" As T001Mesh_点位图 Interactive
Map From T001Mesh_点位图,T001中国经纬网 
  Position (-0.0333333,-0.241667) Units "in"
  Width 8.5 Units "in" Height 5.24167 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys Earth Projection 9, 104, "mi", 105, 10, 25, 47, 0, 0
  Center (-76.28185072,1955.797812)
  Zoom 6379.947317 Units "km"
  Preserve Zoom Display Position
  Distance Units "km" Area Units "sq km" XY Units "degree"
Set Map
  Layer 1
    Display Graphic
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With 观测物理量
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Label Line Arrow Position Right Font ("Arial",0,10,0) Pen (1,2,0) 
      With 经纬度刻度
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
   Object 53  Position Right Text "40" 
   Object 20  Position Below Text "110" 
   Object 21  Position Above Text "110" 
   Object 22  Position Below Text "115" 
   Object 23  Position Above Text "115" 
   Object 24  Position Below Text "105" 
   Object 25  Position Above Text "105" 
   Object 26  Position Above Text "130" 
   Object 27  Position Above Text "75" 
   Object 28  Position Below Text "90" 
   Object 29  Position Above Text "90" 
   Object 30  Position Below Text "100" 
   Object 31  Position Above Text "100" 
   Object 32  Position Above Text "135" 
   Object 33  Position Below Text "120" 
   Object 34  Position Above Text "120" 
   Object 35  Position Below Text "95" 
   Object 36  Position Above Text "95" 
   Object 37  Position Above Text "80" 
   Object 38  Position Below Text "125" 
   Object 39  Position Above Text "125" 
   Object 40  Position Below Text "85" 
   Object 41  Position Above Text "85" 
   Object 42  Position Left Text "30" 
   Object 43  Position Right Text "30" 
   Object 44  Position Left Text "50" 
   Object 45  Position Right Text "50" 
   Object 46  Position Left Text "35" 
   Object 47  Position Right Text "35" 
   Object 48  Position Left Text "25" 
   Object 49  Position Right Text "25" 
   Object 50  Position Left Text "45" 
   Object 51  Position Right Text "45" 
   Object 52  Position Left Text "40" 
Set Map Layer 0 Editable
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