All Frameworks Object Hierarchy This Framework Indexes
| o Property Color( | ) As |
redCol =16711680 'Encoded RGB color within long integer (R=255 G=0 B=0) MyFastener.Color = redCol
| o Property ProcessType( | ) As (Read Only) |
Dim PrType PrType = MyFastener.ProcessType
| o Func AllPartsLoaded( | ) As |
| o Func GetDoubleUserAttribute( | iAttributeLabel) As |
DblAttrVal = MyFastener.GetDoubleUserAttribute ("PLATE SIZE")
| o Func GetIntUserAttribute( | iAttributeLabel) As |
| o Func GetPart( | index) As |
Dim MyProduct As Product Set MyProduct = MyFastener.GetPart(1)
| o Sub GetParts( | oListOfParts) |
Dim NumberOfParts Dim JoiningParts() NumberOfParts = MyFastener.NumberOfJoiningParts ReDim JoiningParts(NumParts-1) MyFastener.GetParts(JoiningParts)
| o Func GetProcess( | index) As |
Dim MyActivity As Activity Set MyActivity = MyFastener.GetProcess(1)
| o Func GetStringUserAttribute( | iAttributeLabel) As |
Dim StrAttrVal As String
StrAttrVal = MyFastener.GetStringUserAttribute ("PLATE NAME")
| o Func NumberOfAssignedProcesses( | ) As |
| o Func NumberOfJoiningParts( | ) As |
Dim NumberOfParts NumberOfParts = MyFastener.NumberOfJoiningParts
| o Sub SetDoubleUserAttribute( | iAttributeLabel, | |
| iDoubleValue) |
MyFastener.GetDoubleUserAttribute ("PLATE SIZE",DblAttrVal)
| o Sub SetIntUserAttribute( | iAttributeLabel, | |
| iIntValue) |
| o Sub SetStringUserAttribute( | iAttributeLabel, | |
| iStringValue) |
Dim StrAttrVal As String
StrAttrVal = "Name"
MyFastener.SetStringUserAttribute ("PLATE NAME",StrAttrVal)
| o Sub SetTextIDVisibility( | iStatus) |
Copyright © 2003, Dassault Systèmes. All rights reserved.