Latest Contributions by dgesridgesri

Hello All,   We have just installed ArcGIS 10.1 and MS Visual Studio 10 to develop automation tools for select by attribute and select by Location. We developed a new add-in button in ArcMAP, and clicking it should do 4 queries, 2 of them are  attribute queries and other 2 are spatial queries. order (1 attribute, 1 spatial, 1 attribute, 1 spatial) Suffering from very slow performance when using our code to perform the spatial queries. Please help!! Here after is the used code: Public Function p_GenSelectByLocation(ByVal SourceLayerName As String, ByVal TargetLayerName As String, ByVal Whereclause As String, ByVal SelectionType As esriSelectionResultEnum, ByVal RelationType As esriSpatialRelEnum) As Integer Try Dim pboolSrcFound As Boolean = False Dim pboolTrgtFound As Boolean = False Dim pEnumLayer As IEnumLayer = My.ArcMap.Document.ActiveView.FocusMap.Layers(Nothing, True) Dim pSrcFLayer As IFeatureLayer = Nothing Dim pTrgtFLayer As IFeatureLayer = Nothing Dim pLoopLayer As ILayer = pEnumLayer.Next() pEnumLayer.Reset() Do Until pLoopLayer Is Nothing If TypeOf pLoopLayer Is IFeatureLayer Then If pLoopLayer.Name = SourceLayerName Then pSrcFLayer = pLoopLayer pboolSrcFound = True End If If pLoopLayer.Name = TargetLayerName Then pTrgtFLayer = pLoopLayer pboolTrgtFound = True End If End If If pboolSrcFound = True And pboolTrgtFound = True Then Exit Do pLoopLayer = pEnumLayer.Next() Loop If pSrcFLayer Is Nothing Or pTrgtFLayer Is Nothing Then Exit Try Dim pSrcFeatureSelection As IFeatureSelection = pSrcFLayer Dim pGeomToUnion As IGeometryCollection = New GeometryBag() If pSrcFeatureSelection.SelectionSet.Count = 0 Then Exit Try 'Get union of Geometry of all selected features Dim pCursor As ICursor = Nothing pSrcFeatureSelection.SelectionSet.Search(Nothing, False, pCursor) If pCursor Is Nothing Then Exit Try Dim pfeatureCursor As IFeatureCursor = pCursor Dim pFeature As IFeature = pfeatureCursor.NextFeature Dim pGeometry As IGeometry pGeometry = pFeature.Shape Dim pCount As Integer = 0 Do Until pFeature Is Nothing pCount += 1 pGeometry = pFeature.Shape pGeomToUnion.AddGeometry(pGeometry) pFeature = pfeatureCursor.NextFeature Loop Dim pEnumGeometry As IEnumGeometry = pGeomToUnion 'Dim pgeometrybag As IGeometryBag = pEnumGeometry Dim pResultGeom As ITopologicalOperator = Nothing If pGeometry.GeometryType = esriGeometryType.esriGeometryPolyline Then pResultGeom = New Polyline pResultGeom.ConstructUnion(pEnumGeometry) ElseIf pGeometry.GeometryType = esriGeometryType.esriGeometryPolygon Then pResultGeom = New Polygon pResultGeom.ConstructUnion(pEnumGeometry) End If If pResultGeom Is Nothing Then Exit Try 'define the spatial filter and select the features based on the union Geometry Dim pSFilter As ISpatialFilter = New SpatialFilter 'If pTrgtFLayer Is Nothing Then Exit Try Dim pnameOfShapeField As System.String = pTrgtFLayer.FeatureClass.ShapeFieldName pSFilter.GeometryField = pnameOfShapeField pSFilter.Geometry = TryCast(pResultGeom, IGeometry) pSFilter.SpatialRel = RelationType Dim pTrgtFeatureSelection As IFeatureSelection = pTrgtFLayer pTrgtFeatureSelection.SelectFeatures(TryCast(pSFilter, ESRI.ArcGIS.Geodatabase.ISpatialFilter), SelectionType, False) Return pTrgtFeatureSelection.SelectionSet.Count Catch ex As Exception pFuncReturnDebug(ex) Return -1 End Try End Function   ... View more

Greetings, I am new to Python but not new to ArcObject & .Net development. I just have a simple question that need some care from the Python developers if possible. I have two featureclasses loaded in ArcMap and each one of them has different fields names and different count of fields. What I need is to copy data from the 1st FC to the 2nd FC and allow the user to select fields from the 1st FC and map them with the corresponding fields in the 2nd FC and this is all using Python on ArcMap10.1. Please support me in this case ASAP. Thanks in advance... ... View more

Greetings I have an application developed with Vb.Net 2005 and Crystal report XI used to preview many statistical reports. I always preview any report successfully, but when exporting any report that contains a Chart into pdf using the built-in export functionality in the report viewer control, the application freezes forever. While when exporting any report that does not contain any chart into pdf, it exported successfully and with no errors. So, I need to know if there is a some way / Solution / workaround that I could use to fix my issue and let my export process continue successfully. please can I have a little help over here... Please advise... Thanks in advance.... ... View more