Annonce
Pages: 1
- Sujet précédent - Importation automatique de ponctuels et rafraichissement sous ArcMap - Sujet suivant
#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
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
Pages: 1
- Sujet précédent - Importation automatique de ponctuels et rafraichissement sous ArcMap - Sujet suivant
