{Change Comments ***********************************************************} {2/21/90, Updated: Fanuc 10T MS [+] L004.53 to .69.3 format, JR} {7/18/90, Updated: Fanuc 10T MS [+] L004.69 to .69.7 format, 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 10T MS [+] L004.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} {08/05/91 Updated: Fanuc 10T MS [+] L004.80 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 6M M001.82 Format. Kim Michelman} {6/5/95 Initial: Fanuc 10T MS [+] L004.82 ForUser: Braden Eng / Starland Control: Fanuc 10T Machine: Monarch Comment: New processor per marked up readout. Appears to be using the Special G Code Group: Added AbsOrInc and InchesPerRev. Changed Preset command G50 to G92. Go directly to G96 in CSS operation, skip G97 altogether. Added BarFeed sequnce at end of program if CutOff is true on last tool. Move to turret values in machine coordinates at beginning and end of tool. Beginning each tool with a sequence number equal to the tool number times 100. Modified Tapping: Deleted Drill Cycle from MachSpec Modified ToolPath to just output InverseSpinOn and allow defined Dwell. Deleted Dwell and Spindle Forward after coming out of hole. Jim Radcliffe} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.####;0.' #3 = '########;0' #4 = '###^##0' #5 = '#.######;0.' #6 = '###0' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(FirstMoveEPZ#,2) FORMAT(ADD#,2) FORMAT(TurretX#,2) FORMAT(TurretZ#,2) FORMAT(Program#,3) {.72} FORMAT(Operation#,3) {.72} FORMAT(Tool#,3) {.72} FORMAT(Dwell#,4) {.72} FORMAT(FeedIPR#,5) FORMAT(CalcEPRPM#,6) {Prog Subroutines **********************************************************} TurretHome: 'X' TurretX# 'Z' TurretZ# RETURN MachCoOrd: 'G53' {specifies position in machine coordinates, non-modal} RETURN InchesPerRev: 'G95' RETURN OpenChuck: 'M36' RETURN CloseChuck: 'M37' 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 IF Metric? {CAM file is in Metric, tools and tool path} SetScale('.03937007874') { change to English, this is an English post} END 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 ODApproachSP: SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL SeqLabC Feed StockOnNoCan XSPC FeedRate EOL RETURN IDApproachSP: SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL { for SameTool ApproachID } SeqLabC Feed StockOnNoCan XSPC FeedRate EOL RETURN FaceApproachSP: SeqLabC StockOnNoCan XSPC EOL { for SameTool ApproachFace } SeqLabC StockOff ZOpCPC EOL SeqLabC Feed StockOnNoCan ZSPC FeedRate EOL RETURN AppMove: ZCP OpToolID LatheOffset RETURN Approach: { NOT FOR TAILSTOCK, .69.8 } StockOff IF NOT SameTool? SeqLabC Rapid IF ApproachOD? XCP ELSE IF ApproachID? XOpCD ELSE {ApproachFace} StockOnNoCan XSP StockOff END END ZCP OpToolID LatheOffset EOL END IF ApproachOD? SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL SeqLabC Feed StockOnNoCan XSPC FeedRate EOL ELSE IF ApproachID? SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL { for SameTool ApproachID } SeqLabC Feed StockOnNoCan XSPC FeedRate EOL ELSE {ApproachFace} SeqLabC StockOnNoCan XSPC EOL { for SameTool ApproachFace } SeqLabC StockOff ZOpCPC EOL SeqLabC Feed StockOnNoCan ZSPC FeedRate EOL END END 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 ToolPath: EACHFeat GetToolTip IF LastFeat? IF Drilling? IF Tap? SeqLabC InverseSpinOn EOL END IF Dwell? SeqLabC 'G4P' Dwell# EOL END ELSE IF CannedCycle? SeqLab ELSE IF CutOff? SetStatusOff Save# Num#('1') EPZ# SetStatusOn END END END END IF PointFeat? SeqLabC MoveSXYC EOL ELSE IF RapidFeat? SeqLabC RapidC MoveXC MoveZC EOL ELSE IF LineFeat? SeqLabC 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: 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 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 IF Metric? {CAM file is in Metric, tools and tool path} SetScale('.03937007874') { change to English, this is an English post} END OpenSub StockOff {.71.2} SetHome Plane DoOpComments DoPostScript '¦' Tool# '00' EOL SeqLab AbsOrInc InchesPerRev EOL SeqLabC MachCoOrd TurretHome EOL SeqLabC Preset Home OpToolID '00' MaxRPM CoolOn EOL IF ConstantSurfaceFeed? SeqLabC CSSOn 'G96'CalcRPM1 SpinOn EOL ELSE SeqLabC CSSOff 'G97'Speed SpinOn EOL END Approach ELSE IF NewTool? {Finish off last Operation} StockOff {.62} CheckRapid IF LAST ApproachOD? SeqLabC XCPC EOL ELSE IF LAST ApproachID? SeqLabC LAST XOpECDC EOL END END SeqLabC ZCPC EOL DoEndOpPS SeqLabC MachCoOrd TurretHome LOfstOff '00' EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END {Start new Operation} DoOpComments DoPostScript '¦' Tool# '00' EOL SeqLab AbsOrInc InchesPerRev EOL SeqLabC MachCoOrd TurretHome EOL SeqLabC Preset Home OpToolID '00' MaxRPM CoolOn EOL IF ConstantSurfaceFeed? SeqLabC CSSOn 'G96'CalcRPM1 SpinOn EOL ELSE SeqLabC CSSOff 'G97'Speed SpinOn EOL END Approach ELSE IF SameTool? {.62} {Start new Operation} DoOpComments StockOff 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 ZCPC EOL SeqLabC XCPC EOL END CheckOffset ODApproachSP ELSE IF ApproachID? IF LAST ApproachID? SeqLabC LAST XOpECDC EOL ELSE IF LAST ApproachOD? {around} SeqLabC XCPC EOL END SeqLabC ZCPC EOL SeqLabC XOpCDC EOL END CheckOffset IDApproachSP ELSE {ApproachFace} IF LAST ApproachFace? SeqLabC LAST ZOpECPC EOL ELSE IF LAST ApproachOD? {around} SeqLabC XCPC EOL ELSE {LAST ApproachID} SeqLabC LAST XOpECDC EOL END SeqLabC ZCPC EOL END CheckOffset FaceApproachSP END END END END END END {common point for all operations} 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 StrtPos 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 StrtPos EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'P³' Tag# 'Q²' Tag# EOL END END END END ELSE IF Threading? IF Chamfer? SeqLabC 'M23' EOL END SeqLabC LCycle XatFinZ FinZ XTapAtZ CutMethod ThrdHeight CutDepth ThrdLead ToolAngle 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 '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 NextOp {loops back to EachOP until last Operation} {End of program ************************************************************} {finish last operation} StockOff IF CutOff? SeqLabC SpinOff EOL SeqLabC CoolOff EOL SeqLabC Rapid 'X-' ADD# XStockMax# Num#('.5') 'Z' ADD# Recall# Num#('1') Num#('.04') EOL SeqLabC OpenChuck EOL SeqLabC Rapid 'Z.04' EOL SeqLabC CloseChuck EOL SeqLabC MachCoOrd TurretHome OpToolID '00' EOL SeqLabC 'M99' EOL ELSE IF CannedCycle? Rapid ELSE RapidC END IF ApproachOD? SeqLabC XCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC ZCPC EOL DoEndOpPS SeqLabC MachCoOrd TurretHome OpToolID '00' EOL SeqLabC EOP EOL END 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