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 | [OUT] RFVector3 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)