G32 swiss threading....

[geach73]

Im new to the fourm and have been a cnc machinist for a long time. Love to do it. Right now ive been asked at my job to program a macro for a thread that can segmate or blend at incrementing lengths on a swiss turn Citizen A20 With funac programming format. I know you have to use a G32 for this to acheave spindle syncronation with the feed. I need some rules as to how the G32 works could I say start at the normal starting points as I use for any other thread cycle x=(major dia+single depth*2) z=-(lead*4)or.250 which ever is greater ? Can I make each pass at 29 deg down the thread and 29 deg out of the thread ? Im kinda confused as to how the endpoint of the thread is cut for blending the next section of thread. Please help thanks Gary

[txcncman]

I am not sure if I understand what you are asking, but it seems like you just need to thread a section at a time. First thread will be from Z0. to Z-.25. Second from Z-.35 to Z-.5. And so on. I do not see that the calculations should be that difficult. Diagram it out on CAD and the substitute variables in the appropriate places.

[g-code_junkie]

If you have Win-Cnc ,under the the threading program section is a application that will write you the turn ,thread, turn code you are looking for by filling in the required information.
Good luck

[geach73]

We have win cnc but the whole reason for a macro is making the memory and programming easier for a less experianced operator. My question is actually rules for how g32 works not caculating each path. your right the math isnt that diffacult but when you are trying to write a macro that threads and gradually decreses on each cut and never wroth one quite like it before questions is the olny way to make that happen.

[geach73]

Here is actually the copy of my program. I belive it all makes sence and should work. Please if anyone can see any problems with it let me know. Thanks. Gary
citizen a20 funac equiped controller.......


%
O1234;
#229=4 (# OF SEGMENTS);
#209=.450 (SEGMENT LENGTH);
;
#228=1;
WHILE[#228 LT #229] D01;
#200=.050 (LEAD);
#201=.250 (MAJOR DIA);
#202=.034 (SINGLE DEPTH);
#205=.010 (1 ST PASS DEPTH);
#207=.0015(FIN PASS DEPTH);
#227=2 (# OF SPRING PASSES);
#216=10 (DECRESE % AMOUNT);
;
N1 (TURN 1ST SEGMENT LENGTH);
T500;
M03 S1=1000;
G00 X#201+.050 Z-.05 T05;
G50 S3000;
G96 S250;
G99;
G71 U.050 R.025;
G71 P110 Q120 U.020 W.005 F.008;
N110 G00 X#201-[#202*3];
G01 Z0.0 F.006;
X#201 Z[#202*3]/2;
Z#209;
N120 X#201+.050 ;
G70 P110 Q120;
G80;
G00X#201+.050 Z-.050 T0;
M09;
M05;
M01;
;
N2(THREAD SEGMENT);
T0400;
M03 S1=500;
G00 X#201+[#202*2] Z0.0 T04;
;
(MATH FOR LOOPING AND DECREASING VALUES);
#203=[#202+#202]*[29]TAN;
#204=[#202+#205]*[29]TAN;
#206=#205*[29]TAN;
#210=#202*[29]TAN;
#222=#202;
;
(APROACH POINT);
X#201+[#202*2];
W-#203+[#200*4];
;
(ROUGHING PASSES);
WHILE[#222 GT #207] D02;
#203=#203-#206;
G99;
G32 U-[#202+#205]*2 W#204 F#200;
Z[#209-[#210*2]]+#206;
U#202*2 W#210;
G00 Z-[#200*4]+#203;
;
(SUBTRACT PASS FROM SINGLE DEPTH FOR LOOPING);
#222=#222-#205
;
(CACULATE DEPTH OF CUT AND NEXT X,Z MOVES);
#215=[#216/100]*#205;
#205=#205-#215;
#206=#205*[29]TAN;
#204=[#202+#205]*[29]TAN;
END2;
;
(FINISH PASSES);
(CONSTANTS FOR FINISH CYCLES)
#231=#201;
#232=#202;
#235=#205;
#237=#207;
#230=1;
N100 G32 U-[#232+#207]*2 W#210+[#207*[29]TAN] F#200;
Z#209-#210;
U[#232+#207]*2 W#210+[#207*[29]TAN];
G00 Z-[#210+[#207*[29]TAN]+[#200*4];
#230=#230+1;
IF[#230 GT #227] GOTO200;
GOTO100;

N200 #228=#228+1;

IF[#228 GT #229]GOTO300;
G50 W-#209;
END1;

G50 W#209*#229;
N300 (END LAST SEGMENT);
GOO X#201+[#202*4] M09;
M05;
M30;
%