{Change Comments ***********************************************************} {2/21/90, updated: Fanuc 3T-Miyano L015.52 to .69.3. foramt, 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/29/91 Modified: Fanuc 3T Miyano L015.71.3 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format. All normal Fanuc Canned Cycles except for Drilling are supported. DWB} {4/17/91 Modified: Fanuc 3T Miyano L015.80 Replaced AbsOrInc command with SetAbs, in FirstOperation, and changed MoveType$ to 'ABSOLUTE'. DWB} {08/05/91 Updated: Fanuc 3T Miyano L015.81 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 6M M001.82 Format. Kim Michelman} {8/19/95, Updated Fanuc 3T Miyano L015.82 to .85 format per Fanuc 10T MS [-] L001.85.01, JR} {10Jul97 Original: Fanuc 3T Miyano L015.85 Created: Fanuc 3T Miyano [SEM] L612.85 For: South Eastern Machining Changes made per: John Stevenson Added Support for BarFeed in FirstOp Added PartCatcher codes for use when CutOff is selected Added Canned cycle for Tapping Changed FeedIPR# FORMAT#5 from '#.######;0.' to '0.######;0.' Changed all single digit G and M codes to output a leading zero e.g. changed 'M8' to 'M08' Charles Winston} {21Aug97 Original: Fanuc 3T Miyano [SEM] L612.85 Created: Fanuc 3T Miyano [SEM] L612.85.1 For: South Eastern Machining Changes made per: John Stevenson Added Formats for EPZ# and Recall# Added Check for CutOff in any operation thru EachOp/NextOp loop at beginning of prog. Suppressed output of Bar Feed routine at beginning of program if there in not a CutOff Op in the Part. Set Flag?('1') to true, to activate a BarFeed Process. Deleted test for OptCyc1 in FirstOperation Added Boolean in FirstOperation fora Bar feed Added Boolean at End of Prog to output OpExitZCPC if NOT a CutOff Added description of Barfeed command to Utility Data Charles Winston} {22Sep97 Original: Fanuc 3T Miyano [SEM] L612.85.1 Created: Fanuc 3T Miyano [SEM] L612.85.2 For: South Eastern Machining Changes made per: John Stevenson Deleted old version numbers and comments e.g. {.62}, {commands}, {literals}, etc Moved Literal 'T1010' to Rapid Line in BarFeed Code at FirstOperation Changed to R Format Arcs in MachSpec Charles Winston} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.####;0.' #3 = '#######0' #4 = '###^##0' #5 = '0.######;0.' #6 = '###0' #7 = '#' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(MUL#,2) { Non-Canned Threading AutoFinish } FORMAT(FirstMoveEPX#,2) FORMAT(FirstMoveEPZ#,2) FORMAT(SUB#,2) FORMAT(EPZ#,2) FORMAT(Recall#,2) FORMAT(Program#,3) FORMAT(Operation#,3) FORMAT(Tool#,3) FORMAT(Dwell#,4) 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 PSStuff NextPS RETURN DoEndOpPS: PSInit EachEOPS SeqLabC EndOpPS EOL PSStuff 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 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 NewToolOffset? SeqLabC LOfstOff '00' EOL SeqLabC OpToolID LatheOffset EOL END IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END IF NotEqual? SpeedRPM# LAST SpeedRPM# SeqLabC Speed END ELSE SeqLabC Preset MaxRPM EOL SeqLabC CSSOn 'G96' Speed END ELSE IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' Speed END END IF LAST ProgStop? SeqLabC SpeedC SpinOn EOL SeqLabC CoolOn EOL ELSE SeqLabC SpeedC EOL IF NOT CoolOff? AND LAST CoolOff? SeqLabC CoolOn EOL END END DoPostScript RETURN FormatArc: IF ArcCW? CWArc ELSE CCWArc END MoveXC MoveZC IF ArcIJFormat? ArcIJC ELSE ArcRC END RETURN CkCRC: { 4.2 } IF XMove? OR ZMove? { Approach Length Feature and Multiple Pockets } IF NOT LastFeat? CRCOnC END END IF LastFeat? AND EmptyLine? { Exit Length Feature } CRCOffC END RETURN ToolPath: EACHFeat GetToolTip IF LastFeat? IF Drilling? IF Tap? 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? SeqLabC RapidC MoveXC MoveZC RapidF# 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 Rapid END END END END END NEXTFeat RETURN CheckRapid: CRCOffC IF LAST CannedCycle? Rapid ELSE RapidC END RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg SetAbs PosSideLathe SetMaxRPM('10000') SetMaxFeed('500') SetFlagF('1') { Used for BarFeed } 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 ' ' EOL ' If there is a CutOff operation, This Post ' EOL ' Will output a Barfeed process at the begining of the file ' EOL ' and will activate the Part Catcher. ' EOL ' ' EOL END EachOp IF CutOff? SetFlag('1') { True if a CutOff Op exists } END NextOp EachOp {Start of post processing *********************} GetLCycle IF FirstOperation? EOR EOL ':' ProgID1 EOL 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 SetHome DoOpComments DoPostScript Plane SeqLabC '/G28U0.' EOL SeqLabC '/G28W0.' EOL IF Flag?('1') { OK to do a Bar Feed, There is a CutOff Op in this Part } SeqLabC 'G50S02000' EOL SeqLab 'T1000' EOL SeqLabC 'G97S0100' SpinOn EOL SeqLabC Rapid 'X0Z' SUB# ZStockMin# ZStockMax# 'T1010' EOL { Bar feed } SeqLabC 'M69' EOL { Open Chuck/Collet } SeqLabC Feed 'Z0F0.900' EOL SeqLabC 'M68' EOL { Close Chuck/Collet } SeqLabC Rapid Home 'T1000' CoolOff EOL SeqLabC ProgStop EOL END SeqLab OpToolID '00' CoolOn EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SeqLabC SpinOn EOL Approach ELSE IF NewTool? {Finish off last Operation} StockOff 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 LOfstOff '00' CoolOff EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END {Start new Operation} DoOpComments DoPostScript SeqLab OpToolID '00' CoolOn EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL Approach ELSE IF SameTool? {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 CutOff? SeqLabC 'M63' EOL {Part catcher} END IF CannedCycle? StockOff IF Roughing? IF RoughSimple? StockOn SetPass1 IF ApproachFace? SeqLabC LCycle 'Z' FirstMoveEPZ# XatFinZ XTapAtZ FeedRate EOL ELSE SeqLabC LCycle XatFinZ FinZ XTapAtZ FeedRate EOL END SimpleRough ELSE TagInc IF RoughContour? SetPass2 IF ApproachFace? {G72 Rough Face Cutting Cycle} {special two line ToolPath} {first line is preparatory} SeqLabC LCycle CutDepth 'R.01' EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL ELSE {G71 Rough Turn Cutting Cycle} {special two line ToolPath} {first line is preparatory} SeqLabC LCycle CutDepth 'R.01' EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL END '>' Tag# EOL SeqLab StepMove StrtPos EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'PÅ‚' Tag# 'Q²' Tag# EOL END ELSE IF RoughPatternShift? SetPass2 {G73 Pattern Repeated Cutting Cycle} {special two line ToolPath} {first line is preparatory} SeqLabC LCycle XminusU ZminusW NumCuts EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL SeqLab Rapid StrtPos EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'PÅ‚' Tag# 'Q²' Tag# EOL END END END END ELSE IF Threading? IF SingleEdgeCut? {G76A60} SeqLabC 'G76' IF AutoFinish? 'P020560' EOL ELSE 'P010560' EOL END SeqLabC 'G76' XatFinZ FinZ XTapAtZ ThrdHeight CutDepth ThrdLead EOL ELSE IF ConstantVolumeCut? {G76A0} SeqLabC 'G76' IF AutoFinish? 'P020500' EOL ELSE 'P010500' EOL END SeqLabC 'G76' XatFinZ FinZ XTapAtZ ThrdHeight CutDepth ThrdLead EOL ELSE SetPass1 SeqLabC 'G92X' FirstMoveEPX# FinZ ThrdLead EOL SimpleRough END END ELSE IF Drilling? IF Tap? SeqLabC LCycle ZDepth 'F' FeedIPR# EOL SeqLabC LCycle ZSP 'F' FeedIPR# InverseSpinOn EOL 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 IF NOT Cutoff? SeqLabC OpExitZCPC EOL END DoEndOpPS IF Cutoff? SeqLabC 'M64' EOL {Part Catcher} END SeqLabC FirstHome OpToolID '00' CoolOff EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END SeqLabC SpinOff EOL SeqLabC '/' EOP EOL Post SeqLabC 'M99' 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