ITinNodeInfo.NodeEditInfo Property

Node info.

[Visual Basic .NET]
Public Function get_NodeEditInfo ( _
    ByVal nodeIndex As Integer _
) As Integer

[C#]
public int get_NodeEditInfo (
    int nodeIndex
);

[C++]
HRESULT get_NodeEditInfo(
  long nodeIndex,
  System.Int32* pInfo
);

[C++]
Parameters
nodeIndex [in]

  nodeIndex is a parameter of type long
pInfo [out, retval]

  pInfo is a parameter of type long*

Product Availability

Description

Returns a long that's used to provide information about the nature of the node (i.e. original, snapped, densified). The long is compared with a bitwise operator against esriTinNodeEditInfo enumeration values. This is done because a node may have multiple values at once. For example, a node may be considered densified because it was added by the software where two breaklines intersected. It is both a densified node and an intersection.

The node information is not persisted to disk. It exists while the TIN is being constructed and before it's saved. Once saved, the information is lost.

Public Sub ReportNodeInfo(pTinAdv As ITinAdvanced2, lNodeIndex As Long)
  Dim pNodeInfo As ITinNodeInfo
  Set pNodeInfo = pTinAdv
  
  Dim sInfo As String
  
  Dim lNodeInfo As Long
  lNodeInfo = pNodeInfo.NodeEditInfo(lNodeIndex)
  
  If ((lNodeInfo And esriTinNodeDensified)) Then
    sInfo = sInfo & "Densified" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeIntersection)) Then
    sInfo = sInfo & "Intersection" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeLineTouch)) Then
    sInfo = sInfo & "LineTouch" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeCoincident)) Then
    sInfo = sInfo & "Coincident" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeLineEnforce)) Then
    sInfo = sInfo & "LineEnforce" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeOriginal)) Then
    sInfo = sInfo & "Original" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeSnap)) Then
    sInfo = sInfo & "Snap" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeSuperNode)) Then
    sInfo = sInfo & "SuperNode" & vbCrLf
  End If
  If ((lNodeInfo And esriTinNodeUnknown)) Then
    sInfo = sInfo & "Unknown" & vbCrLf
  End If
  
  MsgBox sInfo
End Sub

See Also