Latest Contributions by MatthewBuchanan

In a map legend should the entries be singular or plural? It seems like they should be singular. i.e. Road instead of Roads. In my experience I have seen it both ways even on the same legend. A Google image search for "map legend" lead me to conclude there is no consistent way of having a legend entry be singular or plural. The more authoritative maps I've seen have legend entries in singular. (USGS, National Geographic, etc) So my question is, in what cases is a plural legend entry correct? This guide says singular: http://gisgeography.com/map-elements-how-to-guide-map-making/ entry 32: Features in Legend are Present and Singular This legend has legend categories in plural, but the individual entries are singular http://www.rootsweb.ancestry.com/~alfayett/Map_Legend.html ... View more

I am running the geoprocessing tool SurfaceVolume (in 3D analyst toolbar) from Visual Studio 2010.             ' Create the Geoprocessor object             Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult             Dim geoProcTool As SurfaceVolume = New SurfaceVolume             geoProcTool.in_surface = strDEM             geoProcTool.out_text_file = strOutputFile             geoProcTool.reference_plane = strReferencePlane             geoProcTool.base_z = dblPlaneHeight             geoProcTool.z_factor = dblZfactor             ' Start from top elevation, go down by interval to lower plane             Do While dblPlaneHeight > dblLowerPlane                 ' run process: Surface Volume...                 Result = RunTool(geoProcTool, Nothing)                 ' Increment plane height by interval                 dblPlaneHeight -= dblInterval                 intRows += 1             Loop This was working with 9.3.1, but when I upgraded to 10 after the first time through the loop it complained that strOutputFile already exists and won't append to the file like it is supposed to. I thought maybe that the tool changed at 10, but it doesn't seem to have any extra parameters. Is there a way to turn an overwrite setting on somewhere? I'm running ArcGIS 10 on MS Windows Server 2008 R2. ... View more

Hi I'm trying to cut a shapefile that has one polygon in it, with a line from another shapefile. The actual cutting of the polygon and creating of two new polygons seems to work fine, but then I want to delete the original polygon so there should be only 2 polygons, but the original is still there. The attribute table shows 3 but only 2 are showing when it draws. See the bold section in the code below. Am I missing something? I also tried this code to delete the original polygon:             Using comReleaser As ComReleaser = New ComReleaser                 Dim newFeatCurs As IFeatureCursor = polyFtrClass.Search(qryFilter, False) '.Update(qryFilter, False)                 comReleaser.ManageLifetime(newFeatCurs)                 Dim delFeature As IFeature = newFeatCurs.NextFeature                 Do While Not delFeature Is Nothing                     delFeature.Delete()                     delFeature = newFeatCurs.NextFeature                 Loop                 newFeatCurs = Nothing             End Using I'm using ArcMap 9.3.1 SP2, and programming in VB.NET (Visual Studio 2005.)     Public Sub cutty(ByVal app As IApplication)         Debug.Print("cutty")         ' Add layers to map         Dim mxDoc As IMxDocument = app.Document         Dim map As IMap = mxDoc.FocusMap         Dim lyr As ILayer         Dim strInputLayer As String = "test_polygon"         Dim strCopy As String = "test_manipulate"         Dim ftrlyr As IFeatureLayer = New FeatureLayer         Dim featClass As IFeatureClass         Dim ds As IDataset = Nothing         ' delete output layer from map if it's there         ' get input layer from TOC         Dim i As Integer         For i = map.LayerCount - 1 To 0 Step -1             lyr = map.Layer(i)             If UCase(lyr.Name) = UCase(strCopy) Then                 map.DeleteLayer(lyr)             ElseIf UCase(lyr.Name) = UCase(strInputLayer) Then                 ftrlyr = lyr                 featClass = ftrlyr.FeatureClass                 ds = featClass             End If         Next i         Dim wkspcFactory As IWorkspaceFactory = New ShapefileWorkspaceFactory()         Dim inWorkspace As IWorkspace = ds.Workspace         Dim featWorkspace As IFeatureWorkspace = inWorkspace         Dim ftrlyrCopy As IFeatureLayer = New FeatureLayer         If ds.CanCopy Then             Try                 Dim featClass2 As IFeatureClass = featWorkspace.OpenFeatureClass(strCopy)                 Debug.Print("trying to open: " & strCopy)                 Dim ds2 As IDataset = featClass2                 ds2.Delete()                 Debug.Print("Deleted: " & strCopy)             Catch ex As Exception                 Debug.Print("FAILED TO DELETE")             End Try             ds.Copy(strCopy, inWorkspace)             ftrlyrCopy.FeatureClass = featWorkspace.OpenFeatureClass(strCopy)             ftrlyrCopy.Name = strCopy             mxDoc.AddLayer(ftrlyrCopy)         End If         mxDoc.UpdateContents()         mxDoc.ActiveView.Refresh()         Debug.Print("DONE")         ' CUT PART         Try             ' Setup             Debug.Print("* cutty  ************************************")             ' HARDCODED -----------------------------------             Dim strCutline As String = "test_cutline"             Dim strfootprint As String = strCopy             Dim crestFtrLyr As IFeatureLayer = New FeatureLayer             Dim crestFtrClass As IFeatureClass = featWorkspace.OpenFeatureClass(strCutline)             '----------------------------------------------             ' Get dam crest layer i.e. cutting line             ' COMMENTED OUT FOR TESTING             'Dim crestFtrLyr As IFeatureLayer = GetLayerByName(strCutline)             'Dim crestFtrClass As IFeatureClass = crestFtrLyr.FeatureClass             ' Select the right side dam crest (positive direction)             Debug.Print("  Select right side dam crest")             Dim qryFilter As IQueryFilter = New QueryFilter()             qryFilter.WhereClause = "Comment = 'crestedge-pos'"             Dim crestFeatCurs As IFeatureCursor = crestFtrClass.Update(qryFilter, False)             Dim crestFeature As IFeature = crestFeatCurs.NextFeature()             Dim pCutLineLeft As IPolyline             Dim pCutLineRight As IPolyline             pCutLineRight = crestFeature.Shape             ' Now the left crest (negative direction)             Debug.Print("  Select left side dam crest")             qryFilter.WhereClause = "Comment = 'crestedge-neg'"             crestFeatCurs = crestFtrClass.Update(qryFilter, False)             crestFeature = crestFeatCurs.NextFeature()             pCutLineLeft = crestFeature.Shape             crestFeature = Nothing             crestFeatCurs = Nothing             ' Get polygon footprint             Debug.Print("  poly footprint")             Dim polyFtrLyr As IFeatureLayer = GetLayerByName(strfootprint)             Dim polyFtrClass As IFeatureClass = polyFtrLyr.FeatureClass             '================================================================             ' Use dam crest to cut footprint poly into 3 features             ' First cut the polygon into 2 pieces with the right cutting line             Debug.Print("  Part 1 Now make new right")             Dim pSF As ISpatialFilter = New SpatialFilter()             pSF.Geometry = pCutLineRight             pSF.GeometryField = "Shape"             pSF.SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects             Dim polyFeatCurs As IFeatureCursor             polyFeatCurs = CType(polyFtrClass.Update(pSF, False), IFeatureCursor)             Dim polyFeature As IFeature = polyFeatCurs.NextFeature()             Dim origPolygon As IPolygon = polyFeature.ShapeCopy 'Shape or ShapeCopy ?????             ' note: ITopologicalOperator5 gives an error             Dim pTopoOper As ITopologicalOperator4 = Nothing             pTopoOper = origPolygon             Dim pLGeom As IPolygon = Nothing             Dim pRGeom As IPolygon = Nothing             pTopoOper.Cut(pCutLineRight, pLGeom, pRGeom)             ' Make a new right poly             polyFeatCurs = polyFtrClass.Insert(True)             Dim polyFeatBuf As IFeatureBuffer             polyFeatBuf = polyFtrClass.CreateFeatureBuffer             polyFeatBuf.Shape = pRGeom             polyFeatBuf.Value(polyFeatBuf.Fields.FindField("Comment")) = "RIGHT"             Dim pArea As IArea = pRGeom             polyFeatBuf.Value(polyFeatBuf.Fields.FindField("Area")) = pArea.Area             polyFeatCurs.InsertFeature(polyFeatBuf)             'polyFeatCurs.Flush()             polyFeatCurs = Nothing             ' Make a new left poly             polyFeatCurs = polyFtrClass.Insert(True)             polyFeatBuf = polyFtrClass.CreateFeatureBuffer             polyFeatBuf.Shape = pLGeom             polyFeatBuf.Value(polyFeatBuf.Fields.FindField("Comment")) = "LEFT"             pArea = pLGeom             polyFeatBuf.Value(polyFeatBuf.Fields.FindField("Area")) = pArea.Area             polyFeatCurs.InsertFeature(polyFeatBuf)             polyFeatCurs.Flush()             polyFeatCurs = Nothing             polyFeatBuf = Nothing             ' delete original polygon             Debug.Print("  ----delete original----")             qryFilter.WhereClause = "Comment = 'FOOTPRINT'"             Dim table As ITable = CType(polyFtrClass, ITable)             table.DeleteSearchedRows(qryFilter)             table = Nothing             ' There should be two records, but the original polygon is still there.             Debug.Print("  Number of records = " & polyFtrClass.FeatureCount(Nothing))             ' Refresh view             mxDoc.ActiveView.Refresh()             MessageBox.Show("Finished")         Catch ex As Exception             Debug.Print("--EXCEPTION HAS OCCURRED IN cutty-")             Debug.Print(ex.Message)             MessageBox.Show("Error #" & Information.Err().Number & Environment.NewLine & Information.Err().Description & Environment.NewLine & Information.Err().Source, "cutty", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try     End Sub ... View more

This worked in VB6: dim firstLayer as ILayer dim dataSet as IDataset dim workSpace as IWorkspace dim strWorkingPath as String If TypeOf firstLayer Is IFeatureLayer Or TypeOf firstLayer Is IRasterLayer Then     dataSet = firstLayer     workSpace = dataSet.Workspace     strWorkingPath = workSpace.PathName End If In VB.NET (VS 2005) they say to use GetType, but I can't find any examples that make any sense. ... View more