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.