{Change Comments ***********************************************************} {6/14/95, Updated for Catalyst v2.20 per Fanuc 10T MS [-] L001.85 Format, DWB} {7/18/95, Added IF NOT LastFeat? at CkCRC sub, DWB} {8/26/95, L001.85.01.01, Changed ToolAngle to 'A' InFeedAngle#, JR} {6/18/96, rewrote CheckOffset to clean up and correct Speed bug, JR} {8/20/96, fixed output of Rapid after ThreadFeat, JR} {6/13/97 Initial: Fanuc 10T MS [-] L001.85.01.02 Created: Omni-Turn GT 75 L000.85 ForUser: Braden Engineering / Maury Microwave Control: Omni-Turn Machine: Omni-Turn GT 75 Develop: ComPost2 68K 1.0b11, CatalystPPC v3.33C Comment: New processor per manual and sample program from Gonzalo Suarez Jim Radcliffe} {7/21/97 Initial: Omni-Turn GT 75 L000.85 Created: Omni-Turn GT 75 L000.85.1 Develop: ComPost2 68K 1.0b11, Virtual Gibbs 3.35 PPC Comment: Modified per conversation with Gonzalo Suarez. Modified to go home to index position on Z only at end of tools. Added CoolOn to begin every tool. Combined start up blocks at FirstOp and added the line to NewTool. Jim Radcliffe} {5/28/98 Initial: Omni-Turn GT 75 L631.85.1 Created: Omni-Turn GT 75 L631.85.2 ForUser: Braden Engineering / Maury Microwave Control: Omni-Turn Machine: Omni-Turn GT 75 Develop: ComPost2 1.1b3, Virtual Gibbs 4.24 Comment: Modified per marked up readout and conversation with Monte Lafrenz Added custom comment header lines. Added RLevel and 'L300' to Drilling Cycle line. Changed StandardXZArcs to ReverseXZArcs Moved DoPostScript call to first thing at start of operation, before saftey start block. Jim Radcliffe} {6/9/98 Initial: Omni-Turn GT 75 L631.85.2 Created: Omni-Turn GT 75 L631.85.3 Comment: Moved OpToolID to line by itself per conversation with Monte Lafrenz Jim Radcliffe} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.####;0.' #3 = '#######0' #4 = '###.#;0.' #5 = '#.######;0.' #6 = '###0' #7 = '#' #8 = '#0^' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(MUL#,2) { Non-Canned Threading AutoFinish } FORMAT(FirstMoveEPZ#,2) FORMAT(NewHomeZ#,2) FORMAT(FirstHomeZ#,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) FORMAT(InFeedAngle#,8) {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 SeqC PostScript EOL {literals} PSStuff {commands} NextPS RETURN DoEndOpPS: PSInit EachEOPS SeqC 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 SetG95: 'G95' { feeds are inches per revolution } FeedRate RETURN CheckG95: IF FirstOperation? OR NewTool? SeqC SetG95 EOL ELSE IF NotEqual? FeedIPR# LAST FeedIPR# SeqC SetG95 EOL END END RETURN ApproachSP: IF ApproachFace? SeqC StockOnNoCan XSPC EOL SeqC StockOff ZOpCPC EOL CheckG95 StockOnNoCan IF NotEqual? CycleStartZ# ZOpCP# SeqC FeedNoCan ZSPC FeedRateNoCan EOL END ELSE { ODApproach/IDApproach } SeqC StockOnNoCan ZSPC EOL SeqC StockOff XOpCDC EOL CheckG95 StockOnNoCan IF NotEqual? CycleStartX# XOpCD# SeqC FeedNoCan XSPC FeedRateNoCan EOL END END RETURN AppMove: StockOff ThisOpEntryZCP RETURN Approach: { NOT FOR TAILSTOCK, .82 } RapidF# { RapidF# Forces FeedRate } IF ApproachOD? SeqC ThisOpEntryXCP AppMove EOL ELSE IF ApproachID? SeqC XOpCD AppMove EOL ELSE {ApproachFace} SeqC StockOnNoCan XSP AppMove EOL END END ApproachSP RETURN CheckOffset: DoEndOpPS IF LAST ProgStop? SeqC 'M0' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqC CoolOff EOL END END DoPostScript DoOpComments SeqC IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? SpeedRPM# LAST SpeedRPM# Speed END ELSE CSSOn 'G96' Speed END ELSE IF LAST ConstantSurfaceFeed? CSSOff 'G97' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# Speed END END END IF LAST ProgStop? SpinOn END EOL IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqC 'G77' MaxRPM EOL END ELSE SeqC 'G77' MaxRPM EOL END END SeqC IF LAST ProgStop? CoolOn ELSE IF NOT CoolOff? AND LAST CoolOff? CoolOn END END EOL 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? SeqC SpinOff EOL SeqC 'G04F2.' EOL SeqC Speed InverseSpinOn EOL ELSE IF Dwell? SeqC 'G04F' Dwell# EOL END END ELSE IF CannedCycle? SeqC END END END IF PointFeat? SeqC MoveSXYC EOL ELSE IF RapidFeat? SeqC IF LAST ThreadFeat? Rapid ELSE RapidC END MoveXC MoveZC EOL ELSE IF LineFeat? IF XMove? OR ZMove? IF NOT LastFeat? SeqC CRCOnC EOL END END SeqC FeedC MoveXC MoveZC FeedRateC CRCOffsetC EOL ELSE IF ArcFeat? EACHQuadrant { Do not use NOT, LAST, FIRST or NEXT modifiers in this loop } SeqC FormatArc FeedRateC EOL NEXTQuadrant ELSE IF ThreadFeat? SeqC 'G32' MoveXC MoveZC ThrdLead EOL END END END END END NEXTFeat RETURN CheckRapid: SeqC CRCOffC EOL IF LAST CannedCycle? Rapid ELSE IF LAST Threading? Rapid ELSE RapidC END END RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg SetAbs PosSideLathe 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 END EachOp {Start of post processing *********************} GetLCycle IF FirstOperation? IF UseComments? IF ProgramNameComment? '( ' ProgramName$ ' )' EOL END { custom header lines added 5/28/98 } '( TAPE# ' Program# ' )' EOL '( REV.# )' EOL '/G10X0.Z2.' EOL 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 DoPostScript SeqC AbsValue Rapid 'G72' CoolOn EOL { G72 = diameter programming } Plane SeqC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL DoOpComments SeqC OpToolID EOL Approach ELSE IF NewTool? {Finish off last Operation} StockOff {.62} CheckRapid IF LAST ApproachOD? SeqC LAST OpExitXCPC EOL ELSE IF LAST ApproachID? SeqC LAST XOpECDC EOL END END SeqC LAST OpExitZCPC EOL DoEndOpPS IF LAST ConstantSurfaceFeed? SeqC CSSOff 'G97' CalcRPM2 EOL END SeqC 'Z' NewHomeZ# EOL IF LAST ProgStop? SeqC 'M0' EOL ELSE SeqC ProgStop EOL END {Start new Operation} DoPostScript SeqC AbsValue Rapid 'G72' CoolOn EOL { G72 = diameter programming } SeqC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL DoOpComments SeqC OpToolID EOL Approach ELSE IF SameTool? {.62} {Start new Operation} StockOff IF LAST StraightConnect? CheckOffset CheckRapid SeqC StockOnNoCan XSPC ZSPC EOL ELSE CheckRapid IF ApproachOD? IF LAST ApproachOD? SeqC LAST XOpECDC EOL ELSE {around} IF LAST ApproachID? SeqC LAST XOpECDC EOL END SeqC LAST OpExitZCPC EOL SeqC LAST OpExitXCPC EOL END ELSE IF ApproachID? IF LAST ApproachID? SeqC LAST XOpECDC EOL ELSE IF LAST ApproachOD? {around} SeqC LAST OpExitXCPC EOL END SeqC LAST OpExitZCPC EOL SeqC XOpCDC EOL END ELSE {ApproachFace} IF LAST ApproachFace? SeqC LAST ZOpECPC EOL ELSE IF LAST ApproachOD? {around} SeqC LAST OpExitXCPC EOL ELSE {LAST ApproachID} SeqC LAST XOpECDC EOL END SeqC LAST OpExitZCPC EOL END END END CheckOffset ApproachSP END END END END {common point for all operations} IF ConstantSurfaceFeed? AND NOT SameTool? SeqC CSSOn 'G96' Speed EOL SeqC 'G77' MaxRPM EOL END IF CannedCycle? OR Threading? StockOff IF Threading? SeqC LCycle XatFinZ FinZ CutDepth ThrdLead XTapAtZ 'C' InFeedAngle# IF Chamfer? 'P' END EOL ELSE IF Drilling? SeqC LCycle ZDepth Rlevel Peck FeedRate Retract IF PeckFullRetract? 'L300' END EOL END END ELSE StockOn SetPass1 ToolPath IF AutoFinish? { .82.1c } StockOff IF Turning? IF ApproachFace? SeqC RapidC ZOpECPC EOL ELSE SeqC RapidC XOpECDC EOL END ApproachSP SeqC StockOff StrtPosC EOL ToolPath ELSE IF Roughing? AND NOT RoughSimple? SetPass2 SeqC RapidC XSPC ZSPC EOL SeqC StockOff StrtPosC EOL ToolPath SetPass1 ELSE IF Threading? SeqC 'X' MUL# Num#('2') ADD# FinishXRadius# Taper# EOL SeqC 'G32' IF Taper? XatFinZ END FinZ ThrdLead EOL SeqC Rapid XSP EOL SeqC ZSP EOL END END END END END IF Drilling? AND Tap? SeqC SpinOff EOL SeqC 'G04F2.' EOL SeqC Speed SpinOn EOL END NextOp {loops back to EachOP until last Operation} {End of program ************************************************************} {finish last operation} StockOff SeqC CRCOffC EOL IF CannedCycle? Rapid ELSE IF Threading? Rapid ELSE RapidC END END IF ApproachOD? SeqC OpExitXCPC EOL ELSE IF ApproachID? SeqC XOpECDC EOL END END SeqC OpExitZCPC EOL DoEndOpPS SeqC CoolOff EOL IF ConstantSurfaceFeed? SeqC CSSOff 'G97S' CalcEPRPM# EOL END SeqC 'Z' FirstHomeZ# EOL SeqC 'T0' EOL SeqC EOP EOL Post Close 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