Originally Posted by
sodickappsguy
run this program
"( TAPRDATA.NC 02-11-97, KGKI, CALCULATES 3 TIMES THEN AVERAGES.);"
"( THIS PROGRAM CALCULATES THE TABLE TO LIMIT AND TABLE );"
"( TO LOWER VALUES NEEDED FOR ACCURATE TAPER CUTS.);"
"( 1. MEASURE AND ENTER THE SQUARING BLOCK THICKNESS INTO REGISTER H024);"
"( LOCATED FURTHER DOWN IN THIS PROGRAM.);"
"( 2. MAKE SURE THE UPPER HEAD AND ALIGNMENT BLOCK ARE DRIED OFF.);"
"( 3. VERTICALLY ALIGN THE WIRE.);"
"( 4. CLAMP THE VERTICAL ALIGNMENT BLOCK ON THE FRONT RAIL SECURELY,);"
"( WITH THE SLOT IN THE BLOCK FACING THE REAR OF THE MACHINE.);"
"( 5. INDICATE THE BLOCK FLAT AND PARALLEL TO THE Y AXIS.);"
"( 6. JOG THE WIRE INSIDE THE SLOT WITH THE UPPER FLUSH CUP ABOUT);"
"( .250 INCH ABOVE THE BLOCK.);"
"( 7. TURN INCH ON AND DIGIT 0 IN THE SET,TRAVEL SCREEN.);"
"( 8. THE WIRE SHOULD BE RUNNING DURING EXECUTION OF THIS PROGRAM.);"
"( 9. NOW GO TO THE RUN SCREEN,PRESS ENTER TO START THE PROGRAM.);"
"( YOU WILL NEED TO KEYIN 2 VALUES WHEN THE PROGRAM STARTS.);"
'( THE 1ST VALUE WILL BE "0" FOR A POWER Z AXIS MACHINE.);"
"( THE 2ND VALUE WILL BE THE ANGLE YOU WANT TO DO THE MEASURMENT AT.);"
"(10. AT THE END OF THE PROGRAM PRESS OFF, THEN COPY THE VALUES FROM );"
"( H019 AND H023 INTO THE SET PAGE.);"
"H000 = +00025000 (Z SCALE);"
"H001 = +00020000 (ANGLE);"
"H002 = +00000000 (COS OF U MOVE) ;"
"H003 = +00032000 (EST. TU+TL );"
"H004 = +00001117 (U MOVE) ;"
"H055 = +00000112 (X MOVE);"
"H010 = +00000000 (X- TOUCH1);"
"H011 = +00000000 (X+ TOUCH1);"
"H012 = +00000000 (X- TOUCH2);"
"H013 = +00000000 (X+ TOUCH2);"
"H015 = -00025000 ;"
"H016 = +00000000;"
"H017 = +00000000 H018 = +00000000 H020 = +00000000;"
"H056 = +00000001 H057 = +00107405;"
"H025 = +00000000 (POWER Z REFERENCE);"
"H024 = +00023570 (*** ENTER THICKNESS OF BLOCK *** );"
";"
"H019 = +00003488 (AVERAGE TABLE TO LOWER VALUE );"
"H023 = +00112599 (AVERAGE TABLE TO LIMIT VALUE );"
"( T-LOWER T-LIMIT );"
"H030 = +00003462 H031 = +00005162;"
"H040 = +00003496 H041 = +00005171;"
"H050 = +00003505 H051 = +00005248;"
";"
"N1111;"
"G27G09;"
"G59G92XYZUV;"
"G54;"
"H3=3.2000 ( H3 IS APPROX. TOTAL OF TL + TU );"
"H056=0;"
"(FOR A MANUAL Z AXIS,INSERT THE Z VERNIER SCALE READING INTO THE);"
"(PROMPT BELOW AND PRESS ENTER.FOR A POWER Z INSERT 0 AND PRESS ENTER);"
"KEYIN (H000);"
"(INPUT THE TAPER ANGLE YOU WANT TO DO THIS CALCULATION AT AND);"
"(PRESS ENTER. 2.0 DEGREES IS A GOOD ALL AROUND ANGLE.);"
"KEYIN (H001);"
"IF H0=0 (0022,0001);"
";"
";"
"N0001;"
"M98P0011;"
"G59T80;"
"M98P0000 (T-LIMIT PROG);"
"H030=H019;"
"H031=H023;"
"M98P0000;"
"H40=H019;"
"H41=H023;"
"M98P0000;"
"H050=H019;"
"H051=H023;"
"H019=[H030+H040+H050]/3;"
"H023=[H031+H041+H051]/3;"
"G40 H019;"
"G50 A+H023;"
"T81;"
"IF H056=1 (0032,0031);"
"N0031;"
"CRT(TL0 IN OFSET,TLI IN TAPR);"
"M98P1000;"
"M00;"
"M02;"
";"
"N0032;"
"G58G81Z;"
"G83Z057;"
"G92Z0+[H057+H023];"
"G83Z023;"
"G50 A+H023;"
"CRT(TL0 IN OFSET,TLI IN TAPR);"
"M98P1000;"
"M00;"
"M02;"
";"
";"
";"
";"
";"
"N0000 (T-LIMIT PROGRAM);"
"M98P1000 (CLEAR REGISTERS);"
"M98P1001 (G0 TO CENTER OF X);"
"G90G59G80X-;"
"G83X010;"
";"
"G59M05X;"
"G80X+;"
"G83X011;"
"M05X;"
"(G59G92XYUV);"
"G01 M06 U+H004 X-H055;"
"T80;"
"G00;"
"G80X-;"
"G83X012;"
"M05X-.0500;"
"G80X+;"
"G83X013;"
"G01 M06 M05 X0 U0;"
"T80;"
"G00;"
";"
"G92Z-H000;"
"G83Z015;"
"G92Z0;"
";"
"G92Z+[-H012+H013]-[-H010+H011];"
"G83Z016;"
"G92Z;"
"G92Z+[H011-H013];"
"G83Z017;"
"G92Z;"
"G92Z+[[H004*H024 ]/H016];"
"G83Z018;"
"G92Z;"
"G92Z+[[H017*H024 ]/H016];"
"G83Z019;"
";"
"G92Z;"
"G92Z+H018-H019;"
"G83Z020;"
"G92Z;"
"G92Z+H020+H015;"
"G83Z023;"
"G92Z;"
"G92Z+H023;"
"G59G91G00Y.05;"
"G90(G00Z0);"
"M99;"
";"
"N1000 (CLEAR REGISTERS);"
"H002=0 ;"
"H010=0 ;"
"H011=0;"
"H012=0;"
"H013=0;"
"H016=0;"
"H017=0;"
"H018=0;"
"H020=0;"
"M99;"
";"
"N1001;"
"G80X-;"
"G92X;"
"M5X.02;"
"G80X;"
"M5G82X;"
"G92X;"
"M99;"
";"
"N0011 (CALCULATE EST. U OFFSET DIST);"
"G54;"
"G92Z0;"
"G92Z0+[H003/ COS[H001]]*1000;"
"G83 Z002;"
"G92Z0;"
"G92Z0+[H002*SIN[H001]]/1000;"
"G83Z004;"
"G92Z0;"
"H055=H004 *.1/10000 ;"
"M99;"
";"
"N0022 (POWER Z MACHINE REFERECE 1 IN G58);"
"H056=1;"
"(JUMP0120 DELETE);"
"T81;"
"G91G00Y3.0;"
"G81Z-;"
"G58G92Z;"
"G00Z2.5;"
"G00Y-3.0;"
"N0120;"
"G59G90;"
"H000=2.5;"
"JUMP0001;"
";"
";"
";"