Latest Contributions by DuncanHornby

Hi, I zoomed into a map and set the extent to the current display and then ran the VBA script below to see what came out Public Sub x()     Dim p As IGeoProcessor     Set p = New GeoProcessor     Dim x As String     Let x = p.GetEnvironmentValue("extent")     Debug.Print x End Sub The result is a string with numbers separated by a single SPACE character and not commas. Also the values are anti-clockwise starting with "LEFT BOTTOM RIGHT TOP". Nothing I can find in the ArcObjects API help indicates this what so ever! The only place I have found any indication in what order the limits of your extent should be is here in Python. Duncan ... View more

This is exists in ArcGIS 10.1 as a tool called Sort Coded Value Domain. Try looking in Help. ... View more

Christopher, Am I right in saying the blue layer is your excluded polygon layer? If so does it actually just end there? Does it cover the entire layer that is your background layer? Is it some weird multi-part polygon layer? Duncan ... View more

Sarah, Assuming your grid dataset exists just use the spatial join tool, this returns a count. Duncan ... View more

Have a look at this thread it contains VBA code that shows you how to connect to an Excel worksheet, this should get you going. ... View more

Alex, Sorry I don't know the answer to that question as I have never done any web based geo-processing. May be someone lese can answer this? Duncan ... View more

Is this not simply drawing a polyline and just changing the symbology (line thickness, end symbol)? ... View more

Split line at vertices tool? ... View more

Terry, Whilst you were working out it was a server side issue I was testing some code in VBA. It's uploaded for others, just in case they use VB. Public Sub test()     Dim path As String     Let path = "C:\Scratch\graphs.xlsx" ' also works if it is a .xls     Dim pWSF As IWorkspaceFactory     Set pWSF = New ExcelWorkspaceFactory     Dim pWS As IWorkspace     Set pWS = pWSF.OpenFromFile(path, 0)     Dim pFWS As IFeatureWorkspace     Set pFWS = pWS     Dim pTable As ITable     Set pTable = pFWS.OpenTable("Sheet1$")     If pTable Is Nothing Then         MsgBox "uh oh!"     Else         MsgBox "you have a table!"     End If End Sub ... View more

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