{9/19/95, L201.82.1m, Updated for Catalyst v2.20 per Fanuc 10T MS [-] L001.85.02 Format, DWB}
{9/19/95 Copied: Fanuc 0TA Colchester L201.85m Created: Fanuc 0TA [C&W] L379.85m For: Fructus/C&W Versions: ncCad 4.33.01/ncCAM 4.33.01/ncPost 4.33.06/Catalyst v2.22/Compost 4.21.32/1.0a Changes made per Mikael Bagge of Fructus. Form changes: Changed G92 to G50 in Commands 1 Dialog. Changed FORMAT for P ThreadHeight from ^###0 to ^##0 in Canned Threading Dialog Changed FORMAT for Q Depth of First Thread Pass from ^###0 to ^##0 in Canned Threading Dialog Prog changes: Modified Canned Threading. Moved InfeedAngle# from FORMAT#2 to FORMAT#6. Output as two digit integer part of 6 digit P Parameter of two-block cycle definition. Deleted Chamfer condition at CannedCycle Threading. Outputs literal '00' always for Thread Ending Angle. Deleted SingleEdgeCut condition at CannedCycle Threading. Outputs InFeedAngle# for Thread Lead Angle. Modified Canned PeckChipBreaker. Added Retract# to FORMAT#4, changed Retract to 'R' Retract# at Canned Drilling. Added Peck# to FORMAT#4, changed Retract to 'Q' Peck# at Canned Drilling. Deleted Chamfer condition at CannedCycle Threading. Outputs literal '00' always for Thread Ending Angle. Deleted SingleEdgeCut condition at CannedCycle Threading. Outputs InFeedAngle# for Thread Lead Angle. Added support of special M13/M14 [CW/CCW] Spindle/Coolant combo command. Added GetSpinCoolOn sub prior to CheckOffset sub. Called during all ToolChange and ProgStop events. Outputs normal SpinOn when CoolOff? boolean returns TRUE. Changed SpinOn to GetSpinCoolOn call at CheckOffset sub, FirstOperation and NewTool. Deleted CoolOn when LAST ProgStop? returns TRUE at CheckOffset sub. Deleted CoolOn at AppMove sub. Added G96 ConstantSurfaceSpeed TurnOn at ToolChange Position. Deleted CalcRPM1 at FirstOperation and NewTool. Moved CSSOn 'G96' Speed from CommonPoint to FirstOperation and NewTool. Deleted CSSOff 'G97' CalcRPM2 at NewTool. Deleted CSSOff 'G97' CalcEPRPM# at end of Prog. Changed OpToolID '00' to OpToolID LatheOffset at FirstOperation and NewTool. Deleted OpToolID LatheOffset from AppMove sub. Deleted all NewGear and GearRange Commands at CheckOffset sub, FirstOperation and NewTool. Added SetAbs at setup and initializations. Changed MoveType$ to literal 'ABSOLUTE' at FirstOperation ProgramComments. Deleted AbsOrInc 'G21G95' SafeStart at FirstOperation. Deleted UnTool '00' at end of Prog. DWB}
{12/1/95 Copied: Fanuc 0TA [C&W] L379.85m Created: Fanuc 0TA [FG] L397.85m For: Fructus/Graziano Machine: Gildemeister CT-40 Lathe Control: Fanuc 0TA 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 Mikael Bagge of Fructus. FORM changes: Changed Preset from G50 to G26. Changed Coolant On from M8 to M7. Added spaced in front of all addresses. Changed Format for address N from ###0 to #bbb0. Changed Format for address T from 00 to #0. PROG changes: Added FORMAT#9, '00000' for Program# at Prog Numeric Format Definitions. Modified for all non-conditional Rapid, Feed, CWArc and CCWArc commands. Deleted GetSpinCoolOn sub. Replaced all calls with SpinOn CoolOn commands. Deleted LatheOffset commands at FirstOperation and NewTool. Changed LatheOffset at CheckOffset sub. Deleted CheckkRapid sub. Changed ProgID1 to Program# at FirstOperation. Deleted LOfstOff '00' SpinOff at NewTool. Moved SpinOff to block by itself just prior to FirstHome at end of Prog. Moved CoolOff to EOP block at end of Prog. Changed OpToolID '00' to UnTool at end of Prog. Deleted EOR block at end of Prog. DWB}
{12/7/95 Continued: Fanuc 0TA [FG] L397.85m Changes made per Mikael Bagge of Fructus. Added numerous LoadFeat routines per Fanuc 0T MS L233.85. Customer requested unconditional Rapid/Feed/Arc Moves. Requires LoadFeat to test for move to avoid outputting G00/G01/G02/G03 on block by itself. DWB}
{Prog Numeric Format Definitions *******************************************}
Approach: { NOT FOR TAILSTOCK, .82 } RapidF# { RapidF# Forces FeedRate } IF ApproachOD? SeqLabC GetTOEXCP AppMove EOL ELSE IF ApproachID? SeqLabC GetXOpCD AppMove EOL ELSE {ApproachFace} SeqLabC StockOnNoCan GetXSP AppMove EOL END END ApproachSP RETURN
CheckOffset: GetExit DoEndOpPS IF LAST ProgStop? SeqLabC ' M0' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqLabC CoolOff EOL END END IF NewToolOffset? SeqLabC ' T' LatheOffset EOL END CSSOff IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END IF LAST ProgStop? CSSOn ' G96' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# CSSOn ' G96' Speed END END ELSE SeqLabC Preset MaxRPM EOL CSSOn ' G96' Speed END ELSE IF LAST ConstantSurfaceFeed? ' G97' Speed ELSE IF LAST ProgStop? ' G97' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# ' G97' Speed END END END END IF LAST ProgStop? SeqLabC {SpeedC} SpinOn CoolOn EOL ELSE SeqLabC {SpeedC} EOL IF NOT CoolOff? AND LAST CoolOff? SeqLabC CoolOn EOL END END DoPostScript RETURN
FormatArc: IF ArcCW? CWArc ELSE CCWArc END MoveXC MoveZC IF ArcIJFormat? ArcIJC ELSE ArcRC END RETURN
CkCRC: { 4.2 } IF XMove? OR ZMove? { Approach Length Feature and Multiple Pockets } IF LastFeat? CRCOffC { Exit Length Feature } ELSE CRCOnC { Entry Length Feature } END END RETURN
ToolPath: EACHFeat GetToolTip IF LastFeat? IF Drilling? IF Tap? SeqLabC SpinOff EOL SeqLabC ' G4 P2000' EOL SeqLabC Speed InverseSpinOn EOL ELSE IF Dwell? SeqLabC ' G4 P' Dwell# EOL END END ELSE IF CannedCycle? SeqLab END END END IF PointFeat? SeqLabC MoveSXYC EOL ELSE IF RapidFeat? SeqLabC Rapid MoveXC MoveZC EOL ELSE IF LineFeat? IF XMove? OR ZMove? SeqLabC CkCRC Feed MoveXC MoveZC FeedRateC EOL END 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 END END END END END IF LastFeat? Save# Num#('4') EPX# Save# Num#('3') EPZ# IF CannedCycle? GetXSP GetZSP END END NEXTFeat RETURN
{Start of executable Prog **************************************************}
{setup and initializations} InitProg SetAbs PosSideLathe StandardXZArcs SetMaxRPM('2000') SetMaxFeed('200') Save# Num#('1') Num#('0') Save# Num#('2') Num#('0') Save# Num#('3') Num#('0') Save# Num#('4') Num#('0') Save# Num#('5') Num#('0') Save# Num#('6') Num#('0') Save# Num#('7') Num#('0') Save# Num#('8') Num#('0') Save# Num#('9') Num#('0') Save# Num#('10') Num#('1') IF NOT Metric? Save# Num#('10') Num#('25.4') END RestoreScale 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 GetTT IF FirstOperation? EOR 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 MILLIMETERS )' EOL END END RestoreScale OpenSub StockOff {.71.2} SetHome DoOpComments DoPostScript Plane GetExit SeqLab IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL SeqLabC CSSOn ' G96' ELSE SeqLabC CSSOff ' G97' END Speed OpToolID SpinOn CoolOn EOL Approach ELSE IF NewTool?
{Finish off last Operation}
StockOff {.62} CRCOffC IF LAST ApproachOD? GetLOEXCP LoadXTTZTT SeqLabC XRapidC MoveXC EOL ELSE IF LAST ApproachID? GetNewToolXOpECD LoadXTTZTT SeqLabC XRapidC MoveXC EOL END END GetLOEZCP LoadXTTZTT SeqLabC ZRapidC MoveZC EOL DoEndOpPS SeqLabC Rapid NewHome EOL IF LAST ProgStop? SeqLabC ' M0' EOL ELSE SeqLabC ProgStop EOL END
{Start new Operation}
GetExit DoOpComments DoPostScript SeqLab IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL SeqLabC CSSOn ' G96' ELSE SeqLabC CSSOff ' G97' END Speed OpToolID SpinOn CoolOn EOL Approach ELSE IF SameTool? {.62}
{Start new Operation}
StockOff DoOpComments IF LAST StraightConnect? CheckOffset CRCOffC GetXSP GetZSP LoadXTTZTT SeqLabC StockOff XZRapidC MoveXC MoveZC EOL StockOnNoCan ELSE CRCOffC IF ApproachOD? IF LAST ApproachOD? GetSameToolXOpECD LoadXZTT SeqLabC XRapidC MoveXC EOL ELSE {around} IF LAST ApproachID? GetSameToolXOpECD LoadXTTZ SeqLabC XRapidC MoveXC EOL END GetLOEZCP LoadXTTZTT SeqLabC ZRapidC MoveZC EOL GetLOEXCP LoadXTTZTT SeqLabC XRapidC MoveXC EOL END ELSE IF ApproachID? IF LAST ApproachID? GetSameToolXOpECD LoadXZTT SeqLabC XRapidC MoveXC EOL ELSE IF LAST ApproachOD? {around} GetLOEXCP LoadXTTZ SeqLabC XRapidC MoveXC EOL END GetLOEZCP LoadXTTZTT SeqLabC ZRapidC MoveZC EOL GetXOpCD LoadXTTZTT SeqLabC XRapidC MoveXC EOL END ELSE {ApproachFace} IF LAST ApproachFace? GetSameToolZOpECP LoadXTTZ SeqLabC ZRapidC MoveZC EOL ELSE IF LAST ApproachOD? {around} GetLOEXCP LoadXTTZ SeqLabC XRapidC MoveXC EOL ELSE {LAST ApproachID} GetSameToolXOpECD LoadXTTZ SeqLabC XRapidC MoveXC EOL END GetLOEZCP LoadXZTT SeqLabC ZRapidC MoveZC 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 CutDepth ' R' CutDepth# EOL SeqLabC LCycle ' PÅ‚' Tag# ' Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL IF ApproachFace? SeqLab StepMove ' Z' SPZ# EOL SeqLabC StepMove ' X' SPX# EOL ELSE SeqLab StepMove ' X' SPX# EOL SeqLabC StepMove ' Z' SPZ# EOL END ELSE IF RoughPatternShift? SeqLabC LCycle XminusU ZminusW NumCuts EOL SeqLabC LCycle ' PÅ‚' Tag# ' Q²' Tag# XStkLeft ZStkLeft 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? SeqLabC LCycle ' P' IF AutoFinish? '02' {1 finish passes} ELSE '01' END '00' { Thread Ending Angle } InFeedAngle# { Thread Lead Angle = SingleEdgeCut/Thread Angle; Balanced = 0 } IF ConstantVolumeCut? ' Q20' {.0020 minimum cut depth} ELSE ' Q' CutDepth# {if not ConstantVolumeCut? CutDepth is min depth, volume increases with depth} END ' R0' {using zero for no finish stock allowance, need XStckLeft# command} EOL SeqLabC LCycle XatFinZ FinZ XTapAtZ ThrdHeight CutDepth ThrdLead EOL IF AutoFinish? SeqLabC ' G92' XatFinZ FinZ XTapAtZ ThrdLead EOL END ELSE IF Drilling? IF PeckChipBreaker? SeqLabC LCycle ' R' Retract# EOL SeqLabC LCycle ZDepth ' Q' Peck# ' R0' FeedRate EOL SeqLabC DrillOff EOL IF AutoFinish? SeqLabC Feed ZDepth EOL IF Dwell? SeqLabC ' G4 P' Dwell# EOL END SeqLabC Rapid ZSP EOL END ELSE SeqLabC ' G98' EOL SeqLabC LCycle XSP ' C0' ZDepth ' R0' IF Peck? ' Q' Peck# END Dwell FeedRate IF AutoFinish? ' K2' ELSE ' K1' END EOL SeqLabC DrillOff EOL END ELSE IF Grooving? StockOn SetPass1 SeqLabC Rapid StrtPos EOL ToolPath END END END END ELSE StockOn SetPass1 ToolPath IF AutoFinish? { .82.1c } StockOff IF Turning? IF ApproachFace? GetSameToolZOpECP LoadXTTZ SeqLabC ZRapidC MoveZC EOL ELSE GetSameToolXOpECD LoadXZTT SeqLabC XRapidC MoveXC EOL END ApproachSP SetStatusOff Save# Num#('4') CycleStartX# { GetXSP without StockOnNoCan } Save# Num#('3') CycleStartZ# { GetZSP without StockOnNoCan } SetStatusOn LoadXTTZTT SeqLabC StockOff XZRapidC MoveXC MoveZC EOL ToolPath ELSE IF Roughing? AND NOT RoughSimple? SetPass2 SetStatusOff Save# Num#('4') CycleStartX# { GetXSP without StockOnNoCan } Save# Num#('3') CycleStartZ# { GetZSP without StockOnNoCan } SetStatusOn LoadXTTZTT SeqLabC StockOff XZRapidC MoveXC MoveZC EOL ToolPath SetPass1 ELSE IF Threading? SeqLabC Rapid ' X' MUL# Num#('2') ADD# FinishXRadius# Taper# EOL SeqLabC ' G33' IF Taper? XatFinZ END FinZ ThrdLead EOL SeqLabC Rapid XSP EOL SeqLabC Rapid ZSP EOL END END END END END IF Drilling? AND Tap? SeqLabC SpinOff EOL SeqLabC ' G4 P2000' EOL SeqLabC Speed SpinOn EOL END NextOp {loops back to EachOP until last Operation}
{End of program ************************************************************}
{finish last operation} StockOff CRCOffC IF ApproachOD? GetOEXCP LoadXTTZTT SeqLabC XRapidC MoveXC EOL ELSE IF ApproachID? GetNewToolXOpECD LoadXTTZTT SeqLabC XRapidC MoveXC EOL END END GetOEZCP LoadXTTZTT SeqLabC ZRapidC MoveZC EOL DoEndOpPS SeqLabC SpinOff EOL SeqLabC Rapid FirstHome UnTool EOL IF ProgStop? SeqLabC ' M0' EOL END SeqLabC CoolOff EOP EOL Post 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