Latest Contributions by DuncanHornby

What would be even better is if the model could self check and explicitly state the minimum license level a model can be executed under. Some sort of icon\text that pops in the help panel? ... View more

Don, Not sure about AddIns being used in other applications but if you wanted to say have Access drive ArcMap or use your custom ArcObjects in Excel you want to be creating a Class Library under the extending ArcObjects when you create a new Visual Studio project. If it were me I would then develop my Code as a COM Class. The compiled DLL can then be added to the application under the reference section in the VBA editor and then all you code will appear. Duncan ... View more

Terry, In your code try testing if the objects WSFac and factoryType are Nothing. This will at least rule out they were not created correctly? Duncan ... View more

Hello, About a year ago I played around with MapTopology to see what one could do with it. The code below is in VBA and shows you how you could identify dangling nodes. The limitation of this method is that it works only when you are in edit mode. Duncan Public Sub SelectDanglingPolylines() ' Description: Takes a polyline dataset and select all dangling polylines. ' ' Requirements: You need to be in edit mode and have added the layer to a MAP TOPOLOGY, ' also polyline layer must be first in TOC. ' ' Limitations: Large datasets take a long time to build the cache and may even fail. ' ' Author: Duncan Hornby ' Created: 11/12/2011 ' ' Get map and then first layer, must be of polyline type Dim pMXDocument As IMxDocument Set pMXDocument = ThisDocument Dim pMap As IMap Set pMap = pMXDocument.FocusMap Dim pLayer As ILayer Set pLayer = pMap.Layer(0) Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pLayer Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFeatureLayer.FeatureClass If pFeatureClass.ShapeType <> esriGeometryPolyline Then MsgBox "This code works only with polylines!", vbExclamation, "Wrong data type at layer 0" Exit Sub End If ' Get editor and topology extension Dim pEditor As IEditor Dim pID As New UID Dim pTopologyExtension As ITopologyExtension Dim pTEID As New UID pID = "esriEditor.editor" Set pEditor = Application.FindExtensionByCLSID(pID) pTEID = "esriEditorExt.TopologyExtension" Set pTopologyExtension = Application.FindExtensionByCLSID(pTEID) If pTopologyExtension.CurrentTopology Is Nothing Then Exit Sub ' Get a MAP topology not a geodatabase topology Dim pMapTopology As IMapTopology If TypeOf pTopologyExtension.CurrentTopology Is IMapTopology Then Set pMapTopology = pTopologyExtension.MapTopology Else ' Not a Map Topology Exit Sub End If ' This is the colection that FID are added to Dim aColl As New Collection ' Build cache Application.StatusBar.Message(0) = "Building MAP TOPOLOGY cache, this can take a long time on large datasets..." DoEvents Dim pGeoDataset As IGeoDataset Set pGeoDataset = pFeatureClass Dim pEnvelope As IEnvelope Set pEnvelope = pGeoDataset.Extent pMapTopology.Cache.Build pEnvelope, False ' Identify dangling nodes and add polyline FID to collection Application.StatusBar.Message(0) = "Identifying dangling nodes..." DoEvents Dim pEnumTopologyParent As IEnumTopologyParent Dim pTopologyNode As ITopologyNode Dim pEnumTopologyNode As IEnumTopologyNode Set pEnumTopologyNode = pMapTopology.Cache.Nodes pEnumTopologyNode.Reset Set pTopologyNode = pEnumTopologyNode.Next While Not pTopologyNode Is Nothing If pTopologyNode.Degree = 1 Then ' As this has 1 degree it has only 1 parent polyline Set pEnumTopologyParent = pTopologyNode.Parents pEnumTopologyParent.Reset aColl.Add (pEnumTopologyParent.Next.m_FID) 'Adds polyline FID to collection End If Set pTopologyNode = pEnumTopologyNode.Next Wend ' Use collection to select polylines Application.StatusBar.Message(0) = "Selecting polylines..." DoEvents Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFeatureLayer Dim X As Variant For Each X In aColl pFeatureSelection.SelectionSet.Add CLng(X) Next pMXDocument.ActiveView.PartialRefresh esriViewGeoSelection, Nothing, pEnvelope Application.StatusBar.Message(0) = "" DoEvents End Sub ... View more

I agree it would be good if the attachment is managed or unmanaged just like a raster catalog. I would find it very helpful the ability to link an attachment to an external file rather than something that gets sucked into the geodatabase. ... View more

Bruce,You can do this easily you just call the appropriate method on the application object. So the first thing you need to do is search the help file for Excel and you will discover all the functions you need. I don't have them at hand as I am accessing this forum from a tablet... ... View more

Roland, I know in 10.1 the legend is now capable of dropping items from its display when there are no features from that layer in the current extent, its some option you need to tick on when in legend properties mode. It seems to be accessible from the IDynamicLegendItem Interface. One idea is to associate a graphics layer to the visibility of a layer have a look at the IGraphicsLayer Interface. Never used it so don't know if I'm suggesting a red herring! Duncan ... View more

What sort of collection are you talking about? Is it a collection, arraylist, dictionary or hashtable? Either way you still need to build a cursor over the table and cycle through it copying the data into your collection object. There are many examples on the forum and in help that can give you coded samples. Search for IFeatureCursor. Duncan ... View more

Richard, I was having ArcMap crash spectacularly and it was down to the IDatastatistics object as indicated by the thread that Ken has linked to. It took a few days of headbanging a brick wall and all manner of cursing before I discovered that thread so I re-engineered the code to use a cursor to obtain unique values. It is clearly a bug introduced into 10.1 Everyone else thanks for your advice on best practise when using comReleaser (which seems to be don't use it! 😄 ) Duncan ... View more

OK this is a shot in the dark. I don't tend to call geo-processing tools the way you are, I use the old style create a variant array and pass that to a tool. I just have not got around to learning your method. But I'm guessing you are missing a parameter? Your error message talks about a scripting engine, so I'm guessing you have to explicitly state which one you are using VBScript or Python? But I don't know how you would do that with your approach. Duncan ... View more

Neil and Jason, Thank you for telling me why I should not be using comReleaser! ESRI use it in many of their code examples so this is why I have adopted it as I understood it guaranteed the release of the cursor but as Jason shows that is not always the case and using Marshal.ReleaseComObject is a more robust solution. BUT, I can't help noticing this does not answer my question...;) If you are using comReleaser what is the best practise when you have nested loops? Neil points out it is an ESRI class, may be one the the ESRI product developers can answer this question? Duncan ... View more

James, Search for IRasterStretch2 Interface it has an invert method, not used it but my money is on that! Duncan ... View more