All Frameworks Object Hierarchy This Framework Indexes
Dim objMAfact As MfgAssemblyFactory
Set objMAfact = CATIA.ActiveDocument.GetItem("MfgAssemblyFactory")
| o Func CreateMfgAssembly( | iNameBSTR, | |
| iPartNumberBSTR, | ||
| iType) As |
Dim matype As DNBIAMfgAssemblyType matype=manufacturingKit Dim MA As MfgAssembly (Or Dim MA As item) objMAfact.CreateMfgAssembly "MKit1","Kit1",matype,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 nbMfgAssemblies
| o Sub GetNumberofALLMfgAssy( | iType, | |
| oNumOfMfgAssemblies) |
Dim matype As DNBIAMfgAssemblyType matype=manufacturingKit Dim nbMfgAssemblies objMAfact.GetNumberofALLMfgAssy matype,nbMfgAssemblies MsgBox nbMfgAssemblies
| o Sub RemoveMfgAssembly( | iMfgAssembly) |
Dim mfgAssy As Item Set mfgAssy = objMAfact.RetrieveMfgAssemblyAtIndex(1) objMAfact.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 objMAfact.RetrieveMfgAssembly "MA_TYPE1",MAList,NbMA MsgBox NbMA
| o Sub RetriveALLMfgAssy( | iType, | |
| oAllMAs, | ||
| oNumOfMfgAssemblies) |
Dim matype As DNBIAMfgAssemblyType matype=manufacturingKit Dim nbMfgAssemblies objMAfact.GetNumberofALLMfgAssy matype,nbMfgAssemblies Dim MAList() As AnyObject ReDim MAList(nbMfgAssemblies) Dim NbMA objMAfact.RetriveALLMfgAssy matype,MAList,NbMA
Copyright © 2003, Dassault Systèmes. All rights reserved.