{8/23/91 Copied & modified: HiTec-Turn HS L024.82 For: Machine Specialties Control: Yasnac LX3 Machine: HiTech 20 & 25 Added GetSequence sub to output 'Åš' Tool# '00' for FirstOperation and NewTool. Changed NegSideLathe to PosSideLathe. Changed ReverseXZArcs to StandardXZArcs. Turning ConstantSurfaceFeed on at Home. Added Preset 'S3500' at FirstOperation. Deleted CalcRPM1 at FirstOperation and NewTool, always using Speed. Deleted CalcRPM2 at NewTool. Deleted ConstantSurfaceFeed logic at CommonPoint. Deleted CalcEPRPM# at end of Program, and FORMAT for same. Deleted all Offset support. Deleted OpToolID LatheOffset at AppMove sub. Deleted IF NewToolOffset logic at CheckOffset sub. Moved OpToolID '00' to line by itself at FirstOperation and NewTool. Deleted LOfstOff '00' at NewTool. Deleted OpToolID '00' at end of Prog. Moved CoolOn from AppMove sub to FirstOperation and NewTool and added literal '/'. Modified StartUp Output at FirstOperation. Added blank line at FirstOperation, NewTool and end of Prog. Modified Canned Thread Cycle based on settings of ConstantVolumeCut and SingleEdgeCut radio buttons. Deleted CutMethod Command from Canned Thread Cycle Block. Moved FirstHome to CoolOff block at end of Prog. Added literal 'M0' at end of prog. Changed EOP Command to literal 'M99P100' at end of Prog. JR}
{7/15/92 Modified: Yasnac LX3 HS 20/25 L234.82 For: Machine Specialties Changes made per Joseph Landry and Bob Shumaker at Machine Specialties. Updated to Version 4.1 per Fanuc 10T MS [-] L001.82 Format. Deleted AppMove Sub. Modified Approach Sub to bypass Move to XCP and/or ZCP when coming from ToolChng Position. Changed literal '/' to SetLineStrtChr(/) for CoolOn at FirstOperation, NewTool and CheckOffset sub. Modified ContourRough StrtPos. Control does not allow for Multi-Axis StrtPos. Turning Cycle needs XCSP block followed by ZCSP block. Facing Cycle needs ZCSP block followed by XCSP block. Added Canned PeckFullRetract Cycle. Modified Canned PeckChipBreaker Cycle. Both Cycles are identicle except that PeckFullRetract has RLevel, PeckChipBreaker doesn't. DWB}
{8/26/95, Updated Yasnac LX3 HS 20/25 L234.82.1 to .85 format per Fanuc 10T MS [-] L001.85.01.01, JR}
{11/26/96 Initial: Yasnac LX3 HS 20/25 L234.85 Created: Yasnac i80 MS Lxxx.85 ForUser: New West Machine Tool Control: Yasnac i80 Machine: Mori Seiki Develop: ComPost2 68k v1.0b4, Catalyst68K v3.09.05C Comment: New Processor per marked up readout from Tim Loomis Deleted 'T0100' from beginning of program. Changed OpToolID '00' to Rapid OpToolID LatheOffset at beginning of tools. Deleted 'M99P100' from end of program. Changed 'M0' to EOP (M30) at end of program. Deleted UnTool '00' from end of program. Jim Radcliffe}
{7/15/97 Initial: Yasnac I80 MS [CBM] L544.85 Created: Yasnac I80 MS [CBM] L544.85.1 Added logic to FirstOp, NewTool, and end section to output 'G28U0.W0.' instead of Home when ToolChangeAtHome? is false, removed output of G80 after drill cycles, changed RLevel command in PeckFullOut to literal 'R1.', changed literal S3500 to MaxRPM in FirstOp, added output of Preset MaxRPM to NewTool, eliminated move to machine home in FirstOp, canned threading now outputs 'M24' when IF Chamfer? is False and 'M23' if true, elimimated GetSequence sub, changed to R format arcs, MPK }
{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
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 XSPC EOL SeqLabC StockOff ZOpCPC EOL StockOnNoCan IF NotEqual? CycleStartZ# ZOpCP# SeqLabC FeedNoCan ZSPC FeedRateNoCan EOL END ELSE { ODApproach/IDApproach } SeqLabC StockOnNoCan ZSPC EOL SeqLabC StockOff XOpCDC EOL StockOnNoCan IF NotEqual? CycleStartX# XOpCD# SeqLabC FeedNoCan XSPC FeedRateNoCan EOL END END RETURN
AppMove: StockOff ThisOpEntryZCP 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? { not using tool offsets } 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 SetLineStrtChr('/') SeqLabC CoolOn EOL SetLineStrtChr('') ELSE SeqLabC SpeedC EOL IF NOT CoolOff? AND LAST CoolOff? SetLineStrtChr('/') SeqLabC CoolOn EOL SetLineStrtChr('') 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 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
{ Modified StartUp Output } IF ConstantSurfaceFeed? SeqLabC Preset MaxRPM EOL END IF ToolChangeAtHome? SeqLabC Rapid Home EOL ELSE SeqLabC 'G28U0.W0.' EOL END SeqLabC ProgStop EOL DoOpComments DoPostScript Plane SeqLab Rapid OpToolID LatheOffset EOL SetLineStrtChr('/') SeqLabC CoolOn EOL SetLineStrtChr('') IF ConstantSurfaceFeed? CSSOn 'G96' ELSE CSSOff 'G97' END SeqLabC 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 IF ToolChangeAtHome? SeqLabC NewHome EOL ELSE SeqLabC 'G28U0.W0.' EOL END IF LAST ProgStop? SeqLabC 'M0' EOL ELSE SeqLabC ProgStop EOL END
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 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 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft CutDepth FeedRate EOL '>' Tag# EOL IF ApproachFace? SeqLab StepMove ZCSP EOL SeqLabC XCSP EOL ELSE SeqLab StepMove XCSP EOL SeqLabC ZCSP EOL END ToolPath '<' Tag# EOL IF AutoFinish? SeqLabC 'G70' 'PÅ‚' Tag# 'Q²' Tag# EOL END ELSE IF RoughPatternShift? SetPass2 SeqLabC LCycle 'PÅ‚' Tag# 'Q²' Tag# XStkLeft ZStkLeft XminusU ZminusW NumCuts 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? IF Chamfer? SeqLabC 'M23' EOL ELSE SeqLabC 'M24' EOL END IF NOT ConstantVolumeCut? AND NOT SingleEdgeCut? SeqLabC 'G92X' FirstMoveEPX# FinZ ThrdLead EOL SimpleRough ELSE SeqLabC LCycle XatFinZ FinZ XTapAtZ ThrdHeight CutDepth ThrdLead IF ConstantVolumeCut? AND NOT SingleEdgeCut? 'A0' ELSE 'A' InFeedAngle# END EOL END IF AutoFinish? SeqLabC Feed XatFinZ EOL SeqLabC 'G32' FinZ ThrdLead EOL 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 Peck? SeqLabC LCycle ZDepth Peck FeedRate IF PeckFullRetract? 'R1' END 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 IF CannedCycle? Rapid ELSE RapidC END IF ApproachOD? SeqLabC OpExitXCPC EOL ELSE IF ApproachID? SeqLabC XOpECDC EOL END END SeqLabC OpExitZCPC EOL DoEndOpPS IF FIRST ToolChangeAtHome? SeqLabC FirstHome CoolOff EOL ELSE SeqLabC 'G28U0.W0.' CoolOff EOL END SeqLabC SpinOff 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