RFVertex.CalcNormal



Your Ad Here

Description

Calculates the normal vector of the vertex.

Syntax

Function RFVertex.CalcNormal(pNormal As RFVector3) As RFErrorCode

The CalcNormal syntax has these parts:

Part Description
pNormal [OUTRFVector3 Required. Normal vector of the vertex.

Remarks

Sample

Dim rfErr As RapidForm.RFErrorCode
Dim vtObj As RapidForm.RFVertex

    ' Assign the RFVertex interface object.
    Set vtObj = RapidForm.Vertex
    
    ' Pick a vertex.
    Dim pickedID As RFEntityID
    rfErr = RapidForm.SelectTools.PickEntity(RF_PICK_VERTEX, 1, pickedID)
    
    ' If an error happens, exit the subroutine.
    If rfErr <> RF_SUCCESS Then
        MsgBox RapidForm.Application.GetErrorMessage(rfErr)
        Exit Sub
    End If
    
    rfErr = vtObj.SetID(pickedID)
    
    ' Calculate the normal vector of the vertex.
    Dim nmVec As RFVector3
    rfErr = vtObj.CalcNormal(nmVec)

Return to Rapidform Index


Your Ad Here