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.