All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---Collection | +---Parameters
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim part1 As Document Set part1 = CATDocs.Add("CATPart") Dim parameterList As Parameters Set parameterList = part1.Part.Parameters
o Property RootParameterSet( | ) As CATIAParameterSet (Read Only) |
o Property Units( | ) As CATIAUnits (Read Only) |
o Func CreateBoolean( | CATBSTR | iName, |
boolean | iValue) As CATIABoolParam |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim part1 As Document Set part1 = CATDocs.Add("CATPart") Dim chk As BooleanParam Set chk = part1.Part.Parameters.CreateBoolean ("checked", False)
o Func CreateDimension( | CATBSTR | iName, |
CATBSTR | iMagnitude, | |
double | iValue) As CATIADimension |
Dim depth As Dimension Set depth = parameters.CreateDimension("depth", "LENGTH", 20) depth.ValuateFromString("300mm");
o Func CreateInteger( | CATBSTR | iName, |
long | iValue) As CATIAIntParam |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim part1 As Document Set part1 = CATDocs.Add("CATPart") Dim revision As IntParam Set revision = part1.Part.Parameters.CreateInteger ("RevisionRumber", 17)
o Func CreateList( | CATBSTR | iName) As CATIAListParameter |
Set CATDocs = CATIA.Documents Set part1 = CATDocs.Add("CATPart") Set list1 = part1.Part.Parameters.CreateList ("ListName")
o Func CreateReal( | CATBSTR | iName, |
double | iValue) As CATIARealParam |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim part1 As Document Set part1 = CATDocs.Add("CATPart") Dim rate As RealParam Set rate = part1.Part.Parameters.CreateReal ("ReliabilityRate", 2.5 )
o Sub CreateSetOfParameters( | CATIABase | iFather) |
o Func CreateString( | CATBSTR | iName, |
CATBSTR | iValue) As CATIAStrParam |
Set CATDocs = CATIA.Documents Set part1 = CATDocs.Add("CATPart") Set density = part1.Part.Parameters.CreateString ("responsible", "The Boss")
o Func GetNameToUseInRelation( | CATIABase | iObject) As CATBSTR |
o Func Item( | CATVariant | iIndex) As CATIAParameter |
Set lastParameter = parameters.Item(parameters.Count)
o Sub Remove( | CATVariant | iIndex) |
parameters.Remove("depth")
o Func SubList( | CATIABase | iObject, |
boolean | iRecursively) As CATIAParameters |
Dim Parameters1 As Parameters Set Parameters1 = CATIA.ActiveDocument.Part.Parameters gets the collection of parameters in the part Dim Body0 As AnyObject Set Body0 = CATIA.ActiveDocument.Part.Bodies.Item ( "MechanicalTool.1" ) Dim Pad1 As AnyObject Set Pad1 = Body0.Shapes.Item ( "Pad.1" ) gets the pad Pad.1 Dim Parameters2 As Parameters Set Parameters2 = Parameters1.SubList(Pad1,TRUE) gets the collection of parameters that are under the pad Pad.1
Copyright © 2003, Dassault Systèmes. All rights reserved.