All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---FastenerGroup
o Property Color( | long | iColor) (Write Only) |
redCol =16711680 'Encoded RGB color within long integer (R=255 G=0 B=0) MyFastenerGroup.Color = redCol
o Property Style( | CATBSTR | iStyle) (Write Only) |
MyFastenerGroup.Style = "Sphere"
o Property Symbol( | CATBSTR | iColor) (Write Only) |
MyFastenerGroup.Symbol = "FULLSQUARE"
o Func GetCount( | CATBSTR | IDName) As long |
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( | CATBSTR | IDName, |
CATSafeArrayVariant | 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( | CATSafeArrayVariant | oListOfParts) |
Dim NumberOfParts Dim JoiningParts() NumberOfParts = MyFastenerGroup.NumberOfJoiningParts ReDim JoiningParts(NumParts-1) MyFastenerGroup.GetJoinedPartNames(JoiningParts)
o Func GetPart( | short | index) As CATIAProduct |
Dim MyProduct As Product Set MyProduct = MyFastenerGroup.GetPart(1)
o Sub Hide( | ) |
MyFastenerGroup.Hide
o Func NumberOfJoiningParts( | ) As long |
Dim NumberOfParts NumberOfParts = MyFastenerGroup.NumberOfJoiningParts
o Sub Show( | ) |
MyFastenerGroup.Show
Copyright © 2003, Dassault Systèmes. All rights reserved.