startup.wor

VB+mapinfo开发的最短路径

!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "知识库\T007经纬网" As T007经纬网 Interactive
Open Table "知识库\中国主干公路节点" As 中国主干公路节点 Interactive
Open Table "知识库\中国主干公路线" As 中国主干公路线 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 (12.5901973,1796.372708)
  Zoom 7858.12923 Units "km"
  Preserve Zoom Display Position
  Distance Units "km" Area Units "sq km" XY Units "degree"
Set Map
  Layer 1
    Display Graphic
    Selectable Off
    Label Line Arrow Position Above Font ("Arial",0,12,0) Pen (1,2,0) 
      With 起始节点
      Parallel On Auto Off Overlap Off Duplicates Off Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Selectable Off
    Label Line Arrow Position Center Font ("Arial",0,12,16711680) Pen (1,2,0) 
      With 标注
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    Display Graphic
    Selectable Off
    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 57  Position Left Text "40" 
   Object 61  Position Left Text "45" 
   Object 65  Position Left Text "35" 
   Object 59  Position Left Text "25" 
   Object 63  Position Left Text "30" 
   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 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 52  Position Above Text "80" 
   Object 54  Position Above Text "65" 
   Object 58  Position Right Text "40" 
   Object 60  Position Right Text "25" 
   Object 64  Position Right Text "30" 
   Object 66  Position Right Text "35" 
   Object 68  Position Right Text "15" 
   Object 55  Position Left Text "20" 
   Object 56  Position Right Text "20" 
   Object 62  Position Right Text "45" 
   Object 67  Position Left Text "15" 
   Object 27  Position Above Text "140" 
   Object 39  Position Above Text "145" 
   Object 50  Position Above Text "130" 
   Object 53  Position Above Text "135" 
   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 Window FrontWindow() Printer
 Name "Symantec Fax Starter Edition" Orientation Portrait Copies 1
 Papersize 9