RFShell.AddFace

Description

Adds a new face which consists of three ordered vertices to the shell, and retrieves an RFEntityID value indicating an entity ID of the new face.

Syntax

Function RFShell.AddFace(vertexID1 As RFEntityID, vertexID2 As RFEntityID, vertexID3 As RFEntityID, bCheckManifold As Boolean, pFaceID As RFEntityID) As RFErrorCode

The AddFace syntax has these parts:

Part	Description
vertexID1	[IN] RFEntityID Required. EntityID of the first vertex.
vertexID2	[IN] RFEntityID Required. EntityID of the second vertex.
vertexID3	[IN] RFEntityID Required. EntityID of the third vertex.
bCheckManifold	[IN] Boolean Required. It should be set TRUE to prevent a non-manifold edge from being generated.
pFaceID	[OUT] RFEntityID Required. EntityID of the new face.

Remarks

vertexID1, vertexID2, and vertexID3 should be properly ordered to satisfy right-hand rule for obtaining the face normal.
A set of three ordered vertices {a,b,c} is identical to {b,c,a} and {c,a,b} in terms of normal direction. Face object provides RFFace.ReverseNormal method to switch the sense of face normal direction.
With bCheckManifold = TRUE option, if the specified face forms a non-manifold edge, a new face is not added and retrieved RFEntityID is NULL(0).

Sample

Dim rfErr As RFErrorCode
Dim mdObj As RapidForm.RFModel
Dim shObj As RapidForm.RFShell

    Set mdObj = RapidForm.Model
    Set shObj = RapidForm.Shell
    
    Dim shID As RFEntityID
    
    ' Add a blank sell.
    shID = mdObj.AddShell(RF_GENERIC_SHELL, "Simple shell")
    
    ' Register the shell in the GUI database.
    rfErr = RapidForm.UserInterface.AddShellToProjectTree(shID)
    
    rfErr = shObj.SetID(shID)
    
    ' Add three vertices in the shell.
    Dim vtID(2) As RFEntityID
    rfErr = shObj.AddVertex(0, 0, 0, vtID(0))
    rfErr = shObj.AddVertex(10, 0, 0, vtID(1))
    rfErr = shObj.AddVertex(0, 10, 0, vtID(2))
    
    ' Add a face composed by the three vertices.
    Dim fcID As RFEntityID
    rfErr = shObj.AddFace(vtID(0), vtID(1), vtID(2), False, fcID)
    
    ' Update the GUI database and redraw the scene.
    rfErr = RapidForm.Document.RegenShell(shID)
    RapidForm.Document.RedrawScene

Return to Rapidform Index

Your Ad Here