[原创]等高线函数

Wenjian_Cao

数据结构：

Private Const M_Count_Const = 100 '初始分配内存
Private Const M_Point_Const = 20 '初始两排点分配内存

Private Type Line '自定义类型
    X() As Single 'x坐标列
    Y() As Single 'y坐标列
    Count As Long '当前个数
    M_Count As Long '已分配内存个数
End Type

Private Type Line_two '自定义类型
        Line1() As Line '第一条线列（正向）
        Line2() As Line '第二条线列（反向）
        H() As Single '等高线高程列
        OfFang() As Long '状态列:关闭,开放
        Count As Long '当前个数
        M_Count As Long '已分配内存个数
End Type

Private Max_line As Line_two '全部等高线定义