• 进行相应选项的拓扑分析:

    SuperTopo1.CleanIdenticalVertices = True             '去除冗余点

    SuperTopo1.CleanOvershootDangles = True                '去除短悬线

    SuperTopo1.CleanRepeatedLines = True                       '去除重复线

    SuperTopo1.ExtendDangleLines = True                         '延长长悬线

    SuperTopo1.IntersectLines = True                                '弧段求交

    SuperTopo1.MergePseudoNodes = True                           '合并假结点

    SuperTopo1.MergeRedundantNodes = True                   '合并邻近结点

    SuperTopo1.Clean Dt                                   '对数据集Dt进行拓扑处理

    SuperTopo1.CheckErrors Dt                               '检查拓扑错误，结果在Dt的SmTopoError字段中

    SuperTopo1.BuildNetwork(Dt,DS,strNetName)               '建立网络拓扑图层

    SuperTopo1.BuildPolygons(Dt,DS,strPolygonName)   '建立拓扑多边形

• 在建立网络拓扑图层和建立拓扑多边形时，要进行数据集名称的合法性的检查

    If DS.IsAvailableDatasetName(strNetName) = False Then            '网络图层名称非法

    If DS.IsAvailableDatasetName(strPolygonName) = False Then   '拓扑多边形图层名称非法

• 在进行拓扑分析时自动报告拓扑信息，由系统自己完成