banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Fri 09 June 2006 14:18

Grégory GADRAS
Participant occasionnel
Date d'inscription: 13 Apr 2006
Messages: 17

Importation automatique de ponctuels et rafraichissement sous ArcMap

Bonjour,


J'ai à ma disposition un tableau Excel incluant des coordonnées XY, ce tableau est mise à jour automatiquement.

Je sais faire le traitement en manuel mais pas avec une importation et une visualisation automatiques d'un fichier évolutif.

Je souhaite donc importer automatiquement ces nouveaux points toutes les xx secondes et faire un rafraîchissement à chaque importation de l'affichage sous ArcMap (ArcView9.1) du fichier de forme associé.


Par avance merci de votre aide,

Grégory.

Dernière modification par Grégory GADRAS (Tue 13 June 2006 09:13)

Hors ligne

 

#2 Mon 12 June 2006 16:28

emilk
Participant occasionnel
Lieu: Wasquehal
Date d'inscription: 8 Dec 2005
Messages: 31
Site web

Re: Importation automatique de ponctuels et rafraichissement sous ArcMap

peut être:
-import du dbf sous arcmap
-clik droit afficher  x et y

non ou bien?


Si tu ne sais pas où tu vas. Prends n'importe quel chemin, il t'y emmènera.

Hors ligne

 

#3 Mon 12 June 2006 16:55

Grégory GADRAS
Participant occasionnel
Date d'inscription: 13 Apr 2006
Messages: 17

Re: Importation automatique de ponctuels et rafraichissement sous ArcMap

Bonjour,

Oui ceci est en mode manuel, cela ne pose pas de probleme.

Mais j'essais de le passer en mode automatique en Visual Basic. J'ai transfomé mon fichier excel en dbf dans une géodatabase personnelle.
Je suis bolqué sur ce code et en plus je voudrais rajouter une commande "timer" et "refresh" qui agissent toutes les 15 secondes:



Private Sub DisplayTable_Click()

Dim pWsF As IWorkspaceFactory
Dim pFWs As IFeatureWorkspace
Set pWsF = New AccessWorkspaceFactory
Set pFWs = pWsF.OpenFromFile("D:\Projet\test.mdb", 0)
               
Dim pTb As ITable
Dim pDs As IDataset
Dim pDsName As IName
Set pTb = pFWs.OpenTable("Points")
Set pDs = pTb
Set pDsName = pDs.FullName
'specify the X, Y fields
Dim pXYEveFdProp As IXYEvent2FieldsProperties
Set pXYEveFdProp = New XYEvent2FieldsProperties
With pXYEveFdProp
    .XFieldName = "X"
    .YFieldName = "Y"
End With
Dim pXYEveSName As IXYEventSourceName
Dim pXYName As IName
Dim pXYEveS As IXYEventSource
Set pXYEveSName = New XYEventSourceName
With pXYEveSName
    Set .EventProperties = pXYEveFdProp
    Set .EventTableName = pDsName
End With
Set pXYName = pXYEveSName
Set pXYEveS = pXYName.Open
       
Dim pFLy As IFeatureLayer
Set pFLy = New FeatureLayer
Set pFLy.FeatureClass = pXYEveS
       
MapControl1.AddLayer pFLy


End Sub



Merci,

Grégory.

Hors ligne

 

Pied de page des forums

Powered by FluxBB