Bienvenue! Inscrivez-vous et rejoignez notre communauté :)
  • Login:

Bienvenue sur Forum SIG - Systèmes d'Information Géographique et Géomatique.

Bienvenue sur le forumSIG. S'il s'agit de votre première visite, assurez vous de faire une recherche préalable dans les FAQ SIG. Vous devez vous inscrire avant de pouvoir poster.

Affichage des résultats 1 à 1 sur 1
  1. #1

    Date d'inscription
    septembre 2016
    Messages
    6

    Par défaut Appel d'un graphe et Application de Astar

    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

 

 

Discussions similaires

  1. [QGIS 2.x] Graphe routier ?
    Par Johnnylapoutre dans le forum Assistance et Programmation
    Réponses: 2
    Dernier message: 06/04/2015, 18h08
  2. [QGIS 1.x] Calcul de graphe planaire
    Par PLeroux dans le forum Assistance et Programmation
    Réponses: 6
    Dernier message: 19/10/2012, 13h54
  3. [ArcGIS 9.x] Création d'un graphe avec VBA
    Par gininho dans le forum Programmation
    Réponses: 5
    Dernier message: 14/10/2009, 07h57
  4. [Méthodologie] Graphe de circulation
    Par OlivierDumas dans le forum Théorie des SIG - Géomatique
    Réponses: 6
    Dernier message: 04/03/2008, 13h02
  5. [Données] Graphe routier national
    Par dazz dans le forum Ressources
    Réponses: 1
    Dernier message: 22/03/2006, 12h11

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •