zoukankan      html  css  js  c++  java
  • 基于AE连通性分析

    曾经做管线连通性分析,总觉得ARCGIS应该有现成的方案可以实现,但最终没有找到,后来只好自己写了套代码,但在搜索过程中找到了这样一估代码,当时留了下来,那我现在也把它留下来。

    Dim pLayer As ILayer
    pLayer = Map1.get_Layer(1)
    Dim pGeoFeature As IGeoFeatureLayer
    pGeoFeature = pLayer
    Dim pQueryFilter As IQueryFilter
    pQueryFilter = New QueryFilter
    pQueryFilter.WhereClause = "FID<3"
    Dim pCursor As IFeatureCursor
    pCursor = pGeoFeature.Search(pQueryFilter, False)
    Dim pFeature As IFeature
    pFeature = pCursor.NextFeature
    Do While Not pFeature Is Nothing
    Dim pLine As IPolyline
    pLine = New Polyline
    pLine = pFeature.Shape
    Dim pPointCollection As IPointCollection
    pPointCollection = pLine
    Dim pConstructgeometrycollection As IConstructGeometryCollection
    pConstructgeometrycollection = New GeometryBag
    pConstructgeometrycollection.ConstructDivideEqual(pLine, 40, esriConstructDivideEnum.esriDivideIntoPolylines)
    Dim pEnumGeometry As IEnumGeometry
    pEnumGeometry = pConstructgeometrycollection
    pLine = pEnumGeometry.Next()
    Dim psimpleMark As ISimpleMarkerSymbol
    psimpleMark = New SimpleMarkerSymbol
    psimpleMark.Size = 2
    psimpleMark.Style = esriSimpleMarkerStyle.esriSMSCircle
    '------------------一条线的起点----------------------------
    Dim PointTO As IPoint
    PointTO = New Point
    PointTO = pLine.FromPoint
    Map1.DrawShape(PointTO, psimpleMark)
    '----------------------------------------------------------
    pEnumGeometry.Reset()
    For I = 1 To pEnumGeometry.Count - 1
    pLine = pEnumGeometry.Next
    pLine.QueryToPoint(PointTO)
    'Map1.DrawShape(PointTO, psimpleMark)
    Next I
    '------------------一条线的终点----------------------------
    pLine = pEnumGeometry.Next
    pLine.QueryToPoint(PointTO)Map1.DrawShape(PointTO, psimpleMark)
    '-------------------------------------------------------
    pFeature = pCursor.NextFeature
    Loop

  • 相关阅读:
    3 * 0.1 == 0.3 将会返回什么?true 还是 false?
    Java中存储金额用什么数据类型?
    oracle数据库中索引失效的几种情况
    MyBatis如何防止SQL注入
    Windows10连接到内网(局域网)段
    Linux上安装Tomcat并启动时报Cannot find /usr/local/tomcat/tomcat_8080/bin/setclasspath.sh
    Linux上安装Mysql
    Linux上安装JDK
    FileZilla的使用和注意事项
    Failure to find parent:pom:2.2.6 in http://maven.aliyun was cached in the local repository...
  • 原文地址:https://www.cnblogs.com/wenwu/p/3304382.html
Copyright © 2011-2022 走看看