{Change Comments ***********************************************************} {added separate sub call code and warning for not separate, 7/5/88 WFG} {separate sub calls turned off in this post- 'UseSeparateSubCalls' commented out} {ncPost3§24 or better} {added IF ToolChangeAtHome?, & SetHome 9/26/88 WFG} {added PostScript commands 3/11/89 WFG} {added PostScript command comments 5/9/89, WFG, use ncPost 3.10Œ9 or better} {removed run time comments, 5/9/89, WFG} {added "must be all capital letters when typed in" to Postscript Command comment, 5/17/89, JR} {added metric, 6/5/89, WFG} {suppressed first cycle StrtPos for sep subs,7/17/89 WFG} {last tool now goes to FirstHome when finished, 7/26/89, WFG} {changed to Sep Sub standard} {.65, corrected Sep sub problem if 1st cut <> Z step, 9/14/89 WFG, requires ncPost 3.19Œ5} {.66, added name comment to Prog ID # line, 10/30/89, WFG} {.67, new prog commands, 11/20/89, WFG} {*.68, AutoCycles and 3.2 support, 12/4/89, WFG (Good luck on the upgrades to other posts)} {.69, corrected 2 repeat op/autocycle problems, 12/21/89, WFG} {1/8/90-2/7/90 Changes to M001.69 Moved DoPostScript command to very beginning of NewTool & SameTool op's, same as FirstOp. Deleted last line of NewWFO PostScript comment, it no longer applies. Move DoEndOpPS command in NewTool & end of prog to end of operation outside of Full-up MP. Restucture to have M01 or M00 in New Tool. Deleted ProgStop? from end of prog, not neccesary. Check for ProgStop at beginning AND end of operation does not work, it comes out both places, only using for end of operation. Reflected in PSComments. Deleted StopProg sub. Re-wrote SameTool section for many reasons. Deleted ClearancePlane3# prog format it is no longer needed. New sub CheckPass to replace statement in main for SetPass. Modified WFOStuff sub to include SameTool. Deleted StrtPos from OpenMP sub and added to main where needed. Updated to .70 format. Jim Radcliffe} {.71.1, added InitProg, 4/11/90, JR} {.71.2, FIRST modifier, no CRCOffC in AutoCycCutSub2, add Connect for ZOnlyRep, 4/23/90, JR} {.71.2.NoNest, modified for example of no nesting subroutines, 5/22/90, JR} {.72.1.NoNest, Updated to .72.1 format & minor corrections, 6/6/90, JR} {.76.1.NoNest, Updated to .76.1 format, 7/18/91, JR} {.80.NoNest, Updated to .80 format, 9/10/91, JR} {.81.NoNest, Updated to .81 format, 4/17/92, JR} {.81.2.NoNest, Updated to .81.2 format, 6/3/93, JR} {.81.3.NoNest, StdRapid & StdArc subs, 12/6/93, JR} {.81.4.NoNest, Minor layout improvments & Update stuff, 6/1/94, JR} {8/28/95, Updated Fanuc 6M NoNest M001.81.4 to .85 format per Fanuc 6M M001.85.01.03, JR} {10/18/95, .85.01.NoNest, Added missing DoDrillAbsOrInc call, JR} {2/12/96, Updated .85 number to .86, no changes necessary, MPK} {3/22/96, Tested ZOnlyRepAutoCycle, Changed version # to .89, MPK} {4/23/96, Initial: Fanuc 6M NoNest M001.89 Created: Fanuc 6m NoNest MXXX.89 Addded IF Tap? case in in IF Drilling? section, changed tap cycle to output StartPos on the next line, added Speed to tapping cycle line, moved Opcomments to just before tool change, added 'G28Z0' before the safe start blocks at FirstTool and NewTool, MPK} {5/10/96 Initial: Fanuc 6M NN [TM] M988.89 Created: Fanuc 6M NN [TM] M988.89.1 Changed FeedEnt in Tapping cycle to FeedIPRC, MPK} {6/9/96 Moved comments to top of process Changed feed rate in rigid tap to 4 places deleted start position after ridgid tap Jason Heyse} {Prog Numeric Format Definitions *******************************************} #1 = '#.00' #2 = '###.###;0.' #3 = '*###.###;0.' #4 = '####.####;0.' #5 = '#######0' #6 = '####^##0' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(ToolDiameter#,4) {.72} FORMAT(Program#,5) {.72} FORMAT(CallMasterNum#,5) FORMAT(Operation#,5) {.72} FORMAT(Tool#,5) {.72} FORMAT(NewWFO#,5) {.72} FORMAT(Parts#,5) {.72} FORMAT(Dwell#,6) {.72} FORMAT(FeedEntIPR#,4) {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 DoSubComment: IF UseComments? AND SubComment? '( SUB NUMBER: ' Program# ' )' EOL 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# ': ' ToolDiameter# ' ' ToolType$ ' )' EOL END IF ToolComment? '( ' ToolComment$ ' )' EOL END RestoreScale END RETURN PSInit: {reset flags} NewWFOF RotateF OptCyc1F MasterOpF CallMasterOpF RETURN PSStuff: {revised.72} IF FourthCW? FORMAT(FourthDegree#,2) SeqC 'A' FourthDegree# EOL FourthCWF {reset flag} END IF FourthCCW? FORMAT(FourthDegree#,3) SeqC 'A' FourthDegree# EOL FourthCCWF {reset flag} END IF FifthCW? FORMAT(FifthDegree#,2) SeqC 'B' FifthDegree# EOL FifthCWF {reset flag} END IF FifthCCW? FORMAT(FifthDegree#,3) SeqC 'B' FifthDegree# EOL FifthCCWF {reset flag} END RETURN DoPostScript: PSInit EachPS SeqC PostScript EOL {literals} PSStuff {commands} NextPS RETURN DoEndOpPS: PSInit EachEOPS SeqC EndOpPS EOL PSStuff NextPS RETURN EntryMove: IF FeedEntry? SeqC Feed ZIn FeedEnt EOL ELSE SeqC RapidC ZIn EOL END RETURN StartSub: OpenSub SubID EOL DoSubComment RETURN SubWarning: IF NOT FeedConnect? IF AnyZshift? ' ' EOL '( WARNING Z CLEARANCE WILL CHANGE WITH EACH CYCLE OF SUB REPEAT )' EOL ' ' EOL END END RETURN StdSub: SeqC SubCall CallLab RepLab RepCycs EOL StartSub RETURN FinishSub1: {part 1} SeqC CRCOffC IF NOT FeedConnect? IF AutoCycle? ZCP3C ELSE IF FIFO? {.81} FeedC ZCP3C FeedEntC ELSE RapidC ZCP3C END END END EOL RETURN FinishSubG92: {part 2} SeqC Preset ShiftRC EOL SeqC EndSub EOL CloseSub SeqC Preset UnshftRC EOL RETURN OpenMP: NewProg IF WorkFixtureOffsets? NewWFO EachWFO SeqC SetWFO EOL SeqC SubCall CallLab RepLab OnePart EOL IncWFO NextWFO ELSE SeqC SubCall CallLab RepLab Parts EOL END StartSub RETURN CloseMP: IF WorkFixtureOffsets? SeqC EndSub EOL CloseSub SeqC WFO1 EOL ELSE SeqC Preset ShiftPC EOL SeqC EndSub EOL CloseSub SeqC Preset UnshftPC EOL END RETURN DoAbsOrInc: IF Flag?('1') AND AbsoluteMoves? IF ZMove? AND AbsValue? IncValue ELSE IF NOT ZMove? AND NOT AbsValue? AbsValue END END END RETURN DoDrillAbsOrInc: IF Flag?('1') AND AbsoluteMoves? IF SPZMove? AND AbsValue? IncValue ELSE IF NOT SPZMove? AND NOT AbsValue? AbsValue END END END RETURN RestoreAbsOrInc: IF Flag?('1') AND AbsoluteMoves? AND NOT AbsValue? SeqC AbsValue EOL END RETURN FormatArc: DoAbsOrInc IF ArcCW? CWArcC ELSE CCWArcC END MoveXYZC IF ArcIJFormat? ArcIJC ELSE ArcRC END RETURN StdRapid: IF LastFeat? SeqC DoAbsOrInc CRCOffC RapidC MoveXYZC EOL ELSE IF ZMove? {skip CRCOn until first non-Z move line, skipping ramps} SeqC DoAbsOrInc RapidC MoveXYZC EOL ELSE IF XMove? OR YMove? OR ZMove? SeqC DoAbsOrInc CRCOnC RapidC MoveXYZC CRCOffsetC EOL END END END RETURN StdLine: {enables CRC on first call, .70} IF LastFeat? SeqC DoAbsOrInc CRCOffC FeedC MoveXYZC FeedRateC EOL ELSE IF ZMove? {skip CRCOn until first non-Z move line, skipping ramps} SeqC DoAbsOrInc FeedC MoveXYZC FeedRateC EOL ELSE IF Decelerate? IF RoomToDecel? DecelMove1 SeqC DoAbsOrInc CRCOnC FeedC MoveXYZC FeedRateC CRCOffsetC EOL DecelMove2 END SeqC DoAbsOrInc CRCOnC FeedC MoveXYZC DecelFeed CRCOffsetC EOL ELSE IF XMove? OR YMove? OR ZMove? SeqC DoAbsOrInc CRCOnC FeedC MoveXYZC FeedRateC CRCOffsetC EOL END END END END RETURN StdArc: EACHQuadrant { Do not use NOT, FIRST, LAST or NEXT modifiers in this loop } IF LastQuadrant? AND Decelerate? IF RoomToDecel? DecelMove1 SeqC FormatArc ArcFeedC EOL DecelMove2 END SeqC FormatArc DecelFeed EOL ELSE SeqC FormatArc ArcFeedC EOL END NEXTQuadrant RETURN ToolPath2: {NoNesting} {.72.1, this is for AutoCycles only} EACHFeat IF RapidFeat? StdRapid ELSE IF LineFeat? StdLine ELSE IF ArcFeat? StdArc END END END NEXTFeat RETURN CutAutoCycle: {NoNesting} SaveSubStatus {save tool position} SetPass1 {element cut moves} SetSRXYtoSP Seq IncValue EOL IF Repeats? AND ZshiftOnly? AND MultipleParts? EachRep EntryMove ToolPath2 IF NOT FeedConnect? IF FIFO? {.81} SeqC FeedC PRIME ZCP2 FeedEntC EOL ELSE SeqC RapidC PRIME ZCP2 EOL END END NextRep IF FIFO? {.81} SeqC AbsOrInc FeedC ZCP2 FeedEntC EOL ELSE SeqC AbsOrInc RapidC ZCP2 EOL END ELSE EntryMove ToolPath2 IF FIFO? {.81} SeqC AbsOrInc FeedC ZCP2 FeedEntC EOL ELSE SeqC AbsOrInc RapidC ZCP2 EOL END END SetSRSubXY {restore tool position} SetSRSubMove ReSetPass2 {restore for positioning moves} RETURN ToolPath: ResetCRCNum {.72} EACHFeat IF PointFeat? IF AutoCycle? SeqC MoveSXYC EOL IF MultipleParts? {NoNesting} CutAutoCycle ELSE IF Repeats? IF ZShiftOnly? SeqC SubCall CallLab EOL ELSE CutAutoCycle END ELSE SeqC SubCall CallLab EOL END END CalcACSRXY {calc tool position after sub call, CalcAutoCycleStatusRecordXY} ELSE SeqC DoDrillAbsOrInc MoveSXYZC EOL {.80.01} END ELSE IF RapidFeat? StdRapid ELSE IF LineFeat? StdLine ELSE IF ArcFeat? StdArc END END END END NEXTFeat RestoreAbsOrInc RETURN WFOStuff: IF NewWFO? IF MultipleParts? '*** WARNING *** DO NOT USE NEWWFO() WITH NCPOST MULTIPLE PARTS' EOL ELSE SeqC 'G' NewWFO# EOL END ELSE IF NOT SameTool? IF NeedWFO1? SeqC 'G' NewWFO# EOL END END END RETURN AutoCycCutSub1: {part 1} SaveSubStatus {save tool position} SetPass1 {element cut moves} StartSub SetSRXYtoSP Seq IncValue EOL RETURN AutoCycCutSub2: {part 2} ToolPath SeqC AbsOrInc IF Repeats? AND FeedConnect? AND ZshiftOnly? {.69 removed RapidC} {.71.2 removed CRCOffC, gets turned off in ToolPath} ELSE IF FIFO? {.81} FeedC ZCP2 FeedEntC ELSE RapidC ZCP2 END END EOL SeqC EndSub EOL CloseSub SetSRSubXY {restore SR to 1st position value} SetSRSubMove RETURN AutoCycPat: SetPass2 {position pattern} ToolPath {call after NewProg for correct sub calls} SetPass1 {reset} RETURN Milling: IF AutoCycle? IF MultipleParts? OR Repeats? {NoNesting} ToolPath ELSE NewProg AutoCycCutSub1 EntryMove AutoCycCutSub2 AutoCycPat END ELSE EntryMove ToolPath END RETURN G92Sub: IF MultipleParts? {NoNesting} EachRep IF AutoCycle? ToolPath ELSE IF FirstCycle? EntryMove ELSE IF FeedConnect? {.72.1, minor changes to entry} SeqC FeedC StrtPosC EOL SeqC ZInC FeedEntC EOL ELSE SeqC RapidC StrtPosC EOL SeqC ZCP2C EOL IF FeedEntry? SeqC FeedC ZInC FeedEntC EOL ELSE SeqC RapidC ZInC EOL END END END ToolPath FinishSub1 END NextRep ELSE NewProg SubWarning StdSub SeqC AbsOrInc Connect StrtPos EOL Milling FinishSub1 FinishSubG92 END RETURN ZonlyRepAutoCycle: {NoNesting} IF MultipleParts? ToolPath ELSE NewProg AutoCycPat {write pattern moves and main calls} AutoCycCutSub1 EachRep IF NOT FirstCycle? IF NOT FeedConnect? SeqC ZCP2 EOL END END EntryMove ToolPath2 IF NOT FeedConnect? IF FIFO? {.81} SeqC FeedC PRIME ZCP2 FeedEntC EOL ELSE SeqC RapidC PRIME ZCP2 EOL END END NextRep IF FIFO? {.81} SeqC AbsOrInc FeedC ZCP2 FeedEntC EOL ELSE SeqC AbsOrInc RapidC ZCP2 EOL END SetSRSubXY {restore tool position} SetSRSubMove SeqC EndSub EOL CloseSub END RETURN ZonlyRep: NewProg EachCycle IF NOT FirstCycle? SeqC Connect StrtPos EOL {.71.2, added Connect} END IF FeedConnect? SeqC FeedC ZInPlusInc FeedEnt EOL {.71.2, changed to FeedC} ELSE {Entry/Exit Connect} IF FeedEntry? IF NOT FirstCycle? SeqC RapidC ZCP2PlusIncC EOL {can't call for cycle =1} {.69 added Rapid, reads better} {.71.2, changed to RapidC, reads better} END SeqC Feed ZInPlusInc FeedEnt EOL ELSE SeqC RapidC ZInPlusInc EOL {.69 added Rapid, reads better} {.71.2, changed to RapidC, reads better} END END IF MultipleParts? {NoNesting} TrackZNO# FIRST SPZ# ToolPath FinishSub1 ELSE SeqC SubCall CallLab EOL END NextCycle IF NOT MultipleParts? {NoNesting, nest OK here} StartSub TrackZNO# FIRST SPZ# ToolPath FinishSub1 SeqC EndSub EOL CloseSub END RETURN CheckPass: IF AutoCycle? {use the correct StrtPos} SetPass2 ELSE SetPass1 END RETURN SkipToLastFeat: EachFeat IF LastFeat? TrackXNO# SPX# TrackYNO# SPY# END NextFeat RETURN SetDrillEndOpZ: IF RetractToCP1? TrackZNO# ClearancePlane1# ELSE TrackZNO# ClearancePlane2# END RETURN {Start of executable Prog **************************************************} {setup and initializations} InitProg ReverseXZArcs InitWFONum SetFlood UseSeparateSubCalls SetMaxSeparateSubCalls('50') SetMaxRPM('10000') SetMaxFeed('1000') SetFlagF('1') { Milling ZShiftOnly SepSubs } 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 ' NewWFO(56), NWFO(56) -' EOL ' The Work Fixture Offset # you specify will be used for all following operations.' EOL ' Do not use with the ncPost multiple part option.' EOL ' 4thAxisCW(12.5), 4ACW(12.5) -' EOL ' generates a + A move of the value you specify' EOL ' 4thAxisCCW(22.5), 4ACCW(22.5) -' EOL ' generates a - A move of the value you specify' EOL ' 5thAxisCW(30), 5ACW(30) -' EOL ' generates a + B move of the value you specify' EOL ' 5thAxisCCW(22.5), 5ACCW(22.5) -' EOL ' generates a - B move of the value you specify' EOL END EachOp {Start of post processing *********************} IF FirstOperation? EOR EOL ProgID1 IF UseComments? AND ProgramNameComment? '( PROGRAM: ' ProgramName$ ' )' END EOL IF ToolChangeAtHome? SetHome END IF UseComments? 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 IF PartsComment? '( PARTS PROGRAMMED: ' Parts# ' )' EOL END IF StartToolComment? '( FIRST TOOL NOT IN SPINDLE )' EOL END END OpenSub RestoreScale IF MultipleParts? AND AllToolsOnePart? OpenMP END DoOpComments SeqC 'G28Z0' EOL Seq Plane 'G80' CRCOff EOL SeqC OpToolID EOL SeqC ToolChng EOL DoPostScript WFOStuff SeqC Speed SpinOn EOL IF MultipleParts? AND OneToolAllParts? AND FullUp? OpenMP END CheckPass SeqC AbsOrInc Rapid StrtPos EOL SeqC OfstOn EOL SeqC CoolOn EOL IF MultipleParts? AND OneToolAllParts? AND ExitClearancePlane? OpenMP SeqC StrtPos EOL END ELSE IF NewTool? {Finish off last Operation} IF MultipleParts? AND OneToolAllParts? AND ExitClearancePlane? CloseMP END SeqC CoolOff EOL SeqC IncValue OfstOff EOL IF MultipleParts? AND OneToolAllParts? AND FullUp? CloseMP END DoEndOpPS IF ToolChangeAtHome? SeqC AbsOrInc Rapid Home SpinOff EOL ELSE SeqC SpinOff EOL END IF LAST ProgStop? SeqC 'M0' EOL ELSE SeqC ProgStop EOL END {Start new Operation} DoOpComments SeqC 'G28Z0' EOL Seq Plane 'G80' CRCOffC EOL SeqC OpToolID EOL SeqC ToolChng EOL DoPostScript WFOStuff SeqC Speed SpinOn EOL IF MultipleParts? AND OneToolAllParts? AND FullUp? OpenMP END CheckPass SeqC AbsOrInc Rapid StrtPos EOL SeqC OfstOn EOL SeqC CoolOn EOL IF MultipleParts? AND OneToolAllParts? AND ExitClearancePlane? OpenMP SeqC StrtPos EOL END ELSE IF SameTool? {Finish off last Operation} IF LAST ProgStop? OR CoolOff? AND LAST NOT CoolOff? SeqC CoolOff EOL END DoOpComments IF LAST ProgStop? OR NewToolOffset? SeqC IncValue OfstOff EOL END DoEndOpPS IF LAST ProgStop? SeqC SpinOff EOL SeqC 'M0' EOL END {Start new Operation} DoPostScript WFOStuff CheckPass SeqC PlaneC AbsOrInc Rapid StrtPos SpeedC IF LAST ProgStop? SpinOn END EOL IF LAST ProgStop? OR NewToolOffset? SeqC OfstOn EOL END IF LAST ProgStop? OR NOT CoolOff? AND LAST CoolOff? SeqC CoolOn EOL END END END END {common point for all operations} IF Milling? SeqC ZCP2C EOL IF Repeats? IF ZshiftOnly? IF AutoCycle? {incremental Autocycle sub can have Z moves} ZonlyRepAutoCycle ELSE {Z shift only, NOT Auto Cycle} IF UseSeparateSubCalls? AND CyclesLessThanMaxSubCalls? SetFlag('1') { Milling ZShiftOnly SepSubs } ZonlyRep SetFlagF('1') ELSE {no sep subs desired} G92Sub END END {end Auto Cycle IF} ELSE {not Z only} G92Sub END {end Z only IF} ELSE {no repeat OPs} Milling END IF AutoCycle? SeqC ZCP3C EOL ELSE IF FIFO? {.81} SeqC FeedC CRCOffC ZCP3C FeedEntC EOL ELSE SeqC RapidC CRCOffC ZCP3C EOL END END ELSE IF Drilling? IF Repeats? {NoNesting} IF MultipleParts? EachRep ELSE NewProg StdSub END SeqC AbsOrInc Rapid StrtPos EOL END SeqC DrillCP EOL GetCycle IF Tap? SeqC Cycle FromCP ZDepth RLevel 'F' FeedEntIPR# Speed EOL ELSE SeqC Cycle FromCP StrtPos ZDepth RLevel Dwell Peck Retract FeedEnt EOL END IF MultipleParts? OR Repeats? {NoNesting} TrackZNO# FIRST SPZ# ToolPath ELSE IF CallMasterOp? SeqC SubCall CallLabB CallMasterNum# EOL SkipToLastFeat ELSE TrackZNO# FIRST SPZ# IF MasterOp? SetFlag('1') {std sep sub Zreps in effect} NewMasterProg SeqC SubCall CallLab EOL StartSub ToolPath SeqC EndSub EOL CloseSub SetFlagF('1') {not std sep sub Zreps in effect} ELSE ToolPath END END END SetDrillEndOpZ SeqC Rapid 'G80' ZCP3 EOL IF Repeats? {NoNesting} IF MultipleParts? NextRep ELSE FinishSubG92 END SeqC RapidC ZCP3C EOL END END END NextOp {loops back to EachOP until last Operation} {End of program ************************************************************} {finish last operation} IF MultipleParts? AND OneToolAllParts? AND ExitClearancePlane? CloseMP END SeqC CoolOff EOL SeqC IncValue OfstOff EOL IF MultipleParts? AND OneToolAllParts? AND FullUp? CloseMP END DoEndOpPS IF FIRST ToolChangeAtHome? {.71.2 added FIRST modifier} SeqC AbsOrInc Rapid FirstHome SpinOff EOL ELSE SeqC SpinOff EOL END IF ProgStop? SeqC 'M0' EOL END IF MultipleParts? AND AllToolsOnePart? CloseMP END SeqC EOP EOL CloseSub Post2 {organize Subs into one program} EOR 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