All Frameworks Object Hierarchy This Framework Indexes Previous Next
o Property Comment( | ) As CATBSTR |
Set CurrentSetup.Comment= "SetupComment"
o Property Machine( | ) As ManufacturingMachine |
Set Machine = CurrentSetup.Machine
o Property MachiningAxisSystem( | ) As ManufacturingMachiningAxis |
Set oMachiningAxis = CurrentSetup.MachiningAxisSystem
o Property Product( | Product | iProduct) |
CurrentSetup.Product = iProduct
o Property Programs( | ) As MfgActivities (Read Only) |
Set ProgramsList = CurrentSetup.Programs
o Func CreateMachine( | CATBSTR | iTypeMachine) As ManufacturingMachine |
call CurrentSetup.CreateMachine(Mfg3AxisWithTableRotationMachine)
o Func DesignGeometriesCount( | ) As long |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim DesignGeometriesListSize As Long DesignGeometriesListSize = CurrentSetup.DesignGeometriesCount
o Func FixtureGeometriesCount( | ) As long |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim FixtureGeometriesListSize As Long FixtureGeometriesListSize = CurrentSetup.FixtureGeometriesCount
o Func GetMachiningAxisSystemName( | ) As CATBSTR |
Set oMachiningAxisSystemName = CurrentSetup.GetMachiningAxisSystemName
o Func GetManufacturingView( | ) As ManufacturingView |
Set MfgView = CurrentSetup.GetManufacturingView
o Func GetPartName( | ) As CATBSTR |
Set oPartName = CurrentSetup.GetPartName
o Func GetProductInstance( | ) As Product |
Set Product = CurrentSetup.GetProductInstance
o Func GetSafetyPlane( | ) As CATSafeArrayVariant |
Set oMathPlane= CurrentSetup.GetSafetyPlane
o Sub GetStockFromSetup( | CATBSTR | oStockPath) |
call CurrentSetup.GetStockFromSetup(oStockPath)
o Sub GetToolChangePoint( | double | oX, |
double | oY, | |
double | oZ) |
call CurrentSetup.GetToolChangePoint(X,Y,Z)
o Func InProcessModelBodiesCount( | ) As long |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim IPMBodiesListSize As Long IPMBodiesListSize = CurrentSetup.InProcessModelBodiesCount
o Sub ListDesignGeometriesProducts( | CATSafeArrayVariant | 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( | CATSafeArrayVariant | 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( | CATSafeArrayVariant | 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( | CATSafeArrayVariant | 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( | CATSafeArrayVariant | 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( | CATSafeArrayVariant | 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( | CATSafeArrayVariant | 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( | CATBSTR | iFileName, |
CATSafeArrayVariant | iNCMILLSET) |
o Sub SetProductAndReconciliate( | Product | iProduct) |
call CurrentSetup.SetProductAndReconciliate(iProduct)
o Sub SetSafetyPlane( | AnyObject | iSafetyPlane, |
Product | iProduct) |
call CurrentSetup.SetSafetyPlane(iSafetyPlane,iProduct)
o Sub SetStock( | AnyObject | iStock, |
Product | iProduct) |
call CurrentSetup.SetStock(iStock,iProduct)
o Sub SetToolChangePointByName( | CATBSTR | iPointName) |
call CurrentSetup.SetToolChangePointByName(PT23)
o Sub SetToolChangePoint( | double | iX, |
double | iY, | |
double | iZ) |
call CurrentSetup.SetToolChangePoint(X,Y,Z)
o Func StockGeometriesCount( | ) As long |
Dim CurrentSetup As ManufacturingSetup Set CurrentSetup = ... Dim StockGeometriesListSize As Long StockGeometriesListSize = CurrentSetup.StockGeometriesCount
Copyright © 2003, Dassault Systèmes. All rights reserved.