{Change Comments ***********************************************************} {7/18/90 Copied & modified: Fanuc 10T MS [+] L004.69.7 For: Viratec Machine: Mori Seiki TL40 Control: Fanuc 15TF Deleted 'Preset Home' at FirstOperation and NewTool. Moved OpToolID LatheOffset from Approach sub to FirstOperation and NewTool. Added GearRange. Cancel Tool Offset on line by itself after move to index position. JR} {7/24/90, Added InitProg globally to posts with this remark, DWB} {9/25/90, Updated to Version 3.2 per Fanuc 10T MS [-] L001.71.1 Format, DWB} {10/2/90, Added StockOff globally at FirstOperation, DWB} {10/8/90, Replace CalcRPM2 globally with CalcEPRPM# at end of prog, DWB} {3/28/91 Modified: Fanuc 15T MS (+) L166.71.3 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format. All normal Fanuc Canned Cycles are supported. DWB} {8/5/91 Updated: Fanuc 15T MS (+) L166.80 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 6M M001.82 Format. KM} {11/1/94 Updated: Fanuc 15T MS (+) L166.82 For: Gibbs & Associates/Premier Mfg/SimFlo Pumps Inc. Versions: ncCad 4.33/ncCAM 4.33/ncPost 4.33.03/Compost 4.21.22 Updated to Version 4.1 per Fanuc 10T MS [-] L001.82.1a Format. DWB} {11/1/94 Copied: Fanuc 15T MS (+) L166.82.1 Created: Fanuc 16T MS (+) L314.82.1 For: Premier Manufacturing/SimFlo Pumps Inc. Machine: Control: Versions: ncCad 4.33/ncCAM 4.33/ncPost 4.33.03/Compost 4.21.23 Changes made per Glenn Johnson of Simflo, manual and sample printouts. Modified Canned Cycles per manual. DWB} {1/9/95 Modified: Fanuc 16T MS (+) L314.82.1 Renamed: Fanuc 16T MS [+] L314.82.2 For: Premier Manufacturing/SimFlo Pumps Inc. Versions: ncCad 4.33/ncCAM 4.33/ncPost 4.33.04/Compost 4.21.23 Versions: Catalyst v2.14.24C/Catalyst v2.14.24PPC/Compost 4.21.23 Changes made per Glenn Johnson of Simflo, cam and text files, and marked up printouts. Added conditional move after returning from ToolPath, to SetPass1 XSPC for ApproachOD at CannedCycle RoughContour. Commented out File Length Comments at end of prog. Customer reported problem with Communications software hanging up because control had read EOR at end of output, and stopped reading, while sending software was still waiting to send the comments. Deleted CheckGear sub and changed call to CheckGear to SpinOn at CheckOffset sub. Deleted SpinOff and condition to output same when NewGear? = TRUE at CheckOffset sub and NewTool. DWB} { Format: Fanuc 21T Mon [+] Lxxx.82.3 5/9/95 Replaced threading code with code from 15T (Existing code didn't work in VG) Added bar feed code to start of output Added support for a CutOff? Move start up code around to match sample files TH} { Format: Fanuc 21T Mon [+] L339.82.4 5/17/95 Set default format for T label to 00 TH} {7/14/95 Initial: Fanuc 21T Mon [+] L339.82.4 Created: Fanuc 21T L367.82.2 ForUser: CIM Solutions / Alco Turning Comment: Modifications per marked up readout and conversation with Mark Barrett at Alco Looking for CutOff in any operation thru EachOp/NextOp loop at beginning of prog. Setting Flag?('1') to true, to designate a BarFeed Program. Suppressed output of Bar Feed routine at beginning of program if not a BarFeed program. Deleted M38 from end of program, using M1 only for BarFeed program Jim Radcliffe} {8/24/95, renamed processor to Fanuc 21T Mon [+] L339.82.5, JR} {6/18/96, Updated Fanuc 21T Mon [+] L339.82.5 to .85 format per Fanuc 10T MS [-] L001.85.01.01, JR} {1/24/97 Updated: Fanuc 21T Mon [+] L339.85 Created: Fanuc 21T Mon [+] L339.85.1 For: Gibbs & Associates/West Coast Specialties Inc. Versions: Catalyst v3.25C/Compost 4.21.37/v1.0b4 Updated for Catalyst v3.25C per Fanuc 10T MS [-] L001.85.02a Format. Modified handling of Speed output at CheckOffset sub. Was causing Speed to be output twice for some tests. Modified logic of CkCRC sub. To more closely resemble M001. Added SetMaxFeed(12700) condition for Metric Files at setup and initializations. Deleted unused SeqLabC at FirstOperation and NewTool. DWB} {1/28/97 Copied: Fanuc 21T Mon [+] L339.85.1 Created: Fanuc 21T MS [WCS] L558.85 For: West Coast Specialties Inc. Machine: Mori Seiki Frontier L Control: Fanuc 21T Versions: Catalyst v3.25C/Compost 4.21.37/v1.0b4 Changes made per Richard Dingman of West Coast Specialties Inc., phone conversation and sample printout Added TrackXNO# to FORMAT#2 at Prog Numeric Format Definitions. Added ADD# to FORMAT#2 at Prog Numeric Format Definitions. Added SUB# to FORMAT#2 at Prog Numeric Format Definitions. Added Recall# to FORMAT#3 at Prog Numeric Format Definitions. Changed FORMAT#4 for Dwell from '###^##0' to '###.###;0.' at Prog Numeric Format Definitions. Moved OpToolID LatheOffset from FirstOperation and NewTool to AppMove sub. Added support of NewGear at CheckOffset sub and NewTool. Deleted literal 'G4P2000' at ToolPath LastFeat Drilling Tap and Canned Tap Cycle. Changed Speed command to MoveZC at ToolPath LastFeat Drilling Tap. Changed Speed command to ZSP at Canned Tap Cycle. Changed 'G4P' to 'G4U' at ToolPath LastFeat Drilling Tap and Canned Tap Cycle. Modified output of CutOff at ToolPath LastFeat. Added code needed to avoid throwing part Tool moves to X.03. Control Preset 'S200M73' advances PartsCatcher. Tool moves to X0. IF Tool plunges below Spindle CenterLine Control Preset 'S1000' Tool moves to EndPoint. Added Var(1) to store ZDepth of CutOff Operation. Deleted output of M88 for LastFeat CutOff at end of ToolPath. Added BarFeeder sub. BarFeeder Operation to always exist at end of Program. Uses Tool #8. Calculates XStartPos .2 GreaterThan XStockMax#. Calculates ZStartPos .2 past CutOff Var(1). Calculates WBarFeedPos .094 CutOffToolWidth plus .02 FirstOp FaceOff plus positive CutOff Var(1). Called from end of Prog. Replaces support at FirstOperation. Deleted Flag(1). Deleted CutOff Scan Loop prior to main EachOp/NextOp loop. Changed SetMaxRPM from 3000 to 3500 at setup and initializations. Changed 'O' Program# to ':' Program# at FirstOperation. Various changes to FirstOperation and NewTool sections. Deleted BarFeeder code at FirstOperation. Outputs ProgStop at start of Operation at FirstOperation and NewTool. Outputs either Rapid Home or G30U0W0 at FirstOperation and NewTool. Outputs either G96 or G97 at FirstOperation and NewTool. Deleted G97 CalcRPM2 at NewTool. Deleted support of G96 at Common Point. Deleted G97 CalcEPRPM at end of Prog. Outputs CoolOff with LAST OpExitZCPC at NewTool. Outputs CoolOff with OpExitZCPC at end of Prog. Stops Spindle for change of Spindle Direction at NewTool. Does not happen if coming from Tap Operation, which already has Spindle going in new Direction. Post does not re-output normal Spindle Direction at end of Tap Cycle. Added Blank line between Tool Operations at NewTool. DWB} {3/6/97 Modified: Fanuc 21T MS [WCS] L558.85 Created: Fanuc 21T MS [WCS] L558.85.1 For: West Coast Specialties Inc. Versions: Catalyst v3.30C/ComPost2 MSL 68K Changes made per Richard Dingman of West Coast Specialties Inc., phone conversation, fax and sample part. Changed Recall# from FORMAT#3 to FORMAT#2 at Prog Numeric Format Definitions. Modified CutOff routine at ToolPath. At Feature prior to LastFeat, post will output move .03 greater than endpoint in X. This is followed by G50S200M73 from last revision. This modification replaces hardcoded moves to X.03 and X0 and increase to S1000. LastFeat is then output as RapidFeat instead of LineFeat. Added ToolChangeSeqLab sub. Outputs increasing SeqLab in 1000 increments at all ToolChanges. Called from BarFeeder sub, FirstOperation and NewTool. Added Variable(2) to control increment value. Deleted literal 'M41', Low Gear at BarFeeder sub. Changed literal 'U.5' to 'U.3' five places at BarFeeder sub. Changed literal 'U.75' to 'U.01' two places at BarFeeder sub. Added Spaces to all Addresses. DWB} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.####;0' #3 = '#######0' #4 = '###.###;0.' #5 = '#.####;0' #6 = '###0' #7 = '#' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(Recall#,2) FORMAT(TrackXNO#,2) FORMAT(ADD#,2) FORMAT(SUB#,2) FORMAT(MUL#,2) { Non-Canned Threading AutoFinish } FORMAT(InFeedAngle#,2) FORMAT(SPX#,2) FORMAT(SPZ#,2) FORMAT(FirstMoveEPZ#,2) FORMAT(Peck#,2) FORMAT(Program#,3) {.72} FORMAT(Operation#,3) {.72} FORMAT(Tool#,3) {.72} FORMAT(Dwell#,4) {.72} FORMAT(FeedIPR#,5) FORMAT(CalcEPRPM#,6) FORMAT(RapidF#,7) {Prog Subroutines **********************************************************} RestoreScale: IF Metric? {CAM file is in Metric, tools and tool path} SetScale('.03937007874') { change to English, this is an English post} END RETURN DoOpComments: IF UseComments? SetScale('1') IF OperationIDComment? '( OPERATION ' Operation# ' - ' OperationType$ ' )' EOL END IF OperationComment? '( ' OperationComment$ ' )' EOL END IF WorkGroupComment? '( ' WorkGroupComment$ ' )' EOL END IF ToolTypeComment? '( TOOL ' Tool# ' - ' ToolSize$ ' ' ToolType$ ' )' EOL END IF ToolComment? '( ' ToolComment$ ' )' EOL END RestoreScale END RETURN PSInit: {reset flags from last Op, .70} RETURN PSStuff: RETURN DoPostScript: PSInit EachPS SeqLabC PostScript EOL {literals} PSStuff {commands} NextPS RETURN DoEndOpPS: PSInit EachEOPS SeqLabC EndOpPS EOL {literals} PSStuff {commands} NextPS RETURN StockOnNoCan: IF NOT CannedCycle? StockOn {need stock for SP positioning, if not a canned cycle} END RETURN FeedNoCan: IF NOT CannedCycle? FeedC END RETURN FeedRateNoCan: IF NOT CannedCycle? FeedRateC END RETURN ApproachSP: IF ApproachFace? SeqLabC StockOnNoCan XSPC EOL SeqLabC StockOff ZOpCPC EOL StockOnNoCan IF NotEqual? CycleStartZ# ZOpCP# SeqLabC FeedNoCan ZSPC FeedRateNoCan EOL END ELSE { ODApproach/IDApproach } SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL StockOnNoCan IF NotEqual? CycleStartX# XOpCD# SeqLabC FeedNoCan XSPC FeedRateNoCan EOL END END RETURN AppMove: StockOff ThisOpEntryZCP OpToolID LatheOffset CoolOn RETURN Approach: { NOT FOR TAILSTOCK, .82 } Rapid RapidF# { RapidF# Forces FeedRate } IF ApproachOD? SeqLabC ThisOpEntryXCP AppMove EOL ELSE IF ApproachID? SeqLabC XOpCD AppMove EOL ELSE {ApproachFace} SeqLabC StockOnNoCan XSP AppMove EOL END END ApproachSP RETURN CheckOffset: DoEndOpPS IF LAST ProgStop? SeqLabC ' M0' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqLabC CoolOff EOL END END IF NewGear? SeqLabC GearRange EOL END IF NewToolOffset? SeqLabC OpToolID LatheOffset EOL END CSSOff IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END IF LAST ProgStop? OR NewGear? CSSOn ' G96' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# CSSOn ' G96' Speed END END ELSE SeqLabC Preset MaxRPM EOL CSSOn ' G96' Speed END ELSE IF LAST ConstantSurfaceFeed? ' G97' Speed ELSE IF LAST ProgStop? OR NewGear? ' G97' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# ' G97' Speed END END END END IF LAST ProgStop? SeqLabC {SpeedC} SpinOn EOL SeqLabC CoolOn EOL ELSE IF NOT CoolOff? AND LAST CoolOff? SeqLabC CoolOn EOL END END DoPostScript RETURN FormatArc: IF ArcCW? CWArcC ELSE CCWArcC END MoveXC MoveZC IF ArcIJFormat? ArcIJC ELSE ArcRC END RETURN CkCRC: { 4.2 } IF XMove? OR ZMove? { Approach Length Feature and Multiple Pockets } IF LastFeat? CRCOffC { Exit Length Feature } ELSE CRCOnC { Entry Length Feature } END END RETURN CutOffSeg: SeqLabC CkCRC FeedC ' X' ADD# EPX# Num#('.03') FeedRateC EOL SeqLabC Preset ' S200 M73' EOL { Parts Catcher Extend } Save# Num#('1') EPZ# { CutOff ZDepth } RETURN ToolPath: EACHFeat GetToolTip IF LastFeat? IF Drilling? IF Tap? SeqLabC SpinOff EOL SeqLabC MoveZC InverseSpinOn EOL ELSE IF Dwell? SeqLabC ' G4 U' Dwell# EOL END END ELSE IF CannedCycle? SeqLab END END END IF PointFeat? SeqLabC MoveSXYC EOL ELSE IF RapidFeat? SeqLabC RapidC MoveXC MoveZC EOL ELSE IF LineFeat? IF CutOff? IF LastFeat? IF AutoClearance? SeqLabC CkCRC RapidC MoveXC MoveZC EOL { Retract Tool } ELSE CutOffSeg SeqLabC CkCRC FeedC MoveXC MoveZC FeedRateC EOL { PartOff } END ELSE IF AutoClearance? AND NEXT LastFeat? CutOffSeg END SeqLabC CkCRC FeedC MoveXC MoveZC FeedRateC EOL END ELSE SeqLabC CkCRC FeedC MoveXC MoveZC FeedRateC EOL END ELSE IF ArcFeat? EACHQuadrant { Do not use NOT, LAST, FIRST or NEXT modifiers in this loop } SeqLabC FormatArc FeedRateC EOL NEXTQuadrant ELSE IF ThreadFeat? SeqLabC ' G32' MoveXC MoveZC ThrdLead EOL Rapid END END END END END NEXTFeat RETURN CheckRapid: CRCOffC IF LAST CannedCycle? Rapid ELSE RapidC END RETURN ToolChangeSeqLab: FORMAT(Recall#,3) Save# Num#('2') ADD# Recall# Num#('2') Num#('1') 'N' Recall# Num#('2') '000' FORMAT(Recall#,2) RETURN BarFeeder: ' ' EOL ToolChangeSeqLab IF OptionalStops? ProgStop END IF UseComments? ' (Bar Pull - T8)' END IF Not EmptyLine? EOL END IF ToolChangeAtHome? SeqLabC Rapid Home EOL ELSE SeqLabC ' G30 U0 W0' EOL END SeqLabC CRCOff ' G97 G98 S0 T0800' SpinOff EOL SeqLabC ' M74 G4 U.3' EOL { Parts Catcher Extend } SeqLabC ' M73 G4 U.3' EOL { Parts Catcher Retract } SeqLabC ' M74 G4 U.3' EOL { Parts Catcher Extend } SeqLabC ' M73 G4 U.3' EOL { Parts Catcher Retract } SeqLabC ' M74 G4 U.3' EOL { Parts Catcher Extend } SeqLabC ' M73' EOL { Parts Catcher Retract } SeqLabC Rapid ' X' ADD# XStockMax# Num#('.2') StockOff ZCP ' T0808' CoolOn EOL SeqLabC ' Z' SUB# Recall# Num#('1') Num#('.2') EOL SeqLabC Feed ' X-.4 F80.' EOL SeqLabC ' M11' EOL { Chuck Open } SeqLabC ' G4 U.01' EOL SeqLabC CoolOff EOL SeqLabC ' W' ADD# Num#('.02') ADD# Num#('.094') MUL# Recall# Num#('1') Num#('-1') EOL SeqLabC ' M10' EOL { Chuck Close } SeqLabC ' G4 U.01' EOL SeqLabC Rapid ' X2.' EOL SeqLabC ' Z1.' CoolOff EOL IF ToolChangeAtHome? SeqLabC Rapid Home EOL ELSE SeqLabC ' G30 U0 W0' EOL END SeqLabC ' T0800' EOL SeqLabC ' M89' EOL { Parts Counter } SetLineStrtChr('/') SeqLabC ' M99' EOL SetLineStrtChr('') SeqLabC ' G28 U0 W0' EOL RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg SetAbs PosSideLathe StandardXZArcs SetMaxRPM('3500') IF Metric? SetMaxFeed('12700') ELSE SetMaxFeed('500') END Save# Num#('1') Num#('0') { CutOff ZDepth } Save# Num#('2') Num#('0') { ToolChange SeqLab } 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: must be all capital letters when typed in.' 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 EachOp {Start of post processing *********************} GetLCycle IF FirstOperation? EOR EOL ':' Program# IF UseComments? AND ProgramNameComment? '( ' ProgramName$ ' )' END EOL IF UseComments? IF ProgramComment? '( ' ProgramComment$ ' )' EOL END IF FormatNameComment? '( FORMAT - ' FormatName$ ' )' EOL END IF TimeComment? '( ' Date$ ' AT ' Time$ ' )' EOL END IF MovesComment? '( OUTPUT IN ABSOLUTE INCHES )' EOL END END RestoreScale OpenSub StockOff {.71.2} SetHome DoOpComments DoPostScript Plane ToolChangeSeqLab IF OptionalStops? ProgStop EOL SeqLabC END IF ToolChangeAtHome? Rapid Home EOL ELSE ' G30 U0 W0' EOL END SeqLabC ' M74' EOL { Parts Catcher Retract } SeqLabC GearRange EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL CRCOff CSSOn ' G96' ELSE CRCOff CSSOff ' G97' END SeqLabC ' G99' Speed OpToolID '00' SpinOn EOL Approach ELSE IF NewTool? {Finish off last Operation} StockOff {.62} CheckRapid IF LAST ApproachOD? SeqLabC LAST OpExitXCPC EOL ELSE IF LAST ApproachID? SeqLabC LAST XOpECDC EOL END END SeqLabC LAST OpExitZCPC CoolOff EOL DoEndOpPS IF LAST Drilling? AND LAST Tap? IF CWSpindle? AND LAST CWSpindle? SeqLabC SpinOff EOL ELSE IF NOT CWSpindle? AND LAST NOT CWSpindle? SeqLabC SpinOff EOL END END ELSE IF CWSpindle? AND LAST NOT CWSpindle? SeqLabC SpinOff EOL ELSE IF NOT CWSpindle? AND LAST CWSpindle? SeqLabC SpinOff EOL END END END IF ToolChangeAtHome? SeqLabC Rapid NewHome EOL ELSE SeqLabC ' G30 U0 W0' EOL END SeqLabC LOfstOff '00' EOL IF LAST ProgStop? SeqLabC ' M0' EOL END {Start new Operation} ' ' EOL DoOpComments DoPostScript ToolChangeSeqLab IF OptionalStops? ProgStop EOL SeqLabC END IF ToolChangeAtHome? Rapid Home EOL ELSE ' G30 U0 W0' EOL END SeqLabC ' M74' EOL { Parts Catcher Retract } SeqLabC GearRange EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL CRCOff CSSOn ' G96' ELSE CRCOff CSSOff ' G97' END SeqLabC ' G99' Speed OpToolID '00' SpinOn EOL Approach ELSE IF SameTool? {.62} {Start new Operation} StockOff DoOpComments IF LAST StraightConnect? CheckOffset CheckRapid SeqLabC StockOnNoCan XSPC ZSPC EOL ELSE CheckRapid IF ApproachOD? IF LAST ApproachOD? SeqLabC LAST XOpECDC EOL ELSE {around} IF LAST ApproachID? SeqLabC LAST XOpECDC EOL END SeqLabC LAST OpExitZCPC EOL SeqLabC LAST OpExitXCPC EOL END ELSE IF ApproachID? IF LAST ApproachID? SeqLabC LAST XOpECDC EOL ELSE IF LAST ApproachOD? {around} SeqLabC LAST OpExitXCPC EOL END SeqLabC LAST OpExitZCPC EOL SeqLabC XOpCDC EOL END ELSE {ApproachFace} IF LAST ApproachFace? SeqLabC LAST ZOpECPC EOL ELSE IF LAST ApproachOD? {around} SeqLabC LAST OpExitXCPC EOL ELSE {LAST ApproachID} SeqLabC LAST XOpECDC EOL END SeqLabC LAST OpExitZCPC EOL END END END CheckOffset ApproachSP END END END END {common point for all operations} IF CannedCycle? StockOff IF Roughing? IF RoughSimple? StockOn SetPass1 SeqLabC LCycle XatFinZ IF ApproachFace? ' Z' FirstMoveEPZ# ELSE FinZ END IF Taper? XTapAtZ END FeedRate EOL SimpleRough ELSE TagInc SetPass2 IF RoughContour? SeqLabC LCycle CutDepth ' R.05' EOL { R = Retract } SeqLabC LCycle ' P³' Tag# ' Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL IF ApproachFace? SeqLab StepMove ' Z' SPZ# EOL SeqLabC FeedC ' X' SPX# EOL ELSE SeqLab StepMove ' X' SPX# EOL SeqLabC FeedC ' Z' SPZ# EOL END ELSE IF RoughPatternShift? SeqLabC LCycle XminusU ZminusW NumCuts EOL SeqLabC LCycle ' P³' Tag# ' Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL SeqLab Rapid StrtPos EOL END END ToolPath IF ApproachOD? SetPass1 StockOff LoadFeat Num#('0') CycleStartX# IF XMove? SeqLab RapidC MoveXC EOL END END '<' Tag# EOL IF AutoFinish? SeqLabC ' G70' ' P³' Tag# ' Q²' Tag# EOL END SetPass1 TrackXNO# CycleStartX# TrackZNO# CycleStartZ# END ELSE IF Threading? IF Chamfer? SeqLabC ' M23' EOL END SeqLabC LCycle XatFinZ FinZ XTapAtZ CutMethod ThrdHeight CutDepth ThrdLead ' A' InFeedAngle# EOL IF AutoFinish? SeqLabC ' G92' XatFinZ FinZ XTapAtZ ThrdLead EOL END IF Chamfer? SeqLabC ' M24' EOL END ELSE IF Drilling? IF Tap? SeqLabC LCycle ZDepth ' F' FeedIPR# EOL SeqLabC SpinOff EOL SeqLabC ZSP InverseSpinOn EOL ELSE IF PeckChipBreaker? SeqLabC LCycle Retract EOL SeqLabC LCycle ZDepth ' Q' Peck# FeedRate EOL IF AutoFinish? SeqLabC Feed ZDepth EOL IF Dwell? SeqLabC ' G4 U' Dwell# EOL END SeqLabC Rapid ZSP EOL END END END END END END ELSE StockOn SetPass1 ToolPath IF AutoFinish? { .82.1c } StockOff IF Turning? IF ApproachFace? SeqLabC RapidC ZOpECPC EOL ELSE SeqLabC RapidC XOpECDC EOL END ApproachSP SeqLabC StockOff StrtPosC EOL ToolPath ELSE IF Roughing? AND NOT RoughSimple? SetPass2 SeqLabC RapidC XSPC ZSPC EOL SeqLabC StockOff StrtPosC EOL ToolPath SetPass1 ELSE IF Threading? SeqLabC ' X' MUL# Num#('2') ADD# FinishXRadius# Taper# EOL SeqLabC ' G32' IF Taper? XatFinZ END FinZ ThrdLead EOL SeqLabC Rapid XSP EOL SeqLabC ZSP EOL END END END END END NextOp {loops back to EachOP until last Operation} {End of program ************************************************************} {finish last operation} StockOff CRCOffC IF CannedCycle? Rapid ELSE RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC CoolOff EOL DoEndOpPS IF ToolChangeAtHome? SeqLabC Rapid Home EOL ELSE SeqLabC ' G30 U0 W0' EOL END SeqLabC OpToolID '00' EOL BarFeeder SeqLabC EOP EOL Post EOR EOL Close Retag IF UseComments? SetScale('1') {restore scale for comments} Reopen IF FileBytesComment? '( FILE LENGTH - ' FileBytes# ' CHARACTERS )' EOL END IF FileFeetComment? '( FILE LENGTH - ' FileFeet# ' FEET )' EOL END IF FileMetersComment? '( FILE LENGTH - ' FileMeters# ' METERS )' EOL END Close END