RFFace.GetPoints

Description

Retrieves the coordinates of all three vertices.

Syntax

Function RFFace.GetPoints(pPt1 As RFPoint3, pPt2 As RFPoint3, pPt3 As RFPoint3) As RFErrorCode

The GetPoints syntax has these parts:

Remarks

• The vertex coordinates are in reference to the current coordinate system set for the parent shell of the face.
  

Sample

Dim rfErr As RapidForm.RFErrorCode
Dim 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)
    
    ' Retrieves the vertices coordinates of the face.
    Dim vtPt1 As RFPoint3
    Dim vtPt2 As RFPoint3
    Dim vtPt3 As RFPoint3
    
    rfErr = fcObj.GetPoints(vtPt1, vtPt2, vtPt3)