You are here: > ESRI Forums > arcgis desktop discussion forums > Thread Replies

ArcGIS Desktop Discussion Forums

ArcGIS Desktop - Data Editing forum

Displaying Pseudo Node and Dangling Nodes   Jonathan Nowlan Jul 18, 2003
Re: Displaying Pseudo Node and Dangling Nod...   Steve Walker Jul 30, 2003
Re: Displaying Pseudo Node and Dangling Nod...   Kirk Kuykendall Jul 30, 2003
Re: Displaying Pseudo Node and Dangling Nod...   Jenny Smith May 24, 2006
Report Inappropriate Content • Top • Print • This Forum is closed for replies.    
Subject Displaying Pseudo Node and Dangling Nodes 
Author Jonathan Nowlan 
Date Jul 18, 2003 
Message I am trying to figure out how to display pseudo and dangling nodes from a street coverage in ArcMap

I can't seem to find a function in ArcGIS that lets you display them like in ArcInfo

Does anyone know how to do that? 
   
Report Inappropriate Content • Top • Print • This Forum is closed for replies.    
Subject Re: Displaying Pseudo Node and Dangling Nodes 
Author Steve Walker 
Date Jul 30, 2003 
Message Try converting to a geodatabase and use the topology functionality. 
   
Report Inappropriate Content • Top • Print • This Forum is closed for replies.    
Subject Re: Displaying Pseudo Node and Dangling Nodes 
Author Kirk Kuykendall 
Date Jul 30, 2003 
Message I think you can also draw shapefile nodes based on degree (or valence) with ArcView. I don't have an ArcView license so I haven't been able to test this. (works fine with ArcEdit license) Tested with US highways checked in the maptopology dialog of the topology extension toolbar.

kkeywords dangle nodes imaptopology
 
 
Option Explicit
Sub DrawNodes()
    Dim pTExt As ITopologyExtension
    Set pTExt = Application.FindExtensionByName("ESRI Topology Extension")
    
    If Not pTExt.CurrentTopology Is pTExt.MapTopology Then
        MsgBox "only works with a maptopology"
        Exit Sub
    End If
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Dim pAV As IActiveView
    Set pAV = pMxDoc.FocusMap
    
    If Not Contains(pTExt.MapTopology.Cache.BuildExtent, pAV.Extent) Then
        pTExt.MapTopology.Cache.Build pAV.Extent, True
    End If
    
    Dim pEnumNode As IEnumTopologyNode
    Set pEnumNode = pTExt.MapTopology.Cache.Nodes
    Dim pNode As ITopologyNode
    Set pNode = pEnumNode.Next
    With pAV.ScreenDisplay
        .StartDrawing .hDC, esriNoScreenCache
        Do Until pNode Is Nothing
            Select Case pNode.Degree
            Case 1
                .SetSymbol MakeMarkerSym(vbRed)
            Case 2
                .SetSymbol MakeMarkerSym(vbBlue)
            Case 3
                .SetSymbol MakeMarkerSym(vbGreen)
            Case Else
                .SetSymbol MakeMarkerSym(vbYellow)
            End Select
            .DrawPoint pNode.Geometry
            Set pNode = pEnumNode.Next
        Loop
        .FinishDrawing
    End With
        
End Sub

Function Contains(pRelOp As IRelationalOperator, _
                  pGeom As IGeometry) As Boolean
    Contains = pRelOp.Contains(pGeom)
End Function

Function MakeMarkerSym(lRGB As Long, _
                       Optional dSize As Double = 6) As ISimpleMarkerSymbol
    Set MakeMarkerSym = New SimpleMarkerSymbol
    MakeMarkerSym.Color = MakeColor(lRGB)
    MakeMarkerSym.Size = dSize
End Function

Function MakeColor(lRGB As Long) As IRgbColor
    Set MakeColor = New RgbColor
    If lRGB < 0 Then
        MakeColor.Red = Rnd * 255
        MakeColor.Green = Rnd * 255
        MakeColor.Blue = Rnd * 255
    Else
        MakeColor.RGB = lRGB
    End If
End Function
 
  Kirk Kuykendall
AmberGIS Programming Services & Sales
http://www.ambergis.com
Now Answering questions at:
http://gis.stackexchange.com/


 
   
Report Inappropriate Content • Top • Print • This Forum is closed for replies.    
Subject Re: Displaying Pseudo Node and Dangling Nodes 
Author Jenny Smith 
Date May 24, 2006 
Message Hi Kirk
Firstly thank you for your show nodes tool. We have been using it in ArcView 9.1 and ArcInfo 9.1 to check road topology.
The users asked me to enquire if your script can be changed to only display one type of node at a time. Only red / end point then toggle to Case2 etc.
The reason being that sometimes a green dot will obscure a red dot.
OR Alternatively can the symbol be changed to be a colored circle outline or different symbols so that all will be visible.
Not knowing VB at all your advice will be much appreciated.
Thanks