Здравствуйте!
Я пытаюсь создать геометрическую сеть, использую следующий код:
Private Sub BuildNetwork()
Dim pNetworkDataset As IFeatureDataset
Dim pRoads As IFeatureClass
Dim pNetLoader As esriNetworkAnalysis.INetworkLoader2
Set pNetLoader = New NetworkLoader
Set pNetworkDataset = New NetworkDatasetName
Set pNetLoader.FeatureDatasetName = pNetworkDataset.FullName
pNetLoader.NetworkName = "C:\test\test.mdb\qwe\www"
pNetLoader.NetworkType = esriNTUtilityNetwork
pNetLoader.SnapTolerance = 1
Dim pDS As esriGeoDatabase.IDataset
Dim sRName As String
' Set pDS = pChemins 'QI
sRName = pDS.Name
pNetLoader.AddFeatureClass "qqq", esriFTSimpleEdge, Nothing, True
Dim pFld As IField
pNetLoader.AddWeight "Length", esriWTDouble, 0
Set pFld = pRoads.LengthField
pNetLoader.AddWeightAssociation "Length", sRName, pFld.Name
pNetLoader.LoadNetwork
End Sub
Программа не работает
Опытные программисты, помогите пожалуйста разобраться
Надеюсь моя тема не останется без внимания.
Заранее Большое спасибо!!!
