预览加载中，请您耐心等待几秒...

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

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共30页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

ArcGIS网络分析最短路径分析源代码(VB6.0)12'Copyright1995-2005ESRI34'AllrightsreservedunderthecopyrightlawsoftheUnitedStates.56'Youmayfreelyredistributeandusethissamplecode,withorwithoutmodification.78'Disclaimer:THESAMPLECODEISPROVIDED"ASIS"ANDANYEXPRESSORIMPLIED9'WARRANTIES,INCLUDINGTHEIMPLIEDWARRANTIESOFMERCHANTABILITYANDFITNESS10'FORAPARTICULARPURPOSEAREDISCLAIMED.INNOEVENTSHALLESRIOR11'CONTRIBUTORSBELIABLEFORANYDIRECT,INDIRECT,INCIDENTAL,SPECIAL,EXEMPLARY,12'ORCONSEQUENTIALDAMAGES(INCLUDING,BUTNOTLIMITEDTO,PROCUREMENTOF13'SUBSTITUTEGOODSORSERVICES;LOSSOFUSE,DATA,ORPROFITS;ORBUSINESS14'INTERRUPTION)SUSTAINEDBYYOUORATHIRDPARTY,HOWEVERCAUSEDANDONANY15'THEORYOFLIABILITY,WHETHERINCONTRACT,STRICTLIABILITY,ORTORTARISINGINANY16'WAYOUTOFTHEUSEOFTHISSAMPLECODE,EVENIFADVISEDOFTHEPOSSIBILITYOF17'SUCHDAMAGE.1819'Foradditionalinformationcontact:EnvironmentalSystemsResearchInstitute,Inc.2021'Attn:ContractsDept.2223'380NewYorkStreet2425'Redlands,California,U.S.A.923732627'Email:contracts@esri.com2829OptionExplicit3031'vbversionofthePathFinderobject3233'本地变量34Privatem_ipGeometricNetworkAsesriGeoDatabase.IGeometricNetwork35Privatem_ipMapAsesriCarto.IMap36Privatem_ipPointsAsesriGeometry.IPointCollection37Privatem_ipPointToEIDAsesriNetworkAnalysis.IPointToEID38'返回结果变量39Privatem_dblPathCostAsDouble40Privatem_ipEnumNetEID_JunctionsAsesriGeoDatabase.IEnumNetEID41Privatem_ipEnumNetEID_EdgesAsesriGeoDatabase.IEnumNetEID42Privatem_ipPolylineAsesriGeometry.IPolyline434445'OptionallysettheMap(e.g.thecurrentmapinArcMap),46'otherwiseadefaultmapwillbemade(forIPointToEID).4748PublicPropertySetMap(MapAsesriCarto.IMap)49Setm_ipMap=Map50EndProperty5152PublicPropertyGetMap()AsesriCarto.IMap53SetMap=m_ipMap54EndProperty5556'EitherOpenAccessNetworkorOpenFeatureDatasetNetwork57'needstobecalled.5859PublicSubOpenAccessNetwork(AccessFileNameAsString,FeatureDatasetNameAsString)6061DimipWorkspaceFactoryAsesriGeoDatabase.IWorkspaceFactory62DimipWorkspaceAsesriGeoDatabase.IWorkspace63DimipFeatureWorkspaceAsesriGeoDatabas