{Change Comments ***********************************************************} {4/13/95 Copied: Fanuc 10T MS [-] L001.82.1 Created: Fanuc 11TA Monarch L326.82.1 For: Lincoln Automotive Machine: Fanuc 11TA Control: Monarch Metalist Versions: ncCad 4.33.01/ncCAM 4.33/ncPost 4.33.05/Compost 4.21.27 Versions: Catalyst v2.14.30C/Catalyst v2.14.30PPC/Compost 4.21.27 Changes made per Bill White of Lincoln Automotive. Form changes: Added G90 to Absolute Values edit field in Mach Spec Commands 1 Dialog. Changed G50 to G92 of Preset edit field in Mach Spec Commands 1 Dialog. Added G91 to Incremental Values edit field in Mach Spec Commands 1 Dialog. Changed G90 t0 G77 of Command Label Code edit field in Mach Spec Simple Rough - Turn Dialog. Changed G94 t0 G79 of Command Label Code edit field in Mach Spec Simple Rough - Face Dialog. Prog changes: Added support of PostScript OptionalCycle1 command. Next to last Operation that contains this command will activate Parts Catcher codes. M14, Parts Catcher Up, is output prior to EachFeat/NextFeat Loop at ToolPath. M15, Parts Catcher Down, is output following EachFeat/NextFeat Loop at ToolPath. Added Flag(1) to output SpinOff at NewTool. Last Operation that contains this command will activate Chuck Open/Close codes. M36, Chuck Open, is output prior to EachFeat/NextFeat Loop at ToolPath. M37, Chuck Close, is output following EachFeat/NextFeat Loop at ToolPath. Added GearRange at CheckOffset sub and FirstOperation and NewTool. Changed literal G32 to G33 at ToolPath ThreadFeat. Changed NegSideLathe to PosSideLathe at setup and initializations. Changed ReverseXZArcs to StandardXZArcs at setup and initializations. Changed SetMaxRPM value from 10000 to 3000 at setup and initializations. Added literal G20G95M53 safe start block at FirstOperation and NewTool. Added literal G53X0Z0T000 block following safe start block at FirstOperation and NewTool. Changed LOfstOff '00' to literal 'T000' at NewTool. Changed literal G92 to G78 at Canned Cycle Threading. Changed literal G32 to G33 at non-CannedCycle AutoFinish. Changed OpToolID '00' SpinOff to literal 'T000' at end of Prog. Deleted UnTool '00' at end of Prog. DWB} {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(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} OptCyc1F 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 ODApproachSP: SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL StockOnNoCan IF NotEqual? CycleStartX# XOpCD# SeqLabC FeedNoCan XSPC FeedRateNoCan EOL END RETURN IDApproachSP: SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL { for SameTool ApproachID } StockOnNoCan IF NotEqual? CycleStartX# XOpCD# SeqLabC FeedNoCan XSPC FeedRateNoCan EOL END RETURN FaceApproachSP: SeqLabC StockOnNoCan XSPC EOL { for SameTool ApproachFace } SeqLabC StockOff ZOpCPC EOL StockOnNoCan IF NotEqual? CycleStartZ# ZOpCP# SeqLabC FeedNoCan ZSPC FeedRateNoCan EOL END RETURN AppMove: StockOff ZCP OpToolID LatheOffset CoolOn RETURN Approach: { NOT FOR TAILSTOCK, .82 } Rapid RapidF# { RapidF# Forces FeedRate } IF OptCyc1? AND LastOp? { BarFeeder } SeqLabC StockOnNoCan XSPC ZSPC OpToolID LatheOffset EOL ELSE IF ApproachOD? SeqLabC StockOff XCP AppMove EOL ODApproachSP ELSE IF ApproachID? SeqLabC StockOff XOpCD AppMove EOL IDApproachSP ELSE {ApproachFace} SeqLabC StockOnNoCan XSP AppMove EOL FaceApproachSP END END END RETURN CheckGear: IF NewGear? SpinOn END RETURN CheckOffset: DoEndOpPS IF LAST ProgStop? SeqLabC 'M0' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqLabC CoolOff EOL END END 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 ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END ELSE SeqLabC Preset MaxRPM EOL SeqLabC CSSOn 'G96' Speed END ELSE IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' Speed END END IF LAST ProgStop? SeqLabC SpeedC SpinOn EOL SeqLabC CoolOn EOL ELSE SeqLabC SpeedC CheckGear EOL 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: IF OptCyc1? IF LastOp? SeqLabC 'M36' EOL { Chuck Open } ELSE IF NEXT LastOp? SeqLabC 'M14' EOL { Parts Catcher Up } SetFlag('1') { For SpinOff at ToolChng } END END END 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 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 'G33' MoveXC MoveZC ThrdLead EOL Rapid END END END END END NEXTFeat IF OptCyc1? IF LastOp? SeqLabC 'M37' EOL { Chuck Close } ELSE IF NEXT LastOp? SeqLabC 'M15' EOL { Parts Catcher Down } END END END RETURN CheckRapid: IF LAST CannedCycle? Rapid ELSE RapidC END RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg SetAbs PosSideLathe StandardXZArcs SetMaxRPM('3000') SetMaxFeed('500') SetFlagF('1') { For SpinOff at ToolChng } 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 ' OptionalCycle1, OptCyc1 -' EOL ' Next to Last Operation that contains this command will cause Post Processor to' EOL ' output M14, Parts Catcher Up, prior to ToolPath, and M15, PartsCatcher Down, following' EOL ' ToolPath.' EOL ' Last Operation that contains this command will cause Post Processor to output' EOL ' M36,Chuck Open, prior to ToolPath, and M37, Chuck Close, following ToolPath.' 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 RestoreScale OpenSub StockOff {.71.2} SetHome Plane SeqLab 'G20G95' GearRange EOL { Inch Input, Feed Per Revolution } DoOpComments DoPostScript SeqLabC 'G53X0Z0T000' EOL { Machine Coordinate System Selection } IF ConstantSurfaceFeed? SeqLabC Preset Home MaxRPM EOL SeqLabC CSSOff 'G97' CalcRPM1 OpToolID '00' SpinOn EOL ELSE SeqLabC Preset Home 'S3000' EOL SeqLabC CSSOff 'G97' Speed OpToolID '00' 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 IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' CalcRPM2 EOL END SeqLabC NewHome 'T000' IF Flag?('1') SetFlagF('1') SpinOff END EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END {Start new Operation} DoOpComments DoPostScript IF OptCyc1? AND LastOp? SeqLab 'G20G95'EOL { Inch Input, Feed Per Revolution } SeqLabC 'G53X0Z0T000' EOL { Machine Coordinate System Selection } SeqLabC Preset Home EOL SeqLabC OpToolID '00' EOL ELSE SeqLab 'G20G95' GearRange EOL { Inch Input, Feed Per Revolution } SeqLabC 'G53X0Z0T000' EOL { Machine Coordinate System Selection } IF ConstantSurfaceFeed? SeqLabC Preset Home MaxRPM EOL SeqLabC CSSOff 'G97' CalcRPM1 OpToolID '00' SpinOn EOL ELSE SeqLabC Preset Home 'S3000' EOL SeqLabC CSSOff 'G97' Speed OpToolID '00' SpinOn EOL END END 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 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 ConstantSurfaceFeed? AND NOT SameTool? SeqLabC CSSOn 'G96' Speed EOL END 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 ToolAngle EOL IF AutoFinish? SeqLabC 'G78' 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? SetPass1 RapidC IF ApproachFace? SeqLabC ZOpECPC EOL FaceApproachSP ELSE SeqLabC XOpECDC EOL IF ApproachOD? ODApproachSP ELSE {ApproachID} IDApproachSP END END SeqLabC StockOff StrtPosC EOL ToolPath ELSE IF Roughing? AND NOT RoughSimple? SetPass2 SeqLabC RapidC XSPC ZSPC EOL SeqLabC StockOff StrtPosC EOL ToolPath ELSE IF Threading? SetPass1 SeqLabC 'X' MUL# Num#('2') ADD# FinishXRadius# Taper# EOL SeqLabC 'G33' 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 IF OptCyc1? DoEndOpPS 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 CoolOff EOL IF ConstantSurfaceFeed? SeqLabC CSSOff 'G97S' CalcEPRPM# EOL END END SeqLabC FirstHome 'T000' 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