Indexes
Dim CATDocs As Documents
Set CATDocs = CATIA.Documents
Dim part1 As Dccument
Set part1 = CATDocs.Add("CATPart")
Dim year As IntParam
Set year = part1.Part.Parameters.CreateInteger("year", 1998)
| o Property RangeMaxValidity( | ) As |
| o Property RangeMax( | ) As |
If (Length.RangeMax < 0.0 and Length.RangeMaxValidity <> 0) Then
Length.RangeMax = 0.0
End If
| o Property RangeMinValidity( | ) As |
| o Property RangeMin( | ) As |
If (Length.RangeMin > 0.0 and Length.RangeMinValidity <> 0) Then
Length.RangeMin = 0.0
End If
| o Property Value( | ) As |
If (year.Value = 2000) Then
year.Value = 0
End If
| o Func GetEnumerateValuesSize( | ) As |
| o Sub GetEnumerateValues( | oSafeArray) |
Dim enumValues () as Variant ReDim enumValues (anIntegerParameter.GetEnumerateValuesSize() - 1) anIntegerParameter.GetEnumerateValues(enumValues) For i = LBound(enumValues) to UBound(enumValues) ... Next
| o Sub SetEnumerateValues( | iSafeArray) |
| o Sub SuppressEnumerateValues( | ) |
Copyright © 2006, Dassault Systèmes. All rights reserved.