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.