小桥流水的博客

本例以由拓扑关系的arc/info 文件为数据源。其中a1,b1,c1是以fnode排序生成的数组，a1对应fnode,b1对应tnode,c1对应length,同样a2,b2,c2,是以tnode 生成的数组。Indexa1是对应某一起点与其相连的终点的个数，indexb1时对应某一终点与其相连的起点的个数，即其拓扑关系。

Public Function shortpath(startno As Integer, endno As Integer) As Single
以开始点，结束点为参数。
Dim result() As Single
Dim result1 As Integer
定义结果点
Dim s1 As Single
Dim min As Single
Dim ii, i, j, aa As Integer
Dim yc() As Boolean
Dim ycd() As Boolean
Dim rs1() As Single
Dim no() As Integer
Dim nopoint As Integer
ReDim yc(1 To maxno) As Boolean
ReDim ycd(1 To maxno) As Boolean
ReDim rs1(1 To maxno) As Single
ReDim result(1 To 2, 1 To maxno) As Single
定义结果，其中result(1,maxno)为结果点，result(2,maxno)为结果长度。
For i = 1 To maxno// maxno为网中最大的节点数。

一、 在CAD里画好的图，左下角坐标与右上角坐标必须控制在（X1=0，Y1=0；X2=5000，Y2=5000）范围之内，单位为毫米。

二、 在CAD里，图形的图层尽量控制在10层之内。

 三、 前两步完成后，CAD文件格式另存为（2000；dwg）。

 四、 打开MAPINFO程序，在菜单里调出“通用数据转换器”，选择文件类型为dwg，投影坐标选择，目标：保存类型为tab。

 五、 转换完成后，用MAPINFO打开tab文件，将文件另存为。