FastenerGroup (Object)



Properties


Property Color( iColor) (Write Only)
Sets the color of the fasteners.
Example:
This example sets the Color type of all the fasteners to red 
 redCol  =16711680 'Encoded RGB color within long integer (R=255 G=0 B=0)
 MyFastenerGroup.Color = redCol
Property Style( iStyle) (Write Only)
Sets the CGR Style representation for the Spot Welds in the 3D Viewer.
Parameters:
iStyleType
of the CGR Style to be used for representation.
The valid set of Styles are :-
  • As specified in XML in tools-options page
Example:
This example sets the CGR Style type of all the fasteners to Sphere provided it is available in XML file 
 MyFastenerGroup.Style = "Sphere"
Property Symbol( iColor) (Write Only)
Sets the symbol for representation for the Spot Welds in the 3D Viewer.
Parameters:
iSymbolType
of the symbol to be used for representation.
The valid set of symbols are :-
  • CROSS
  • PLUS
  • CONCENTRIC
  • COINCIDENT
  • FULLCIRCLE
  • FULLSQUARE
  • STAR
  • DOT
  • SMALLDOT
Example:
This example sets the Symbol type of all the fasteners to FULLSquare 
 MyFastenerGroup.Symbol = "FULLSQUARE"

Methods


Func GetCount( IDName) As
Returns the number of entities in the fastener group of the Type.
Parameters:
oNumOfEntities
The number of Entities
Example:
This example gets number of welds in the fastener Group 
 Dim NumberOfWelds
 NumberOfWelds = MyFastenerGroup.GetCount("DELMIASpotWeld")
This example gets number of FastenerGroups in the fastener Group 
 Dim NumberOfGroups
 NumberOfGroups = MyFastenerGroup.GetCount("DELMIAFastenerGroup")
Sub GetItems( IDName, oListOfEntities)
Returns the entities in the fastener group of the type which is input. which are direct children only
Example:
This example gets welds in the fastener Group 
 Dim NumberOfWelds
 NumberOfWelds = MyFastenerGroup.GetItems("DELMIASpotWeld")
This example gets the FastenerGroups in the fastener Group 
 Dim NumberOfGroups
 NumberOfGroups = MyFastenerGroup.GetItems("DELMIAFastenerGroup")
Sub GetJoinedPartNames( oListOfParts)
Returns the list of part names joined by fastener.
Parameters:
oListOfParts
The list of parts
Example:
This example gets list of parts joined by fastener 
 Dim NumberOfParts
 Dim JoiningParts()
 NumberOfParts = MyFastenerGroup.NumberOfJoiningParts
 ReDim JoiningParts(NumParts-1)
 MyFastenerGroup.GetJoinedPartNames(JoiningParts)
Func GetPart( index) As
Returns the product at the specified index from the list of parts joined by fastener group.
Parameters:
index
Index should be greater than equal to 1.
Example:
This example gets the part at index 1 
 Dim MyProduct As Product
 Set MyProduct = MyFastenerGroup.GetPart(1)
Sub Hide()
Hides all the entities in the fastener group.
Example:
This example hides all the welds in the fastener Group 
 MyFastenerGroup.Hide
Func NumberOfJoiningParts() As
Returns the number of parts joined by the fastener group.
Parameters:
oNumOfParts
The number of parts
Example:
This example gets number of parts joined by fastener 
 Dim NumberOfParts
 NumberOfParts = MyFastenerGroup.NumberOfJoiningParts
Sub Show()
Shows all the entities in the fastener group.
Example:
This example shows all the welds in the fastener Group 
 MyFastenerGroup.Show