NC-GPOST Mill Version 6.6 P-14.0, Copyright(c) 2014 Date=10-07-2016 Time=12:09:37 Input File=C:\Users\Jens Nieswandt.ISN1\Documents\ProE\cnc1_test\op010.ncl.205 Post Name=C:\Program Files\PTC\Creo 3.0\M100\Parametric\bin\..\..\Common Files\x86e_win64\gpost\uncx01.p05 Option File=uncx01.p05 Filter File=uncx01.f05 1 NC-GPOST FIL 6.6.WN00 -1 $$ ******************************************************************** -2 $$ * V A R I A B L E S S E C T I O N * -3 $$ ******************************************************************** -4 $$ -5 INCLUD/UNCLAS.V00 -6 $$ GPOST LASER SYSTEM VOCABULARY TABLE -7 $$ DO NOT EDIT THIS FILE, MAKE ALL CHANGES TO UNCMIL.V00 -8 INCLUD/UNCMIL.V00 -9 $$ GPOST MILL SYSTEM VOCABULARY TABLE -10 PPWORD/TLANGL,1 -11 PPWORD/RETURN,7 -12 PPWORD/RTRCTO,7 -13 PPWORD/STEP,66 -14 PPWORD/ABSOL,90 -15 PPWORD/HOLDIA,157 -16 PPWORD/OSETNO,159 -17 PPWORD/BRKCHP,216 -18 PPWORD/HED,238 -19 PPWORD/OFSETL,275 -20 PPWORD/DWELL,279 -21 PPWORD/FEDTO,281 -22 PPWORD/DEPTH,281 -23 PPWORD/CLEAR,280 -24 PPWORD/RAPTO,280 -25 PPWORD/INCH,303 -26 PPWORD/CORNER,403 -27 PPWORD/DIAMET,157 -28 PPWORD/OFSTNO,1074 -29 PPWORD/CALSUB,3150 -30 PPWORD/DEFSUB,3151 -31 PPWORD/ENDSUB,3152 -32 PPWORD/VERIFY,3153 -33 PPWORD/3DCOMP,3155 -34 PPWORD/BACK,3156 -35 PPWORD/PNT,3157 -36 PPWORD/CALIB,3158 -37 PPWORD/PROTCT,3159 -38 PPWORD/SCAN,3160 -39 PPWORD/PERMIN,3161 -40 PPWORD/RCTNGL,3162 -41 PPWORD/XDIM,3163 -42 PPWORD/YDIM,3164 -43 PPWORD/ROUND,3165 -44 PPWORD/XDIST,3166 -45 PPWORD/YDIST,3167 -46 PPWORD/DIST,3168 -47 PPWORD/CUTS,3169 -48 PPWORD/FINCUT,3170 -49 PPWORD/TLAXIS,3171 -50 PPWORD/PROBE,3172 -51 PPWORD/WIRE,3173 -52 PPWORD/UNLOAD,3174 -53 PPWORD/DIPM,3175 -54 PPWORD/TORCH,3176 -55 PPWORD/APPLY,3177 -56 PPWORD/PIERCE,3178 -57 PPWORD/YDIR,3179 -58 PPWORD/XDIR,3180 -59 PPWORD/FLAME,3181 -60 PPWORD/PUNCH,3182 -61 PPWORD/CLDIST,3183 -62 PPWORD/SYNCTR,3184 -63 PPWORD/UPPER,3185 -64 PPWORD/LOWER,3186 -65 PPWORD/FLUSH,3187 -66 PPWORD/GENRTR,3188 -67 PPWORD/CONST,3189 -68 PPWORD/WATTS,3190 -69 PPWORD/LASER,3191 -70 PPWORD/DELAY,3192 -71 INCLUD/UNCLAS.S00 -72 $$ GPOST LASER SYSTEM STARTUP FILE -73 -74 $$ ******************************************************************** -75 $$ * V A R I A B L E S S E C T I O N * -76 $$ ******************************************************************** -77 $$ -78 REDEF/ON -79 $$ ADDRESSES -80 A=1;B=2;C=3;D=4;E=5;F=6;G=7;H=8;I=9;J=10;K=11;L=12;M=13;N=14 -81 O=15;P=16;Q=17;R=18;S=19;T=20;U=21;V=22;W=23;X=24;Y=25;Z=26 -82 -83 $$ FOR ABRASIVE ON/OFF -84 JETSW=0 $$ DEFAULT 0 OFF -85 -86 -87 $$ ******************************************************************** -88 $$ * A L I A S S E C T I O N * -89 $$ ******************************************************************** -90 $$ -91 -92 $$ CL RECORD MANIPULATION -99 -100 -101 $$ SIMULATION -104 -105 $$ ******************************************************************** -106 $$ * M A C R O S S E C T I O N * -107 $$ ******************************************************************** -108 $$ -109 $$ ******************************************************************** -110 $$ * C I M F I L S E C T I O N * -111 $$ ******************************************************************** -112 -113 -114 $$ ************************************************************* MACHIN -115 CIMFIL/ON,MACHIN -116 DMY=POSTF(13) -117 $$ MACHINE STARTUP -118 $$ -119 $$ -120 $$ END MACHINE STARTUP -121 CIMFIL/OFF -122 -123 -124 $$ ************************************************************* CUTCOM -125 CIMFIL/ON,CUTCOM -126 $$ -127 $$ THIS FIL IS USED TO SET A DEFAULT DIAMETER OFFSET NUMBER -128 $$ -129 SETV=POSTF(7,4) $$ GET THE 4TH CL WORD -130 SETT=POSTF(6,4) $$ GET THE TYPE OF THE 4TH CL WORD -131 NBEL=POSTF(5) $$ NUMBER OF WORD -132 IF(SETT.EQ.0.AND.SETV.NE.(ICODEF(OFF)).AND.NBEL.EQ.4)THEN -133 $$ DEFAULT OFFSET NUMBER TO CURRENT TOOL NUMBER -134 DMY=POSTF(10,5,(POSTF(1,3,497))) -135 $$ CHANGE NUMBER OF ARGUMENT -136 DMY=POSTF(12,5) -137 ENDIF -138 $$ EXECUTE THE CURRENT RECORD (MODIFIED OR NOT``) -139 DMY=POSTF(13) -140 CIMFIL/OFF -141 -142 -143 $$ ************************************************************* LOADTL -144 CIMFIL/ON,LOADTL -145 $$ IGNORE -146 CIMFIL/OFF -147 -148 $$ ************************************************************* COOLNT -149 CIMFIL/ON,COOLNT -150 $$ IGNORE -151 CIMFIL/OFF -152 -153 $$ ************************************************************* SPINDL -154 CIMFIL/ON,SPINDL -155 $$ IGNORE -156 CIMFIL/OFF -157 -158 $$ ************************************************************** RAPID -159 CIMFIL/ON,RAPID -160 $$ STOP ABRASIVE -161 DMY=POSTF(13) -162 IF (JETSW .EQ. 1) THEN $$ IF THE WATER IS ON -163 AUXFUN/11 $$ GARNET -164 INSERT/'G04P3.0$' -165 AUXFUN/9 $$ WATER -166 INSERT/'G04P1.0$' -167 INSERT/'G00 Z50.0$' -168 JETSW=0 -169 ENDIF -170 CIMFIL/OFF -171 -172 $$ ************************************************************* FEDRAT -173 CIMFIL/ON,FEDRAT -174 $$ START ABRASIVE -175 DMY=POSTF(13) -176 IF (JETSW .EQ. 0) THEN -177 JETSW=1 -178 INSERT/'G00 Z5.0$' -179 INSERT/'G01 Z0.0 F200.0$' -180 AUXFUN/8 $$ WATER -181 INSERT/'G04P2.0$' -182 AUXFUN/10 $$ GARNET -183 INSERT/'G04P4.0$' -184 ENDIF -185 CIMFIL/OFF -186 -187 -188 -189 $$ ************************************************************* PPRINT -190 CIMFIL/ON,PPRINT -191 $$ -192 $$ MACRO ON PPRINT TO IGNORE PPRINT -193 $$ WITH THE WORD COMMENTS -194 $$ -195 MESS=TEXT/CLW -196 COM=TEXT/'COMMENTS' -197 RSLT=INDXF(MESS,COM) -198 IF (RSLT.EQ.0) THEN -199 $$ PROCESS THE PPRINT -200 PPRINT/MESS -201 ENDIF -202 CIMFIL/OFF -203 -204 -205 $$ ************************************************************* FINI -206 CIMFIL/ON,14 -207 $$ END OF PROGRAM -208 DMY = POSTF(20) $$ SAVE CURRENT CL RECORD -209 $$ MACHINE SHUTDOWN -210 $$ -211 END -212 $$ -213 $$ END MACHINE SHUTDOWN -214 DMY = POSTF(21) $$ RECALL SAVED RECORD -215 DMY = POSTF(13) $$ PROCESS -216 CIMFIL/OFF -217 INCLUD/UNCLAS.F00 -218 $$ **************************************************** -219 $$ * SYSTEM LASER FIL * -220 $$ **************************************************** -221 -222 PRINT/OFF,IN $$ USE FOR PRODUCTION 1 1>PARTNO / MFG0001 2>MACHIN/,5 8>UNITS/MM 10>RAPID 1 NC-GPOST Mill UNCX01 6.6.WN00 P-14.0 BUILD=0233 MACHIN/UNCX01, 5 DATE: 10/ 7/2016 PAGE 1 5-AXIS Plama Cuter Mach3 Nieswandt / MFG0001 ( MM ) INPUT CLREC N4G2X43Y43R43C43B33I43J43K43F42S4M2D43H2T5 X Y C B F 10 10 $ / MFG0001 10 10 O3 10 10 N10 (Date:10/07/16 Time:12:09:39)$ 10 10 N20 (copy right by ISN Dipl.-Ing. Jens Nieswandt) 10 10 N30 G00G21G40G90G80G94G17G54 10 10 N40 G00 Z50.0 11>GOTO /100,29.25,0 11 11 N50 G00 X100.0 Y29.25$ 100.000 29.250 12>PIERCE/ON,CONST 12 12 ***WARNING*** INVALID MAJOR WORD - PIERCE, IGNORED 13>CUTCOM/LEFT,0 13 13 N60 G41 D0$ 14>FEDRAT/12000,MMPM 14>INSERT G00 Z5.0$ G00 Z5.0$ 14 14 N70 G00 Z5.0$ 14>INSERT G01 Z0.0 F200.0$ G01 Z0.0 F200.0$ 14 14 N80 G01 Z0.0 F200.0$ 14>AUXFUN/8 14 14 N90 M08$ 14>INSERT G04P2.0$ G04P2.0$ 14 14 N100 G04P2.0$ 14>AUXFUN/10 14 14 N110 M10$ 14>INSERT G04P4.0$ G04P4.0$ 14 14 N120 G04P4.0$ 16>ARCDAT/90,29.25,0,0,0,1,10 17>GOTO /90,39.25,0 17 18 N130 G03 X90.0 Y39.25 I-10.0 J0.0 F2000.0$ 90.000 39.250 18>FEDRAT/800,MMPM 19>GOTO /39.25,39.25,0 19 19 N140 G01 X39.25 F800.0$ 39.250 20>DELAY/DWELL,1.33 20 20 ***WARNING*** INVALID MAJOR WORD - DELAY , IGNORED 21>GOTO /39.25,140.75,0 21 21 N150 Y140.75$ 140.750 22>DELAY/DWELL,1.33 22 22 ***WARNING*** INVALID MAJOR WORD - DELAY , IGNORED 23>GOTO /140.75,140.75,0 23 23 N160 X140.75$ 140.750 24>DELAY/DWELL,1.33 24 24 ***WARNING*** INVALID MAJOR WORD - DELAY , IGNORED 25>GOTO /140.75,39.25,0 25 25 N170 Y39.25$ 39.250 26>DELAY/DWELL,1.33 26 26 ***WARNING*** INVALID MAJOR WORD - DELAY , IGNORED 0 TAPE TIME WARNING PAGE 1.31 .45 5 TOTAL 1.31 .45 5 1 NC-GPOST Mill UNCX01 6.6.WN00 P-14.0 BUILD=0233 MACHIN/UNCX01, 5 DATE: 10/ 7/2016 PAGE 2 5-AXIS Plama Cuter Mach3 Nieswandt / MFG0001 ( MM ) INPUT CLREC N4G2X43Y43R43C43B33I43J43K43F42S4M2D43H2T5 X Y C B F 27>GOTO /90,39.25,0 27 27 N180 X90.0$ 90.000 28>FEDRAT/12000,MMPM 30>ARCDAT/90,29.25,0,0,0,1,10 31>GOTO /80,29.25,0 31 32 N190 G03 X80.0 Y29.25 I0.0 J-10.0 F2000.0$ 80.000 29.250 32>CUTCOM/OFF 32 32 N200 G40$ 33>PIERCE/OFF 33 33 ***WARNING*** INVALID MAJOR WORD - PIERCE, IGNORED 34>END 34>FINI 34 34 N210 M11 34 34 N220 G04P3.0 34 34 N230 M09 34 34 N240 G04P1.0 34 34 N250 G00 Z50.0 34 34 N260 G90 34 34 N270 G00 X0.0 Y0.0 Z150.0 34 34 N280 M02 0 TAPE TIME WARNING PAGE 1.87 .06 1 TOTAL 3.18 .52 6 1 NC-GPOST Mill UNCX01 6.6.WN00 P-14.0 BUILD=0233 MACHIN/UNCX01, 5 DATE: 10/ 7/2016 PAGE 3 5-AXIS Plama Cuter Mach3 Nieswandt / MFG0001 ( MM ) INPUT CLREC N4G2X43Y43R43C43B33I43J43K43F42S4M2D43H2T5 X Y C B F X-AXIS Y-AXIS Z-AXIS POST-MINIMUM 10.0000 10.0000 .0000 POST-MAXIMUM 140.7500 140.7500 30.0000 TAPE-MINIMUM 39.2500 29.2500 .0000 TAPE-MAXIMUM 140.7500 140.7500 .0000 A-AXIS B-AXIS C-AXIS POST-MINIMUM .0000 .0000 .0000 POST-MAXIMUM .0000 .0000 .0000 TAPE-MINIMUM .0000 .0000 .0000 TAPE-MAXIMUM .0000 .0000 .0000 Date=10-07-2016 Time=12:09:40