{Change Comments ***********************************************************} {8/11/89 Copied & modified; Fanuc OT [-] L031.55 for, Indarg. Machine is a Mori Sieki AL20 with Fanuc OT Mate control. Use 'G30X0.Z0.' for home position. Add GearRange. Delete FromCP & RLevel from drilling, changed K to U for Peck value, and deleted G80. Jim Radcliffe} {3/27/90, Updated: Fanuc 0T Mate MS (-) L031.56 to .69.3 foramt, JR} {3/27/90 Copied & modified: Fanuc 0T Mate MS (-) L031.69.3 For: Indarg Positive side lathe. R format arcs. 2 line theading. Jim Radcliffe} {5/30/90 Modified: Fanuc OT Mate MS L031.69.3 Added R value to 1st Rough Contour Cycle line. Updated to .69.5 Jim Radcliffe} {7/23/90 Modified: Fanuc OT Mate MS L031.69.5 Deleted ReverseXZArcs Changed StrtPos to StrtPosC in RoughContour & RoughPatternShift. Updated to .69.7 format Jim Radcliffe} {7/24/90, Added InitProg globally to posts with this remark, DWB} {8/3/90, Updated: Fanuc OT Mate MS L031.70 to .71 format, JR} {9/12/90, added MovesComment, SeqLabC in for PostScript, JR} {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/27/91 Modified: Fanuc 0T Mate MS L031.71.4 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format. All normal Fanuc Canned Cycles are supported. DWB} {08/02/91 Updated: Fanuc 0T Mate MS L031.80 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 6M M001.82 Format. Kim Michelman} {4/10/92 Updated: Fanuc 0T Mate MS L031.82 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 0T/3T Miyano L008.82.1 Format. KM} {8/26/95, Updated Fanuc 0T Mate MS L031.82.1 to .85 format per Fanuc 10T MS [-] L001.85.01.01, JR} { Format: Fanuc 0T MS Lxxx.85.1 10/3/95 For: Haas Automation Removed tool ofset cancels. Put tool offset in place of offset cancel at start if operation Changed to R format arcs TH} {9/10/96, Initial: Fanuc 0T MS [HA] L383.85.1 Created: Haas Lxxx.85 For: Everest Electronic Equip. Changed G76 threading cycle to single line output, added support for G83 Peck cycle, added Rlevel and changed peck label to Q for G74 peck cycle, changed tapping cycle to G84 rigid tapping cycle, MPK} {7/17/97 Initial: Haas [EE] L512.85 Created: Haas [EE] L512.85.1 ForUser: Militec Defense Systems Develop: ComPost2 68K 1.0b11, Virtual Gibbs 3.35 PPC Comment: Corrected threading canned cycle output I and A values. Jim Radcliffe} {10/23/97 Updated: Haas [EE] L512.85.1 Created: Haas [EE] L512.85.2 For: Gibbs & Associates/Baker Machine Versions: Catalyst v4.21.05(mac)/ComPost2 MSL 68K Updated for Catalyst v3.35C per Fanuc 10T MS [-] L001.85.02d Format. Added InFeedAngle# to FORMAT#6 at Prog Numeric Format Definitions. Deleted CheckGear sub. Updated CheckOffset sub. Updated CkCRC sub. Added SetMaxFeed(12700) condition for Metric Files at setup and initializations. Corrected output of G0 only block at end of Manual Thread Cycle. Added IF LAST ThreadFeat? at ToolPath RapidFeat? Forces Rapid. Deleted forced Rapid at ToolPath ThreadFeat. Added OR LAST Threading? at CheckRapid. Added OR Threading? at end of Prog. DWB} {10/24/97 Copied: Haas [EE] L512.85.2 Created: Haas [BM] L659.85 For: Baker Machine Versions: Catalyst v4.21.05(mac)/ComPost2 MSL 68K Changes made per Karl Baker of Baker Machine, faxes and phone calls. Customer reported that Canned Threading Cycle cannot contain 'A' InFeedAngle#. This was verified by Haas. Deleted InFeedAngle# frm FORMAT#6 at Prog Numeric Format Definitions. Deleted 'A' InFeedAngle# from Canned Threading block at Canned Cycle IF Threading. Customer requested support of Virtual Threading SpringPass. Added Var(1) initializer at setup and initializations. Used as a decrementing counter which starts at value of SpringPass#. Added SpringPass# value test at Canned Cycle IF Threading. Value GTEqual to 1 will output G92 block. Value GTEqual to 2 calls DoSpringPass sub. Called 15 times. Added DoSpringPass sub. SUBtracts one from decrementing variable counter VAR(1). Result GTEqual to 1 will output XatFinZ block. Customer requested modification of ToolChng position. Changed G28U0.W0. to NewHome at NewTool. Changed G28U0.W0. to FirstHome at end of Prog. Deleted remaining 'G28U0.W0.' blocks at FirstOperation and NewTool. Customer reported that cancelling ToolOffset when going to FirstHome at end of program causes OverTravel alarm. Deleted UnTool '00' at end of Prog. Deleted LOfstOff '00' two places at CheckOffset sub. 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(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(CutDepth#,5) 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 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 NewGear? SeqLabC SpinOff EOL END IF CoolOff? AND LAST NOT CoolOff? SeqLabC CoolOff EOL END END SeqLabC IF NewToolOffset? OpToolID LatheOffset END IF NewGear? GearRange END EOL 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? OR NewGear? 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 ToolPath: EACHFeat GetToolTip IF LastFeat? IF Drilling? IF Tap? AND NOT CannedCycle? SeqLabC SpinOff EOL SeqLabC 'G4P2000' EOL SeqLabC Speed InverseSpinOn EOL ELSE IF Dwell? SeqLabC 'G4P' Dwell# EOL END END ELSE IF CannedCycle? SeqLab END END END IF PointFeat? SeqLabC MoveSXYC EOL ELSE IF RapidFeat? IF LAST ThreadFeat? Rapid END SeqLabC RapidC MoveXC MoveZC EOL ELSE IF LineFeat? SeqLabC CkCRC FeedC MoveXC MoveZC FeedRateC EOL 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 END END END END END NEXTFeat RETURN DoSpringPass: Save# Num#('1') SUB# Recall# Num#('1') Num#('1') IF GTEqual? Recall# Num#('1') Num#('1') SeqLabC XatFinZ EOL END RETURN CheckRapid: CRCOffC IF LAST CannedCycle? OR LAST Threading? Rapid ELSE RapidC END RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg SetAbs PosSideLathe StandardXZArcs SetMaxRPM('10000') IF Metric? SetMaxFeed('12700') ELSE SetMaxFeed('500') END Save# Num#('1') Num#('1') { Canned Threading SpringPasses# } 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 ProgID1 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 SeqLab 'G99' GearRange EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END OpToolID LatheOffset 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 EOL DoEndOpPS IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' CalcRPM2 EOL END SeqLabC NewHome IF NewGear? SpinOff END EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END {Start new Operation} DoOpComments DoPostScript SeqLab 'G99' GearRange EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END OpToolID LatheOffset 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 ConstantSurfaceFeed? AND NOT SameTool? SeqLabC CSSOn 'G96' Speed EOL END IF CannedCycle? StockOff IF Roughing? IF RoughSimple? StockOn SetPass1 SeqLabC LCycle IF ApproachFace? 'Z' FirstMoveEPZ# XatFinZ ELSE XatFinZ FinZ END XTapAtZ FeedRate EOL SimpleRough ELSE TagInc SetPass2 IF RoughContour? SeqLabC LCycle CutDepth 'R' CutDepth# EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL IF ApproachFace? SeqLab StepMove 'Z' SPZ# EOL SeqLabC 'X' SPX# EOL ELSE SeqLab StepMove 'X' SPX# EOL SeqLabC '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 '<' 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 IF Taper? XTapAtZ END ThrdHeight CutDepth ThrdLead EOL IF AutoFinish? SeqLabC 'G92' XatFinZ FinZ IF Taper? XTapAtZ END ThrdLead EOL ELSE IF GTEqual? SpringPasses# Num#('1') SeqLabC 'G92' XatFinZ FinZ IF Taper? XTapAtZ END ThrdLead EOL IF GTEqual? SpringPasses# Num#('2') Save# Num#('1') SpringPasses# DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass DoSpringPass END END END IF Chamfer? SeqLabC 'M24' EOL END ELSE IF Drilling? IF Tap? SeqLabC LCycle ZDepth RLevel FeedRate EOL ELSE IF Peck? SeqLabC LCycle ZDepth RLevel Peck FeedRate EOL IF AutoFinish? SeqLabC Feed ZDepth EOL IF Dwell? SeqLabC 'G4P' 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 IF Drilling? AND Tap? AND NOT CannedCycle? SeqLabC SpinOff EOL SeqLabC 'G4P2000' EOL SeqLabC Speed SpinOn EOL END NextOp {loops back to EachOP until last Operation} {End of program ************************************************************} {finish last operation} StockOff CRCOffC IF CannedCycle? OR Threading? Rapid ELSE RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC EOL DoEndOpPS SeqLabC CoolOff EOL IF ConstantSurfaceFeed? SeqLabC CSSOff 'G97S' CalcEPRPM# EOL END SeqLabC FirstHome SpinOff EOL IF ProgStop? SeqLabC 'M0' EOL END 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