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.