All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---Activity
|
+---ManufacturingActivity
|
+---ManufacturingOperation
| o Property Comment( | ) As CATBSTR |
Set ThisComment = CurrentMo.Comment
| o Sub AddClearance( | CATBSTR | iTypeMacro, |
| double | iA, | |
| double | iB, | |
| double | iC, | |
| double | iD) |
call Operation.AddClearance("Approach", A, B, C, D)
| o Sub AddDistanceAlongAlineMotion( | CATBSTR | iType, |
| double | iDistance, | |
| CATIABase | iLine, | |
| CATIAProduct | iProduct) |
call Operation.AddDistanceAlongAlineMotion("LinkingApproach", distance, iLine, iProduct)
| o Sub AddDistanceAlongAlineMotionFeed( | CATBSTR | iType, |
| double | iDistance, | |
| CATIABase | iLine, | |
| CATIAProduct | iProduct, | |
| CATBSTR | iFeedrateType, | |
| double | iFeedrateValue) |
call Operation.AddDistanceAlongAlineMotionFeed("LinkingApproach", distance, iLine, iProduct, iFeedrateType, iFeedrateValue)
| o Sub AddDistanceAlongAxis( | CATBSTR | iType, |
| double | iDistance) |
call Operation.AddDistanceAlongAxis("LinkingApproach", distance)
| o Sub AddDistanceAlongAxisFeed( | CATBSTR | iType, |
| double | iDistance, | |
| CATBSTR | iFeedrateType, | |
| double | iFeedrateValue) |
call Operation.AddDistanceAlongAxisFeed("LinkingApproach", distance, iFeedrateType, iFeedrateValue)
| o Sub AddGotoHorizontal( | CATBSTR | iTypeMacro, |
| double | iDistance, | |
| double | iAngle1, | |
| double | iAngle2) |
call Operation.AddGotoHorizontal("Approach", distance, angle1, angle2)
| o Sub AddMotionGoToAPoint( | CATBSTR | iTypeMacro, |
| CATIABase | iPoint, | |
| CATIAProduct | iProduct) |
call Operation.AddMotionGoToAPoint("Approach", iPoint, iProduct )
| o Sub AddMotionGoToAPointFeed( | CATBSTR | iTypeMacro, |
| CATIABase | iPoint, | |
| CATIAProduct | iProduct, | |
| CATBSTR | iFeedrateType, | |
| double | iFeedrateValue) |
call Operation.AddMotionGoToAPointFeed("Approach", iPoint, iProduct, iFeedrateType, iFeedrateValue)
| o Sub AddMotionToAPlane( | CATBSTR | iTypeMacro, |
| short | iMode, | |
| CATIABase | iPlane, | |
| CATIAProduct | iProduct) |
call Operation.AddMotionToAPlane("Approach", 1, iPlane, iProduct)
call Operation.AddMotionToAPlane("Approach", 0, iPlane, iProduct)
| o Sub AddPPWords( | CATBSTR | iTypeMacro, |
| CATBSTR | iPPWords) |
call Operation.AddPPWords("LinkingRetract", "PP Words example")
| o Func GetAGeometricAttribute( | CATBSTR | iAttribut) As CATIAParameter |
Set Offset = firstOperation.GetAttribute(OriginOffset)
| o Func GetAnAttribute( | CATBSTR | iAttribut) As CATIAParameter |
Set RapidFeed = firstOperation.GetAttribute(MfgRapidFeed)
| o Func GetFeature( | ) As CATIABase |
call firstOperation.GetFeature(Feature)
| o Func GetFeedSpeedAutoUpdate( | CATBSTR | iType) As boolean |
| o Func GetListOfToolMotions( | ) As CATIAMfgToolMotions |
| o Func GetManufacturingFeature( | ) As CATIAManufacturingFeature |
Set Feature = firstOperation.GetManufacturingFeature
| o Func GetMfgAparamTopPln( | ) As double |
Dim A Set A = firstOperation.GetMfgBparamTopPln
| o Func GetMfgAxialFeatureDiameter( | ) As double |
Dim Diam Set Diam = firstOperation.GetMfgAxialFeatureDiameter
| o Func GetMfgBparamTopPln( | ) As double |
Dim B Set B = firstOperation.GetMfgBparamTopPln
| o Func GetMfgCparamTopPln( | ) As double |
Dim C Set C = firstOperation.GetMfgCparamTopPln
| o Func GetMfgDparamTopPln( | ) As double |
Dim D Set D = firstOperation.GetMfgDparamTopPln
| o Sub GetMfgFeaturePosition( | CATSafeArrayVariant | ioPosition) |
Dim oPositionArray(3) As CATSafeArrayVariant Call firstOperation.GetMfgFeaturePosition(oPositionArray) Assume this array is oPositionArray. It contains:
Call firstOperation.GetMfgFeaturePosition(oCoord) x = oPositionArray[0] y = oPositionArray[1] z = oPositionArray[2]
| o Func GetMfgFeatureXPosition( | ) As double |
Dim X X = firstOperation.GetMfgFeatureXPosition
| o Func GetMfgFeatureYPosition( | ) As double |
Dim Y Y = firstOperation.GetMfgFeatureYPosition
| o Func GetMfgFeatureZPosition( | ) As double |
Dim Z Z = firstOperation.GetMfgFeatureZPosition
| o Sub GetMfgTopPlane( | double | oA, |
| double | oB, | |
| double | oC, | |
| double | oD) |
Call firstOperation.GetMfgTopPlane(A,B,C,D)
| o Func GetPattern( | ) As CATIABase |
Set Pattern = firstOperation.GetPattern
| o Func GetRadiusOnMacro( | CATBSTR | iMacroType) As double |
dim RadValue as double
RadValue = CircularMilling1.GetRadiusOnMacro("Retract")
| o Sub GetRelimitingGeometry( | CATBSTR | iGeometryType, |
| CATIABase | oReference, | |
| CATIABase | oProduct, | |
| double | oOffset, | |
| CATBSTR | oPosition) |
Call Contouring1.GetRelimitingGeometry("EndElement",RelimitingElement,PartMachined,Offset,Position)
| o Sub GetStartPointGeometry( | CATBSTR | oGeometryPosition, |
| CATIABase | oReference, | |
| CATIABase | oProduct, | |
| double | oOffset) |
Call Pocketing1.GetStartPointGeometry(Position,Point1,Part,OffsetValue)
| o Sub GetToolGage( | double | oMinToolLength, |
| double | oMinToolGage) |
Call Operation.GetToolGage(MinToolLength,MinToolGage)
| o Sub GetTrajectoryEndPointCoord( | CATSafeArrayVariant | oEndPoint) |
Dim oEndPoint(2) call Operation.GetTrajectoryEndPointCoord(oEndPoint) x = oEndPoint(0) y = oEndPoint(1) z = oEndPoint(2)
| o Sub GetTrajectoryStartPointCoord( | CATSafeArrayVariant | oStartPoint) |
Dim oEndPoint(2) call Operation.GetTrajectoryStartPointCoord(oStartPoint) x = oStartPoint(0) y = oStartPoint(1) z = oStartPoint(2)
| o Func InsertToolMotion( | CATBSTR | iType, |
| short | iPosition) As CATIAManufacturingToolMotion |
| o Func IsGeometricallyAccessibleOnSetup( | CATIABase | iManufacturingSetup) As boolean |
Dim isAccessible As Boolean isAccessible = firstOperation.IsGeometricallyAccessibleOnSetup(firstSetup)
| o Sub LockActivty( | ) |
| o Sub RemoveRelimitingGeometry( | CATBSTR | iGeometryType) |
Call Contouring1.RemoveRelimitingGeometry("EndElement")
| o Sub RemoveStartPointGeometry( | ) |
Call Pocketing1.RemoveStartPointGeometry
| o Sub SetFeature( | CATIABase | iMachinableFeature) |
call firstOperation.SetFeature(Feature)
| o Sub SetFeedSpeedAutoUpdate( | CATBSTR | iType, |
| boolean | iAutoUpdate) |
| o Sub SetFeedrateMagnitude( | CATBSTR | iMagnitudeName) |
| o Sub SetGeometry( | CATBSTR | iGeometryType, |
| CATIABase | iReference, | |
| CATIABase | iProduct, | |
| short | iPosition) |
Set Product1 = Setup1.GetProductInstance()
Dim Pocketing1 As ManufacturingOperation
Set Pocketing1 = Program1.AppendOperation ("Pocketing",1)
Pocketing1 .SetGeometry("PartBottom",Plane1,Product1,0)
| o Sub SetPattern( | CATIABase | iPattern) |
call firstOperation.SetPattern(Pattern)
| o Sub SetRadiusOnMacro( | CATBSTR | iMacroType, |
| double | iRadius) |
Dim CircularMilling1 As ManufacturingOperation
Set CircularMilling1 = Program1.AppendOperation ("CircularMilling1",1)
Call CircularMilling1.SetRadiusOnMacro("Retract",5.00)
| o Sub SetRelimitingGeometry( | CATBSTR | iGeometryType, |
| CATIABase | iReference, | |
| CATIABase | iProduct, | |
| double | iOffset, | |
| CATBSTR | iPosition) |
Call Contouring1.SetRelimitingGeometry("StartElement",Curve1,PartMachined,3.00,"ON")
| o Sub SetSpindleMagnitude( | CATBSTR | iMagnitudeName) |
| o Sub SetStartPointGeometry( | CATBSTR | iGeometryPosition, |
| CATIABase | iReference, | |
| CATIABase | iProduct, | |
| double | iOffset) |
Call Pocketing1.SetStartPointGeometry("Inside",Point1,PartMachined,0.00)
| o Sub SetTool( | CATBSTR | iToolName) |
Dim Operation1 As ManufacturingOperation
Set Operation1 = Program1.AppendOperation ("Drilling",1)
Operation1.SetTool("D-9.7")
| o Sub UnlockActivty( | ) |
Copyright © 2003, Dassault Systèmes. All rights reserved.