Latest Contributions by KenBuja

Here's the code I use to get the output from a geoprocessing tool. In this case, I'm running a Dissolve with the output being a string of the final location. This string is used in the function ReturnObjectfromResult, which can return a feature class, feature layer,  or a table.     Friend Function DissolveDataset(ByVal InputName As Object, ByVal DissolveField As String, ByVal StatsFields As String, ByVal OutputName As String) As ESRI.ArcGIS.Geodatabase.IFeatureClass          Dim DissolveDS As New ESRI.ArcGIS.DataManagementTools.Dissolve         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Try             Using releaser As New ESRI.ArcGIS.ADF.ComReleaser                 releaser.ManageLifetime(DissolveDS)                 DissolveDS.in_features = InputName                 DissolveDS.dissolve_field = DissolveField                 DissolveDS.statistics_fields = StatsFields                 DissolveDS.out_feature_class = OutputName                  Result = RunTool(DissolveDS, Nothing)                 If Result Is Nothing Then                     System.Windows.Forms.MessageBox.Show("Could not dissolve dataset")                     Return Nothing                 End If                  Return ReturnObjectfromResult(Result, "Feature Class")             End Using          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Dissolve error")             Return Nothing         End Try      End Function      Private Sub ReturnMessages(ByVal pResult As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Title As String)          If pResult Is Nothing Then Exit Sub          Dim ErrorMessage As String          If pResult.MessageCount > 0 Then             For Count As Integer = 0 To pResult.MessageCount - 1                 ErrorMessage += pResult.GetMessage(Count)             Next         End If          System.Windows.Forms.MessageBox.Show(ErrorMessage, Title)      End Sub      Friend Function ReturnObjectfromResult(ByVal result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Type As String) As Object          Dim GPVal As ESRI.ArcGIS.Geodatabase.IGPValue         Dim InMemFC As String         Dim GPUtil As ESRI.ArcGIS.Geoprocessing.IGPUtilities3 = New ESRI.ArcGIS.Geoprocessing.GPUtilities          Try             GPVal = result.GetOutput(0)             InMemFC = GPVal.GetAsText()              Select Case Type                 Case "Feature Class"                     Return GPUtil.OpenFeatureClassFromString(InMemFC)                 Case "Table"                     Return GPUtil.OpenTableFromString(InMemFC)                 Case "Feature Layer"                     Return GPUtil.OpenFeatureLayerFromString(InMemFC)                 Case Else                     Return Nothing             End Select          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "ReturnObjectfromResult error")             Return Nothing         End Try      End Function       Friend Function RunTool(ByVal Process As ESRI.ArcGIS.Geoprocessor.IGPProcess, ByVal TC As ESRI.ArcGIS.esriSystem.ITrackCancel2, Optional ByVal AddOutput As Boolean = False) As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Try             System.Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor             Dim GP As New ESRI.ArcGIS.Geoprocessor.Geoprocessor              GP.AddOutputsToMap = AddOutput             GP.OverwriteOutput = True              Result = CType(GP.Execute(Process, Nothing), ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2)             If Result.Status <> ESRI.ArcGIS.esriSystem.esriJobStatus.esriJobSucceeded Then ReturnMessages(Result, "Geoprocessing Error")             GP.ClearMessages()         Catch ex As Exception             ReturnMessages(Result, "Fail")             System.Windows.Forms.MessageBox.Show(ex.ToString, "Run Geoprocessor")         End Try          Return Result      End Function ... View more

Set the graphic's tooltip, not the layer's tooltip myGraphic.toolTip = myGraphic.attributes.PATSUB_SUB_KEY; Sub_Gra_Layer.add(myGraphic); ... View more

Here's one way to do it.    Private Sub readFieldFromFeature(ByVal path As String, ByRef inputarray As String())          Try             Dim factory As ESRI.ArcGIS.Geodatabase.IWorkspaceFactory = New ESRI.ArcGIS.DataSourcesFile.ShapefileWorkspaceFactory             Dim workspace As ESRI.ArcGIS.Geodatabase.IFeatureWorkspace = DirectCast(factory.OpenFromFile(System.IO.Path.GetDirectoryName(path), 0), ESRI.ArcGIS.Geodatabase.IFeatureWorkspace)             Dim fields As ESRI.ArcGIS.Geodatabase.IFields = workspace.OpenFeatureClass(System.IO.Path.GetFileNameWithoutExtension(path)).Fields             Dim fieldcount As Integer = fields.FieldCount              ReDim inputarray(fieldcount - 1)              For i As Integer = 0 To fieldcount - 1                 inputarray(i) = fields.Field(i).Name             Next          Catch ex As Exception             MsgBox(ex.ToString)         End Try      End Sub ... View more

You almost had it. You only have to add in one column to the vt table (since this tool doesn't require the Ranks input for each feature class like the Intersect tool you asked about before) and add rows with the feature classes. Here's an example that works, written in VB.NET         Dim GP As New ESRI.ArcGIS.Geoprocessor.Geoprocessor         Dim vt = New ESRI.ArcGIS.Geoprocessing.GpValueTableObject         Dim FC1 As ESRI.ArcGIS.Geodatabase.IFeatureClass         Dim FC2 As ESRI.ArcGIS.Geodatabase.IFeatureClass         Dim pLayer As ESRI.ArcGIS.Carto.ILayer2         Dim pFLayer As ESRI.ArcGIS.Carto.IFeatureLayer         Dim params = New ESRI.ArcGIS.esriSystem.VarArray          Try             vt.SetColumns(1)             pLayer = My.ArcMap.Document.FocusMap.Layer(0)             pFLayer = New ESRI.ArcGIS.Carto.FeatureLayer             pFLayer = pLayer             FC1 = pFLayer.FeatureClass             pLayer = My.ArcMap.Document.FocusMap.Layer(1)             pFLayer = New ESRI.ArcGIS.Carto.FeatureLayer             pFLayer = pLayer             FC2 = pFLayer.FeatureClass              vt.AddRow(FC1)             vt.AddRow(FC2)              params.Add(vt)             params.Add("Polymerged")             GP.Execute("FeatureToPolygon_management", params, Nothing)  'here's another way to do it. You have to add the ESRI.ArcGIS.DataManagementTools reference 'using the Add Reference dialog              Dim F2P As New ESRI.ArcGIS.DataManagementTools.FeatureToPolygon              F2P.in_features = vt             F2P.out_feature_class = "poly1"              GP.Execute(F2P, Nothing)          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString)         End Try     End Sub ... View more