ArcGIS网络分析最短路径分析源代码（VB6.0）

下载后可任意编辑ArcGIS 网络分析最短路径分析源代码(VB6.0) 1 2' Copyright 1995-2024 ESRI 3 4' All rights reserved under the copyright laws of the United States. 5 6' You may freely redistribute and use this sample code, with or without modification. 7 8' Disclaimer: THE SAMPLE CODE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED 9' WARRANTIES, INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 10' FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL ESRI OR 11' CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, 12' OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 13' SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 14' INTERRUPTION) SUSTAINED BY YOU OR A THIRD PARTY, HOWEVER CAUSED AND ON ANY 15' THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ARISING IN ANY 16' WAY OUT OF THE USE OF THIS SAMPLE CODE, EVEN IF ADVISED OF THE POSSIBILITY OF 17' SUCH DAMAGE. 18下载后可任意编辑 19' For additional information contact: Environmental Systems Research Institute, Inc. 20 21' Attn: Contracts Dept. 22 23' 380 New York Street 24 25' Redlands, California, U.S.A. 92373 26 27' Email: contracts@esri.com 28 29Option Explicit 30 31' vb version of the PathFinder object 32 33' 本地变量 34Private m_ipGeometricNetwork As esriGeoDatabase.IGeometricNetwork 35Private m_ipMap As esriCarto.IMap 36Private m_ipPoints As esriGeometry.IPointCollection 37Private m_ipPointToEID As esriNetworkAnalysis.IPointToEID 38' 返回结果变量 39Private m_dblPathCost As Double 40Private m_ipEnumNetEID_Junctions As esriGeoDatabase.IEnumNetEID 41Private m_ipEnumNetEID_Edges As esriGeoDatabase.IEnumNetEID 42Private m_ipPolyline As esriGeometry.IPolyline 43 44 45' Opti...