[GIS] intersection between a geometry and a layer in Arcobjects VBA

arcobjectsvba

i have to make an intersection between a polygon and a layer of parcels, the polygon used in the clip is not belonging to any layer and the result of this intersection should be all the parcels inside and cuted by the polygon (clip) so i thought to use ITopologicalOperator but i haven't understood how to work with this tool , also it seems to give one feature as result but in my case i need a set of features.

can you give me the right tool to use in Arcobject for my case ?

any advice is welcome 🙂

thanks in advance

Best Answer

Create a spatial filter (ISpatialFilter) with the geometry and get a featurecursor for the layer (using IFeatureclass.Search). Cast the search geometry to ITopologicalOperator and call Intersect on each IFeature.Shape returned by IFeatureCursor.Next().

Related Solutions

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

ArcGIS Desktop Tools – How to Call ArcToolBox from VBA Form

Related Question