ManufacturingSetup (Object)

A ManufacturingSetup for a Manufacturing Document.

Properties


Property Comment() As
Return the Default Comment of a Manufacturing Setup.
Example:
The following example return the comment SetupComment of to the manufacturing setup CurrentSetup 
 Set CurrentSetup.Comment= "SetupComment"
Property Machine() As
Give the Machine linked to a Manufacturing Setup.
Example:
The following example returns the Machine linked to the manufacturing setup CurrentSetup 
 Set Machine = CurrentSetup.Machine
Property MachiningAxisSystem() As
Retrieves the Machining Axis system from a Manufacturing Setup.
Example:
The following example retrieves the Machining Axis system oMachiningAxis from the manufacturing setup CurrentSetup 
 Set oMachiningAxis = CurrentSetup.MachiningAxisSystem
Property Product( iProduct)
Associate the Product to a Manufacturing Setup.
Example:
The following example associates the Product iProduct to the manufacturing setup CurrentSetup 
 CurrentSetup.Product = iProduct
Property Programs() As (Read Only)
Give the List of Programs linked to a Manufacturing Setup.
Example:
The following example returns the list of Programs ProgramsList linked to the manufacturing Setup CurrentSetup 
 Set ProgramsList = CurrentSetup.Programs

Methods


Func CreateMachine( iTypeMachine) As
Initialise the Manufacturing Machine linked to a Manufacturing Setup.
Example:
The following example initialise the machine Mfg3AxisWithTableRotationMachine as Manufacturing Machine in the manufacturing setup CurrentSetup 
 call CurrentSetup.CreateMachine(Mfg3AxisWithTableRotationMachine)
Func DesignGeometriesCount() As
Returns the number of design geometries from a Manufacturing Setup.
Parameters:
oDesignGeometriesListSize
The number of design geometries of this setup
Example:
The following example retrieves the number of design geometries of the setup CurrentSetup in DesignGeometriesListSize. 
 Dim CurrentSetup As ManufacturingSetup
 Set CurrentSetup = ...
 Dim DesignGeometriesListSize As Long
 DesignGeometriesListSize = CurrentSetup.DesignGeometriesCount
Sub ExportCATSetting( dirPath)
ExportCATSetting. Export All Machining CATSetting file to a location in xml format. dirPath = Absolute path to the location where all settings should be exported. eg, "D:\dirs\" Call on Current Manufacturngsetup
Func FixtureGeometriesCount() As
Returns the number of fixture geometries from a Manufacturing Setup.
Parameters:
oFixtureGeometriesListSize
The number of fixture geometries of this setup
Example:
The following example retrieves the number of fixture geometries of the setup CurrentSetup in FixtureGeometriesListSize. 
 Dim CurrentSetup As ManufacturingSetup
 Set CurrentSetup = ...
 Dim FixtureGeometriesListSize As Long
 FixtureGeometriesListSize = CurrentSetup.FixtureGeometriesCount
Func GetMachiningAxisSystemName() As
Retrieves the Name of the Machining Axis system from a Manufacturing Setup.
Example:
The following example retrieves the Name of the Machining Axis systemoMachiningAxisSystemName from the manufacturing setup CurrentSetup 
 Set oMachiningAxisSystemName = CurrentSetup.GetMachiningAxisSystemName
Func GetManufacturingView() As
Retrieves the Manufacturing View from a Manufacturing Setup.
Example:
The following example retrievec the Manufacturing View MfgView from the manufacturing setup CurrentSetup 
 Set MfgView = CurrentSetup.GetManufacturingView
Func GetPartName() As
Retrieves the Name of the Design Part from a Manufacturing Setup.
Example:
The following example retrieves the Name of the Design PartoPartName from the manufacturing setup CurrentSetup 
 Set oPartName = CurrentSetup.GetPartName
Func GetProductInstance() As
Give the Product of the ProductList linked to a Manufacturing Setup.
Example:
The following example returns the Product linked to the manufacturing setup CurrentSetup 
 Set Product = CurrentSetup.GetProductInstance
Func GetSafetyPlane() As
Retrieves the Safety Plane from a Manufacturing Setup.
Example:
The following example retrieves the Safety Plane oMathPLane from the manufacturing setup CurrentSetup The size of oMathPlane is 9 (origin, first direction, second direction) 
 Set oMathPlane= CurrentSetup.GetSafetyPlane
Sub GetStockFromSetup( oStockPath)
Retrieves the path of the Stock file from a Manufacturing Setup.
Example:
The following example retrieves the the path of the Stock fileoStockPath from the manufacturing setup CurrentSetup 
 call CurrentSetup.GetStockFromSetup(oStockPath)
Sub GetToolChangePoint( oX, oY, oZ)
Get the ToolChange point of the machine linked to a Manufacturing Setup.
Example:
The following example gets the point with coordinates X,Y,Z as ToolChangePoint in the manufacturing setup CurrentSetup 
 call CurrentSetup.GetToolChangePoint(X,Y,Z)
Sub ImportCATSetting( XMLFilePath)
ImportCATSetting. Import the CATSetting in xml format from a specified location. XMLFilePath = Path to the xml file. eg, "D:\dirs\settings.xml" Call on Current Manufacturngsetup
Func InProcessModelBodiesCount() As
Returns the number of In Process Model Bodies from a Manufacturing Setup.
Parameters:
oIPMBodiesListSize
The number of In Process Model Bodies of this setup
Example:
The following example retrieves the number of In Process Model Bodies of the setup CurrentSetup in IPMBodiesListSize. 
 Dim CurrentSetup As ManufacturingSetup
 Set CurrentSetup = ...
 Dim IPMBodiesListSize As Long
 IPMBodiesListSize = CurrentSetup.InProcessModelBodiesCount
Sub ListDesignGeometries( oListOfDesignGeometries)
Retrieves the design geometries list from a Manufacturing Setup. Each of these geometries may be either a Product or a Body.
Parameters:
oListOfDesignGeometries
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the design geometries list of the manufacturing setup CurrentSetup in ListOfDesignGeometries. 
 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
Sub ListDesignGeometriesProducts( oListOfDesignGeometriesProducts)
Retrieves the design geometries products list from a Manufacturing Setup. Each of these geometries may be either a Product or a Body.
Parameters:
oListOfDesignGeometriesProducts
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the design geometries list of the manufacturing setup CurrentSetup in ListOfDesignGeometriesProducts. 
 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
Sub ListFixtureGeometries( oListOfFixtureGeometries)
Retrieves the fixture geometries list from a Manufacturing Setup. Each of these geometries may be either a Product or a Body.
Parameters:
oListOfFixtureGeometries
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the fixture geometries list of the manufacturing setup CurrentSetup in ListOfFixtureGeometries. 
 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
Sub ListFixtureGeometriesProducts( oListOfFixtureGeometriesProducts)
Retrieves the Fixture geometries products list from a Manufacturing Setup. Each of these geometries may be either a Product or a Body.
Parameters:
oListOfFixtureGeometriesProducts
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the Fixture geometries list of the manufacturing setup CurrentSetup in ListOfFixtureGeometriesProducts. 
 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
Sub ListInProcessModelBodies( oListOfIPMBodies)
Retrieves the In Process Model Bodies list from a Manufacturing Setup.
Parameters:
oListOfIPMBodies
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the In Process Model Bodies list of the manufacturing setup CurrentSetup in ListOfIPMBodies. 
 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
Sub ListStockGeometries( oListOfStockGeometries)
Retrieves the stock geometries list from a Manufacturing Setup. Each of these geometries may be either a Product or a Body.
Parameters:
oListOfStockGeometries
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the stock geometries list of the manufacturing setup CurrentSetup in ListOfStockGeometries. 
 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
Sub ListStockGeometriesProducts( oListOfStockGeometriesProducts)
Retrieves the Stock geometries products list from a Manufacturing Setup. Each of these geometries may be either a Product or a Body.
Parameters:
oListOfStockGeometriesProducts
The retrieved list.
The array must be previously initialized using the method.
Example:
The following example retrieves the Stock geometries list of the manufacturing setup CurrentSetup in ListOfStockGeometriesProducts. 
 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
Sub ReadMfgData( iFileName, iNCMILLSET)
ReadMfgData. Read Manufacturing V4 data. iFileName = Path for V4 product iNCMILLSET = NC sets Acts Same as command "Read Manufacturing data from V4 model" in NC Manufacturing Review workbench Call on Current Manufacturngsetup
Sub SetDesignPart( iPart, iProduct)
Associates the design part to a Manufacturing Setup.
The part must be a Body feature (Geometrical Set, Ordered Geometrical Set, PartBody, Body.n)
Example:
The following example associates the part iPart belonging to the Product iProduct to the manufacturing setup CurrentSetup 
 call CurrentSetup.SetPart(iPart,iProduct)
Sub SetProductAndReconciliate( iProduct)
Associate the Product to a Manufacturing Setup and reconciliate links.
Example:
The following example associates the Product iProduct to the manufacturing setup CurrentSetup 
 call CurrentSetup.SetProductAndReconciliate(iProduct)
Sub SetSafetyPlane( iSafetyPlane, iProduct)
Associates a Safety Plane to a Manufacturing Setup.
Example:
The following example associates the Safety Plane iSafetyPlane belonging to the Product iProduct to the manufacturing setup CurrentSetup 
 call CurrentSetup.SetSafetyPlane(iSafetyPlane,iProduct)
Sub SetStock( iStock, iProduct)
Associates a stock to a Manufacturing Setup.
The stock must be either a Body feature (Geometrical Set, Ordered Geometrical Set, PartBody, Body.n) either a CGR product.
Example:
The following example associates the stock iStock belonging to the Product iProduct to the manufacturing setup CurrentSetup 
 call CurrentSetup.SetStock(iStock,iProduct)
Sub SetToolChangePoint( iX, iY, iZ)
Initialise the ToolChange point of the machine linked to a Manufacturing Setup.
Example:
The following example initialise the point with coordinates X,Y,Z as ToolChangePoint in the manufacturing setup CurrentSetup 
 call CurrentSetup.SetToolChangePoint(X,Y,Z)
Sub SetToolChangePointByName( iPointName)
Initialise the ToolChange point of the machine linked to a Manufacturing Setup.
Example:
The following example initialise the point PT23 as ToolChangePoint in the manufacturing setup CurrentSetup 
 call CurrentSetup.SetToolChangePointByName(PT23)
Func StockGeometriesCount() As
Returns the number of stock geometries from a Manufacturing Setup.
Parameters:
oStockGeometriesListSize
The number of stock geometries of this setup
Example:
The following example retrieves the number of stock geometries of the setup CurrentSetup in StockGeometriesListSize. 
 Dim CurrentSetup As ManufacturingSetup
 Set CurrentSetup = ...
 Dim StockGeometriesListSize As Long
 StockGeometriesListSize = CurrentSetup.StockGeometriesCount