[GIS] convert from C# to VBA

vba

I have a code that wrote with C#.But I need to convert it to VBA and then use from it into GIS.
how can I convert it be VBA?

Best Answer

It really depends on how much code you are talking about. Most people try to go the other way, that is VB6\VBA to c# or vb.net.

But for your case a start might be to convert the methods to VB.net and then clean up the code to VBA.

C# <-> VB.net translator

Snapping points to a line using ArcGIS geoprocessing tools

Assumptions:

You have a point layer and a line layer. You want a points to be snapped to the line layer.

Instructions

1. Use the `Near` tool to find snap locations

In ArcGIS's Toolbox pane, Select Analysis Tools -> Proximity -> Near
Choose your point layer as Input features, your line layer as Near features. Make sure you tick the Location checkbox.
Four new attributes will be added to your point layer, NEAR_FID, NEAR_DIST, NEAR_X and NEAR_Y.

2. Export the layer as a table

Open the attribute table of the point layer
Click on the Table Options button in the attribute table window, and choose Export.... Save it is a dbase (.dbf) file.
When prompted if you want to add the table to your current map, choose Yes.

3. Recreate the points layer from the table

Find the table you just added in your Table of Contents pane. You might need to switch tabs if you are using ArcGIS 9.3 to the Source tab.
Right-click on the table, and choose Add XY Data.
Make sure the X field is set to NEAR_X, and the Y field to NEAR_Y. Adjust the coordinate system if appropriate.
Your new point Event layer should appear in the table of contents. Right click on it, and select Data->Export data... to save the layer permanently as a shapefile.

ArcGIS Desktop Tools – How to Call ArcToolBox from VBA Form

Here is sample code from ESRI on one method to run a Toolbox tool from VBA: http://edndoc.esri.com/arcobjects/9.0/Samples/Geoprocessing/RunToolWithGPDispatch.htm.

There has been some user discussion regarding this that may help: http://forums.esri.com/Thread.asp?c=93&f=992&t=132081 http://forums.arcgis.com/threads/6117-Strange-problem-running-GP-tools-from-VBA

In my experience it's a lot easier to call the Toolbox Tools from the command line or python (scripting). The help page for each tool contains code samples for both of these methods, for example: http://webhelp.esri.com/arcgisdesktop/9.3/index.cfm?TopicName=intersect_%28analysis%29

UPDATE 6/10/11

It looks like the ESRI code sample doesn't work as is (go figure). You need to comment out the gp.Toolbox line and add the name of the toolbox to the references of the tools. For example, to fix the sample code:

Sub RunGPTool()
 'Create the Geoprocessor object
   Dim GP As Object

   Set GP = CreateObject("esriGeoprocessing.GpDispatch.1")

   'Set the toolbox --COMMENT OUT THE GP.Toolbox LINE
   'GP.Toolbox = "D:\ArcGIS\ArcToolbox\Toolboxes\Analysis Tools.tbx"

   'Execute tools --APPEND THE NAME OF THE TOOLBOX TO THE TOOL
   GP.Clip_analysis "D:\Workspace\Portland.mdb\Region\streets", _
   "D:\Workspace\Portland.mdb\Region\downtown", "D:\Workspace\Portland.mdb\Region\dt_streets"

   GP.Buffer_analysis "D:\Workspace\Portland.mdb\Region\dt_streets", _
"D:\Workspace\Portland.mdb\Region\dt_streetsbuf", "500"
 End Sub

Here is what I tested on my machine (I don't have Spatial Analysis to test your code):

Sub RunGPTool()

   'Create the Geoprocessor object
    Dim GP As Object
    Set GP = CreateObject("esriGeoprocessing.GpDispatch.1")

   'Set the toolbox
   'GP.Toolbox = "D:\ArcGIS\ArcToolbox\Toolboxes\Analysis Tools.tbx"

   'Execute tools
   GP.MakeFeatureLayer_management "C:\Temp\NKCDC.shp", "temp_NKCDC"

End Sub

You would change

 GP.Kriging

 GP.Kriging_sa

Best Answer

Related Solutions

[GIS] Snapping points to lines in ArcGIS Desktop and automate using VBA