Bonjour,
J'ai crée une carte sous ArcGIS sous forme de couches. Alors je veux appeler le graphe crée, et lui appliquer l'algorithme Astar.
"Set" en rouge est une erreurs de compilation. Quel est le problème? Est ce que je suis sur la bonne voie?
Merci pour vos réponses!
Dans "thisDocument" j'ai le code ci-dessous:
Dim G As New Graph
Dim currentVertex As Vertex
Dim destinationVertex As Vertex
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pFLayer As iIFeatureLayer
Set pFLayer = pMxDoc.FocusMap.Layer(3) 'On récupère la 3ème couche de la carte
Set pFLayer = pMxDoc.FocusMap.Layer(4) 'On récupère la 4ème couche de la carte
Set pFLayer = pMxDoc.FocusMap.Layer(5) 'On récupère la 5ème couche de la carte
Dim pFClass As IFeatureClass
Set pFClass = pFLayer.FeatureClass ' .. et la classe d'entité associée
Dim lField As Long
lField = pFClass.FindField("Osm_id") 'On recherche le champ "Osm_id"
lField = pFClass.FindField("Shape_Length") 'On recherche le champ "Shape_Length"
Set pFLayer = pMxDoc.FocusMap.Layer(6) 'On récupère la 6ème couche de la carte
MsgBox ("Graph Created")
Private Sub btnGetShortestPath_Click(sender As Object, e As EventArgs)
Dim shortestpath As ArrayList
shortestpath = G.AStar(currentNode, destinationNode)
Dim stOut As String
For Each n In shortestpath
stOut = stOut & n & " "
Next
MsgBox (stOut)
End Sub
Liens sociaux