RFFace.CalcCenter

Description

Calculates the centroid(center point) of the face.

Syntax

Function RFFace.CalcCenter(pCenter As RFPoint3) As RFErrorCode

The CalcCenter syntax has these parts:

Remarks

• Center point of a face is an average point of its three vertices in reference to the current coordinate system of the parent shell to which the face belongs. These vertices can be obtained by RFFace.GetPoints method.
  

Sample

Dim rfErr As RapidForm.RFErrorCodeDim fcObj As RapidForm.RFFace

    ' Assign the RFFace interface object
    Set fcObj = RapidForm.Face

    ' Pick a face
    Dim pickedID As RFEntityID
    rfErr = RapidForm.SelectTools.PickEntity(RF_PICK_FACE, 1, pickedID) 

   ' If an error happens, exit the subroutine.
    If rfErr <> RF_SUCCESS Then
        MsgBox RapidForm.Application.GetErrorMessage(rfErr)
        Exit Sub
    End If

    rfErr = fcObj.SetID(pickedID)

    ' Calculate the center point of the face.
    Dim centPt As RFPoint3
    rfErr = fcObj.CalcCenter(centPt)