{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} {10/14/97, Initial: Fanuc 10T MS [-] L001.85.1 Created: Fanuc 10T MS [-] Lxxx.85 For: PSI Bearings Added SetTTOff in Prog Initializations so it will output to tool center. CDH} {6/4/98 Modified: Fanuc 10T MS [R-PSI] L648.85 Created: Fanuc 10T MS [R-PSI] L648.85.1 For: PSI Bearings Versions: Catalyst v4.23.13(mac)/ComPost2 1.1b3 Changes made per Gary Scott of PSI Bearings, 26221-201.VNC, printouts. Corrected usage of SetTTOff command. SetTTOk is used to Output values entered into Dialog Edit Fields. Changed SetTTOff to SetTTOk at setup and initializations. Added SetTTOk to XOpCD# at ApproachSP. Added SetTTOk to XOpCDC at ApproachSP. Added SetTTOk to ZOpCP# at ApproachSP. Added SetTTOk to ZOpCPC at ApproachSP. Added SetTTOk at end of Prog. SetTTOff is used to Output ToolCenterRadius Coordinates for PointFeatures. Added SetTTOff to CycleStartX# at ApproachSP. Added SetTTOff to CycleStartZ# at ApproachSP. Added SetTTOff to XSPC at ApproachSP. Added SetTTOff to ZSPC at ApproachSP. Changed XSP to SetTTOff XSP SetTTOk at Approach. Added SetTTOff at end of ApproachSP. Customer requested support of G54/G55/G56/G57 WorkShiftOffsets. Changed First Work Fixture Offset from G32 to G54 in Compost2 Origins and Values Dialog. Changed Last Work Fixture Offset from G0 to G57 in Compost2 Origins and Values Dialog. Added NewWFO# to FORMAT#3 at Prog Numeric Format Definitions. Added WFONum Procedure. Outputs PostScript NewWFO#. Added NewWFOF at PSInit. Added IF NewWFO? at PSStuff. Calls WFONum Procedure. Resets NewWFOF Flag. Added InitWFONum at setup and initializations. Added NewWFO PostScript Commands at setup and initializations. Customer reported problem with G71/G72/G73 Canned Roughing Cycles. Q Block must position Tool to initial ApproachSP position just prior to Cycle definition. Added LoadFeat command at CannedCycle Roughing RoughContour AND RoughPatternShift. ApproachFace moves to ZOpCP XSP. ApproachOD AND ApproachID moves to ZSP XOpCD. Customer requested cosmetic changes per sample Genesis Software HardCopy Printout. Deleted Rapid at Approach. Modified OpStartUp Code at FirstOperation and NewTool. Modified OpFinish Code at NewTool and 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(NewWFO#,3) 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 WFONum: 'G' NewWFO# 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} NewWFOF RETURN PSStuff: IF NewWFO? WFONum NewWFOF END 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 ApproachSP: IF ApproachFace? SeqLabC StockOnNoCan SetTTOff XSPC EOL SeqLabC StockOff SetTTOk ZOpCPC EOL StockOnNoCan IF NotEqual? SetTTOff CycleStartZ# SetTTOk ZOpCP# SeqLabC FeedNoCan SetTTOff ZSPC FeedRateNoCan EOL END ELSE { ODApproach/IDApproach } SeqLabC StockOnNoCan SetTTOff ZSPC EOL SeqLabC StockOff SetTTOk XOpCDC EOL StockOnNoCan IF NotEqual? SetTTOff CycleStartX# SetTTOk XOpCD# SeqLabC FeedNoCan SetTTOff XSPC FeedRateNoCan EOL END END SetTTOff RETURN AppMove: StockOff ThisOpEntryZCP RETURN Approach: { NOT FOR TAILSTOCK, .82 } RapidF# { RapidF# Forces FeedRate } IF ApproachOD? SeqLabC ThisOpEntryXCP AppMove EOL ELSE IF ApproachID? SeqLabC XOpCD AppMove EOL ELSE {ApproachFace} SeqLabC StockOnNoCan SetTTOff XSP SetTTOk 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 IF NewToolOffset? SeqLabC LOfstOff '00' EOL SeqLabC OpToolID LatheOffset EOL END IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END IF NotEqual? SpeedRPM# LAST SpeedRPM# SeqLabC Speed 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 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 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? 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 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 Rapid 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 InitWFONum SetAbs NegSideLathe ReverseXZArcs SetTTOk 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 ' NewWFO(56), NWFO(56) -' EOL ' The Work Fixture Offset # you specify will be used for all following operations.' EOL ' Do not use with the ncPost multiple part option.' 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 DoOpComments DoPostScript Plane SetLineStrtChr('/') SeqLab 'G28U0W0' EOL { For Gridding Zero in the morning } SetLineStrtChr('') SeqLabC 'G30U0W0' EOL { Move to Safe Index } SeqLabC ProgStop EOL IF NOT CoolOff? SeqLabC Rapid CoolOn EOL END SeqLabC IF ConstantSurfaceFeed? CSSOn 'G96' ELSE CSSOff 'G97' END Speed EOL SeqLabC Preset MaxRPM OpToolID '00' EOL SeqLabC 'G99' EOL SeqLabC Rapid SpinOn EOL SeqLabC Rapid OpToolID LatheOffset EOL Approach ELSE IF NewTool? {Finish off last Operation} StockOff {.62} CheckRapid SetTTOk 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' EOL END SeqLabC 'G30U0W0' EOL { Move to Safe Index } SeqLabC Rapid LOfstOff '00' EOL IF LAST ProgStop? SeqLabC Rapid 'M0' EOL ELSE SeqLabC Rapid ProgStop EOL END {Start new Operation} DoOpComments DoPostScript SeqLab 'G30U0W0' EOL { Move to Safe Index } IF NOT CoolOff? SeqLabC Rapid CoolOn EOL END SeqLabC IF ConstantSurfaceFeed? CSSOn 'G96' ELSE CSSOff 'G97' END Speed EOL SeqLabC Preset MaxRPM OpToolID '00' EOL SeqLabC Rapid SpinOn EOL SeqLabC Rapid OpToolID LatheOffset EOL Approach ELSE IF SameTool? {.62} {Start new Operation} StockOff SetTTOk DoOpComments IF LAST StraightConnect? CheckOffset CheckRapid SeqLabC StockOnNoCan SetTTOff 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? 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 IF ApproachFace? LoadFeat SetTTOk ZOpCP# SetTTOff CycleStartX# ELSE LoadFeat CycleStartZ# SetTTOk XOpCD# SetTTOff END IF XMove? OR ZMove? SeqLab RapidC MoveXC MoveZC EOL END '<' 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 '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 SetTTOk IF CannedCycle? Rapid ELSE RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC EOL DoEndOpPS SeqLabC Rapid CoolOff EOL IF ConstantSurfaceFeed? SeqLabC CSSOff 'G97' EOL END SeqLabC 'G30U0W0' EOL { Move to Safe Index } SeqLabC Rapid OpToolID '00' EOL IF ProgStop? SeqLabC Rapid 'M0' EOL END SeqLabC Rapid 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