Description This function adds a new Cylinder type Element Primitive node and returns the node number of the added object.
Syntax epNode = ElemAddCylinder( tEnt )
Parameters epNode (Long) Node number of the element primitive that was added.
tEnt As T_ENTITY Data structure containing the generic entity information (name, parent, description, etc.) required to add a node to the object tree.
Example The example below shows how to initialize a T_ENTITY structure, add a Cylinder type element primitive and then modify the element primitive parameters.
Sub Main
'Initialize the generic element data Dim tEnt As T_ENTITY InitEntity( tEnt ) tEnt.name = "EP Cylinder" tEnt.parent = 2 'Geometry folder
'Create the element primitive node Dim epNode As Long epNode = ElemAddCylinder( tEnt )
'Modify the element primitive parameters ElemSetParmValue( epNode, 0, 5 ) 'Semi-aperture = 5 ElemSetParmValue( epNode, 1, 5 ) 'Length = 5 ElemSetParmValue( epNode, 2, 1 ) 'Element origin: 0 = (+Z)front end, 1 = (-Z)back end, 2 = center of cylinder surface
'Update the model Update
End Sub
See Also Element Primitives Script Commands Element Composite (Boolean) Script Commands
|