startup.wor

求最短路径的vb程序,可以根据需要社顶路径的名称来实现最短路径的求借

!Workspace
!Version 600
!Charset WindowsSimpChinese
Open Table "知识库\东亚莫霍面_经纬网" As 东亚莫霍面_经纬网 Interactive
Open Table "知识库\东亚莫霍面_首都" As 东亚莫霍面_首都 Interactive
Open Table "知识库\东亚莫霍面深度分布图" As 东亚莫霍面深度分布图 Interactive
Map From 东亚莫霍面深度分布图,东亚莫霍面_首都,东亚莫霍面_经纬网 
  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, 62, "km", 105, 10, 25, 47, 0, 0
  Center (407.163884,2662.111214)
  Zoom 10959.18342 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 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
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With Capital
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 3
    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 42  Position Right Text "40" 
   Object 17  Position Below Text "120" 
   Object 18  Position Above Text "120" 
   Object 19  Position Below Text "110" 
   Object 20  Position Above Text "110" 
   Object 21  Position Below Text "100" 
   Object 22  Position Above Text "100" 
   Object 23  Position Above Text "60" 
   Object 24  Position Below Text "130" 
   Object 25  Position Above Text "130" 
   Object 26  Position Above Text "70" 
   Object 27  Position Above Text "140" 
   Object 28  Position Below Text "80" 
   Object 29  Position Above Text "80" 
   Object 30  Position Above Text "150" 
   Object 31  Position Below Text "90" 
   Object 32  Position Above Text "90" 
   Object 33  Position Left Text "30" 
   Object 34  Position Right Text "30" 
   Object 35  Position Left Text "10" 
   Object 36  Position Right Text "10" 
   Object 37  Position Left Text "50" 
   Object 38  Position Right Text "50" 
   Object 39  Position Left Text "20" 
   Object 40  Position Right Text "20" 
   Object 41  Position Left Text "40" 
Set CoordSys Earth Projection 1, 62
Set Map Layer 0 Editable
Create Pline 6
(74.464326,55.702472)
(87.466829,31.643329)
(99.26213,22.353303)
(119.390112,15.292849)
(126.527818,15.843325)
(132.904477,14.758337)
    Pen (3,2,0) 
Set CoordSys Earth
Set Map Layer 0 Editable
Set Window FrontWindow() Printer
 Name "Symantec Fax Starter Edition" Orientation Portrait Copies 1
 Papersize 9