{3/30/89 Copied & modified: K & T Type C M127.58 For: Angelus Can Machine: Kearney & Trecker 800 Control: Gemini D17 JR}
{5/17/89, added PostScript comments, deleted RunTime comments, JR} {11/28/89, Updated: K & T 800 Gem D17 M186.57 to .61 format, JR} {5/24/90, Updated: K & T 800 Gem D17 M186.61 to .72.1 format, JR} {7/24/90, Replaced all occurances of SetSRXYZero with SetSRXYtoSP, DWB} {3/2/92, Updated: K & T 800 Gem D17 M186.73 to .81 format, DWB}
{9/12/92 Modified: K & T 800 Gem D17 M186.81 For: Micron Machine Updated to Version 4.1 per LongHand [AbsOrInc] M001.81. This supports both Absolute and Incremental output. This supports MultipleParts. Using Var(1), Var(2) and Var(3) for logical control of Operations. Changed ArcIJC to ArcIJ at FormatArc. DWB}
{2/17/93 Modified: K & T 800 Gem D17 M186.81.1 For: Micron Machine Changes made per conversations with Jeff Baney and Donna Conley at Micron Machine. Changed MoveXYZC to MoveXY MoveZC at FormatArc. Added ArcSegmentation for Helical Arcs at ToolPath. This is a temporary fix because QuadStops do not output ZMove correctly. Added SetArcSegmentAccuracy('.001') at setup and initializations. Added logic for handling Drilling Cycles AND RetractToCP1 at ToolPath and IF Drilling. Cancels Cycle followed by ZCP1 followed by re-definition of Cycle. DWB}
{6/5/95 Updated & Modified: K & T 800 Gem D17 M186.81.2 For: Micron Machine Versions: ncCad 4.33.01/ncCAM 4.33.01/ncPost 4.33.05/Catalyst v2.14.40/Compost 4.21.28 Changes made per fax from Mark Conley at Micron Machine Customer requested update to current level of CutterRadiusCompensation. Deleted LastFeatExtend at end of ToolPath. Added CRCOffC per version 4.2. Added CkCRC sub. Added logic to output CRCOnC in OneFeat, Non-ZMove ToolPath. Added logic to suppress output of CRCOnC on ZMove Feature. CutterRadiusCompensation ExitLength will output G40 on LastFeat AND LineFeat at StdLine sub. Added support of CRC during multiple pocket dog-bone operation. Added condition to output CRCOnC for XMove OR YMove only at CkCRC sub. Outputs G41/G42 on First LineFeat after Z Plunge. Modified condition to output CRCOffC for LastFeat AND AutoCycle at ToolPath RapidFeat. Assures that G40 is not output prior to LastFeat. Added CRCOffC to ZMoveOnly Feature at ToolPath RapidFeat. Outputs G40 at all Z Retract blocks. Updated to Version 4.2 per LongHand M001.81.3h Format. Changed logic of MPLoop sub to handle IF NewTool? and LastOp? situations. Commented out DoEndOpPS at MPLoop for OneToolAllParts, it does not work correctly. Added Move to ZInC for Non-AutoCycle FeedConnect Repeats with ZMoves at ExitMove sub. Moved DoCycleComment call to before StrtPos move in related subs. Added BadMPWFOReport sub. Reports when MultipleParts AND WorkFixtureOffsets = TRUE AND EquallySpacedOffset values exist. Added FORMAT #8, 'Ä…#bbbb.bbbb#', for PartShiftX#, PartShiftY# and PartShiftZ# commands. Moved SeqC and EOL outside of IF ELSE condition at ExitMove sub. Moved SeqC AbsOrInc and EOL outside of IF ELSE condition at AutoCycCutSub2 sub. Deleted ReSetPass2 at end of ZonlyRepAutoCycle sub. Already executed at end of call to AutoCycCutSub2 sub. Changed First occurance of GetConnect to RapidC at ZonlyRepAutoCycle sub. FeedConnect only applies to Each Repeat, not Each Feature. Deleted GetConnect sub, modified XYZRep, XYZRepAutoCycle and ZonlyRepAutoCycle subs. Deleted GetConnectFeed sub, modified XYZRep, XYZRepAutoCycle and ZonlyRepAutoCycle subs. Deleted PreTool at MasterSub FirstOperation and NewTool. Added OpToolID at MasterSub NewTool. Changed Segmented Helical Arcs with single block containing ArcZRads# rise per radian command. DWB}
{2/9/96, Updated .81 number to .84, no changes necessary, MPK}
{3/22/96, Tested ZOnlyRepAutCycle, Incremented number to .87, MPK}
{25Mar98 Original: K & T 800 Gem D17 M186.87 Created: K & T LH 800 Gem D17 D186.12 Created D_Style Advanced Mill Longhand Post Charles Winston}
{25Mar98, Created Metric Version, K & T LH 800 Gem D17 D186.12m, Charles Winston}
RestoreScale: IF NOT Metric? {CAM file is in English, tools and tool path} SetScale('25.4') { change to Metric, this is an Metric post } END RETURN
DoPartCycleComment: IF MultipleParts? AND UseComments? AND SubComment? '(MSG, PART NO. ' Tag# ' )' EOL END RETURN
DoCycleComment: IF UseComments? AND SubComment? '(MSG, CYCLE START )' EOL END RETURN
DoOpComments: IF UseComments? SetScale('1') IF OperationIDComment? '(MSG, OPERATION ' Operation# ': ' OperationType$ ' )' EOL END IF OperationComment? '(MSG, ' OperationComment$ ' )' EOL END IF WorkGroupComment? '(MSG, ' WorkGroupComment$ ' )' EOL END IF ToolTypeComment? '(MSG, TOOL ' Tool# ': ' ToolDiameter# ' ' ToolType$ ' )' EOL END IF ToolComment? '(MSG, ' ToolComment$ ' )' EOL END RestoreScale END RETURN
BadMPWFOReport: SetStatusOff ' ' EOL 'Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„' EOL 'Ä„ NOTE: Even though you have elected to Ä„' EOL 'Ä„ process this file using Multiple Ä„' EOL 'Ä„ Parts with Work Fixtures, there exist Ä„' EOL 'Ä„ non-zero values in the invisible, Ä„' EOL 'Ä„ Equally SpacedÉ fields, as follows: Ä„' EOL 'Ä„ Ä„' EOL '*****************************************' EOL IF NotEqual? PartShiftX# Num#('0') ' X axis shift = ' PartShiftX# EOL END IF NotEqual? PartShiftY# Num#('0') ' Y axis shift = ' PartShiftY# EOL END IF NotEqual? PartShiftZ# Num#('0') ' Z axis shift = ' PartShiftZ# EOL END '*****************************************' EOL 'Ä„ Ä„' EOL 'Ä„ Please reset these values to zero as Ä„' EOL 'Ä„ they affect the coordinate values Ä„' EOL 'Ä„ output, starting with Part# 2. Ä„' EOL 'Ä„ Thank You. Ä„' EOL 'Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„Ä„' EOL ' ' EOL SetStatusOn RETURN
PSStuff: IF FourthCW? FORMAT(FourthDegree#,2) SeqC 'A' FourthDegree# EOL FourthCWF END IF FourthCCW? FORMAT(FourthDegree#,3) SeqC 'A' FourthDegree# EOL FourthCCWF END IF FifthCW? FORMAT(FifthDegree#,2) SeqC 'B' FifthDegree# EOL FifthCWF END IF FifthCCW? FORMAT(FifthDegree#,3) SeqC 'B' FifthDegree# EOL FifthCCWF END RETURN
EntryMove: IF FeedEntry? SeqC FeedC ZInC FeedEntC EOL ELSE SeqC RapidC ZInC EOL END RETURN
ExitMove: SeqC IF FeedConnect? IF NOT AutoCycle? IF NOT NoZMoves? FeedC ZInC FeedEntC END END ELSE CRCOffC IF FIFO? { .81 } FeedC ELSE RapidC END PRIME ZCP2C IF FIFO? { .81 } FeedEntC ELSE RapidFC END END EOL RETURN
ExitMove2: IF FIFO? FeedC ZCP3C FeedEntC ELSE RapidC ZCP3C RapidFC END RETURN
CycleWarning: { NOTE: This Post Processor takes care of Z Clearance. } RETURN
ToggleIncDecWFO: IF Flag?('3') SetFlagF('3') ELSE SetFlag('3') END RETURN
OpenMP: IF Flag?('2') OR WFOCS? ClearCSOffset IF Flag?('3') IF Flag?('2') SeqC CalcCSWFO EOL DoCSG52Comment ClearCSOffset SeqC 'G52X' CSOffsetX# 'Y' CSOffsetY# 'Z' CSOffsetZ# EOL ELSE DoCSWFOComment ClearCSOffset SeqC CalcCSWFO EOL END ClearCSOffset ELSE IF Flag?('2') SeqC CalcCSWFO EOL DoCSG52Comment ClearCSOffset SeqC 'G52X' CSOffsetX# 'Y' CSOffsetY# 'Z' CSOffsetZ# EOL ELSE DoCSWFOComment ClearCSOffset SeqC CalcCSWFO EOL END END END RETURN
CloseMP: IF Flag?('2') OR WFOCS? IF Flag?('4') ToggleIncDecWFO END END RETURN
SubCSMP: IF Flag?('2') OR WFOCS? ClearCSOffset END RETURN
FormatArc: IF ArcCW? CWArc ELSE CCWArc END IF XYPlane? MoveXY IF ZMove? MoveZ ArcIJ 'K' ArcZRads# ELSE ArcIJ END ELSE IF XZPlane? MoveX IF YMove? MoveY MoveZ ArcIJ 'J' ArcZRads# ELSE MoveZ ArcIJ END ELSE { YZPlane } IF XMove? MoveX MoveY MoveZ ArcIJ 'I' ArcZRads# ELSE MoveY MoveZ ArcIJ END END END RETURN
CkCRC: { 4.2 } IF XMove? OR YMove? { Approach Length Feature and Multiple Pockets } IF NOT ZMove? CRCOnC END END IF LastFeat? AND EmptyLine? { Exit Length Feature } CRCOffC END RETURN
FormatLine: ckCRC FeedC MoveXYZC RETURN
ckCRCNum: { Not supported} RETURN
ToolPath: ResetCRCNum EACHFeat IF PointFeat? { Drilling Only } IF RetractToCP1? AND NOT FirstFeat? SeqC DrillOff EOL SeqC Rapid ZCP1 RapidF EOL SeqC Cycle MoveSXYZC RLevel Peck FeedEnt EOL {.80.01} ELSE SeqC MoveSXYZC EOL {.80.01} END ELSE IF RapidFeat? IF XMove? OR YMove? OR ZMove? SeqC ckCRC RapidC MoveXYZC RapidFC ckCRCNum EOL END ELSE IF LineFeat? IF XMove? OR YMove? OR ZMove? IF Decelerate? IF RoomToDecel? DecelMove1 SeqC FormatLine FeedRateC ckCRCNum EOL DecelMove2 END SeqC FormatLine DecelFeed ckCRCNum EOL ELSE SeqC FormatLine FeedRateC ckCRCNum EOL END END ELSE IF ArcFeat? EACHQuadrant { Do not use NOT, FIRST, LAST or NEXT modifiers in this loop } IF LastQuadrant? AND Decelerate? IF RoomToDecel? DecelMove1 SeqC FormatArc ArcFeedC EOL DecelMove2 END SeqC FormatArc DecelFeed EOL ELSE SeqC FormatArc ArcFeedC EOL END NEXTQuadrant END END END IF AutoCycle? SetAbs Save# Num#('6') SUB# EPX# CurOriginPosX# Save# Num#('7') SUB# EPY# CurOriginPosY# SetInc END END NEXTFeat RETURN
AutoCycCutSub1: {part 1} CalcACSRXY {calc tool position, CalcAutoCycleStatusRecordXY} SaveSubStatus {save tool position} SetPass1 {element cut moves} SetSRXYtoSP IF Repeats? AND ZShiftOnly? EntryMove END SeqC IncValue EOL RETURN
AutoCycCutSub2: {part 2} SeqC AbsOrInc IF FIFO? {.81} FeedC ZCP2 FeedEntC ELSE RapidC ZCP2 RapidFC END EOL SetSRSubXY {restore SR to 1st position value} ReSetPass2 {restore for positioning moves} RETURN
Milling: EntryMove ToolPath RETURN
XYZRep: CycleWarning FindAnyZMoves EachRep DoCycleComment IF FirstCycle? EntryMove ELSE CRCOffC IF FeedConnect? IF SPXMove? OR SPYMove? SeqC FeedC MoveSXYC FeedEntC EOL END IF ZShiftOnly? EntryMove END ELSE IF SPXMove? OR SPYMove? SeqC RapidC MoveSXYC RapidFC EOL END IF FeedEntry? SeqC ZCP2C EOL END EntryMove END END ToolPath ExitMove NextRep RETURN
NoRepAutoCycle: EACHFeat DoCycleComment IF SPXMove? OR SPYMove? SeqC RapidC MoveSXYC RapidFC EOL END AutoCycCutSub1 Milling AutoCycCutSub2 NEXTFeat RETURN
ZonlyRepAutoCycle: EACHFeat DoCycleComment IF SPXMove? OR SPYMove? SeqC RapidC MoveSXYC RapidFC EOL END AutoCycCutSub1 EachRep IF NOT FirstCycle? IF FeedConnect? SeqC AbsOrInc EOL DoCycleComment IF SPXMove? OR SPYMove? SeqC IncValue MoveSXYC FeedEntC EOL AbsOrInc END ELSE AbsOrInc ExitMove DoCycleComment IF SPXMove? OR SPYMove? SeqC IncValue MoveSXYC FeedEntC EOL AbsOrInc END IF FeedEntry? AND NOT FIFO? SeqC ZCP2 EOL END END EntryMove SeqC IncValue EOL END EntryMove ToolPath NextRep AutoCycCutSub2 NEXTFeat RETURN
DrillStuff: IF RetractToCP1? SeqC DrillOff EOL SeqC Rapid ZCP1 RapidF EOL DoCycleComment SeqC DrillStuff EOL END GetCycle Cycle StrtPos ZDepth RLevel Peck FeedEnt TrackZNO# FIRST SPZ# {.81.2} RETURN
CheckPass: IF AutoCycle? {use the correct StrtPos} SetPass2 ELSE SetPass1 END RETURN
ProgStart: InitProg ReverseXZArcs SetFlood SetMaxRPM('10000') SetMaxFeed('500') Save# Num#('1') Num#('0') { This Tool FirstOp# } Save# Num#('2') Num#('0') { This Tool LastOp# } Save# Num#('3') Num#('0') { LastOp# } Save# Num#('4') Num#('0') { XPos Status Register Updated Position for Repeated AutoCycles } Save# Num#('5') Num#('0') { YPos Status Register Updated Position for Repeated AutoCycles } Save# Num#('6') Num#('0') { LastFeat EPX# AbsPosValue for Repeated AutoCycles } Save# Num#('7') Num#('0') { LastFeat EPY# AbsPosValue for Repeated AutoCycles } Save# Num#('10') Num#('0') { CSAngleA and CSAngleB } SetArcSegmentAccuracy('.001') SetFlagF('2') { use WFO for CS changes } SetFlag('3') {True = incrementing WFO numbers for MP. False = decrementing WFO numebrs for MP} SetFlag('4') {True = toggle between incrementing/decrementing WFO's } SetFlagF('5') { CRCOffsetC } IF PSComment? AND UseComments? 'PostScript:' EOL ' Literals: put between single or double quotes.' EOL ' Separate commands and literals with at least one space.' EOL ' A CR ( RETURN key ) will start a new line.' EOL ' Commands: may be capital and/or lower case letters. Separate commands with a space.' EOL ' EndOP -' EOL ' all literals and commands before an ENDOP command' EOL ' will appear at the beginning of the operation. All ' EOL ' literals and commands after an ENDOP command will appear' EOL ' at the end of the operation. ' EOL END
IF MultipleParts? IF WorkFixtureOffsets? IF LTEqual? MUL# Parts# NumOfCS# Num#('0') SetWFOCS { use WFO for CS changes } ELSE SetFlag('2') END END ELSE IF LTEqual? NumOfCS# Num#('0') SetWFOCS { use WFO for CS changes } ELSE SetFlag('2') END END RETURN
SetDrillEndOpZ: IF RetractToCP1? TrackZNO# ClearancePlane1# ELSE TrackZNO# ClearancePlane2# END RETURN
OpGuts: IF Milling? SeqC ZCP1C EOL SeqC ZCP2C EOL IF AutoCycle? IF Repeats? IF ZShiftOnly? ZonlyRepAutoCycle ELSE XYZRepAutoCycle END IF NOT FeedConnect? SeqC ExitMove2 EOL END ELSE NoRepAutoCycle SeqC ExitMove2 EOL END ELSE { NOT AutoCycle } IF Repeats? XYZRep ELSE Milling END SeqC CRCOffC ExitMove2 EOL END ELSE IF Drilling? IF Repeats? EachRep DoCycleComment IF FirstCycle? DrillStuff END ToolPath NextRep ELSE DrillStuff ToolPath END SetDrillEndOpZ SeqC DrillOff EOL SeqC Rapid ZCP3 RapidF EOL END END RETURN
WFOStuff: IF NOT WorkFixtureOffsets? SeqC 'G48' WFO1 EOL END RETURN
ResetWFO: IF WorkFixtureOffsets? SeqC 'G48' WFO1 EOL END RETURN
NotSameToolWFO: IF WFOCS? DoCSWFOComment SeqC CSWFO EOL ELSE IF ChangeCS? DoCSG52Comment SeqC 'G52X' CSOffsetX# 'Y' CSOffsetY# 'Z' CSOffsetZ# EOL ELSE IF NeedWFO1? SeqC 'G48H' NewWFO# EOL END END END ClearCSOffset RETURN
SameToolWFO: IF WFOCS? IF ChangeCS? DoCSWFOComment SeqC CSWFO EOL END ELSE IF ChangeCS? DoCSG52Comment SeqC 'G52X' CSOffsetX# 'Y' CSOffsetY# 'Z' CSOffsetZ# EOL END END ClearCSOffset RETURN
InitOp: EOR EOL IF UseComments? IF ProgramNameComment? '(NAM, ' ProgramName$ ' )' EOL END IF ProgramComment? '(MSG, ' ProgramComment$ ' )' EOL END IF FormatNameComment? '(MSG, FORMAT: ' FormatName$ ' )' EOL END IF TimeComment? '(MSG, ' Date$ ' AT ' Time$ ' )' EOL END IF MovesComment? '(MSG, OUTPUT IN ' MoveType$ ' MM )' EOL END IF PartsComment? '(MSG, PARTS PROGRAMMED: ' Parts# ' )' EOL END IF StartToolComment? '(MSG, FIRST TOOL NOT IN SPINDLE )' EOL END END OpenSub RestoreScale RETURN
NewToolOp5a: CheckPass IF Flag?('2') OR WFOCS? ClearCSOffset END SeqC CoolOn EOL RETURN
SameToolOp1: DoEndOpPS IF LAST ProgStop? SeqC CoolOff EOL SeqC RapidC 'Z31.5M25' RapidFC EOL SeqC 'M0' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqC CoolOff EOL END IF NewToolOffset? OR ChangeCS? SeqC RapidC 'Z31.5M25' RapidFC EOL END END RETURN
SameToolOp2: {Start new Operation} DoPartCycleComment DoOpComments DoPostScript CheckPass RETURN
SameToolOp3: {Start new Operation} IF LAST ProgStop? SeqC PlaneC AbsOrInc RapidC StrtPos CSAngleA CSAngleB RapidFC SpeedC SpinOn CoolOn EOL IF Milling? SeqC ZCP1 EOL END ELSE SeqC PlaneC AbsOrInc RapidC StrtPos CSAngleA CSAngleB RapidFC SpeedC EOL IF NewToolOffset? OR ChangeCS? SeqC ZCP1 EOL END IF NOT CoolOff? AND LAST CoolOff? SeqC CoolOn EOL END END RETURN
End1: SeqC CoolOff EOL SeqC RapidC 'Z31.5M25' RapidFC EOL DoEndOpPS IF FIRST ToolChangeAtHome? {.71.2 added FIRST modifier} SetAbs LoadFeat SUB# FIRST HomeX# CurOriginPosX# SUB# FIRST HomeY# CurOriginPosY# Num#('0') { Dummy Z } SetAbsOrInc SeqC MoveXY 'M25' EOL END IF ProgStop? SeqC 'M0' EOL ELSE IF MultipleParts? AND AllToolsOnePart? AND NOT LastPart? SeqC ProgStop EOL END END RETURN
End2: RETURN
End3: SeqC 'M0' EOL SeqC EOP EOL Post Close IF UseComments? SetScale('1') {restore scale for comments} Reopen IF FileBytesComment? '(MSG, FILE LENGTH: ' FileBytes# ' CHARACTERS )' EOL END IF FileFeetComment? '(MSG, FILE LENGTH: ' FileFeet# ' FEET )' EOL END IF FileMetersComment? '(MSG, FILE LENGTH: ' FileMeters# ' METERS )' EOL END Close END RETURN
MPallTools1P: {Multiple Parts, All Tools 1 Part} IF FirstOperation? IF FirstPart? InitOp END OpenMP FirstOp1 WFOStuff FirstOp2 FirstOp3 ELSE IF NewTool? NewToolOp1 NewToolOp2 {to tool change, CS problem} SubCSMP NewToolOp3 WFOStuff NewToolOp4 NewToolOp5 ELSE {implied SameTool?} SameToolOp1 SubCSMP SameToolOp2 SameToolOp3 END END OpGuts RETURN
MP1ToollAllPfu: {Multiple Parts, 1 Tool all Parts, full up} IF FirstOperation? IF FirstPart? InitOp FirstOp1 WFOStuff FirstOp2 OpenMP FirstOp3 END ELSE IF NewTool? IF FirstPart? NewToolOp1 CloseMP NewToolOp2 {to tool change, CS problem} NewToolOp3 WFOStuff NewToolOp4 OpenMP NewToolOp5 END ELSE {implied SameTool?} SameToolOp1 SubCSMP SameToolOp2 SameToolOp3 END END OpGuts RETURN
MP1ToollAllPXcp: {Multiple Parts, 1 Tool all Parts, exit Clearance plane} IF FirstOperation? IF FirstPart? InitOp FirstOp1 WFOStuff FirstOp2 FirstOp3a OpenMP SeqC AbsOrInc Rapid StrtPos CSAngleA CSAngleB EOL END ELSE IF NewTool? IF FirstPart? CloseMP NewToolOp1 ResetWFO NewToolOp2 {to tool change, CS problem} NewToolOp3 WFOStuff NewToolOp4 NewToolOp5a OpenMP SeqC AbsOrInc Rapid StrtPos CSAngleA CSAngleB EOL END ELSE {implied SameTool?} SameToolOp1 SubCSMP SameToolOp2 SameToolOp3 END END OpGuts RETURN
NoMPs: {no multiple parts} IF FirstOperation? InitOp FirstOp1 NotSameToolWFO FirstOp2 FirstOp3 ELSE IF NewTool? NewToolOp1 NewToolOp2 NewToolOp3 NotSameToolWFO NewToolOp4 NewToolOp5 ELSE {implied SameTool?} SameToolOp1 SameToolOp2 SameToolWFO SameToolOp3 END END OpGuts RETURN
MasterSub: IF MultipleParts? IF AllToolsOnePart? MPallTools1P ELSE {implied OneToolAllParts?} IF FullUp? MP1ToollAllPfu ELSE {implied ExitClearancePlane?} MP1ToollAllPXcp END END ELSE NoMPs END RETURN
EndPartSub: {End of program ************************************************************}
{finish last operation} IF MultipleParts? IF AllToolsOnePart? End1 End2 CloseMP ELSE {implied OneToolAllParts?} IF FullUp? End1 CloseMP ResetWFO End2 ELSE {implied ExitClearancePlane?} CloseMP End1 ResetWFO End2 END END ELSE {NoMPs} End1 End2 END RETURN
DoNewPart: IF NOT FirstPart?
{Finish off last Part}
IF FullUp? SeqC CoolOff EOL IF AbsoluteMoves? IncValue END SeqC RapidC 'Z31.5M25' RapidFC EOL END {DoEndOpPS}
{Start new Part}
DoPartCycleComment DoOpComments DoPostScript OpenMP WFOStuff CheckPass SeqC PlaneC AbsOrInc Rapid StrtPos CSAngleAC CSAngleBC SpeedC EOL IF FullUp? SeqC CoolOn EOL ELSE IF ChangeCS? TrackZNO# ClearancePlane1# END END END RETURN
DoParts: TagInit EachPart TagInc EachOp IF AllToolsOnePart? MasterSub ELSE { OneToolAllParts } IF GTEqual? Operation# Recall# Num#('1') { Tool First Op } IF LTEqual? Operation# Recall# Num#('2') { Tool Last Op } IF Equal? Operation# Recall# Num#('1') { Tool First Op } DoNewPart END MasterSub END END END NextOp IF AllToolsOnePart? EndPartSub END NextPart RETURN
GetToolLastOP: EachOp IF Equal? Operation# Recall# Num#('2') Save# Num#('2') ADD# Operation# Num#('1') IF NewTool? IF Equal? Recall# Num#('1') Recall# Num#('3') Save# Num#('2') Operation# ELSE IF NotEqual? Recall# Num#('1') SUB# Recall# Num#('2') Num#('1') Save# Num#('2') SUB# Operation# Num#('1') END END END END NextOp RETURN
MPLoop: IF AllToolsOnePart? DoParts ELSE { OneToolAllParts } GetToolFirstOp IF LTEqual? Recall# Num#('1') Recall# Num#('3') GetToolLastOP DoParts Save# Num#('1') ADD# Recall# Num#('2') Num#('1') { Next Tool First Op } END END RETURN
{Start of executable Prog, Top Level ****}
ProgStart {setup and initializations}
IF MultipleParts? IF WorkFixtureOffsets? {'NOTE: This Post Processor does not support Work Fixture Offsets for Multiple Parts.' EOL 'Therefore, the output will be controlled by the following values that are' EOL 'already entered in Equally Spaced Offsets Edit Fields:' EOL 'X' PartShiftX# ' Y' PartShiftY# ' Z' PartShiftZ# EOL 'It is recommended that you change your selection to Equally Spaced Offsets.' EOL} IF NotEqual? PartShiftX# Num#('0') BadMPWFOReport ELSE IF NotEqual? PartShiftY# Num#('0') BadMPWFOReport ELSE IF NotEqual? PartShiftZ# Num#('0') BadMPWFOReport END END END END EachOp IF FirstOperation? Save# Num#('1') Operation# ELSE IF LastOp? Save# Num#('3') Operation# END END NextOp MPLoop IF OneToolAllParts? MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop MPLoop EndPartSub ELSE ResetWFO END ELSE EachOp MasterSub NextOp EndPartSub END End3