{Change Comments ***********************************************************}
{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}
{08/05/91
Updated: Fanuc 0T/3T Miyano L008.81
For: Gibbs & Associates
Updated to Version 4.0 per Fanuc 6M M001.82 Format.
Kim Michelman}
{11/12/91
Modified: Fanuc 0T/3T Miyano L008.82
For: A & B Industries
Making a custom post:
Took out logic for the stock in the ODApproach, IDApproach, and FaceApproach for the SameTool,
and made new logic for if NewTool. Making two Approach subs.
Added logic for ToolOver ('6'), Tool NOT Over ('5'), and Tool ('6').
For:
IF Tool('6') & IF ToolOver?('6') &
'M87' = SpinOn 'M53' = SpinOn
'M88' = InverseSpinOn 'M54' = InverseSpinOn
'M89' = SpinOff 'M55' = SpinOff
'M47' = Main Spindle Encoder 'M46' = Main Spindle Encoder
IF NOT ToolOver?('5')
'M3' = SpinOn
'M4' = InverseSpinOn
'M5' = SpinOff
'M47'= Main Spindle Encoder
Deleted the 'ZCP' from the AppMove in the Approach Sub.
Added CheckSpindleChange and CheckSpindle Subs.
Added 'Z99.99T0000' in place of 'X.0Z.0' LatheOffset line for editing purposes.
Added 'M29' line (Work conveyer off command) at the end of each block.
Added 'M25' and 'M02' to end of prog as well as '/' before the 'M30'.
Kim Michelman}
{12/12/91
Copied and Modified: Fanuc 0T/3T Miyano L008.82
For: A & B Industries
Added logic and formula for decreasing feedrate on arcs less than .032"
Flag('1') is used to track whether or not the feedrate was changed in the ArcFeat. If it was
changed, then we force a feedrate in LineFeat.
Flag('2') is used to detect when we are in the first iteration of EACHQuadrant/NEXTQuadrant so
that we only output the Feedrate formula on the first Quadrant. Note that this is not necessary
if the post does not use Quad stopping, but it is safer to leave it in just in case someone
turns on Quad stopping with the Compost boolean 'Arcs Stop On Quadrants'.
The formula logic is 'If the arc is smaller than .032, then multiply the arc radius times 31 and
then multiply the result by the programmed feedrate'.
Joe Cusimano & Kim Michelman}
{5/1/92
Modified: Fanuc 0T Miyano [A&B] L247.82.1
For: A & B Industries
Removed the 'G33' code from the form, customer said that code is unuseable.
Changed previously requested - 'M29' line (Work conveyer off command) at the end of each block to 'M39'.
Made the StrtPos command conditional.
Changed the logic for tools that come after ('6') in a sequence -
from the previous info. of before/after/ and at ('6').
Changed the logic back from SameApproach/NewApproach to the original Approach.
Kim Michelman}
{5/28/92
Modified: Fanuc 0T Miyano [A&B] L247.82.2
For: A & B Industries
Removed the literal '/', 'M25' and 'M02' from the end of the prog.
Added the 'M1'/ progstop capability to the end of the prog.
Added logic for 'M54' Spindle reverse for the sub spindle.
Changed the Approach sub to output the 'X' move first, and then
the 'Z' move on a seperate line.
Added the startup (feed stock) code to be output at the beginning of each program.
Added logic for CheckLastSpinOff to incorporate spindle direction and if back to Main from sub spindle.
Kim Michelman}
{3/2/93
Modified: Fanuc 0T Miyano [A&B] L247.82.3
For: A & B Industries
Control:
Machine: BNC 20
Call LatheOffset with OpToolID in main, deleted OpToolID LatheOffset from Approach.
Moved CoolOn to 1st Approach move.
Descrimated output of M39 to be output at the end of tool number 6 only.
Changed XOpECDC to XCPC in NewTool to finish off last operation IF LAST ApproachOD?, same as L001.
Jim Radcliffe}
{2/6/98
Initial: Fanuc 0T Miyano [A&B] L247.82.4
Created: Fanuc 0T Miyano [A&B] L247.82.5
ForUser: A & B Industries
Control: Fanuc 0T
Machine: Miyano BNC-20S
Develop: ComPost2 1.1b3, ncCAD 4.33.02 PPC, ncCAM 4.33 PPC, ncPost 4.33.10 PPC
Comment: Modified per notes from meeting with Michael Bingman.
Set minimum calculated feedrate (see note 12/12/91 above) to .0001
Added Drilling and Threading to suppression in FeedNoCan and FeedRateNoCan.
Added custom sequence numbers to beginning of tools.
Using Flag#4 to determine if custom numbers will be used or not.
Using Var#4 as the custom number.
Changed Threading CannedCycle to 2 line Fanoc 0T type canned cycle.
Modified ConstantSurfaceFeed Layout.
Rewrote Bar Feed sequence at beginning of program.
Rewrote cut off operation. No longer using OptCyc1! Tool 6 is only used to cut off!
Rewrote sub spindle control:
Tools aver 16 are sub spindle
Tools under 16 are main spindle
Tool 6 is cut off and uses both spindles
Simplified ToolPath ArcFeat and custom feedrate:
Status Record was being modified by the formula resulting in redundant X output.
Removed the EACHQuadrant/NEXTQuadrant loop, we do not stop on quads.
Removed the use of Flag#2, it is now no longer needed!
Added subs for custom and standard feedrate.
Updated per Fanuc 10T MS [-] L001.82ż
Jim Radcliffe}
{4/7/98
Initial: Fanuc 0T Miyano [A&B] L247.82.5
Created: Fanuc 0T Miyano [A&B] L247.82.6
Develop: ComPost2 1.1b3, ncCAD 4.33.02 PPC, ncCAM 4.33 PPC, ncPost 4.33.10 PPC
Comment: Modified per notes from Michael Bingman
Fixed changing spindle condition in CheckLastSpinOff.
Deleted CoolOff from end of program.
Jim Radcliffe}
{Prog Numeric Format Definitions *******************************************}
#1 = '#.00'
#2 = '###.####;0.'
#3 = '#######0'
#4 = '###^##0'
#5 = '#.######;0.'
#6 = '###0'
#7 = '#'
FORMAT(FileFeet#,1)
FORMAT(FileMeters#,1)
FORMAT(ADD#,2)
FORMAT(FinishXDia#,2)
FORMAT(Taper#,2)
FORMAT(ZStockMin#,2)
FORMAT(FirstMoveEPZ#,2)
FORMAT(MUL#,2)
FORMAT(ArcR#,2)
FORMAT(FeedContour#,2)
FORMAT(HomeZ#,2)
FORMAT(Program#,3) {.72}
FORMAT(Operation#,3) {.72}
FORMAT(Tool#,3) {.72}
FORMAT(Dwell#,4) {.72}
FORMAT(FeedIPR#,5)
FORMAT(CalcEPRPM#,6)
FORMAT(Recall#,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}
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? AND NOT Drilling? AND NOT Threading?
FeedC
END
RETURN
FeedRateNoCan:
IF NOT CannedCycle? AND NOT Drilling? AND NOT Threading?
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
IF Flag?('3')
'Z' TrackZ# ZStockMin#
ELSE
ZCP
END
RETURN
Approach: { NOT FOR TAILSTOCK, .82 }
Rapid RapidF# { RapidF# Forces FeedRate }
IF ApproachOD?
SeqLabC StockOff XCP CoolOn EOL
ELSE
IF ApproachID?
SeqLabC StockOff XOpCD CoolOn EOL
ELSE {ApproachFace}
SeqLabC StockOnNoCan XSP CoolOn EOL
END
END
IF ConstantSurfaceFeed?
SeqLabC Preset MaxRPM EOL
SeqLabC CSSOn 'G96' Speed EOL
END
SeqLabC AppMove EOL
IF Equal? Tool# NUM#('6')
SeqLabC 'M35' EOL
SeqLabC 'M57' EOL
SeqLabC 'M38' EOL
SeqLabC 'G4U.1' EOL
SeqLabC 'M36' EOL
SeqLabC 'G101' EOL
SeqLabC Rapid 'B-9.8649' EOL
SeqLabC 'M58' EOL
SeqLabC 'M90' EOL
SeqLabC 'M90' EOL
SeqLabC Rapid 'B-2.0' EOL
SeqLabC 'M90' EOL
SeqLabC 'G100' EOL
SeqLabC 'M57' EOL
SeqLabC 'M40' EOL
SeqLabC 'M90' EOL
END
IF ApproachOD?
ODApproachSP
ELSE
IF ApproachID?
IDApproachSP
ELSE {ApproachFace}
FaceApproachSP
END
END
RETURN
Sequence:
IF Flag?('4')
Save# Num#('4') ADD# Recall# Num#('4') Num#('1')
'N' Recall# Num#('4')
ELSE
SeqLab ' '
END
RETURN
CheckFlag3:
IF ToolOver?('16')
SetFlag('3')
ELSE
SetFlagF('3')
END
RETURN
CheckSpindle:
IF Flag?('3')
'M46' {sub spindle encoder}
ELSE
'M47' {main spindle encoder}
END
RETURN
CheckSpinOn:
IF Equal? Tool# Num#('6')
IF CWSpindle?
'M87'
ELSE
'M88'
END
ELSE
IF Flag?('3')
IF CWSpindle?
'M53'
ELSE
'M54'
END
ELSE
SpinOn
END
END
RETURN
CheckLastSpinOff: { NewTool Only }
IF Equal? LAST Tool# Num#('6')
'M89' { main-spindle & sub-spindle stop }
ELSE
IF Flag?('3')
IF NOT ToolOver?('16') { If we are going from the sub-spindle to the main spindle }
'M55'
ELSE
IF CWSpindle?
IF LAST CWSpindle?
{do not stop spindle}
ELSE
'M55'
END
ELSE
IF LAST CWSpindle?
'M55'
ELSE
{do not stop spindle}
END
END
END
ELSE
IF ToolOver?('16') { If we are going from the main-spindle to the sub-spindle }
SpinOff
ELSE
IF CWSpindle?
IF LAST CWSpindle?
{do not stop spindle}
ELSE
SpinOff
END
ELSE
IF LAST CWSpindle?
SpinOff
ELSE
{do not stop spindle}
END
END
END
END
END
RETURN
CheckSpinOff: { for tapping operations }
IF Equal? Tool# Num#('6')
'M89'
ELSE
IF Flag?('3')
'M55'
ELSE
SpinOff
END
END
RETURN
CheckInverseSpinOn:
IF Equal? Tool# Num#('6')
IF CWSpindle?
'M88'
ELSE
'M87'
END
ELSE
IF Flag?('3')
IF CWSpindle?
'M54'
ELSE
'M53'
END
ELSE
InverseSpinOn
END
END
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
SeqLabC SpeedC EOL
ELSE
SeqLabC Preset MaxRPM EOL
SeqLabC CSSOn 'G96' Speed EOL
END
ELSE
IF LAST ConstantSurfaceFeed?
SeqLabC CSSOff 'G97' Speed EOL
ELSE
SeqLabC SpeedC EOL
END
END
IF LAST ProgStop?
SeqLabC CheckSpinOn EOL
SeqLabC CoolOn EOL
ELSE
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
StandardFeedrate:
IF Flag?('1')
FeedRate
SetFlagF('1')
ELSE
FeedRateC
END
RETURN
CustomFeedrate#:
MUL# FeedIPR# MUL# Num#('31') ArcR#
RETURN
CustomFeedrate:
SetStatusOff
IF LessThan? ArcR# Num#('.032')
IF LessThan? CustomFeedrate# Num#('.0001')
'F.0001'
ELSE
'F' CustomFeedrate#
END
SetFlag('1')
ELSE
StandardFeedrate
END
SetStatusOn
RETURN
ToolPath:
EACHFeat
GetToolTip
IF LastFeat?
IF Drilling?
IF Tap?
SeqLabC CheckSpinOff EOL
SeqLabC 'G4P2000' EOL
SeqLabC Speed CheckInverseSpinOn 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 StandardFeedrate EOL
ELSE
IF ArcFeat?
SeqLabC FormatArc CustomFeedrate EOL
ELSE
IF ThreadFeat?
SeqLabC 'G32' MoveXC MoveZC ThrdLead EOL
Rapid
END
END
END
END
END
NEXTFeat
RETURN
CheckRapid:
IF LAST CannedCycle?
Rapid
ELSE
RapidC
END
RETURN
{Start of executable Prog **************************************************}
{setup and initializations}
InitProg
SetAbs
PosSideLathe
StandardXZArcs
SetFlagF('1')
SetFlagF('3') { sub spindle tool }
SetFlagF('4') { use custom sequence numbers }
Save# Num#('4') Num#('0')
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: may be capital and/or lower case letters. Separate commands with a space.' 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
{ determine if custom sequence numbers will be used }
IF MinimizeSequencing?
SetFlag('4')
ELSE
SetFlagF('4')
END
EachOp
GetLCycle
IF CannedCycle?
IF RoughContour? OR RoughPatternShift?
SetFlagF('4')
END
END
NextOp
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
' ' EOL
{ Bar Feed Sequence }
Sequence EOL
IF UseComments?
IF OperationIDComment?
'( OPERATION 0: Bar Feed )' EOL
END
IF OperationComment?
'( Feedout )' EOL
END
IF WorkGroupComment?
'( No Work Group used )' EOL
END
IF ToolTypeComment?
'( TOOL 11: Bar Feed Stop )' EOL
END
IF ToolComment?
'( Bar Feed Stop )' EOL
END
END
SeqLabC Rapid
IF Equal? HomeZ# NUM#('0')
'Z99.99'
ELSE
'Z' HomeZ#
END
'T0000M47' EOL
SeqLabC 'X0T1111' SpinOff EOL
SeqLabC 'Z.010' EOL
SeqLabC 'M12' EOL
IF Equal? HomeZ# NUM#('0')
SeqLabC 'Z99.99' 'T0000' EOL
ELSE
SeqLabC 'Z' HomeZ# 'T0000' EOL
END
SeqLabC ProgStop EOL
' ' EOL
Sequence EOL
DoOpComments
DoPostScript
Plane
CheckFlag3
SeqLabC Rapid
IF Equal? HomeZ# NUM#('0')
'Z99.99'
ELSE
'Z' HomeZ#
END
'T0000' CheckSpindle EOL
SeqLabC CSSOff 'G97'
IF ConstantSurfaceFeed?
CalcRPM1
ELSE
Speed
END
OpToolID LatheOffset CheckSpinOn EOL
Approach
ELSE
IF NewTool?
{Finish off last Operation}
StockOff {.62}
IF Equal? LAST Tool# Num#('6')
SeqLabC 'M90' EOL
SeqLabC 'M90' EOL
SeqLabC 'M39' EOL
END
CheckRapid
IF LAST ApproachOD?
SeqLabC XCPC EOL
ELSE
IF LAST ApproachID?
SeqLabC LAST XOpECDC EOL
END
END
{SeqLabC ZCPC EOL}
DoEndOpPS
SeqLabC
IF Equal? HomeZ# NUM#('0')
'Z99.99'
ELSE
'Z' HomeZ#
END
'T0000' EOL
SeqLabC CheckLastSpinOff EOL {Changing from main spindle to sub spindle or reversing direction}
IF LAST ProgStop?
SeqLabC 'M0' EOL
ELSE
SeqLabC ProgStop EOL
END
' ' EOL
{Start new Operation}
Sequence EOL
DoOpComments
DoPostScript
CheckFlag3
SeqLabC Rapid
IF Equal? HomeZ# NUM#('0')
'Z99.99'
ELSE
'Z' HomeZ#
END
'T0000' CheckSpindle EOL
SeqLabC CSSOff 'G97'
IF ConstantSurfaceFeed?
CalcRPM1
ELSE
Speed
END
OpToolID LatheOffset CheckSpinOn EOL
Approach
ELSE
IF SameTool? {.62}
{Start new Operation}
DoOpComments
StockOff
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
IF Flag?('3')
SeqLabC 'Z' TrackZ# ZStockMin# EOL
ELSE
SeqLabC ZCPC EOL
END
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
IF Flag?('3')
'Z' TrackZ# ZStockMin#
ELSE
ZCPC
END
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
IF Flag?('3')
'Z' TrackZ# ZStockMin#
ELSE
ZCPC
END
EOL
END
CheckOffset
FaceApproachSP
END
END
END
END
END
END {common point for all operations}
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 StrtPosC 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'
ELSE
'00'
END
'Q'
IF ConstantVolumeCut?
'10' {.0010 minimum cut depth}
ELSE
CutDepth# {if not ConstantVolumeCut? CutDepth is min depth, volume increases with depth}
END
'R10'
EOL
SeqLabC LCycle XatFinZ FinZ XTapAtZ ThrdHeight CutDepth ThrdLead EOL
ELSE
IF Drilling?
IF Tap?
SeqLabC LCycle ZDepth 'E' FeedIPR# EOL
SeqLabC CheckSpinOff EOL
SeqLabC 'G4P2000' EOL
SeqLabC Speed CheckInverseSpinOn EOL
SeqLabC ZSP EOL
ELSE
IF PeckChipBreaker?
SeqLabC LCycle Retract EOL
SeqLabC LCycle ZDepth Peck 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?
IF NOT Drilling? AND NOT Grooving? AND NOT RoughSimple?
StockOff
IF Turning?
SetPass1
RapidC
IF ApproachFace?
SeqLabC ZOpECPC EOL
FaceApproachSP
ELSE
SeqLabC XOpECDC EOL
IF ApproachOD?
ODApproachSP
ELSE {ApproachID}
IDApproachSP
END
END
ELSE
SetPass2
SeqLabC RapidC StrtPos EOL
END
ToolPath
END
END
END
IF Drilling? AND Tap?
SeqLabC CheckSpinOff EOL
SeqLabC 'G4P2000' EOL
SeqLabC Speed CheckSpinOn EOL
END
NextOp {loops back to EachOP until last Operation}
{End of program ************************************************************}
{finish last operation}
StockOff
IF Equal? Tool# NUM#('6')
SeqLabC 'M90' EOL
SeqLabC 'M90' EOL
SeqLabC 'M39' EOL
END
IF CannedCycle?
Rapid
ELSE
RapidC
END
IF ApproachOD?
SeqLabC XCPC EOL
ELSE
IF ApproachID?
SeqLabC XOpECDC EOL
END
END
{SeqLabC ZCPC EOL}
DoEndOpPS
SeqLabC
IF Equal? HomeZ# NUM#('0')
'Z99.99'
ELSE
'Z' HomeZ#
END
'T0000' EOL
IF ProgStop?
SeqLabC 'M0' EOL
ELSE
SeqLabC ProgStop EOL {requested 'M1' capability}
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
Wyszukiwarka
Podobne podstrony:
Fanuc 0T Miyano [TPM] L329 82 3Fanuc 0T (Anzon1) L077 82 1mFanuc 0T Nakamora L248 82Fanuc 0T Miyano [M3] L781 85Fanuc 0T [RWMT] L369 82 2Fanuc 0T Miyano (CES) L109 85Fanuc 0T Miyano [VP] L227 85Fanuc 0T Miyano [GM] L541 85Fanuc 0T Miyano [ZI] L267 85Fanuc 0T Miyano [BD4] L681 85 6Fanuc 10T Miyano [A&B] L725 82Fanuc 0T Miyano [OI] L448 85Fanuc 0T (Anzon1) L077 82 1Fanuc 0T Wasino L182 82 2Fanuc 0T SL 25 [CS] L323 82 1Fanuc 0T Miy BND 34 L313 82 2więcej podobnych podstron