Latest Contributions by BruceNielsen

I'm trying to use a call to the GPUtilities class 3 times in 2 modules in the VB.NET addin I'm developing (ArcGIS 10.0, VS 2010). Since it is a singleton object, each time it is declared with: Dim t As Type = Type.GetTypeFromProgID("esriGeoprocessing.GPUtilities") Dim obj As System.Object = Activator.CreateInstance(t) Dim pGPU As ESRI.ArcGIS.Geoprocessing.IGPUtilities3 = obj It is working for the first 2 occurrances in the first module, but when the code gets to the third occurrance in the second module Dim pHELLayer As IFeatureLayer = pGPU.OpenFeatureLayerFromString("F:\SD_Tools\HEL_Tool\HEL_Data.shp") I get this message: [ATTACH=CONFIG]27240[/ATTACH] Any ideas on how to fix this error? Do I need to go back to using a WorkspaceFactory to access this shapefile? ... View more

I have a featureclass that represents the soils data for a field. My goal is to only show the soil mapunit and acreage fields from the attribute in an existing layout. The following code makes the desired changes to the table: Private Sub btnAddTable_Click(sender As Object, e As System.EventArgs) Handles btnAddTable.Click         'Add a table to the layout for the selected tract/field         Dim intASD As Integer = GetASDLayer() 'Returns the layer's position in the TOC         If intASD >= 0 Then             Dim pLayer As ILayer = pMxDoc.FocusMap.Layer(intASD)             'Reduce the visible columns to just MUSYM and SUMACRES             Dim pTableFields As ITableFields = pLayer             Dim pFieldInfo As IFieldInfo3             Dim pField As IField             For x = 0 To pTableFields.FieldCount - 1                 pField = pTableFields.Field(x)                 pFieldInfo = pTableFields.FieldInfo(x)                 If pField.Name = "MUSYM" Then                     'Keep and rename                     pFieldInfo.Alias = "Soil Type"                 ElseIf pField.Name = "SUMACRES" Then                     'Ditto                     pFieldInfo.Alias = "Acres"                 Else                     'Don't display anything else                     pFieldInfo.Visible = False                 End If             Next             AddTableFrame(pLayer)         End If     End Sub And if I open the attribute table from the TOC after running this routine, the table appears with the undesired fields removed. But when I add the table to the layout with this code: Public Sub AddTableFrame(pTable As ITable)         'Adapted from http://forums.esri.com/Thread.asp?c=93&f=992&t=57798&mc=22#msgid293581         Dim pPageLayout As IPageLayout = pMxDoc.PageLayout         Dim pGContainer As IGraphicsContainer = pPageLayout         'Get the table of the first featureclass         Dim pMap As IMap = pMxDoc.FocusMap         'Create a new tableframe         Dim pTableFrame As ITableFrame = New TableFrame         Dim pElement As IElement = pTableFrame         'Setup table properties         pTableFrame.Table = pTable         pTableFrame.StartCol = 0         pTableFrame.StartRow = 0         'Define frame bounds         Dim pEnv As IEnvelope = New Envelope         'Allow enough space for each row in the table + the header         pEnv.PutCoords(0.5, 2.75 - (pTable.RowCount(Nothing) * 0.165 + 0.1875), 8, 2.75)         Dim userRECT As tagRECT         userRECT.top = 0         userRECT.left = 0         userRECT.right = pEnv.Width         userRECT.bottom = pEnv.Height         'Setup tableview properties         Dim pTableView2 As ITableView2 = pTableFrame.TableView         pTableView2.Table = pTable         pTableView2.Show(0, userRECT, True)         'Add the element to the specified spot         pElement.Geometry = pEnv         pGContainer.AddElement(pElement, 0)         pMxDoc.ActiveView.Refresh()     End Sub The entire, unaltered table is displayed. How do I get the abridged table to appear in the layout? ... View more

I have the code (VBA) below hooked up to a button in ArcMap 10.0. The first time it is used it runs successfully. If I try to run it a second time, the Intersect tool doesn't create the in_memory featureclass as expected and the code fails when it tries to run CalculateField. Any ideas as to why?     (Identify and validate pLayer & pLayer2)     ...     'Intersect the PLU/soils data with the Sections     Dim pGp As IGeoProcessor     Set pGp = New GeoProcessor     pGp.OverwriteOutput = True         Dim pParams As IVariantArray     Set pParams = New VarArray         Dim PTS As String     PTS = "PlanningToolSoils"         pParams.RemoveAll     pParams.Add pLayer.Name & "; " & pLayer2.Name     pParams.Add "in_memory\" & PTS     pParams.Add "NO_FID"     pGp.Execute "Intersect_Analysis", pParams, Nothing         'Update the CALCACRES Column     pParams.RemoveAll     pParams.Add PTS     pParams.Add "CALCACRES"     pParams.Add "!shape.area@acres!"     pParams.Add "PYTHON"     pGp.Execute "CalculateField_management", pParams, Nothing         'Export the tabular portion of the FeatureClass to C:\temp\data.dbf     pParams.RemoveAll     pParams.Add PTS     pParams.Add "C:\temp\Data.dbf"     pGp.AddOutputsToMap = False     pGp.Execute "CopyRows_management", pParams, Nothing         'Delete the temporary featureclass     pMap.DeleteLayer FindLayerByName(pMap, PTS) 'A home-built function that searches for an ILayer in the TOC     pParams.RemoveAll     pParams.Add "in_memory\" & PTS     pGp.Execute "Delete_management", pParams, Nothing ... View more