{ 2/1/89 Copied & modified: Fanuc 10T MS L001.57 for Angelus Can. Added GearRange. Format arcs with R. New CheckOffset. Minor change to operation start-up blocks & end of program. Jim Radcliffe}
{3/16/89 Modified; Fanuc 10T MS (-AG) L092.55, for Angelus Can Added tapping operation. Added PostScript codes. Jim Radcliffe}
{4/20/89 Modified; Fanuc 10T MS (-AG) L092.56, for Angelus Can Moved 'LOfstOff' to line by itself after 'Home' Jim Radcliffe}
{7/24/90, Added InitProg globally to posts with this remark, DWB} {8/9/90, Updated: Fanuc 10T MS (-AG) L092.59 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}
{11Aug97 Original: Fanuc 10T MS (-AG) L092.71.2 Original: Fanuc 10T MS (-AG) L092.85 Updated for Catalyst v2.20 per Fanuc 10T MS [-] L001.85 Format Changed R format Maximum Arc Angle to 180.000 in MachSpec Deleted comments {.62}, {literals}, {commands} etc. Added CheckRapid Sub Deleted redundant XStkLast and ZStkLast from RoughContour Canned Cycle. Charles Winston}
{18Aug97 Original: Fanuc 10T MS (-AG) L092.85 Original: Fanuc 10T MS (-AG) L092.85.1 Deleted comments {.62}, {literals}, {commands} etc. Changed ArcRC to ArcR in FormatArc Charles Winston}
{Prog Numeric Format Definitions *******************************************}
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} ProgStopF {reset ProgStop?} CoolOffF {reset CoolOff?} 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 NewToolOffset? IF NewGear? SeqLabC LOfstOff '00' SpinOff EOL SeqLabC OpToolID LatheOffset GearRange EOL ELSE SeqLabC LOfstOff '00' EOL SeqLabC OpToolID LatheOffset EOL END ELSE IF NewGear? SeqLabC SpinOff EOL SeqLabC GearRange EOL END END IF ConstantSurfaceFeed? IF LAST NOT ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL ELSE ' G97' END SeqLabC CSSOff CalcRPM1 IF NewGear? SpinOn END EOL ELSE IF LAST ConstantSurfaceFeed? ' G97' END SeqLabC CSSOff SpeedC IF NewGear? SpinOn END EOL END DoPostScript RETURN
FormatArc: IF ArcCW? CWArcC ELSE CCWArcC END MoveXC MoveZC IF ArcIJFormat? ArcIJC ELSE ArcR END RETURN
FirstFeed: { This will force a Feedrate on FirstFeat for each operation } IF FirstFeat? AND NOT CannedCycle? { CannedCycles force a Feedrate on the Cycle line } Feedrate ELSE FeedrateC 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? AND Dwell? SeqLabC 'G04P' Dwell# EOL END IF CannedCycle? SeqLab END END IF PointFeat? SeqLabC MoveSXYC EOL ELSE IF RapidFeat? SeqLabC RapidC MoveXC MoveZC FirstFeed EOL { force Feedrate on FirstFeat, even if Rapid } ELSE IF LineFeat? SeqLabC CkCRC FeedC MoveXC MoveZC FirstFeed EOL ELSE IF ArcFeat? EACHQuadrant { Do not use NOT, LAST, FIRST or NEXT modifiers in this loop } SeqLabC FormatArc FirstFeed EOL {force Feedrate on FirstFeat, even if Arc} NEXTQuadrant ELSE IF ThreadFeat? SeqLabC 'G92' MoveXC MoveZC XTapAtZ ThrdLead EOL 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 NegSideLathe ReverseXZArcs 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 ' ProgramStop, PS' - EOL ' Outputs an M00 at the end of the tool.' EOL ' CoolantOff, COff -' EOL ' suppress coolant on command for current operation' EOL END EachOp {Start of post processing *********************} TagInc 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 ' MoveType$ ' )' EOL END END RestoreScale OpenSub StockOff {.71.2} SetHome DoOpComments DoPostScript Plane SeqLab Preset Home MaxRPM EOL SeqLabC Rapid OpToolID LatheOffset EOL SeqLabC GearRange EOL SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END 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 CoolOff EOL SeqLabC LOfstOff '00' EOL IF ProgStop? SeqLabC 'M00' EOL ELSE SeqLabC ProgStop EOL END
{Start new Operation}
DoOpComments DoPostScript Plane SeqLab Preset Home MaxRPM IF NewGear? SpinOff END EOL SeqLabC Rapid OpToolID LatheOffset EOL SeqLabC GearRange EOL SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL 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 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? 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 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 SeqLabC RapidC XCSP EOL SeqLabC ZCSP EOL END IF Chamfer? SeqLabC 'M24' EOL END ELSE IF Drilling? IF Tap? SeqLabC XCSPC ZCSPC EOL SeqLabC LCycle ZDepth FeedRate EOL SeqLabC SpinOff EOL SeqLabC InverseSpinOn EOL SeqLabC LCycle ZCSP FeedRate EOL ELSE SeqLabC LCycle FromCP ZDepth RLevel Dwell Peck Retract FeedRate EOL SeqLabC DrillOff EOL IF AutoFinish? SeqLabC Feed ZDepth EOL SeqLabC RLevel EOL END END ELSE IF Grooving? SeqLab StrtPos EOL ToolPath END END END END ELSE StockOn SetPass1 ToolPath IF AutoFinish? IF NOT Drilling? AND NOT Grooving? StockOff IF Turning? SetPass1 ELSE SetPass2 END SeqLab RapidC StrtPos EOL ToolPath END END END IF ApproachID? {.62} SeqLabC RapidC XOpCDC EOL END NextOp {loops back to EachOP until last Operation}
{End of program ************************************************************}
{finish last operation} StockOff IF CannedCycle? Rapid ELSE RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC ZCPC EOL DoEndOpPS IF ConstantSurfaceFeed? SeqLabC CSSOff 'G97S' CalcEPRPM# EOL END SeqLabC FirstHome CoolOff EOL SeqLabC OpToolID '00' EOL 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