Latest Contributions by DaveCouture

I'm trying to perform a Table Query using the PerformAttributeQuery snipet and I'm just trying to figure out how to select a table, for the function.      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click          Dim queryFilter As String = "Code = '" + ComboBox1.Text.Trim + "'"          Dim table as ESRI.ArcGIS.Geodatabase.ITable = ?????                           MsgBox(PerformAttributeQuery(table, queryFilter))          End Sub     Public Function PerformAttributeQuery(ByVal table As ESRI.ArcGIS.Geodatabase.ITable, ByVal whereClause As System.String) As ESRI.ArcGIS.Geodatabase.ICursor         Dim queryFilter As ESRI.ArcGIS.Geodatabase.IQueryFilter = New ESRI.ArcGIS.Geodatabase.QueryFilterClass()         queryFilter.WhereClause = whereClause         Dim cursor As ESRI.ArcGIS.Geodatabase.ICursor = table.Search(queryFilter, False)         Return cursor     End Function ... View more

Iâ??m able to get the Geometry of a Feature Class, but I would like to get the Geometry of the selected Feature. I think I have to find a way to get the Index of the selected, before getting the Geometry. I'm just having a little problem with it. This is what I have:             ' Check if Zoning Polygon is in ArcMap                        Dim pMap As IMap = My.ArcMap.Document.ActiveView             Dim featLayerUid As New UIDClass             featLayerUid.Value = "{40A9E885-5533-11D0-98BE-00805F7CED21}"             Dim enumLayer As IEnumLayer = pMap.Layers(featLayerUid, True)              enumLayer.Reset()             Dim layer As ILayer = enumLayer.Next             Dim fLayer As IFeatureLayer = CType(layer, IFeatureLayer)             Do While Not (layer Is Nothing)                 If CType(fLayer.FeatureClass, IDataset).Name = "CSJGISSDE.GISDATA.Zoning" Or                     CType(fLayer.FeatureClass, IDataset).Name = "Zoning" Then                     Exit Do                 End If                 layer = enumLayer.Next()             Loop             If layer Is Nothing Then                 MsgBox("Zoning Polygon Feature Class is missing.")                 Return             End If              ' Check if feature is selected             Dim featureSelection As IFeatureSelection = TryCast(fLayer, IFeatureSelection)             If featureSelection.SelectionSet.Count() = 0 Then                 MsgBox("No Selection")                 Return             End If              ' Get the Geometry.             Dim shapeFieldName As String = fLayer.FeatureClass.ShapeFieldName             Dim shapeFieldIndex As Integer = fLayer.FeatureClass.FindField(shapeFieldName)                        Dim fields As IFields = fLayer.FeatureClass.Fields             Dim shapeField As IField = fields.Field(shapeFieldIndex)             Dim geometryDef As IGeometryDef = shapeField.GeometryDef             Dim featureShape As String = ""             Select Case geometryDef.GeometryType                 Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint                     featureShape = "Point"                 Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryMultipoint                     featureShape = "Multipoint"                 Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline                     featureShape = "Polyline"                 Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon                     featureShape = "Polygon"                 Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryMultiPatch                     featureShape = "MultiPatch"             End Select             MsgBox(featureShape) ... View more

How can I check if the Edit Session is on?  With my current code, ArcMap crashes when not in Edit Session.  I'd like to put a warning for the user to start an Edit Session, if they forgot.                  Dim pEnumFeature As ESRI.ArcGIS.Geodatabase.IEnumFeature         Dim pFeature As ESRI.ArcGIS.Geodatabase.IFeature         Dim pEditor As ESRI.ArcGIS.Editor.IEditor         Dim featureCode As String         Dim def As String          pEditor = My.ArcMap.Application.FindExtensionByName("esriEditor.Editor")         pEnumFeature = pEditor.EditSelection         pEnumFeature.Reset()         pFeature = pEnumFeature.Next         pEditor.StartOperation() ... View more

I???ve build a few ArcMap Add-ins and they work fine, when running in the Data View mode.  But, if I???m in the Layout View and I start the Add-Ins, ArcMap crashes. Is there a way to get a message, instead of a crash, when the user is not in Data View?  Or, is there a way to have an Add-In to work in both Data View and Layout view? ... View more