All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---PspGroup
|
+---PspLogicalLine
| o Sub GetFromTo( | CATIAPspListOfObjects | oListFromMajor, |
| CATIAPspListOfObjects | oListFromMinor, | |
| CATIAPspListOfObjects | oListToMajor, | |
| CATIAPspListOfObjects | oListToMinor) |
Dim objThisIntf As PspLogicalLine Dim objArg1 As PspListOfObjects Dim objArg2 As PspListOfObjects Dim objArg3 As PspListOfObjects Dim objArg4 As PspListOfObjects ... objThisIntf.GetFromTo objArg1, objArg2, objArg3, objArg4
| o Func GetFromToInfoArrayMaxSize( | ) As long |
Dim objThisIntf As PspLogicalLine Dim intValueMaxSize As Integer ... intValueMaxSize = objThisIntf.GetFromToInfoArrayMaxSize
| o Sub GetFromToInformation( | CATSafeArrayVariant | oFromToLabel, |
| CATSafeArrayVariant | oFTMajor, | |
| CATSafeArrayVariant | oFTMinor, | |
| long | oSizeOfOutput) |
Dim objThisIntf As PspLogicalLine
Dim strFromToLabel(20) As String
Dim strFromToMajor(20) As String
Dim strFromToMinor(20) As String
Dim intValueMaxSize As Integer
intValueMaxSize = objThisIntf.GetFromToInfoArrayMaxSize
...
'---- make sure the array size if big enough
If (intValueMaxSize ≤ 20) Then
objThisIntf.GetFromToInformation _
strFromToLabel, strFromToMajor, strFromToMinor, intValueMaxSize
End If
The following table can then be filled with the output arrays.
From/To | F/T Major | F/T Minor
strFromToLabel(i) | strFromToMajor(i) | strFromToMinor(i)
Copyright © 2003, Dassault Systèmes. All rights reserved.