{ 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} {8/16/93 Copied & modified: Haas M573.81.3 For: Q Corp Control: Haas Machine: Haas Modified StdLine sub to use a D label and value same as tool number for CRCOffsetC. Not using IncValue OfstOff for ToolChng, still using it for everything else. Jim Radcliffe} {8/19/93, .81.4, changed to First Tool In Spindle format, JR} {8/26/93, .81.5, delete G74 Tapping Cycle, move ProgStop after M06, JR} {9/9/93, .81.6, replaced tool change at first op, JR} {11/14/94, .81.7, changed the arc format to use R's instead of I's and J's, TH} { Format: Haas [QC] M587.81.8 5/23/95 Fixed MasterOp to support Virtual Gibbs v2.20 specs TH} { 10/3/95 Added support for WFO's beyond G59. Now supports G54-G59, G110 - G129 TH} {11/20/95 Initial: Haas [QC] M587.81.9 Created: Haas [QC] M587.85 ForUser: Q Corp Develop: ComPost 4.21.33, Catalyst68K v2.30.18C Comment: Modifications per marked up readout from Kelly Angle Updated to .85 format per Fanuc 6M M001.85.01.03 Commented out select Header Operation and footer comments. Deleted 'N' Tool#. Changed SeqC to Seq at beginning of tools. Putput DoOpComments before ToolChng. Jim Radcliffe} {11/22/95, .85.1, Deleted FromCP command per Kelly at Q Corp, JR} {11/30/95 Initial: Haas [QC] M587.85.1 Created: Haas [QC] M587.85.2 Comment: Changed to IJ format arcs Jim Radcliffe} { Format: Haas [QC] M587.85.4 12/4/95 Turned off Allow R Format Arcs in Form TH} {12/15/95, Fixed OfstOff calls so they now call AbsValue afterwards, TH} {1/17/96, Updated .85 to .86 version, MPK} {3/22/96, Tested ZOnlyRepAutoCycle, Changed version # to .89, MPK} {6/24/97 Updated & Modified: Haas [QC] M587.89 Created: Haas [QC] M587.89.1 For: Q Corp Versions: Catalyst v3.33C/ComPost2 MSL 68K Changes made per Pete Jackson. Updated for Catalyst v3.33C per Fanuc 6M M001.89b Format. Added M001.15 source. Changed FORMAT#2 from ###.###;0. to #####.###;0. at Prog Numeric Format Definitions. Changed FORMAT#3 from *###.###;0. to *#####.###;0. at Prog Numeric Format Definitions. Added TrackZNO# to FORMAT#4 at Prog Numeric Format Definitions. Deleted version comments. Added ckCRC and ckCRCNum subs. Added Flag(6) to test for output of 'D' Tool# at ckCRCNum subs. Allowed me to simplify ToolPath RapidFeat and LineFeat. Modified WorkFixtureOffset logic. Added Flag(2) for WFOStuff at setup and initializations. Added SetFlag(2) for EquallySpacedOffsets at OpenMP sub. Added WFONum sub. Rewrote logic at WFOStuff sub. Added Flag(2) logic at start of EachOp/NextOp Loop. Moved call to WFOStuff from SafeStart block to StrtPos block at FirstOperation and NewTool. Added Rapid AbsOrInc WFOStuff Speed SpinOn to StrtPos block for MP-OTAP-ECP condition at FirstOperation and NewTool. Added SetMaxFeed(12700) for Metric VNC files. Moved Speed SpinOn after MP-OTAP-FU condition at FirstOperation and NewTool. Added Speed SpinOn for MP-OTAP-ECP condition at FirstOperation and NewTool. Modifications: Added ADD# to FORMAT#5 at Prog Numeric Format Definitions. Needed for WFOStuff and OpenMP Formulas. Rewrote ZonlyRepAutoCycle sub. Rewrote IF SameTool? section. IF NOT CoolOff? AND LAST CoolOff? was not working. DWB} {8/21/97 Modified: Haas [QC] M587.89.1 Created: Haas [QC] M587.89.2 For: Q Corp Versions: Catalyst v3.35C/ComPost2 MSL 68K Changes made per Kelly Angle of Q Corp, fax and phone calls. Customer requested G98/G99 for Canned Drill Cycles. Added FromCP to Canned Drill Cycle block at IF Drilling. Undoes modification made on 11/22/95. Moved DoEndOpPS to after SpinOff at end of Prog. Customer requested support of RFormatArcs. According to previous developer notes, this post used to output IJFormatArcs until RFormatArcs modifications to M587.81.6 on 9/9/93. Post was changed back to IJFormatArcs for M587.85.1 on 11/30/95. Customer was using M587.85.1 which output RFormatArcs, but reported that certain situations caused his control to choke forcing him to use M587.81.6 which output IJFormatArcs. Some situations were determined to be Pocketting Operations with CRCOn. Explained our policy recommendations against this and alternative methods of programming Operations. Additional situation was determined to be FullArc with RFormatArcs. Explained that RFormatArcs do not work well with FullArc as ArcCenterPoints could be located at an infinate number of places around the End Point. Checked Allow R-Format Arcs to be TRUE in Mach Spec Arcs Dialog. Changed I-J-R Arc Discrimination from By Maximun Radius to By Maximum Angle in Mach Spec Arcs Dialog. Changed R-Format Maximum Arc Angle from 0.000 to 359.999 in Mach Spec Arcs Dialog. Changed ArcIJC to ArcIJ at FormatArc. Changed ArcRC to ArcR at FormatArc. Customer requested that previous commented out comments be uncommented back in. Undoes modification made on 11/20/95. Comments included OperationComment, FormatNameComment, TimeComment, MovesComment, PartsComment, StartToolComment, FileBytesComment, FileFeetComment and FileMetersComment. DWB} {1/26/99 Initial: Haas [QC] M587.89.2 Created: Haas [QC] PM587.17.3 Created simple 4th positioning post per Fanuc 6M PM001.17.3 MPK} {1/26/99 Initial: Haas [QC] PM587.17.3 Created: Haas [QC] PM587.17.4 Removed ProgID from initOp MPK} {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(ADD#,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 ****} report: IF PalletIn? '------------------------------------' EOL 'Num#(1) xEP = ' Recall# Num#('1') EOL 'Num#(2) yEP = ' Recall# Num#('2') EOL '------------------------------------' EOL END RETURN 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 report END RETURN setSRXYtoACEP: TrackXNO# Recall# Num#('1') { xOpEP } TrackYNO# Recall# Num#('2') { yOpEP } RETURN {Prog Subroutines ****} restoreScale: IF Metric?...
kmex