RFVertex.GetPoint

Description

Retrieves the vertex position.

Syntax

Function RFVertex.GetPoint(pPoint As RFPoint3) As RFErrorCode

The GetPoint syntax has these parts:

Remarks

• Vertex coordinates are in reference to the current coordinate system of the parent shell. The current coordinate system of a shell can be either local or global which can be set by RFShell.SetCoordinateMode method.
  

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)
    
    ' Retrieves the coordinates of the vertex
    Dim vtPt As RFPoint3
    rfErr = vtObj.GetPoint(vtPt)
    
    ' Assigns new coordinates
    vtPt.x = vtPt.x + 10
    vtPt.y = vtPt.y + 10
    vtPt.z = vtPt.z + 10
    
    rfErr = vtObj.SetPoint(vtPt)