Bonjour,
Je souhaite afficher des points dont les coordonnées sont présentes dans un .dbf, et ceci au lancement du .mxd.
Je pensais à un ptit code VB comme ceci =>
Code:
Private Function MxDocument_OpenDocument() As Boolean
' Create the Geoprocessor object
Dim gp As Object
Set gp = CreateObject("esriGeoprocessing.GPDispatch.1")
' Load required toolboxes...
gp.AddToolbox "C:/Program Files (x86)/ArcGIS/ArcToolbox/Toolboxes/Data Management Tools.tbx"
' Local variables...
Dim Table_Operation_dbf As String
Dim XY_Table_Operation As String
Table_Operation_dbf = "D:\08_BDD\TEST_BDD_LGM_ArcGIS\Table_Operation.dbf"
' Process: Générer une couche d'événements XY...
gp.MakeXYEventLayer_management Table_Operation_dbf, "X", "y", XY_Table_Operation, "GEOGCS['GCS_WGS_1984',DATUM['D_WGS_1984',SPHEROID['WGS_1984',6378137.0,298.257223563]],PRIMEM['Greenwich',0.0],UNIT['Degree',0.0174532925199433]];IsHighPrecision"
' Process: Add XY Coordinates...
gp.AddXY_management XY_Table_Operation
End Function
Mais ArcMap me revois un
Code:
Run-time error '-2147467259 (80004005)':
Automation error
Pour la ligne :
gp.AddXY_management XY_Table_Operation
Étant une "quiche" en VB, je m'en remet à vos bons conseils.
D'avance merci,
Nitram
Liens sociaux