{Change Comments ***********************************************************} {6/19/89 Copied & modified: GE 1050 LeBlonde Rgl L033.55 For: Schober's Machine: LeBlond Universal 12/12 Mark II Control: GE 1050T P.C.I. Mark Century JR} {10/25/89, Updated: GE 1050T LeBlonde L105.59, JR} {4/6/90, Updated: GE 1050T LeBlonde L105.60, to .69.3 format, JR} {7/24/90, Added InitProg globally to posts with this remark, DWB} {9/24/91, Updated GE 1050T LeBlonde L105.70 to .80 format, JR} {12/12/91 Modified: GE 1050T LeBlonde L105.80 For: Gibbs & Associates Updated to Version 4.1 per Fanuc 10T MS [-] L001.82 Format. Rapid is not used, Feed outputs 'G21', CWArc outputs 'G23' and CCWArc outputs 'G22'. No Canned Cycles supported. DWB} {5/8/97 Updated: GE 1050T LeBlonde L105.82 Created: GE 1050T LeBlonde L105.85 For: Gibbs & Associates/General Tool Versions: Catalyst v3.33C/ComPost2 MSL 68K Updated for Catalyst v3.25C per Fanuc 10T MS [-] L001.85.02b Format. DWB} {5/8/97 Updated: Modified: Updated & Modified: Copied: GE 1050T LeBlonde L105.85 Created: GE 1050T [GT] Baron L591.85 For: General Tool Machine: Baron Lathe Control: GE 1050T Versions: Catalyst v3.33C/ComPost2 MSL 68K Changes made per David Bishop of General Tool. Machine supports single, 12 station Turret. Uses Offsets T1 to T11 and T13 to T18. T12 is not used. Customer requested NegSideLathe output. Added NegSideLathe at setup and initializations. Deleted CheckCoolant sub. Contained IF ToolOver?(20) boolean condition. TRUE outputs literal M07, FALSE outputs CoolOn. Replaced call to CheckCoolant sub with CoolOn command at AppMove sub and two places at CheckOffset sub. Deleted CheckSpinOn sub. Contained IF ToolOver?(20) boolean condition. TRUE outputs InverseSpinOn, FALSE outputs SpinOn. Replaced call to CheckSpinOn sub with SpinOn command at SpinOn sub, two places at CheckOffset sub, FirstOperation, NewTool and IF Drilling? AND Tap? boolean condition at end of EachOp/NextOp loop. Deleted CheckInverseSpinOn sub. Contained IF ToolOver?(20) boolean condition. Replaced call to CheckInverseSpinOn sub with InverseSpinOn command at ToolPath LastFeat Drilling Tap. Deleted IF ToolOver?(20) boolean condition at FirstOperation and NewTool. TRUE set post to NegSideLathe, FALSE set post to PosSideLathe. Customer requested Decimal output. Changed F Address from ##^###0;0 to ##.####;0 in Compost Default Format Dialog. Changed I, K, R, X and Z Addresses from ###^###0;0 to ###.####;0 in Compost Default Format Dialog. Changed Lead of Thread K Address ###^#####0;0 to ###.######;0 in Compost Default Format Dialog. Changed FORMAT#2 from ###^###0 to ###.####;0 at Prog Numeric Format Definitions Changed literal 'G04X20000' to 'G04X2.' at ToolPath LastFeat Drilling Tap, FirstOperation, NewTool and IF Drilling? AND Tap? boolean condition at end of EachOp/NextOp loop. DWB} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.####;0' #3 = '#######0' #4 = '0000' #5 = '0' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(MUL#,2) { Non-Canned Threading AutoFinish } FORMAT(ToolOffsetXRadius#,2) FORMAT(CycleStartX#,2) FORMAT(Dwell#,2) {.72} FORMAT(Program#,3) {.72} FORMAT(Operation#,3) {.72} FORMAT(Tool#,3) {.72} FORMAT(CalcEPRPM#,4) FORMAT(RapidF#,5) {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 SeqC PostScript EOL {literals} PSStuff {commands} NextPS RETURN DoEndOpPS: PSInit EachEOPS SeqC EndOpPS EOL {literals} PSStuff {commands} NextPS RETURN GetCSSR: 'R' IF FirstOperation? OR NewTool? ToolOffsetXRadius# ELSE CycleStartX# END MaxRPM RETURN GetCSS: SeqC CSSOn 'G96' Speed EOL 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? SeqC StockOnNoCan XSPC EOL SeqC StockOff ZOpCPC EOL StockOnNoCan IF NotEqual? CycleStartZ# ZOpCP# SeqC FeedNoCan ZSPC FeedRateNoCan EOL END ELSE { ODApproach/IDApproach } SeqC StockOnNoCan ZSPC EOL SeqC StockOff XOpCDC EOL StockOnNoCan IF NotEqual? CycleStartX# XOpCD# SeqC FeedNoCan XSPC FeedRateNoCan EOL END END RETURN AppMove: StockOff ThisOpEntryZCP OpToolID LatheOffset CoolOn RapidF RETURN Approach: { NOT FOR TAILSTOCK, .82 } Feed IF ApproachOD? SeqC ThisOpEntryXCP AppMove EOL ELSE IF ApproachID? SeqC XOpCD AppMove EOL ELSE {ApproachFace} SeqC StockOnNoCan XSP AppMove EOL END END ApproachSP RETURN CheckOffset: DoEndOpPS IF LAST ProgStop? SeqC 'M00' EOL ELSE IF CoolOff? AND LAST NOT CoolOff? SeqC CoolOff EOL END END IF NewToolOffset? IF NewGear? SeqC LOfstOff '00' SpinOff EOL SeqC OpToolID LatheOffset GearRange EOL ELSE SeqC LOfstOff '00' EOL SeqC OpToolID LatheOffset EOL END ELSE IF NewGear? SeqC SpinOff EOL SeqC GearRange EOL END END CSSOff IF ConstantSurfaceFeed? IF LAST ConstantSurfaceFeed? IF LAST ProgStop? OR NewGear? CalcRPM1 ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# CalcRPM1 END END ELSE CalcRPM1 END ELSE IF LAST ConstantSurfaceFeed? 'G97' Speed ELSE IF LAST ProgStop? OR NewGear? 'G97' Speed ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# 'G97' Speed END END END END IF LAST ProgStop? SeqC {SpeedC} SpinOn EOL SeqC CoolOn EOL ELSE IF NewGear? SeqC {SpeedC} SpinOn EOL END IF NOT CoolOff? AND LAST CoolOff? SeqC CoolOn EOL END END DoPostScript RETURN FormatArc: IF ArcCW? CWArcC ELSE CCWArcC END MoveXC MoveZC ArcIJC 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 GetRapidFC: IF NOT EmptyLine? RapidFC END RETURN ToolPath: EACHFeat GetToolTip IF LastFeat? IF Drilling? IF Tap? SeqC SpinOff EOL SeqC 'G04X2.' EOL SeqC Speed InverseSpinOn EOL ELSE IF Dwell? SeqC 'G04X' Dwell# EOL END END END END IF PointFeat? SeqC MoveSXYC EOL ELSE IF RapidFeat? SeqC FeedC MoveXC MoveZC GetRapidFC EOL ELSE IF LineFeat? SeqC CkCRC FeedC MoveXC MoveZC FeedRateC EOL ELSE IF ArcFeat? EACHQuadrant { Do not use NOT, LAST, FIRST or NEXT modifiers in this loop } SeqC FormatArc FeedRateC EOL NEXTQuadrant ELSE IF ThreadFeat? SeqC 'G33' MoveXC MoveZC ThrdLead EOL Feed END END END END END NEXTFeat RETURN CheckRapid: CRCOffC FeedC RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg NegSideLathe ReverseXZArcs XsAreRadii NoIJKSigns SetMaxRPM('2500') IF Metric? SetMaxFeed('12700') ELSE SetMaxFeed('500') END 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? 'S' ASCII ('18') EOL EOR EOL IF UseComments? IF ProgramNameComment? '( PROGRAM: ' ProgramName$ ' )' EOL END IF ProgramComment? '( ' ProgramComment$ ' )' EOL END IF FormatNameComment? '( FORMAT: ' FormatName$ ' )' EOL END IF TimeComment? '( ' Date$ ' AT ' Time$ ' )' EOL END IF MovesComment? '( OUTPUT IN ' MoveType$ ' INCHES )' EOL END END RestoreScale OpenSub StockOff {.71.2} SetHome DoOpComments DoPostScript Plane Seq AbsOrInc EOL SeqC 'G70' EOL { Inch Data Input } IF Threading? SeqC 'G94' GearRange EOL { Inches Per Minute } ELSE SeqC 'G95' GearRange EOL { Inches Per Revolution } END SeqC Preset Home IF ConstantSurfaceFeed? GetCSSR END EOL SeqC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL SeqC 'G04X2.' OpToolID '00' EOL Approach ELSE IF NewTool? {Finish off last Operation} StockOff {.62} CheckRapid IF LAST ApproachOD? SeqC LAST OpExitXCPC GetRapidFC EOL ELSE IF LAST ApproachID? SeqC LAST XOpECDC GetRapidFC EOL END END SeqC LAST OpExitZCPC GetRapidFC EOL DoEndOpPS IF LAST ConstantSurfaceFeed? SeqC CSSOff 'G97' CalcRPM2 EOL END SeqC NewHome EOL SeqC LOfstOff '00' IF NewGear? SpinOff END EOL IF LAST ProgStop? SeqC 'M00' EOL ELSE SeqC ProgStop EOL END {Start new Operation} DoOpComments DoPostScript Seq AbsOrInc EOL SeqC 'G70' EOL { Inch Data Input } IF Threading? SeqC 'G94' GearRange EOL { Inches Per Minute } ELSE SeqC 'G95' GearRange EOL { Inches Per Revolution } END SeqC Preset Home IF ConstantSurfaceFeed? GetCSSR END EOL SeqC CSSOff 'G97' IF ConstantSurfaceFeed? CalcRPM1 ELSE Speed END SpinOn EOL SeqC 'G04X2.' OpToolID '00' EOL Approach ELSE IF SameTool? {.62} {Start new Operation} StockOff DoOpComments IF LAST StraightConnect? CheckOffset CheckRapid SeqC StockOnNoCan XSPC ZSPC GetRapidFC EOL ELSE CheckRapid IF ApproachOD? IF LAST ApproachOD? SeqC LAST XOpECDC GetRapidFC EOL ELSE {around} IF LAST ApproachID? SeqC LAST XOpECDC GetRapidFC EOL END SeqC LAST OpExitZCPC GetRapidFC EOL SeqC LAST OpExitXCPC GetRapidFC EOL END ELSE IF ApproachID? IF LAST ApproachID? SeqC LAST XOpECDC GetRapidFC EOL ELSE IF LAST ApproachOD? {around} SeqC LAST OpExitXCPC GetRapidFC EOL END SeqC LAST OpExitZCPC GetRapidFC EOL SeqC XOpCDC GetRapidFC EOL END ELSE {ApproachFace} IF LAST ApproachFace? SeqC LAST ZOpECPC GetRapidFC EOL ELSE IF LAST ApproachOD? {around} SeqC LAST OpExitXCPC GetRapidFC EOL ELSE {LAST ApproachID} SeqC LAST XOpECDC GetRapidFC EOL END SeqC LAST OpExitZCPC GetRapidFC EOL END END END CheckOffset ApproachSP END END END END {common point for all operations} IF ConstantSurfaceFeed? IF NOT SameTool? GetCSS ELSE IF LAST ConstantSurfaceFeed? IF NotEqual? MaxRPM# LAST MaxRPM# SeqC Preset GetCSSR EOL END IF LAST ProgStop? GetCSS ELSE IF NotEqual? SpeedRPM# LAST SpeedRPM# GetCSS END END ELSE SeqC Preset GetCSSR EOL GetCSS END END END StockOn SetPass1 ToolPath IF AutoFinish? { .82.1c } StockOff IF Turning? IF ApproachFace? SeqC FeedC ZOpECPC GetRapidFC EOL ELSE SeqC FeedC XOpECDC GetRapidFC EOL END ApproachSP SeqC StockOff StrtPosC EOL ToolPath ELSE IF Roughing? AND NOT RoughSimple? SetPass2 SeqC FeedC XSPC ZSPC GetRapidFC EOL SeqC StockOff StrtPosC EOL ToolPath SetPass1 ELSE IF Threading? SeqC 'X' MUL# Num#('1') ADD# FinishXRadius# Taper# EOL SeqC 'G33' IF Taper? XatFinZ END FinZ ThrdLead EOL SeqC Feed XSP EOL SeqC ZSP EOL END END END END IF Drilling? AND Tap? SeqC SpinOff EOL SeqC 'G04X2.' EOL SeqC Speed SpinOn EOL END NextOp {loops back to EachOP until last Operation} {End of program ************************************************************} {finish last operation} StockOff CheckRapid IF ApproachOD? SeqC OpExitXCPC GetRapidFC EOL ELSE IF ApproachID? SeqC XOpECDC GetRapidFC EOL END END SeqC OpExitZCPC GetRapidFC EOL DoEndOpPS SeqC CoolOff EOL IF ConstantSurfaceFeed? SeqC CSSOff 'G97S' CalcEPRPM# EOL END SeqC FirstHome EOL SeqC OpToolID '00' EOL IF ProgStop? SeqC 'M00' EOL END SeqC EOP EOL Post EOR EOL NullFoot ASCII ('4') EOL Close 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