RFEdgeUse.GetNextEdgeUse

Description

Retrieves entity ID's of the start and end vertices representing the next edge-use if manifold.

Syntax

Function RFEdgeUse.GetNextEdgeUse(pStartVertexID As RFEntityID, pEndVertexID As RFEntityID) As RFErrorCode

The GetNextEdgeUse syntax has these parts:

Remarks

• In case that edge-use is not manifold, that is, there are more than two faces sharing this edge-use, retrieved result will not have a valid value. Use RFEdgeUse.IsManifold method to check if the edge-use is manifold or not.
  

Sample

Dim rfErr As RapidForm.RFErrorCode
Dim shObj As RapidForm.RFShell
Dim fcObj As RapidForm.RFFace
Dim edObj As RapidForm.RFEdgeUse

    ' Assign RFShell, RFFace and RFEdgeUse interface objects
    Set shObj = RapidForm.Shell
    Set fcObj = RapidForm.Face
    Set edObj = RapidForm.EdgeUse
    
    ' Pick a face.
    Dim pickedID As RFEntityID
    rfErr = RapidForm.SelectTools.PickEntity(RF_PICK_FACE, 1, pickedID)
    fcObj.SetID (pickedID)
    
    Dim vtID(2) As RFEntityID
    
    ' Retrieves 3 vertices of the face.
    rfErr = fcObj.GetVertices(vtID(0), vtID(1), vtID(2))
    
    ' Identify an edge use by using the first two vertices.
    rfErr = edObj.SetID(vtID(0), vtID(1))
    
    ' Check if the edge use is a manifold edge.
    Dim bManifold As Boolean
    rfErr = edObj.IsManifold(bManifold)
    
    ' Topology navigation
    If bManifold = True Then
        Dim adjEntID As RFEntityID
        Dim adjEntID2 As RFEntityID
        
        ' Retrieves the left face.
        rfErr = edObj.GetLeftFace(adjEntID)
        
        ' Retrieves the left vertex.
        rfErr = edObj.GetLeftVertex(adjEntID)
        
        ' Retrieves the right face.
        rfErr = edObj.GetRightFace(adjEntID)
        
        ' Retrieves the right vertex.
        rfErr = edObj.GetRightVertex(adjEntID)
        
        ' Retrieves the previous edge use.
        rfErr = edObj.GetPreviousEdgeUse(adjEntID, adjEntID2)
        
        ' Retrieves the next edge use.
        rfErr = edObj.GetNextEdgeUse(adjEntID, adjEntID2)
    End If