RFEdgeUse.GetPoints

Description

Retrieves the coordinates of start and end vertices.

Syntax

Function RFEdgeUse.GetPoints(pStartPoint As RFPoint3, pEndPoint 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 an edge-use. The current coordinate system of shell can be local or global that can be set by RFShell.SetCoordinateMode method.

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))
    
   
    ' Retrieves the geometries
    Dim stPt As RFPoint3
    Dim edPt As RFPoint3
    
    ' Retrieves the start point.
    rfErr = edObj.GetStartPoint(stPt)
    
    ' Retrieves the end point.
    rfErr = edObj.GetEndPoint(edPt)
    
    ' Retrieves the start and end point at once.
    rfErr = edObj.GetPoints(stPt, edPt)