{1/29/90, Updated: Fanuc 0T-Miyano L008.52 to .69 format, JR} {7/24/90, Added InitProg globally to posts with this remark, DWB} {9/25/90, Updated to Version 3.2 per Fanuc 10T MS [-] L001.71.1 Format, DWB} {10/2/90, Added StockOff globally at FirstOperation, DWB} {10/8/90, Replace CalcRPM2 globally with CalcEPRPM# at end of prog, DWB}
{3/27/91 Modified: Fanuc 0T/3T Miyano L008.71.3 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format. All normal Fanuc Canned Cycles are supported. Added Math to calculate start of Tapered Thread for AutoFinish. DWB}
{4/17/91 Modified: Fanuc 0T/3T Miyano L008.80 Replaced AbsOrInc command with SetAbs, in FirstOperation, and changed MoveType$ to 'ABSOLUTE'. DWB}
{8/5/91 Updated: Fanuc 0T/3T Miyano L008.81 For: Gibbs & Associates Updated to Version 4.0 per Fanuc 6M M001.82 Format. KM}
{3/30/90 Updated: Fanuc 0T/3T Miyano L008.82 For: Gibbs & Associates Corrected RoughContour Approach Bug. 3TCs and 0Ts do not support the Type II hill and valley contour. Approach must be only X-axis for OD and ID Approaches, and Z-axis for Face Approaches. Modified output of Speed & ConstantSurfaceFeed for SameTool in CheckOffset sub. Added Logic to suppress Feed and FeedRate for Approaches. Added bypass of AutoFinish for Non-Canned RoughSimple Operations. DWB}
{4/16/91 Copied & modified: Fanuc 0T/3T Miyano L008.82.1 For: Valley Todeco Machine: Okuma Machine is like 2 lathes in one. It has 2 Spindles each with its own turret. They can be run independently of each other or can be run simultainiusly. Control has a Left/Right switch for maipulation of either side. The processor should be written as if its just a regular lathe, nothing special. Control: Fanuc 0T Modifications to the beginning and ending of tools. Using G50 Home preset. Using G28 for index position. This is a first draft per customer requests. Jim Radcliffe}
{2/2/94 Copied & modified: Fanuc 0T Okuma [VT] L255.82 For: CNCCS / Winegar Inc., per Aaron Storvick Deleted G28 line at beginning of tools, moved OpToolID to SpinOn line. Added GearRange. Moved CoolOn to Approach sub. Changed G28U0.W0. to home values at end of tools. Updated Approach subs to .82ż format. Changed to StartPosC in RoughContour. Added additional cycle line for threading, deleted the M23/M24 codes. Jim Radcliffe}
{8/9/95, Updated Fanuc 0T Okuma [WB] L300.82 to .85 format per Fanuc 10T MS [-] L001.85.01, JR}
{5/21/96 Initial: Fanuc 0T Okuma [WB] L300.85 Created: Fanuc 0TC Daewoo HC10 L000.85 ForUser: Braden Eng / NW Industries Control: Fanuc 0TC Machine: Daewoo HC10 Develop: ComPost 4.21.37, Catalyst68K v3.04.04C Comment: New processor per marked up readout and conversation with Wess Bisbee. Deleted GearRange. Deleted Preset Home from Beginning of tool, geometry offsets are stored in the tool page! Deleted OpToolID '00' from beginning of tool, machine will index before motion! Deleted OpToolID '00' from end of tool, not neccesary! Jim Radcliffe}
{Prog Numeric Format Definitions *******************************************}
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
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 OpToolID LatheOffset EOL END IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqLabC Preset MaxRPM EOL END SeqLabC SpeedC ELSE SeqLabC Preset MaxRPM EOL SeqLabC CSSOn 'G96' Speed END ELSE IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' Speed ELSE SeqLabC SpeedC END END IF LAST ProgStop? SpinOn EOL SeqLabC CoolOn EOL ELSE 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 } CRCOnC 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 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 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 IF ConstantSurfaceFeed? SeqLab Preset MaxRPM EOL SeqLabC CSSOff 'G97' CalcRPM1 ELSE SeqLab CSSOff 'G97' Speed END 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 IF LAST ConstantSurfaceFeed? SeqLabC CSSOff 'G97' CalcRPM2 EOL END SeqLabC Rapid NewHome EOL IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END ' ' EOL
{Start new Operation}
DoOpComments DoPostScript Plane IF ConstantSurfaceFeed? SeqLab Preset MaxRPM EOL SeqLabC CSSOff 'G97' CalcRPM1 ELSE SeqLab CSSOff 'G97' Speed END 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 ConstantSurfaceFeed? AND NOT SameTool? SeqLabC CSSOn 'G96' Speed EOL END IF CannedCycle? StockOff IF Roughing? IF RoughSimple? StockOn SetPass1 IF ApproachFace? SeqLabC LCycle 'Z' FirstMoveEPZ# XatFinZ XTapAtZ FeedRate EOL ELSE SeqLabC LCycle XatFinZ FinZ XTapAtZ FeedRate EOL END SimpleRough ELSE TagInc IF RoughContour? SetPass2 SeqLabC LCycle CutDepth EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL SeqLab StepMove StrtPosC EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'PÅ‚' Tag# 'Q²' Tag# EOL END ELSE IF RoughPatternShift? SetPass2 SeqLabC LCycle XminusU ZminusW NumCuts EOL SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft FeedRate EOL '>' Tag# EOL SeqLab Rapid StrtPos EOL ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'PÅ‚' Tag# 'Q²' Tag# EOL END END END END ELSE IF Threading? SeqLabC LCycle 'P' IF AutoFinish? '02' {2 finish passes} ELSE '01' END IF Chamfer? '10' {1 thread lead} ELSE '00' END IF SingleEdgeCut? '29' {*** needs ToolAngle# command ***} ELSE '00' END EOL SeqLabC LCycle XatFinZ FinZ XTapAtZ CutMethod ThrdHeight CutDepth ThrdLead ToolAngle EOL IF AutoFinish? IF Taper? SeqLabC Rapid 'X' ADD# FinishXDia# MUL# Taper# NumSc#('2') { Outputs start of Taper } EOL SeqLabC 'G32' XatFinZ FinZ ThrdLead EOL ELSE SeqLabC Rapid XatFinZ EOL SeqLabC 'G32' FinZ ThrdLead EOL END SeqLabC Rapid XCSP EOL SeqLabC ZCSP 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 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 RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC EOL DoEndOpPS IF ConstantSurfaceFeed? SeqLabC CSSOff 'G97S' CalcEPRPM# EOL END SeqLabC Rapid FirstHome EOL 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