{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} { Format: Fanuc 18T [-¨] L394.85.02 11/21/95 For: Tamshell Arcs now output R's instead of IJK Changed prog label ID from O to : TH} {12/11/95 Modified: Fanuc 18T [-¨] L394.85.02 For: Tamshell Versions: ncCad 4.33.01/ncCAM 4.33.01/ncPost 4.33.08/Catalyst v2.28.08/Compost 4.21.34/1.0a Changes made per Ron Knesal of Tamshell. Deleted OpToolID LatheOffset at AppMove sub. Deleted LOfstOff '00' at CheckOffset sub. Deleted all support of ConstantSurfaceFeed at CheckOffset sub, FirstOperation, NewTool, common point and end of Prog. Deleted Preset Home MaxRPM at FirstOperation and NewTool. Added Rapid CRCOff CSSOff 'G97' OpToolID LatheOffset Speed SpinOn block at FirstOperation and NewTool. Changed NewHome LOfstOff '00' to 'G28U0W0' at NewTool. Changed FirstHome OpToolID '00' SpinOff to 'G28U0W0' at end of Prog. DWB} {7/8/96, Created: Lxxx.85 changed to postive X values, MPK} {1/22/98 Initial: Fanuc 18T [WP] LXXX.85 Created: Fanuc 18T [WP] LXXX.85 For: Westwood Prec. Comments: Forced Sequence number at beginning of FirstOp and NewTool ops, added: SeqLabC 'G54' Rapid 'X0Z0T0' EOL at FirstOp, twice in NewTool, and to program end, changed start block in FirstOp and NewTool to: SeqLabC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END OpToolID LatheOffset SpinOn EOL Deleted G28 block in NewTool and end of program, Changed program label to 'O', Deleted Untool block from program end, added G97 block to end of program, added ProgStop to end of program, moved CoolOff at end of program to same line as OpExitZCPC, removed canned cycle info for peck cycles from form, MPK } {18May98 Original: Fanuc 18T [WP] L698.85 Created: Fanuc 18T [WP] L698.85.1 For: Westwood Precision Changes made per: David Pickett Deleted old version numbers and comments e.g. {.62}, {commands}, {literals}, etc Added IF NOT SameTool? Boolean to OpComments Added CSS Boolean to output G96 in ApproachSP Deleted ReverseXZArcs at the Start of executable Prog Changed ProgID1 to 'O' Program# at the start of FirstOperation Deleted leading and trailing spaces in all Comments Deleted SeqLab from FirstOperation and NewTool and moved to the Tool Comment Line Added Preset MaxRPM in FirstOperation and NewTool at Start of new Operation Added G97 Boolean at NewTool Finish off last Operation Changed Thread Feed Address from 'E' to 'F' in MachSpec Charles Winston} {12/2/98 Initial: Fanuc 18T [WP] L698.85.1 Created: Fanuc 18T [CST] Lxxx.85 ForUser: Carolina Specialty Tools, Inc. Control: ???? Machine: ???? Develop: ComPost2 v1.7b11, Virtual v5.02 Comment: New processor per marked up readout from Mark Troutman Modified G54 line at beginning of tools Changed: 'G54' Rapid 'X0Z0T0' To: WFO1 OpToolID '00' Modified G54 line at end of tools Changed: 'G54' Rapid 'X0Z0T0' To: 'G28U0' 'G28W0' Modifed CSS to start operation in G96, not G97, and do not go to G97 at end of operation. Added CoolOff between tools. Cleaned up and updated per Fanuc 10T MS [-] L001.85.01.02 Jim Radcliffe} {01/07/99, Initial: Fanuc 21T MS [CST] L799.85 Created: Fanuc 21T MS [CST] L799.85 For: Carolina Specialty Tools Changes to Prog: 1) ProgStart - changed literal 'O' to literal ':' in front of Program#. CDH} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.####;0.' #3 = '#######0' #4 = '###^##0' #5 = '#.######;0.' #6 = '###0' #7 = '#' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(MUL#,2) { Non-Canned Threading AutoFinish } FORMAT(InFeedAngle#,2) FORMAT(FirstMoveEPZ#,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 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 LAST ProgStop? SeqLabC 'M0' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqLabC CoolOff EOL END END DoOpComments DoPostScript IF NewToolOffset? SeqLabC LOfstOff '00' EOL END IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END ELSE SeqLabC Preset MaxRPM EOL END END SeqLabC 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 NewToolOffset? OpToolID LatheOffset END IF LAST ProgStop? SpinOn END EOL SeqLabC 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 CkCRC: 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 IF LAST ThreadFeat? Rapid ELSE RapidC END 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 END END END END END NEXTFeat RETURN CheckRapid: CRCOffC IF LAST CannedCycle? Rapid ELSE IF LAST Threading? Rapid ELSE RapidC END END RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg SetAbs PosSideLathe StandardXZArcs 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# 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 Plane DoOpComments DoPostScript SeqLab WFO1 OpToolID '00' EOL SeqLabC Preset MaxRPM EOL SeqLabC IF ConstantSurfaceFeed? CSSOn 'G96' Speed ELSE CSSOff 'G97' Speed END OpToolID LatheOffset 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 CoolOff EOL DoEndOpPS SeqLabC 'G28U0' EOL SeqLabC 'G28W0' EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END {Start new Operation} ' ' EOL DoOpComments DoPostScript SeqLab WFO1 OpToolID '00' EOL SeqLabC Preset MaxRPM EOL SeqLabC IF ConstantSurfaceFeed? CSSOn 'G96' Speed ELSE CSSOff 'G97' Speed END OpToolID LatheOffset SpinOn EOL Approach ELSE IF SameTool? {Start new Operation} 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 CannedCycle? StockOff IF Roughing? IF RoughSimple? StockOn SetPass1 SeqLabC LCycle IF ApproachFace? 'Z' FirstMoveEPZ# XatFinZ ELSE XatFinZ FinZ END XTapAtZ FeedRate EOL SimpleRough ELSE TagInc SetPass2 IF RoughContour? SeqLabC LCycle 'P³' Tag# 'Q²' Tag# XStkLeft ZStkLeft CutDepth FeedRate EOL '>' Tag# EOL SeqLab StepMove StrtPos EOL ELSE IF RoughPatternShift? SeqLabC LCycle 'P³' Tag# 'Q²' Tag# XStkLeft ZStkLeft XminusU ZminusW NumCuts FeedRate EOL '>' Tag# EOL SeqLab Rapid StrtPos EOL END END ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'P³' Tag# 'Q²' Tag# EOL END SetPass1 TrackXNO# CycleStartX# TrackZNO# CycleStartZ# END ELSE IF Threading? IF Chamfer? SeqLabC 'M23' EOL END SeqLabC LCycle XatFinZ FinZ XTapAtZ CutMethod ThrdHeight CutDepth ThrdLead 'A' InFeedAngle# 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 ELSE IF Grooving? StockOn SetPass1 SeqLabC StrtPos EOL ToolPath 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 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 IF Threading? Rapid ELSE RapidC END END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC CoolOff EOL DoEndOpPS SeqLabC 'G28U0' EOL SeqLabC 'G28W0' EOL IF ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop 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