All Frameworks Object Hierarchy This Framework Indexes
| o Property Color( | iColor) (Write Only) |
redCol =16711680 'Encoded RGB color within long integer (R=255 G=0 B=0) MyFastenerGroup.Color = redCol
| o Property Style( | iStyle) (Write Only) |
MyFastenerGroup.Style = "Sphere"
| o Property Symbol( | iColor) (Write Only) |
MyFastenerGroup.Symbol = "FULLSQUARE"
| o Func GetCount( | IDName) As |
Dim NumberOfWelds
NumberOfWelds = MyFastenerGroup.GetCount("DELMIASpotWeld")
This example gets number of FastenerGroups in the fastener Group
Dim NumberOfGroups
NumberOfGroups = MyFastenerGroup.GetCount("DELMIAFastenerGroup")
| o Sub GetItems( | IDName, | |
| oListOfEntities) |
Dim NumberOfWelds
NumberOfWelds = MyFastenerGroup.GetItems("DELMIASpotWeld")
This example gets the FastenerGroups in the fastener Group
Dim NumberOfGroups
NumberOfGroups = MyFastenerGroup.GetItems("DELMIAFastenerGroup")
| o Sub GetJoinedPartNames( | oListOfParts) |
Dim NumberOfParts Dim JoiningParts() NumberOfParts = MyFastenerGroup.NumberOfJoiningParts ReDim JoiningParts(NumParts-1) MyFastenerGroup.GetJoinedPartNames(JoiningParts)
| o Func GetPart( | index) As |
Dim MyProduct As Product Set MyProduct = MyFastenerGroup.GetPart(1)
| o Sub Hide( | ) |
MyFastenerGroup.Hide
| o Func NumberOfJoiningParts( | ) As |
Dim NumberOfParts NumberOfParts = MyFastenerGroup.NumberOfJoiningParts
| o Sub Show( | ) |
MyFastenerGroup.Show
Copyright © 2003, Dassault Systèmes. All rights reserved.