All Frameworks Object Hierarchy This Framework Indexes
Dim MAfactory As MfgAssemblyFactory
Set MAfactory = CATIA.ActiveDocument.GetItem("MfgAssemblyFactory")
| o Func CreateMfgAssembly( | ) As |
Dim MA As MfgAssembly (Or Dim MA As item) MAfactory.CreatesMfgAssembly MA where objMAfact is a instance of Automation Interface for Manufacturing Assembly as shown earlier
| o Func GetNumberOfMfgAssemblies( | ) As |
Dim nbMfgAssemblies Set nbMfgAssemblies = objMAfact.GetNumberOfMfgAssemblies MsgBox NbMA
| o Sub RemoveMfgAssembly( | iMfgAssembly) |
Dim mfgAssy As Item Set mfgAssy = objMAfact.RetrieveMfgAssemblyAtIndex(1) objMA.RemoveMfgAssembly mfgAssy
| o Func RetrieveMfgAssemblyAtIndex( | iIndex) As |
Dim nbMfgAssemblies
Set nbMfgAssemblies = objMAfact.GetNumberOfMfgAssemblies
For II = 0 to MyNum-1
Dim mfgAssy As Item
Set mfgAssy = objMAfact.RetrieveMfgAssemblyAtIndex(II)
Next
| o Sub RetrieveMfgAssembly( | iNameBSTR, | |
| oMfgAssemblies, | ||
| oNumOfMfgAssemblies) |
Dim nbMfgAssemblies Set nbMfgAssemblies = objMAfact.GetNumberOfMfgAssemblies Dim MAList() As AnyObject ReDim MAList(nbMfgAssemblies-1) Dim NbMA objMA.RetrieveMfgAssembly "MA_TYPE1",MAList,NbMA MsgBox NbMA
Copyright © 2003, Dassault Systèmes. All rights reserved.