All Frameworks Object Hierarchy This Framework Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---Dressup
| o Property Context( | ) As CATIAProduct (Read Only) |
Dim MecaContext As Product
Set MecaContext = MyDressup.Context
| o Property Mechanism( | ) As CATIAMechanism (Read Only) |
Dim Meca As Mechanism Set Meca = MyDressup.Mechanism
| o Sub Attach( | CATIAProduct | iLink, |
| CATIAProduct | iAttachedProd) |
Dim Link1 As Product
Dim Product1 As Product
...
MyDressup.Attach(Link1,Product1)
| o Sub Detach( | CATIAProduct | iAttachedProd) |
Dim Product1 As Product
...
MyDressup.Detach(Product1)
| o Func ListAttached( | CATIAProduct | iLink) As CATSafeArrayVariant |
Dim ListAttached1 as Product
ListAttached1 = MyDressup.ListAttached(Link1)
Dim Maxi as Integer
Set Maxi = ubound(ListAttached1)
Dim Prod_i as Product
For i = 0 To Maxi
Set Prod_i = ListAttached1(i)
..
Next
Copyright © 2003, Dassault Systèmes. All rights reserved.