All Frameworks Object Hierarchy This Framework Indexes
| o Property Comment( | ) As |
Set ThisComment = CurrentMo.Comment
| o Sub AddClearance( | iTypeMacro, | |
| iA, | ||
| iB, | ||
| iC, | ||
| iD) |
call Operation.AddClearance("Approach", A, B, C, D)
| o Sub AddDistanceAlongAlineMotionFeed( | iType, | |
| iDistance, | ||
| iLine, | ||
| iProduct, | ||
| iFeedrateType, | ||
| iFeedrateValue) |
call Operation.AddDistanceAlongAlineMotionFeed("LinkingApproach", distance, iLine, iProduct, iFeedrateType, iFeedrateValue)
| o Sub AddDistanceAlongAlineMotion( | iType, | |
| iDistance, | ||
| iLine, | ||
| iProduct) |
call Operation.AddDistanceAlongAlineMotion("LinkingApproach", distance, iLine, iProduct)
| o Sub AddDistanceAlongAxisFeed( | iType, | |
| iDistance, | ||
| iFeedrateType, | ||
| iFeedrateValue) |
call Operation.AddDistanceAlongAxisFeed("LinkingApproach", distance, iFeedrateType, iFeedrateValue)
| o Sub AddDistanceAlongAxis( | iType, | |
| iDistance) |
call Operation.AddDistanceAlongAxis("LinkingApproach", distance)
| o Sub AddGotoHorizontal( | iTypeMacro, | |
| iDistance, | ||
| iAngle1, | ||
| iAngle2) |
call Operation.AddGotoHorizontal("Approach", distance, angle1, angle2)
| o Sub AddMotionGoToAPointFeed( | iTypeMacro, | |
| iPoint, | ||
| iProduct, | ||
| iFeedrateType, | ||
| iFeedrateValue) |
call Operation.AddMotionGoToAPointFeed("Approach", iPoint, iProduct, iFeedrateType, iFeedrateValue)
| o Sub AddMotionGoToAPoint( | iTypeMacro, | |
| iPoint, | ||
| iProduct) |
call Operation.AddMotionGoToAPoint("Approach", iPoint, iProduct )
| o Sub AddMotionToAPlane( | iTypeMacro, | |
| iMode, | ||
| iPlane, | ||
| iProduct) |
call Operation.AddMotionToAPlane("Approach", 1, iPlane, iProduct)
call Operation.AddMotionToAPlane("Approach", 0, iPlane, iProduct)
| o Sub AddPPWords( | iTypeMacro, | |
| iPPWords) |
call Operation.AddPPWords("LinkingRetract", "PP Words example")
| o Func GetAGeometricAttribute( | iAttribut) As |
Set Offset = firstOperation.GetAttribute(OriginOffset)
| o Func GetAnAttribute( | iAttribut) As |
Set RapidFeed = firstOperation.GetAttribute(MfgRapidFeed)
| o Func GetFeature( | ) As |
call firstOperation.GetFeature(Feature)
| o Func GetFeedSpeedAutoUpdate( | iType) As |
| o Func GetListOfToolMotions( | ) As |
| o Func GetManufacturingFeature( | ) As |
Set Feature = firstOperation.GetManufacturingFeature
| o Func GetMfgAparamTopPln( | ) As |
Dim A Set A = firstOperation.GetMfgBparamTopPln
| o Func GetMfgAxialFeatureDiameter( | ) As |
Dim Diam Set Diam = firstOperation.GetMfgAxialFeatureDiameter
| o Func GetMfgBparamTopPln( | ) As |
Dim B Set B = firstOperation.GetMfgBparamTopPln
| o Func GetMfgCparamTopPln( | ) As |
Dim C Set C = firstOperation.GetMfgCparamTopPln
| o Func GetMfgDparamTopPln( | ) As |
Dim D Set D = firstOperation.GetMfgDparamTopPln
| o Sub GetMfgFeaturePosition( | 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 |
Dim X X = firstOperation.GetMfgFeatureXPosition
| o Func GetMfgFeatureYPosition( | ) As |
Dim Y Y = firstOperation.GetMfgFeatureYPosition
| o Func GetMfgFeatureZPosition( | ) As |
Dim Z Z = firstOperation.GetMfgFeatureZPosition
| o Sub GetMfgTopPlane( | oA, | |
| oB, | ||
| oC, | ||
| oD) |
Call firstOperation.GetMfgTopPlane(A,B,C,D)
| o Func GetPattern( | ) As |
Set Pattern = firstOperation.GetPattern
| o Func GetRadiusOnMacro( | iMacroType) As |
dim RadValue as double
RadValue = CircularMilling1.GetRadiusOnMacro("Retract")
| o Sub GetRelimitingGeometry( | iGeometryType, | |
| oReference, | ||
| oProduct, | ||
| oOffset, | ||
| oPosition) |
Call Contouring1.GetRelimitingGeometry("EndElement",RelimitingElement,PartMachined,Offset,Position)
| o Sub GetStartPointGeometry( | oGeometryPosition, | |
| oReference, | ||
| oProduct, | ||
| oOffset) |
Call Pocketing1.GetStartPointGeometry(Position,Point1,Part,OffsetValue)
| o Sub GetToolGage( | oMinToolLength, | |
| oMinToolGage) |
Call Operation.GetToolGage(MinToolLength,MinToolGage)
| o Sub GetTrajectoryEndPointCoord( | oEndPoint) |
Dim oEndPoint(2) call Operation.GetTrajectoryEndPointCoord(oEndPoint) x = oEndPoint(0) y = oEndPoint(1) z = oEndPoint(2)
| o Sub GetTrajectoryStartPointCoord( | oStartPoint) |
Dim oEndPoint(2) call Operation.GetTrajectoryStartPointCoord(oStartPoint) x = oStartPoint(0) y = oStartPoint(1) z = oStartPoint(2)
| o Func InsertToolMotion( | iType, | |
| iPosition) As |
| o Func IsGeometricallyAccessibleOnSetup( | iManufacturingSetup) As |
Dim isAccessible As Boolean isAccessible = firstOperation.IsGeometricallyAccessibleOnSetup(firstSetup)
| o Sub LockActivty( | ) |
| o Sub RemoveRelimitingGeometry( | iGeometryType) |
Call Contouring1.RemoveRelimitingGeometry("EndElement")
| o Sub RemoveStartPointGeometry( | ) |
Call Pocketing1.RemoveStartPointGeometry
| o Sub SetFeature( | iMachinableFeature) |
call firstOperation.SetFeature(Feature)
| o Sub SetFeedSpeedAutoUpdate( | iType, | |
| iAutoUpdate) |
| o Sub SetFeedrateMagnitude( | iMagnitudeName) |
| o Sub SetGeometry( | iGeometryType, | |
| iReference, | ||
| iProduct, | ||
| iPosition) |
Set Product1 = Setup1.GetProductInstance()
Dim Pocketing1 As ManufacturingOperation
Set Pocketing1 = Program1.AppendOperation ("Pocketing",1)
Pocketing1 .SetGeometry("PartBottom",Plane1,Product1,0)
| o Sub SetPattern( | iPattern) |
call firstOperation.SetPattern(Pattern)
| o Sub SetRadiusOnMacro( | iMacroType, | |
| iRadius) |
Dim CircularMilling1 As ManufacturingOperation
Set CircularMilling1 = Program1.AppendOperation ("CircularMilling1",1)
Call CircularMilling1.SetRadiusOnMacro("Retract",5.00)
| o Sub SetRelimitingGeometry( | iGeometryType, | |
| iReference, | ||
| iProduct, | ||
| iOffset, | ||
| iPosition) |
Call Contouring1.SetRelimitingGeometry("StartElement",Curve1,PartMachined,3.00,"ON")
| o Sub SetSpindleMagnitude( | iMagnitudeName) |
| o Sub SetStartPointGeometry( | iGeometryPosition, | |
| iReference, | ||
| iProduct, | ||
| iOffset) |
Call Pocketing1.SetStartPointGeometry("Inside",Point1,PartMachined,0.00)
| o Sub SetTool( | 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.