startup.wor

VB+mapinfo开发的最短路径

!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "T007经纬网" As T007经纬网 Interactive
Map From T007经纬网 
  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 (18.83544013,1796.372708)
  Zoom 7858.128995 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,10,0) Pen (1,2,0) 
      With 经纬度刻度
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
   Object 68  Position Right Text "15" 
   Object 55  Position Left Text "20" 
   Object 56  Position Right Text "20" 
   Object 57  Position Left Text "40" 
   Object 58  Position Right Text "40" 
   Object 59  Position Left Text "25" 
   Object 60  Position Right Text "25" 
   Object 61  Position Left Text "45" 
   Object 62  Position Right Text "45" 
   Object 63  Position Left Text "30" 
   Object 64  Position Right Text "30" 
   Object 65  Position Left Text "35" 
   Object 66  Position Right Text "35" 
   Object 67  Position Left Text "15" 
   Object 27  Position Above Text "140" 
   Object 29  Position Above Text "120" 
   Object 31  Position Above Text "90" 
   Object 33  Position Above Text "100" 
   Object 35  Position Above Text "105" 
   Object 37  Position Above Text "110" 
   Object 38  Position Above Text "70" 
   Object 39  Position Above Text "145" 
   Object 41  Position Above Text "115" 
   Object 43  Position Above Text "95" 
   Object 44  Position Above Text "75" 
   Object 46  Position Above Text "125" 
   Object 48  Position Above Text "85" 
   Object 50  Position Above Text "130" 
   Object 52  Position Above Text "80" 
   Object 53  Position Above Text "135" 
   Object 54  Position Above Text "65" 
   Object 28  Position Below Text "120" 
   Object 30  Position Below Text "90" 
   Object 32  Position Below Text "100" 
   Object 34  Position Below Text "105" 
   Object 36  Position Below Text "110" 
   Object 40  Position Below Text "115" 
   Object 42  Position Below Text "95" 
   Object 45  Position Below Text "125" 
   Object 47  Position Below Text "85" 
   Object 49  Position Below Text "130" 
   Object 51  Position Below Text "80" 
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