RFEdgeUse.CalcNormalAngle

Description

Calculates the angle between two normal vectors of adjacnet faces if manifold.

Syntax

Function RFEdgeUse.CalcNormalAngle(pdAngle As Double) As RFErrorCode

The CalcNormalAngle 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, calculated result will not have valid value. For reference, RFEdgeUse.CalcAngle + RFEdgeUse.CalcNormalAngle = 180 degree.

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)

    If bManifold = True Then
        ' Calculate the normal angle
        Dim nmAng As Double
        rfErr = edObj.CalcNormalAngle(nmAng)
    End If