Latest Contributions by KenBuja

Have you explored the Geoprocessor results to see what is happening with your tool? Here's the Add Field function I use in one of my ArcMap projects. In it, I have created a Global variable for the geoprocessor and have initiated it elsewhere. AddField(pTable, "Name", "Text", , , 254)     Public Sub AddField(ByVal Input As Object, ByVal FieldName As String, ByVal FieldType As String, Optional ByVal Precision As Long = 0,                         Optional ByVal Scale As Long = 0, Optional ByVal Length As Long = 0, Optional ByVal FieldAlias As String = Nothing,                         Optional ByVal Nullable As String = "NULLABLE", Optional ByVal Required As String = "NON_REQUIRED", Optional ByVal Domain As String = Nothing)         Dim AddField As New ESRI.ArcGIS.DataManagementTools.AddField         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Try             Using releaser As New ESRI.ArcGIS.ADF.ComReleaser                 releaser.ManageLifetime(AddField)                 AddField.in_table = Input                 AddField.field_name = FieldName                 AddField.field_type = FieldType                 AddField.field_precision = Precision                 AddField.field_scale = Scale                 AddField.field_length = Length                 AddField.field_alias = FieldAlias                 AddField.field_is_nullable = Nullable                 AddField.field_is_required = Required                 AddField.field_domain = Domain                 Result = RunTool(AddField, Nothing)                 If Result Is Nothing Then                     System.Windows.Forms.MessageBox.Show("Could not add field")                 End If             End Using         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Add Field error")         End Try     End Sub     Friend Function RunTool(ByVal Process As ESRI.ArcGIS.Geoprocessor.IGPProcess, ByVal TC As ESRI.ArcGIS.esriSystem.ITrackCancel2) As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Try             Result = CType(Globals.GP.Execute(Process, Nothing), ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2)             If Result.Status <> ESRI.ArcGIS.esriSystem.esriJobStatus.esriJobSucceeded Then ReturnMessages(Result, "Geoprocessing Error")             Globals.GP.ClearMessages()         Catch ex As Exception             ReturnMessages(Result, "Fail")             System.Windows.Forms.MessageBox.Show(ex.ToString, "Run Geoprocessor")         End Try         Return Result     End Function    Private Sub ReturnMessages(ByVal pResult As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Title As String)         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 ... View more

Try using My.ArcMap.Application.hWnd ... View more

Hi Pam, This is code I use in an application (in VB.NET, ArcGIS 9.2) where the user can select whether to merge polygons smaller than a specified area with the largest adjacent polygon or the polygon with the longer adjacent border.   Friend Sub EliminateSlivers(ByVal m_app As ESRI.ArcGIS.Framework.IApplication, ByVal pFLayer As ESRI.ArcGIS.Carto.IFeatureLayer, ByVal MMU As Double, ByVal EliminateType As String)     Dim IsEditing As Boolean = True     Dim pDataset As ESRI.ArcGIS.Geodatabase.IDataset     Dim pEditor As ESRI.ArcGIS.Editor.IEditor     Dim pEditLayers As ESRI.ArcGIS.Editor.IEditLayers     Dim pFCursor As ESRI.ArcGIS.Geodatabase.IFeatureCursor     Dim pFeature As ESRI.ArcGIS.Geodatabase.IFeature     Dim pArea As ESRI.ArcGIS.Geometry.IArea     Dim pAdjFeature As ESRI.ArcGIS.Geodatabase.IFeature     Dim pTopoOp As ESRI.ArcGIS.Geometry.ITopologicalOperator     Try       pDataset = pFLayer       pEditor = m_app.FindExtensionByName("ESRI Object Editor")       If pEditor.EditState <> ESRI.ArcGIS.Editor.esriEditState.esriStateEditing Then         IsEditing = False         pEditor.StartEditing(pDataset.Workspace)       End If       pEditLayers = pEditor       pEditLayers.SetCurrentLayer(pFLayer, 0)       pEditor.StartOperation()       pFCursor = pFLayer.FeatureClass.Search(Nothing, False)       pFeature = pFCursor.NextFeature       Do Until pFeature Is Nothing         pArea = pFeature.Shape         If pArea.Area < MMU Then           If EliminateType = "Border" Then             pAdjFeature = GetLongestBorderAdjacent(pFeature)           Else             pAdjFeature = GetLargestAdjacent(pFeature)           End If           If pAdjFeature IsNot Nothing Then             pTopoOp = pAdjFeature.ShapeCopy             pAdjFeature.Shape = pTopoOp.Union(pFeature.ShapeCopy)             pAdjFeature.Store()             pFeature.Delete()           End If         End If         pFeature = pFCursor.NextFeature       Loop       pEditor.StopOperation("Merge")       If Not IsEditing Then         pEditor.StopEditing(True)       End If     Catch ex As Exception       ExceptionMessage(ex, "Eliminate Slivers")     Finally       Release(pFCursor)     End Try   End Sub   Private Function GetArea(ByVal pArea As ESRI.ArcGIS.Geometry.IArea) As Double     GetArea = pArea.Area   End Function   Public Function GetBorderLen(ByVal pPoly1 As ESRI.ArcGIS.Geometry.IPolygon, ByVal pPoly2 As ESRI.ArcGIS.Geometry.IPolygon) As Double     Dim pTopoOp As ESRI.ArcGIS.Geometry.ITopologicalOperator = pPoly1     Dim pGeo As ESRI.ArcGIS.Geometry.IGeometry = pTopoOp.Intersect(pPoly2, ESRI.ArcGIS.Geometry.esriGeometryDimension.esriGeometry1Dimension)     If Not pGeo.IsEmpty Then       Dim pPoly3 As ESRI.ArcGIS.Geometry.IPolyline = pGeo       Return pPoly3.Length     Else       Return 0.0     End If   End Function   Friend Function GetLargestAdjacent(ByVal pFeat As ESRI.ArcGIS.Geodatabase.IFeature) As ESRI.ArcGIS.Geodatabase.IFeature     Dim pSF As ESRI.ArcGIS.Geodatabase.ISpatialFilter = New ESRI.ArcGIS.Geodatabase.SpatialFilter     Dim pFC As ESRI.ArcGIS.Geodatabase.IFeatureClass     Dim pFCur As ESRI.ArcGIS.Geodatabase.IFeatureCursor     Dim pFeat2 As ESRI.ArcGIS.Geodatabase.IFeature     Dim pLargestFeat As ESRI.ArcGIS.Geodatabase.IFeature     Dim dMaxArea As Double     Try       pSF.Geometry = pFeat.Shape       pSF.SpatialRel = ESRI.ArcGIS.Geodatabase.esriSpatialRelEnum.esriSpatialRelIntersects       pFC = pFeat.Class       pFCur = pFC.Search(pSF, False)       pFeat2 = pFCur.NextFeature       Do Until pFeat2 Is Nothing         If pLargestFeat Is Nothing Then           pLargestFeat = pFeat2           dMaxArea = GetArea(pFeat2.Shape)         Else           If GetArea(pFeat2.Shape) > dMaxArea Then             pLargestFeat = pFeat2             dMaxArea = GetArea(pFeat2.Shape)           End If         End If         pFeat2 = pFCur.NextFeature       Loop       Return pLargestFeat     Catch ex As Exception       ExceptionMessage(ex, "Get Largest Feature")       Return Nothing     End Try   End Function   Public Function GetLongestBorderAdjacent(ByVal pFeat As ESRI.ArcGIS.Geodatabase.IFeature) As ESRI.ArcGIS.Geodatabase.IFeature     Dim pSF As ESRI.ArcGIS.Geodatabase.ISpatialFilter = New ESRI.ArcGIS.Geodatabase.SpatialFilter     Dim pFC As ESRI.ArcGIS.Geodatabase.IFeatureClass     Dim pFCur As ESRI.ArcGIS.Geodatabase.IFeatureCursor     Dim pFeat2 As ESRI.ArcGIS.Geodatabase.IFeature     Dim pLongestBorderFeat As ESRI.ArcGIS.Geodatabase.IFeature     Dim dMaxLen As Double     Try       pSF.Geometry = pFeat.Shape       pSF.SpatialRel = ESRI.ArcGIS.Geodatabase.esriSpatialRelEnum.esriSpatialRelIntersects       pFC = pFeat.Class       pFCur = pFC.Search(pSF, False)       pFeat2 = pFCur.NextFeature       Do Until pFeat2 Is Nothing         If pFeat2.OID <> pFeat.OID Then           If pLongestBorderFeat Is Nothing Then             pLongestBorderFeat = pFeat2             dMaxLen = GetBorderLen(pFeat.Shape, pFeat2.Shape)           Else             If GetBorderLen(pFeat.Shape, pFeat2.Shape) > dMaxLen Then               pLongestBorderFeat = pFeat2               dMaxLen = GetBorderLen(pFeat.Shape, pFeat2.Shape)             End If           End If         End If         pFeat2 = pFCur.NextFeature       Loop       Return pLongestBorderFeat     Catch ex As Exception       ExceptionMessage(ex, "Get Longest Feature")       Return Nothing     Finally       Release(pFCur)     End Try   End Function ... View more

In your OnClick sub, try this: Dim activeview As ESRI.ArcGIS.Carto.IActiveView = GetActiveViewFromArcMap(My.ArcMap.Application) Also, you might want to look at the IGxDialog interface. This gives you the ability to load or save many different types of data sets. ... View more

What I often do when I write a geoprocessing routine is to first run the tool in ArcMap and examine the results message. This shows the syntax of the parameters that expected by the tool. When you run the Intersect tool, it's expecting several different input feature layers (test1.shp and test2.shp, for example) and their rankings (nothing, in this case), and an output (C:\ArcGIS\Default.gdb\test_Intersect). Here's what the Executing message reports for a test run: "test1 #; test2 #" C:\ArcGIS\Default.gdb\test_Intersect All # INPUT So for the code, you would set in_features to "test1 #; test2 #". All you have to do is supply the names of the dataset and a number for the ranking (or a # if ranking doesn't matter), separated by a semicolon. dim Inter as New ESRI.ArcGIS.AnalysisTools.Intersect Inter.in_features =  "test1 #; test2 #" Inter.out_feature_class = "C:\ArcGIS\Default.gdb\test_Intersect" ... View more

This is written in VB.NET and is for another tool, but you should be able to use its logic.     Public Function Clip(ByVal pInFClass As ESRI.ArcGIS.Geodatabase.IFeatureClass, ByVal pClipFClass As ESRI.ArcGIS.Geodatabase.IFeatureClass, ByVal OutputName As String) As ESRI.ArcGIS.Geodatabase.IFeatureClass         Dim Clipper As New ESRI.ArcGIS.AnalysisTools.Clip         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Try             Using releaser As New ESRI.ArcGIS.ADF.ComReleaser                 releaser.ManageLifetime(Clipper)                 Clipper.in_features = pInFClass                 Clipper.clip_features = pClipFClass                 Clipper.out_feature_class = OutputName                 Result = RunTool(Clipper, Nothing)                 If Result Is Nothing Then                     System.Windows.Forms.MessageBox.Show("Could not clip dataset")                     Return Nothing                 End If                 Return ReturnObjectfromResult(Result, "Feature Class")             End Using         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Clip error")             Return Nothing         End Try     End Function     Private Sub ReturnMessages(ByVal pResult As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Title As String)         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)             End Select         Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Return FeatureClass error")             Return Nothing         End Try     End Function     Friend Function RunTool(ByVal Process As ESRI.ArcGIS.Geoprocessor.IGPProcess, ByVal TC As ESRI.ArcGIS.esriSystem.ITrackCancel2) As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Try 'I am using a global variable for the Geoprocessor             Result = CType(Globals.GP.Execute(Process, Nothing), ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2)             If Result.Status <> ESRI.ArcGIS.esriSystem.esriJobStatus.esriJobSucceeded Then ReturnMessages(Result, "Geoprocessing Error")             Globals.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

You may get a good response from the Viewer Forum ... View more

It's supposed to be included in the next version coming out in about two weeks (according to a demo at the Federal Users Conference), the Flex and Silverlight versions sometime after that. ... View more

ESRI has issued Bug NIM063795 about this behavior. It occurs when the background processing is enabled. ... View more

I'm running a Dissolve (in ArcGIS 10) on a shapefile that doesn't contain the Shape_Area field and am selecting a text field for the dissolve item. It adds Shape_Length and Shape_Area fields to the resultant feature layer and I cannot do anything with those two fields (Delete, run the Field Calculator, or Calculate Geometry). When I export the in-memory feature layer to a shape files, both field are retained as Long fields with a value of 0. ... View more

Did you restart the server itself (not the service!) after making the change to the configuration file? ... View more

In my 9.x projects using the Geoprocessor, I would use the ESRI.ArcGIS.ADF.ComReleaser.ReleaseCOMObject at the end of the geoprocessing routine. Here's an example (in VB.NET). However, I'm not sure what to use in ArcGIS 10   Friend Sub DeleteDataset(ByVal InputName As Object)     Dim DSDelete As New ESRI.ArcGIS.DataManagementTools.Delete     Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult     Try       DSDelete.in_data = InputName       Result = RunTool(DSDelete, Nothing)       If Result Is Nothing Then System.Windows.Forms.MessageBox.Show("Unable to delete dataset '" & InputName & "'", "Unable to delete", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Exclamation)     Catch ex As Exception       ExceptionMessage(ex, "Delete Dataset")     Finally       ESRI.ArcGIS.ADF.ComReleaser.ReleaseCOMObject(DSDelete)     End Try   End Sub ... View more

What you could do is use Venka's example, but add the tiled service a second time after the dynamic service. Set the first tiled service's visibility to false. This first tiled service will set the LODs and scaling for the map and the second tiled service will be drawn over the dynamic layer. <esri:ArcGISTiledMapServiceLayer url="http://server.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer" visible="false"/>         <esri:ArcGISDynamicMapServiceLayer  url="http://sampleserver1.arcgisonline.com/ArcGIS/rest/services/Demographics/ESRI_Census_USA/MapServer">                <esri:visibleLayers>                      <s:ArrayCollection>                            <fx:Number>0</fx:Number>                            <!-- Show census block points only -->                      </s:ArrayCollection>                </esri:visibleLayers>         </esri:ArcGISDynamicMapServiceLayer> <esri:ArcGISTiledMapServiceLayer  url="http://server.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer" visible="true"/> ... View more