All Frameworks Object Hierarchy This Framework Indexes
| o Property Comment( | ) As |
Set CurrentSetup.Comment= "SetupComment"
| o Property Machine( | ) As |
Set Machine = CurrentSetup.Machine
| o Property MachiningAxisSystem( | ) As |
Set oMachiningAxis = CurrentSetup.MachiningAxisSystem
| o Property Product( | iProduct) |
CurrentSetup.Product = iProduct
| o Property Programs( | ) As (Read Only) |
Set ProgramsList = CurrentSetup.Programs
| o Func CreateMachine( | iTypeMachine) As |
call CurrentSetup.CreateMachine(Mfg3AxisWithTableRotationMachine)
| o Func DesignGeometriesCount( | ) As |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim DesignGeometriesListSize As Long DesignGeometriesListSize = CurrentSetup.DesignGeometriesCount
| o Func FixtureGeometriesCount( | ) As |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim FixtureGeometriesListSize As Long FixtureGeometriesListSize = CurrentSetup.FixtureGeometriesCount
| o Func GetMachiningAxisSystemName( | ) As |
Set oMachiningAxisSystemName = CurrentSetup.GetMachiningAxisSystemName
| o Func GetManufacturingView( | ) As |
Set MfgView = CurrentSetup.GetManufacturingView
| o Func GetPartName( | ) As |
Set oPartName = CurrentSetup.GetPartName
| o Func GetProductInstance( | ) As |
Set Product = CurrentSetup.GetProductInstance
| o Func GetSafetyPlane( | ) As |
Set oMathPlane= CurrentSetup.GetSafetyPlane
| o Sub GetStockFromSetup( | oStockPath) |
call CurrentSetup.GetStockFromSetup(oStockPath)
| o Sub GetToolChangePoint( | oX, | |
| oY, | ||
| oZ) |
call CurrentSetup.GetToolChangePoint(X,Y,Z)
| o Func InProcessModelBodiesCount( | ) As |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim IPMBodiesListSize As Long IPMBodiesListSize = CurrentSetup.InProcessModelBodiesCount
| o Sub ListDesignGeometriesProducts( | oListOfDesignGeometriesProducts) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim DesignGeometriesListSize As Long DesignGeometriesListSize = CurrentSetup.DesignGeometriesCount If DesignGeometriesListSize > 0 Then Dim ListOfDesignGeometries() As Variant Redim ListOfDesignGeometries(DesignGeometriesListSize-1) CurrentSetup.ListDesignGeometriesProducts(ListOfDesignGeometriesProducts) End If
| o Sub ListDesignGeometries( | oListOfDesignGeometries) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim DesignGeometriesListSize As Long DesignGeometriesListSize = CurrentSetup.DesignGeometriesCount If DesignGeometriesListSize > 0 Then Dim ListOfDesignGeometries() As Variant Redim ListOfDesignGeometries(DesignGeometriesListSize-1) CurrentSetup.ListDesignGeometries(ListOfDesignGeometries) End If
| o Sub ListFixtureGeometriesProducts( | oListOfFixtureGeometriesProducts) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim FixtureGeometriesListSize As Long FixtureGeometriesListSize = CurrentSetup.FixtureGeometriesCount If FixtureGeometriesListSize > 0 Then Dim ListOfFixtureGeometries() As Variant Redim ListOfFixtureGeometries(FixtureGeometriesListSize-1) CurrentSetup.ListFixtureGeometriesProducts(ListOfFixtureGeometriesProducts) End If
| o Sub ListFixtureGeometries( | oListOfFixtureGeometries) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim FixtureGeometriesListSize As Long FixtureGeometriesListSize = CurrentSetup.FixtureGeometriesCount If FixtureGeometriesListSize > 0 Then Dim ListOfFixtureGeometries() As Variant Redim ListOfFixtureGeometries(FixtureGeometriesListSize-1) CurrentSetup.ListFixtureGeometries(ListOfFixtureGeometries) End If
| o Sub ListInProcessModelBodies( | oListOfIPMBodies) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim IPMBodiesListSize As Long IPMBodiesListSize = CurrentSetup.InProcessModelBodiesCount If IPMBodiesListSize > 0 Then Dim ListOfIPMBodies() As Variant Redim ListOfIPMBodies(IPMBodiesListSize-1) CurrentSetup.ListInProcessModelBodies(ListOfIPMBodies) End If
| o Sub ListStockGeometriesProducts( | oListOfStockGeometriesProducts) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim StockGeometriesListSize As Long StockGeometriesListSize = CurrentSetup.StockGeometriesCount If StockGeometriesListSize > 0 Then Dim ListOfStockGeometries() As Variant Redim ListOfStockGeometries(StockGeometriesListSize-1) CurrentSetup.ListStockGeometriesProducts(ListOfStockGeometriesProducts) End If
| o Sub ListStockGeometries( | oListOfStockGeometries) |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim StockGeometriesListSize As Long StockGeometriesListSize = CurrentSetup.StockGeometriesCount If StockGeometriesListSize > 0 Then Dim ListOfStockGeometries() As Variant Redim ListOfStockGeometries(StockGeometriesListSize-1) CurrentSetup.ListStockGeometries(ListOfStockGeometries) End If
| o Sub ReadMfgData( | iFileName, | |
| iNCMILLSET) |
| o Sub SetProductAndReconciliate( | iProduct) |
call CurrentSetup.SetProductAndReconciliate(iProduct)
| o Sub SetSafetyPlane( | iSafetyPlane, | |
| iProduct) |
call CurrentSetup.SetSafetyPlane(iSafetyPlane,iProduct)
| o Sub SetStock( | iStock, | |
| iProduct) |
call CurrentSetup.SetStock(iStock,iProduct)
| o Sub SetToolChangePointByName( | iPointName) |
call CurrentSetup.SetToolChangePointByName(PT23)
| o Sub SetToolChangePoint( | iX, | |
| iY, | ||
| iZ) |
call CurrentSetup.SetToolChangePoint(X,Y,Z)
| o Func StockGeometriesCount( | ) As |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim StockGeometriesListSize As Long StockGeometriesListSize = CurrentSetup.StockGeometriesCount
Copyright © 2003, Dassault Systèmes. All rights reserved.