Properties
- Property Origin() As
-
This property returns the interface which manages if
instruction os used as an Origin or as a Machining Axis System.
If instruction is an Origin, Origin is set to 1, 0 otherwise.
- Example:
- The following example returns in origin the attribute
to provide if instruction is used as a Machining Axis System or an Origin :
... Set myInstruction = ... Set MyOrigin = myInstruction.Origin
- Property OriginGroup() As
-
This property returns the interface which determines the origin group
of the instruction if used a an Origin.
- Example:
- The following example set the Origin Group to 5.
... Set myInstruction = ... Set myInstruction.OriginGroup = 3
- Property OriginNumber() As
-
This property returns the interface which manages the origin number
of the instruction if used a an Origin.
- Example:
- The following example set the Origin Number to 3.
... Set myInstruction = ... Set myInstruction.OriginNumber = 3
Methods
- Sub GetOriginPoint( x, y, z)
-
Gets the Origin of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example gets MfgAxisSystem with PointOrigin as an Origin Point
and with ProductOrigin a belonging product.
Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... Dim PointOrigin As CATSafeArrayVariant Dim ProductOrigin As Product MfgAxisSystem.GetOriginPoint (PointOrigin)
- Sub GetOriginXDirection( x, y, z)
-
Gets the Origin X direction of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example gets MfgAxisSystem with origin X direction
in DblMathDirection.
Dim DlbMathDirection As Double(3) Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... MfgAxisSystem.GetOriginXDirection (DblMathDirection)
- Sub GetOriginYDirection( x, y, z)
-
Gets the Origin Y direction of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example gets MfgAxisSystem with origin Y direction
in DblMathDirection.
Dim DlbMathDirection As Double(3) Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... MfgAxisSystem.GetOriginYDirection (DblMathDirection)
- Sub GetOriginZDirection( x, y, z)
-
Gets the Origin Z direction of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example gets MfgAxisSystem with origin Z direction
in DblMathDirection.
Dim x,y,z As Double Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... MfgAxisSystem.GetOriginZDirection (x,y,z)
- Sub SetOriginPoint( iPoint, iProduct)
-
Sets the Origin of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example sets MfgAxisSystem with PointOrigin as an Origin Point
and with ProductOrigin a belonging product.
Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... Dim PointOrigin As AnyObject Dim ProductOrigin As Product MfgAxisSystem.SetOriginPoint (PointOrigin,ProductOrigin)
- Sub SetOriginPointByCoordinates( x, y, z)
-
Sets the Origin of a Manufacturing Machining Axis System used as Origin by coordinates.
- Example:
- The following example sets the Origin MfgAxisSystem at coordinates x,y,z.
Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... MfgAxisSystem.SetOriginPointByCoordinates(x,y,z)
- Sub SetOriginXDirection( x, y, z)
-
Sets the Origin X direction of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example sets MfgAxisSystem with origin X direction
in DblMathDirection.
Dim DlbMathDirection As Double(3) Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... MfgAxisSystem.SetOriginXDirection (DblMathDirection)
- Sub SetOriginZDirection( x, y, z)
-
Sets the Origin Z direction of a Manufacturing Machining Axis System used as Origin.
- Example:
- The following example sets MfgAxisSystem with origin Y direction
in DblMathDirection.
Dim x,y,z As Double Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... MfgAxisSystem.SetOriginZDirection (x,y,z)
- Sub SetPartAxisSystem( iPAS, iProduct)
-
Sets the Part Axis System of a Manufacturing Machining Axis System.
- Example:
- The following example sets MfgAxisSystem with PAS as a Part Axis
System and with ProductPAS a belonging product.
Dim MfgAxisSystem As ManufacturingMachiningAxis Set MfgAxisSystem = ... Dim PAS As AxisSystem Dim PASProduct As Product MfgAxisSystem.SetMachiningAxisSystem (PAS,PASProduct)