{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}
{2/15/96 Updated: Modified: Fanuc 0TA [C&W] L379.85m For: Fructus/Stens Verkstad Versions: ncCad 4.33.02/ncCAM 4.33.01/ncPost 4.33.09/Catalyst v3.01/Compost 4.21.34/1.0a Changes made per Mikael Bagge of Fructus. Changed all Canned Cycle Coordinate FORMATs from ####.####;0 to #####.###;0 in Mach Spec. Added literal 'G28U0' at FirstOperation. Added literal 'G28W0' at FirstOperation. DWB}
{11/18/97 Copied: Fanuc 0TA [SV] L422.85.1m Created: Fanuc 0TA [FM] L666.85m For: Fructus/Matenco Versions: Catalyst v4.21.14(mac)/ComPost2 MSL 68K Changes made per Mikael Bagge of Fructus, EMail and "L422.85.1m Test" VNC file. Updated for Catalyst v3.35C per Fanuc 10T MS [-] L001.85.02d Format. Simplified usage of CSSOff/CSSOn at CheckOffset sub. Corrected output of G0 only block at end of Manual Thread Cycle. Added IF LAST ThreadFeat? at ToolPath RapidFeat? Forces Rapid. Deleted forced Rapid at ToolPath ThreadFeat. Added OR LAST Threading? at CheckRapid. Added OR Threading? at end of Prog. Added SetMaxFeed(7.874) condition for English Files at setup and initializations. Customer requested ToolComment$ listing at end of header. Added EachTool/NextTool loop at FirstOperation. Outputs TLToolComment$. Customer requested G10P0Z####.### block following header. ZValue is to be equal to length of part plus 33mm. Added SUB# to FORMAT#2 at Prog Numeric Format Definitions. Added G10P0Z block at FirstOperation. Added SUB# SUB# ZStockMin# ZStockMax# NumSc#('33') FORMULA for ZValue. Customer requested modification of Tool related blocks. Changed "Change Tool" edit field from M6 to M16 in Compost2 Spindle and Coolant Dialog. Added OpToolID '00' ToolChng block at FirstOperation and NewTool. Moved OpToolID LatheOffset at FirstOperation and NewTool to AppMove sub. Customer requested modification of M13/M14, SpinOn/CoolOn combo blocks. Customer wants separate M03/M04 and M08 codes output. Customer wants M03/M04 to be output in place of M13/M14. Customer wants M08 to be output on Approach. Deleted GetSpinCoolOn sub. Changed GetSpinCoolOn call to SpinOn command at end of CheckOffset sub and at FirstOperation and NewTool. Added CoolOn at AppMove sub. Added CoolOn block at end of CheckOffset sub. Customer requested all M05, SpinOff codes to be changed to M09, CoolOff codes. Changed SpinOff to CoolOff at NewTool and end of Prog. Deleted CoolOff block at end of Prog. DWB}
{12/16/97 Modified: Fanuc 0TA [FM] L666.85m Created: Fanuc 0TA [FM] L666.85.1m For: Fructus/Matenco Versions: Catalyst v4.21.16(mac)/ComPost2 MSL 68K Changes made per Mikael Bagge of Fructus, EMail and "L422.85.1m Test" VNC file. Customer requested suppression of non-used Tools from TLToolComment$ output. Modified EachTool/NextTool Loop at FirstOperation. Moved Program Header and EachTool/NextTool ahead of EachOp/NextOp Loop. Added EachOp/NextOp Loop inside of EachTool/NextTool Loop. Added Flag(1) to test for output of TLToolComment$. Other changes per customer requests. Changed literal 'G28U0' to Rapid Home at FirstOperation. Deleted literal 'G28W0' at FirstOperation. Changed OpToolID '00' to 'T0000' at FirstOperation, NewTool and end of Prog. Changed LOfstOff '00' to 'T0000' at NewTool. Added Rapid Home at NewTool. DWB}
{Prog Numeric Format Definitions *******************************************}
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 IF NewToolOffset? SeqLabC LOfstOff '00' EOL SeqLabC OpToolID LatheOffset EOL END IF ConstantSurfaceFeed? CSSOn IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END IF LAST ProgStop? 'G96' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# 'G96' Speed END END ELSE SeqLabC Preset MaxRPM EOL 'G96' Speed END ELSE CSSOff 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 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 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 '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? IF LAST ThreadFeat? Rapid END 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 'G33' MoveXC MoveZC ThrdLead EOL END END END END END NEXTFeat RETURN
CheckRapid: CRCOffC IF LAST CannedCycle? OR LAST Threading? Rapid ELSE RapidC END RETURN
{Start of executable Prog **************************************************}
{setup and initializations} InitProg SetAbs PosSideLathe StandardXZArcs SetMaxRPM('2000') IF Metric? SetMaxFeed('200') ELSE SetMaxFeed('7.874') END SetFlagF('1') { TLToolComment during EachTool/NextTool Loop at FirstOperation } 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
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 MILLIMETERS )' EOL END EachTool SetFlag('1') EachOp IF Flag?('1') IF FirstOperation? OR NewTool? IF Equal? TLNum# Tool# SetFlagF('1') '( ' TLToolComment$ ' )' EOL END END END NextOp NextTool END RestoreScale SeqLabC 'G10P0Z' SUB# SUB# ZStockMin# ZStockMax# NumSc#('33') EOL
EachOp {Start of post processing *********************} GetLCycle IF FirstOperation? OpenSub StockOff {.71.2} SetHome DoOpComments DoPostScript Plane SeqLab Rapid Home EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END SeqLabC 'T0000' ToolChng EOL IF ConstantSurfaceFeed? SeqLabC CSSOn 'G96' ELSE SeqLabC CSSOff 'G97' END Speed SpinOn EOL Approach ELSE IF NewTool?
{Finish off last Operation}
StockOff {.62} CheckRapid IF LAST ApproachOD? SeqLabC LAST OpExitXCPC EOL ELSE IF LAST ApproachID? SeqLabC LAST XOpECDC EOL END END SeqLabC LAST OpExitZCPC EOL DoEndOpPS SeqLabC NewHome 'T0000' CoolOff EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END
{Start new Operation}
DoOpComments DoPostScript SeqLab Rapid Home EOL IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END SeqLabC 'T0000' ToolChng EOL IF ConstantSurfaceFeed? SeqLabC CSSOn 'G96' ELSE SeqLabC CSSOff 'G97' END Speed SpinOn EOL 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 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 CutDepth 'R' CutDepth# EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL IF ApproachFace? SeqLab StepMove 'Z' SPZ# EOL SeqLabC 'X' SPX# EOL ELSE SeqLab StepMove 'X' SPX# EOL SeqLabC '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 FeedC ZDepth EOL IF Dwell? SeqLabC 'G4P' 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 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 '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 CRCOffC IF CannedCycle? OR Threading? Rapid ELSE RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC EOL DoEndOpPS SeqLabC FirstHome 'T0000' CoolOff 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