{ MILL=T LATHE=F SIMPLE_ROT_POS=T ROTARY_MILL=F ADV_MILL=F SUBS=T MILLTURN_Y-AXIS=F METRIC=F } {Change Comments ***********************************************************} {5/20/93 Copied & modified: Fanuc 10M M008.81.2 For: Haas Automation Combined OpToolID and ToolChng on one block at FirstOperation and NewTool. Combined WFOStuff Speed SpinOn AbsOrInc Rapid StrtPos and OfstOn on one block at FirstOperation, NewTool and SameTool. Added CkCRC sub to cancel CutterRadiusCompensation on LastFeature of ToolPath. Added literal 'G74' for Left-Handed Tapping at Drilling. Moved Canned Drill Cycle Block to Main Program when Repeats = TRUE at Drilling. Main program will output the Canned Drill Cycle, and the SubPrograms will contain only the positions from the second feature on. DWB} {8/2/93 Modified: Haas M573.81.2 For: Haas Automation Changes made per visit with Harold Moon at Haas Automation. Added ProgramName$ to SubID block at StartSub. Added blank lines between subs. Deleted RepLab OnePart at OpenMP. Moved Rapid, Feed and Connect Commands to be output in front of AbsOrInc on same block. Deleted colons from all Comments. Deleted Spaces following '(, and preceeding )' from ProgramNameComment at FirstOperation. Changed Seq to 'N' Tool# EOL at FirstOperation and NewTool, output on block by itself. Changed Safe Start block from G17G80G40 to G0G90G54G40G80G17 at FirstOperation and NewTool. Changed StrtPos block from WFOStuff Speed SpinOn AbsOrInc Rapid StrtPos OfstOn to Rapid AbsOrInc WFOStuff StrtPos Speed SpinOn at FirstOperation and NewTool. Added PlaneC to StrtPos block at NewTool. Moved OfstOn to beginning of CoolOn block at FirstOperation and NewTool. Changed WFOStuff PlaneC AbsOrInc Rapid to Rapid AbsOrInc WFOStuff PlaneC at SameTool StrtPos block. Added IF RetractToCP1 boolean at SameTool. This is to force output of ZCP1 or ZCP2 for Drilling. Changed RapidC ZCP3C to Rapid ZCP3 at Drilling. Moved 'G80' to Rapid ZCP3 at Drilling. Added literal 'M19', Spindle Orient, at OfstOff block at end of Prog. Added MasterOp/CallMasterOp PostScript Command support for Drilling. Routines have been added to call previously created subroutines. Added MasterOpF and CallMasterOpF at PSInit. Added PostScript Comments regarding MasterOp and CallMasterOp Commands. Added support of MasterOp and CallMasterOp Commands at Drilling. Added FORMAT for Recall# to output called sub. DWB} {10/22/96 Updated & Modified: Haas M573.81.3 Created: Haas M573.85 For: Haas Automation Versions: ncCad 4.33.02/ncCAM 4.33.01/ncPost 4.33.10/Compost 4.21.37/v1.0b3 Changes made per visit with Mike at Haas Automation. Updated for Catalyst v3.09C per Fanuc 6M M001.85 Format. Changed FORMAT#2 from '###.###;0.' to '###.###;0' at Prog Numeric Format Definitions. Changed FORMAT#3 from '*###.###;0.' to '*###.###;0' at Prog Numeric Format Definitions. Changed FORMAT#4 from '####.####;0.' to '####.####;0' at Prog Numeric Format Definitions. Added DoToolComment sub. Contains ToolComment from DoOpComments sub. Called from OpToolID ToolChng block at FirstOperation and NewTool. Added DoProgramComment sub. Called at StartSub. Added FeedEntC for SameTool Operations at EntryMove sub. Commented out ResetCRCNum at ToolPath sub. Customer only wants it output when it changes. Added condition at DoOpComments for partial output only at FirstOperation or NewTool. Added CkCoolOff sub. Outputs CoolOff at ZCP3 when needed. Called at end of IF Milling and IF Drilling. Moved SafeStart block prior to 'N' Tool# EOL block at FirstOperation. Added condition to output CoolOn in Sub for MultipleParts OneToolAllParts ExitClearancePlane at FirstOperation and NewTool. Due to CoolOff at ZCP3, it is necessary to make sure that CoolOn is output for additional parts. Deleted CoolOff at NewTool, SameTool and end of Prog. Added 'M19', Spindle Orient at OfstOff block at NewTool and end of Prog. Deleted SpinOff at NewTool and end of Prog. Added blank line prior to 'N' Tool# EOL block at NewTool. Deleted SafeStart block at NewTool. Added PlaneC to StrtPos block at NewTool. Changed Rapid to RapidC three places at SameTool. Deleted AbsoOrInc three places at SameTool. Added 'G28Y0', Bring Table Forward, prior to EOP block at end of Prog. DWB} {15Dec98 Original: Haas M573.85 Created: Haas PM573.17 For: CFM Added Post Header Comment at the top of Prog. Updated to Simple Positioning, Rotary MIll Post, per Fanuc 6M PM001.17.1 Charles Winston} {12/23/98 Updated & Modified: Haas PM573.17 Created: Haas PM573.17.3 For: CFM Versions: Virtual 5.03/ComPost2 1.7b11 Updated for Catalyst v5.03 per Fanuc 6M PM001.17.2 Format. Deleted FIRST modifier at two places doSepSubContour. Deleted FIRST modifier at setSepSubZ. Deleted FIRST modifier at drillingOp. Deleted Rotations? condition at doSepSubSPMove. Deleted ZCP3 at doSepSubExit. Modified for non-AutoCycle. Deleted NOT Rotations? condition at zonlyRepAutoCycle. Moved resetSepSubSR at zonlyRepAutoCycle. Deleted FeedConnect? AND Rotations? condition at zonlyRepAutoCycle. Also Rapid ZCP3. Moved resetSepSubSR at zonlyRep. Added ELSE condition for TrackZNO# ClearancePlane3# at zonlyRep. Deleted LastRotation at end of rotaryReps. Added Tracking at end of rotaryReps. Deleted report sub. Added IF NOT FirstCondition at wfoStuff. Added condition for SetInc at setAngleUnder360. Moved ckCRC in front of RapidC at tpRapidFeat. Commented out ResetCRCNum at toolPath. Rewrote end of millingOp. Rewrote end of drillingOp. Moved DrillOff in front of Rapid at drillingOp. Moved DrillOff in front of Rapid at rotaryReps. Deleted IF ToolChangeAtHome? at initOp. DWB} {Prog Numeric Format Definitions ****} #1 = '#.00' #2 = '#####.###;0' #3 = '*#####.###;0' #4 = '####.####;0' #5 = '#######0' #6 = '####^##0' #7 = '#' FORMAT(FileFeet#,1) FORMAT(FileMeters#,1) FORMAT(TrackC#,3) FORMAT(TrackCNO#,3) FORMAT(MoveC#,3) FORMAT(UnitAngle#,3) FORMAT(Recall#,4) FORMAT(ADD#,4) FORMAT(ToolDiameter#,4) FORMAT(TrackXNO#,4) FORMAT(TrackYNO#,4) FORMAT(TrackZNO#,4) FORMAT(TRUNC#,5) FORMAT(Program#,5) FORMAT(Program2#,5) FORMAT(CallMasterNum#,5) FORMAT(Operation#,5) FORMAT(Tool#,5) FORMAT(NewWFO#,5) FORMAT(Parts#,5) FORMAT(Dwell#,6) FORMAT(RapidF#,7) {Added Subroutines ****} resetSP: {update to the correct StartPos} IF Rotations? OR Repeats? OR AutoCycle? IF AbsValue? TrackXNO# SPX# TrackYNO# SPY# ELSE SetAbs TrackXNO# SPX# TrackYNO# SPY# SetInc END END RETURN saveEP: {save the correct EndPos} IF PointFeat? IF AutoCycle? SetACSPCompF Save# Num#('1') ADD# Recall# Num#('1') SPX# { xOpEP } Save# Num#('2') ADD# Recall# Num#('2') SPY# { yOpEP } SetACSPComp ELSE Save# Num#('1') SPX# { xOpEP } Save# Num#('2') SPY# { yOpEP } END ELSE Save# Num#('1') EPX# { xOpEP } Save# Num#('2') EPY# { yOpEP } END RETURN getEP: {save the correct EndPos} IF Rotations? OR Repeats? OR AutoCycle? IF AbsValue? saveEP ELSE SetAbs saveEP SetInc END END RETURN setSRXYtoACEP: TrackXNO# Recall# Num#('1') { xOpEP } TrackYNO# Recall# Num#('2') { yOpEP } RETURN {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 wfo: 'G' NewWFO# RETURN wfoStuff: IF NewWFO? IF MultipleParts? AND WorkFixtureOffsets? EOL '*** WARNING *** DO NOT USE NEWWFO() WITH MULTIPLE PARTS AND WORK FIXTURE OFFSETS' EOL ELSE wfo END ELSE IF Flag?('2') { Need to output wfoStuff twice for MP-ESO-OTAP-ECP, once for all others } IF NOT SameTool? IF MultipleParts? IF WorkFixtureOffsets? WFO1 ELSE wfo END ELSE wfo END END END END IF NOT FirstOperation? SetFlagF('2') { Do not output WFO second time wfoStuff is called for MP-WFO-OTAP-ECP } END RETURN doSubComment: IF UseComments? AND SubComment? '( SUB NUMBER ' Program# ' )' EOL END RETURN doOpComments: IF UseComments? SetScale('1') IF FirstOperation? OR NewTool? IF OperationIDComment? '( OPERATION ' Operation# ' ' OperationType$ ' )' EOL END END IF OperationComment? '( ' OperationComment$ ' )' EOL END IF FirstOperation? OR NewTool? IF WorkGroupComment? '( ' WorkGroupComment$ ' )' EOL END IF ToolTypeComment? '( TOOL ' Tool# ' ' ToolDiameter# ' ' ToolType$ ' )' EOL END END restoreScale END RETURN doToolComment: IF UseComments? SetScale('1') IF ToolComment? '( ' ToolComment$ ' )' EOL END restoreScale END RETURN doProgramComment: IF UseComments? IF ProgramNameComment? '(' ProgramName$ ')' END END RETURN psInit: NewWFOF FourthCWF FourthCCWF RotateF OptCyc1F MasterOpF CallMasterOpF RETURN psStuff: IF FifthCW? FORMAT(FifthDegree#,2) SeqC 'B' FifthDegree# EOL FifthCWF END IF FifthCCW? FORMAT(FifthDegree#,3) SeqC 'B' FifthDegree# EOL FifthCCWF END RETURN doPostScript: psInit EachPS SeqC PostScript EOL psStuff NextPS RETURN doEndOpPS: psInit EachEOPS SeqC EndOpPS EOL psStuff NextPS RETURN absValueC: IF NOT AbsValue? AbsValue END RETURN incValueC: IF AbsValue? IncValue END RETURN absOrIncC: IF AbsoluteMoves? absValueC ELSE incValueC END RETURN setAngleUnder360: {sets status register and machine to current rotary position between -360 and 360 deg} ...
kmex