{Change Comments ***********************************************************} {7/24/90, Added InitProg globally to posts with this remark, DWB} {9/21/90, Updated: Fanuc 6T MS [+] L016.53 to .71 format, JR} {10/2/90, Added StockOff globally at FirstOperation, DWB} {10/8/90, Replace CalcRPM2 globally with CalcEPRPM# at end of prog, DWB} {4/1/91 Modified: Fanuc 6T MS [+] L016.71.2 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format. All normal Fanuc Canned Cycles are supported. DWB} {08/06/91 Updated: Fanuc 6T MS [+] L016.80 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 6M M001.82 Format. Kim Michelman} {10/15/91 Copied & Modified: Fanuc 6T MS [+] L016.82 For: A & D Precision Manufacturing, Inc. Took out Colons in comments and replaced with commas. Removed ToolID '00' from SpinOn line and moved up to the MaxRPM line in FirstOp. Also adding to that line, a literal 'M42'. Added CoolOn line and literal 'G04 P3000' below the SpinOn line in the FirstOp. Kim Michelman} {7/9/92 Copied & Modified: Fanuc 6T MS [+] L016.82 For: A & D Precision Manufacturing, Inc. Changed the StrtPos to StrtPosC in the Canned Cycle section. Added EOL to the end of the PrgramName comment to break up the lines. Changed the SubID and the ProgID to ':' Program#. Kim Michelman} {1/24/97, updated to .85 format, MPK} {Prog Numeric Format Definitions *******************************************} #1 = '0.00' #2 = '###.0###' #3 = '########;0' #4 = '###^##0' #5 = '#.######;0.' #6 = '###0' #7 = '#' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(FirstMoveEPX#,2) FORMAT(FirstMoveEPZ#,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 Rapid ThisOpEntryXCP AppMove EOL ELSE IF ApproachID? SeqLabC Rapid XOpCD AppMove EOL ELSE {ApproachFace} SeqLabC Rapid StockOnNoCan XSP StockOff 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? SeqLabC SpeedC EOL ELSE SeqLabC Preset MaxRPM EOL SeqLabC CSSOn 'G96' Speed EOL END ELSE IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' Speed EOL ELSE SeqLabC SpeedC EOL END END IF LAST ProgStop? SeqLabC 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 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 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') 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# EOL IF UseComments? AND ProgramNameComment? '( ' ProgramName$ ' )' EOL END 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 SeqLabC Preset Home MaxRPM OpToolID '00' 'M42' EOL SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL SeqLabC CoolOn EOL SeqLabC 'G04 P3000' 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 LOfstOff '00' EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END {Start new Operation} DoOpComments DoPostScript SeqLab Preset Home MaxRPM EOL SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END 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 ConstantSurfaceFeed? AND NOT SameTool? SeqLabC CSSOn 'G96' Speed EOL 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 SeqLabC LCycle 'P³' Tag# 'Q²' Tag# XStkLeft ZStkLeft CutDepth FeedRate EOL '>' Tag# EOL SeqLab StepMove StrtPosC EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'P³' Tag# 'Q²' Tag# EOL END ELSE IF RoughPatternShift? SetPass2 SeqLabC LCycle 'P³' Tag# 'Q²' Tag# XStkLeft ZStkLeft XminusU ZminusW NumCuts FeedRate EOL '>' Tag# EOL SeqLab Rapid StrtPosC EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'P³' Tag# 'Q²' Tag# EOL END END END END ELSE IF Threading? IF NOT ConstantVolumeCut? AND NOT SingleEdgeCut? SeqLabC 'G92X' FirstMoveEPX# FinZ XTapAtZ ThrdLead EOL SimpleRough SeqLabC XatFinZ EOL IF AutoFinish? SeqLabC XatFinZ EOL END ELSE IF Chamfer? SeqLabC 'M23' EOL END SeqLabC LCycle XatFinZ FinZ XTapAtZ ThrdHeight CutDepth ThrdLead IF SingleEdgeCut? ToolAngle ELSE 'A0' END EOL IF Chamfer? SeqLabC 'M24' EOL END IF AutoFinish? SeqLabC 'G92' XatFinZ FinZ XTapAtZ ThrdLead EOL END END ELSE IF Drilling? IF Tap? SeqLabC LCycle ZDepth 'E' FeedIPR# EOL SeqLabC SpinOff EOL SeqLabC 'G4P2000' EOL SeqLabC Speed InverseSpinOn EOL SeqLabC ZSP EOL ELSE IF PeckChipBreaker? SeqLabC LCycle ZDepth RLevel Dwell Peck Retract FeedRate EOL SeqLabC DrillOff 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? IF NOT Drilling? AND NOT Grooving? StockOff IF Turning? SetPass1 ELSE SetPass2 END SeqLabC RapidC StrtPos EOL ToolPath END END END IF Drilling? AND Tap? 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? 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 OpToolID '00' SpinOff EOL SeqLabC UnTool '00' 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