RFFace.CalcAngle



Your Ad Here

Description

Calculates the corner angle of the specified vertex.

Syntax

Function RFFace.CalcAngle(vertexIndex As Long, pdAngle As Double) As RFErrorCode

The CalcAngle syntax has these parts:

Part Description
vertexIndex [IN] Long Required. 0, 1 or 2 indicating the vertex index.
pdAngle [OUT] Double Required. The corner angle in radian of the specified vertex.

 

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)
    
    ' Calculate the angle of the first vertex.
    Dim vtAng As Double
    rfErr = fcObj.CalcAngle(0, vtAng)

Return to Rapidform Index


Your Ad Here