RFModel.AddShell

Description

Adds a shell having the specified name and returns an RFEntityID value of the new shell.

Syntax

Function RFModel.AddShell(type As RFShellType, Name As String) As RFEntityID

The AddShell syntax has these parts:

Part	Description
type	[IN] RFShellType Required. Type of the shell to add.
Name	[IN] String Required. String expression that identifies shell's name to add.

Remarks

A shell created with type=RF_GENERIC_SHELL option can not have a local coordinate system and so that any shell method that is based on the local coordinate system can not be used for a generic type shell such as RFShell.SetCoordinateMode, RFShell.SetMeasuringCoordinate, RFShell.GetMeasuringCoordinate, RFShell.GetGlobalToLocalMatrixand RFShell.GetLocalToGlobalMatrix.
When a shell is created with type=RF_MEASURED_SHELL option, the coordinate mode of the shell is set to RF_LOCAL_COORDINATE_MODE by default and initially, the local coordinate system is identical to the global coordinate system. And, a rigid transformation of a measured type shell does not move vertices of the shell directly but it transforms the local coordinate system.
The Z or -Z direction of the local coordinate system is assumed as a 3D measuring(scanning) direction. This information is used especially in RFPointTools.Triangulate2D method. If a shell is an RF_MEASURED_SHELL, RF_TRIANGULATE_DIRECTION_PLUS_Z or RF_TRIANGULATE_DIRECTION_MINUS_Z option always refers to the local coordinate system regardless of shell!/s coordinate mode.

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