sodick taper program

[cinomarra]

hi guys,
i'm trying to wire a simple internal taper in a 1"thick pc.bottom dia .513,top dia 1.048".the problem is the bottom dia comes out good while top dia is approx. .028"small.
here is the progam
TP0
TN1.0
G0 G90 G54 X0 Y0
T91{THREAD)
T84(HI PRESSURE)
C001
H001
G141
G1 X.200 Y0.:G1 X.200 Y0.
X.256 Y0.:X.524 Y0
G03 I-.256:G03 I-.524
G1X .100 Y0.:G1 X.100 Y0.
G140 X0 Y0
M2
any info as to whats wrong is appreciated
thanks
tom

[sodickappsguy]

have you ran the program LNTPRDAT? Your program looks good as far as code. Sometimes the machines will give errors if the arc is just one line but if you are getting a circle that shouldnt be an issue. I would say your table to limit and table to lower is not right. Copy and paste the program below into notepad and make it a .nc file. Use the Squaring block that came with the machine. Make sure nothing is on the table. Also make sure your wire tension is set to the proper level when you run this program.

( LNTPRDAT );
( RECORD THE ORIGINAL TABLE TO LIMIT AND TABLE TO LOWER BEFORE YOU BEGIN!);
( THIS PROGRAM CALCULATES THE TABLE TO LIMIT AND TABLE TO LOWER VALUES NEEDED);
( FOR ACCURATE TAPER CUTS.) ;
( DO NOT RUN THE PROGRAM WITH ANY OTHER PART IN THE MACHINE)
( 1. SQUARE THE WIRE.);
( 2. MEASURE AND ENTER YOUR SQUARING BLOCK THICKNESS INTO REGISTER H024,);
( LOCATED FURTHER DOWN IN THIS PROGRAM.);
( 3. CLAMP THE VERTICAL ALIGNMENT BLOCK ON THE FRONT RAIL RIGHT SIDE SECURELY,);
( WITH THE SLOT IN THE BLOCK FACING THE REAR OF THE MACHINE.);
( 4. INDICATE THE BLOCK FLAT IN X AND Y AXIS AND PARALLEL TO Y.);
( 5. JOG THE WIRE AT LEAST HALF WAY INTO THE SLOT WITH THE UPPER FLUSH CUP ;
( ABOUT.250 ABOVE THE BLOCK.);
( 6. THIS PROGRAM IS TO BE RUN IN INCH NOT METRIC.);
( 7. THE WIRE SHOULD BE RUNNING DURING EXECUTION OF THIS PROGRAM.);
( 8. CAUTION: WHEN THE PROGRAM STARTS THE WIRE MOVES BACK AND THE HEAD GOES) ;
( DOWN. MAKE SURE THE HEAD OR WIRE TIP UNIT DOESNT HIT ANYTHING MOUNTED);
( TO THE TABLE);
( 9. GO TO THE RUN SCREEN AND PRESS ENTER TO START THE PROGRAM.);
(10. THE PROGRAM WILL STOP AND YOU MUST KEYIN THE ANGLE YOU WANT TO DO THIS) ;
( TEST AT.);
(11. THE NEW TABLE TO LIMIT AND TABLE TO LOWER VALUES WILL SET AUTOMATICALY);
( INTO THE SET PAGE, WHEN COMPLETED.);
;
H024 = + 00002.36200 (*** ENTER THICKNESS OF YOUR SQUARING BLOCK *** );
H000 = + 00000.00000 (Z SCALE) ;
H001 = + 00005.00000 (TEST ANGLE) ;
H002 = + 00000.00000 (COS OF U MOVE) ;
H004 = + 00000.85744 (U MOVE) ;
H055 = + 00000.42872 (X MOVE) ;
H010 = + 00000.00000 (X- TOUCH1) ;
H011 = + 00000.00000 (X+ TOUCH1) ;
H012 = + 00000.00000 (X- TOUCH2) ;
H013 = + 00000.00000 (X+ TOUCH2) ;
H015 = - 00002.50000 ;
H016 = + 00000.00000 ;
H017 = + 00000.00000 ;
H018 = + 00000.00000 ;
H020 = + 00000.00000 ;
H056 = + 00000.00000 ;
H057 = + 00008.81889 ;
H025 = + 00000.00000 (POWER Z REFERENCE) ;
H019 = + 00000.00000 (AVERAGE TABLE TO LOWER VALUE ) ;
H023 = + 00000.00000 (AVERAGE TABLE TO LIMIT VALUE ) ;
( T-LOWER AND T-LIMIT VALUES ) ;
H030 = + 00000.14365 ;
H031 = + 00000.01427 ;
H040 = + 00000.14478 ;
H041 = + 00000.01408 ;
H050 = + 00000.14471 ;
H051 = + 00000.01454 ;
;
H003 = + 00003.20000 (EST. TU+TL ) ;
;
N1111;
G27G09;
FLAG3D1000;
FLAG4D0;
G59G92XYZUV;
G54;
H056=0;
H0=0;
;
;
CRT(ENTER TEST ANGLE);
(INPUT THE TAPER ANGLE YOU WANT TO DO THIS CALCULATION AT AND);
(PRESS OK. 2.0 DEGREES IS A GOOD ALL AROUND ANGLE.);
KEYIN (H001);
CRT();
M98P0011;
IF H0=0 (0022,0001);
;
;
N0001;
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;
M98P1000;
G54;
TZ[H23];
TL[H19];
M02;
;
N0032;
G58G81Z;
G83Z057;
G92Z0+[H057+H023];
G83Z023;
M98P1000;
G54;
TZ[H23];
TL[H19];
M02;
;
;
;
;
;
N0000 (T-LIMIT PROGRAM);
M98P1000 (CLEAR REGISTERS);
M98P1001 (G0 TO CENTER OF X);
T80;
G90G59G80X-;
G83X010;
G59M05X;
T80 ;
G80X+;
G83X011;
M05X;
T80;
G01 M06 U+H004 X-H055;
G00;
T80 ;
G80X-;
G83X012;
M05G00 X-.0500;
T80 ;
G80X+;
G83X013;
T80 ;
G01 M06 M05 X0 U0;
G00;
T81;
H15=-H0;
H16=[-H012+H013]-[-H010+H011];
H17=[H011-H013];
H18=[[H004*H024 ]/H016];
H19=[[H017*H024 ]/H016];
H20=H018-H019;
H23=H020+H015;
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 (CENTER X AXIS);
T80;
G80X-;
G92X;
M5X.02;
T80;
G80X;
M5G82X;
G92X;
M99;
;
N0011 (CALCULATE EST. U OFFSET DIST);
G54;
G92Z0;
H2=[H003/ COS[H001]]*1.00;
H4=[H002*SIN[H001]]/1.00;
H55=H004 *.5/1.000 ;
M99;
;
N0022 (POWER Z MACHINE REFERECE 1 IN G58);
H056=1;
(JUMP0120 DELETE);
T81;
G91G00Y6.0;
G81Z-;
G58G92Z;
G00Z2.5;
G00Y-6.0;
N0120;
G59G90;
H000=2.5;
JUMP0001;
;
;
;
(CONFIRM STRING FILE G80:T80G80 CANNOT HAVE REVERSED G80:G80T80 AS THIS);
(CAUSES THE ALARM CONTACT DETECTION);

[Palisadetool]

Hello sodickappsguy. I was reading the instructions on that taper program you posted. When you say the head will go down I assume this program is for an automatic Z axis machine. Is that correct? Will that program run in a 320D with a sodick EX21 power supply and only the manual Z axis control ?
Regards
palisadetool

[sodickappsguy]

no this program is for machines that have an active Z.