Latest Contributions by NeilClemmons

When you say utility, do you mean this is a standalone application or is it running inside ArcMap? ... View more

A spatial query can be performed with a multi-part polygon.  Are you getting an error or is your query simply not returning any features?  You're specifying esriSpatialRelEnum.esriSpatialRelWithin as the relationship type.  This means the query will return only features that wholly contain your multi-part polygon.  If you want to query for features that are inside your multi-part polygon then you need to use esriSpatialRelContains. ... View more

Yeah, I forgot to mention you're using the wrong symbol type.  You're creating a fill symbol and trying to use it to draw a polyline.  You need to use a line symbol type instead.  In the envelope sample, you're trying to use a line symbol type to draw a polygon (you'd need to create a polygon from the envelope).  You should be using a fill symbol.  Those changes should be all you need to get it working. ... View more

You can't cast a geometry to a symbol.  The first code example you posted is what you should be doing except you create the polyline using the circular arc and then pass the polyline to the Add method instead of the circular arc. ... View more

I put together a quick sample that is working for me when I run it.         Try             ' Open the geodatabase.             Dim workspacePath As String = "C:\Development\ApplicationTest\Data\Gdb\test.mdb"             Dim workspaceFactory As IWorkspaceFactory = DirectCast(Activator.CreateInstance(Type.GetTypeFromProgID("esriDataSourcesGDB.AccessWorkspaceFactory")), IWorkspaceFactory)             Dim workspace As IWorkspace = workspaceFactory.OpenFromFile(workspacePath, m_application.hWnd)             ' Open the feature class.             Dim featureClassName As String = "structure_existing_area"             Dim featureClass As IFeatureClass = DirectCast(workspace, IFeatureWorkspace).OpenFeatureClass(featureClassName)             ' Open the table.             Dim tableName As String = "building_types"             Dim table As ITable = DirectCast(workspace, IFeatureWorkspace).OpenTable(tableName)             ' Create a layer from the feature class.             Dim featureLayer As IFeatureLayer = New FeatureLayer             featureLayer.Name = "Buildings"             featureLayer.FeatureClass = featureClass             ' Get the fields to use in the join.             Dim tableField As IField = table.Fields.Field(table.Fields.FindField("building_type"))             Dim layerField As IField = featureClass.Fields.Field(featureClass.Fields.FindField("buildng_id"))             ' Join the table to the layer.             Dim memRelClassFactory As IMemoryRelationshipClassFactory = New MemoryRelationshipClassFactory             Dim relClass As IRelationshipClass = memRelClassFactory.Open("Join", DirectCast(table, IObjectClass), tableField.Name, featureLayer.FeatureClass, layerField.Name, "forward", "backward", esriRelCardinality.esriRelCardinalityOneToMany)             Dim displayRelClass As IDisplayRelationshipClass = DirectCast(featureLayer, IDisplayRelationshipClass)             displayRelClass.DisplayRelationshipClass(relClass, esriJoinType.esriLeftOuterJoin)             ' Create the renderer.             Dim renderer As IUniqueValueRenderer = New UniqueValueRenderer             renderer.FieldCount = 1             renderer.Field(0) = DirectCast(table, IDataset).Name & "." & tableField.Name             ' Add values and symbols to the renderer.             Dim featureCursor As IFeatureCursor = DirectCast(featureLayer, IGeoFeatureLayer).SearchDisplayFeatures(Nothing, True)             Dim dataStats As IDataStatistics = New DataStatistics             dataStats.Field = tableField.Name             dataStats.Cursor = DirectCast(featureCursor, ICursor)             Dim values As IEnumerator = dataStats.UniqueValues             values.Reset()             Dim count As Int32 = 0             Do While values.MoveNext                 Dim value As String = Convert.ToString(values.Current)                 ' There are only 3 unique values in the table so I'm just hard-coding some colors for this sample.                 Dim symbol As ISimpleFillSymbol = New SimpleFillSymbol                 Dim color As IRgbColor = New RgbColor                 If count = 0 Then                     color.Red = 255                 ElseIf count = 1 Then                     color.Green = 255                 Else                     color.Blue = 255                 End If                 symbol.Color = color                 count += 1                 renderer.AddValue(value, "Building Type", DirectCast(symbol, ISymbol))             Loop             ' Set the default symbol but don't use it.             renderer.DefaultSymbol = New SimpleFillSymbol             renderer.UseDefaultSymbol = False             DirectCast(featureLayer, IGeoFeatureLayer).Renderer = DirectCast(renderer, IFeatureRenderer)             ' Add the layer to the map.             DirectCast(m_application.Document, IMxDocument).FocusMap.AddLayer(featureLayer)             DirectCast(m_application.Document, IMxDocument).UpdateContents()             DirectCast(m_application.Document, IMxDocument).ActiveView.Refresh()         Catch ex As Exception             MessageBox.Show(ex.ToString)         End Try ... View more

It's been a while since I've had to write any code that deals with joins but your fully qualified field name doesn't look correct to me.  I've looked over some of our code that deals with qualified field names and all it appears to be doing is appending the table name to the field name (table.field).  Your field name has the database name and owner name appended as well.  Try stripping that off and see what happens. ... View more

Can you post the code that creates the unique value renderer and applies it to the layer?  Also, what is the value of Fields after this line executes: tableSort.Fields = classifyParms.ClassifyField.Qualified; ... View more

Performing a join doesn't change the underlying feature class.  If it did, then that means it would be changing your actual data (if you want the join to be permanent then you will need to export the layer out to a new feature class).  A feature layer is based on a data source (i.e. a feature class).  You can add definition queries, joins, relates, etc. but none of this should be changing the actual data source; it should simply change how the layer is displayed.  When you query the layer, you have several options.  If you want your query to return results from the feature class then use IFeatureLayer.FeatureClass.Search to execute the query.  The query will not be filtered by any definition query and will not contain fields from any joins (because it's querying the actual data in the database, not the visual representation).  If you want the query to respect the definition query then use IFeatureLayer.Search to execute the query.  The features returned by this query will not contain fields from any joins.  If you want the query to respect the definition query and also contain fields from any joins then use IGeoFeatureLayer.SearchDisplayFeatures or IDisplayTable.SearchDisplayTable to execute the query. ... View more

Yours doesn't work the same because the AreaOfInterest property returns the spatially referenced extent of the layer, not the minimum bounding extent of the features within the layer.  If you want to do the exact same thing that ArcMap does then you can call the actual ArcMap command.  To do this you'll need to set the context item reference on the current contents view.  The code below is a VBA macro that shows how to do this.  It uses the selected layer in the TOC to set the context item but you can modify it to use any layer reference you want. Sub ZoomToLayer()     Dim mxDoc As IMxDocument     Set mxDoc = ThisDocument         Dim layer As IFeatureLayer     Set layer = mxDoc.SelectedLayer         mxDoc.CurrentContentsView.ContextItem = layer     Dim uid As uid     Set uid = New uid     uid.Value = "{18DF94D9-0F8A-11D2-94B1-080009EEBECB}:7"     Dim commandItem As ICommandItem     Set commandItem = Application.Document.CommandBars.Find(uid)     commandItem.Execute End Sub ... View more

As already mentioned, a shapefile is not capable of storing field aliases.  What you're seeing are the field aliases stored in the mxd.  You can set a field alias on any attribute field through the Fields property page but this alias is only stored in the document.  If you add that shapefileto another mxd, then it will not have those aliases.  You can access these field aliases through IFieldInfo.  To do this, get the feature layer from the map, QI over to ILayerFields and call ILayerFields.FieldInfo(). ... View more

One way to do this is to query the feature layer (use IFeatureLayer.Search so that it respects the definition query) and add the feature geometries to a geometry bag.  Then zoom to the envelope of the geometry bag.  You can also use IEnumGeometryBind together with ITopologicalOperator.ConstructUnion to union the features together, after which you would zoom to the envelope of the resulting polygon. ... View more