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.