Helical interpolation loop calculation

%
 
N400
(LOOP FUNCTION)
(FOR EXAMPLE CROSSHOLE HELICAL MILLING)
G28U0.V0.
G30W0. 
T0505
G19
#110=5.(STARTPOINT IN X) 
#111=4.625(ENDPOINT IN X)
#112=.15(BACK OFF FROM BOTTOM FOR REDUCED FEED)
#113=.05(FEED PER HELICAL REVOLUTION)
#114=.02(FEED PER HELICAL REVOLUTION AT BOTTOM)
#115=.75(TOOL DIAMETER)
#116=1.(DIAMETER OF HOLE)
#117=20.(FEEDRATE) 
#118=10.(REDUCED FEEDRATE AT BOTTOM) 
 
(#119 = ENDPOINT IN X WITH OR WITHOUT BACKING OFF AT BOTTOM) 
IF[#112EQ0]THEN#119=#111 
IF[#112GT0]THEN#119=[#111+2*#112]
 
#120=FUP[[#110-#119]/2/#113](NO. OF LOOPS) 
#121=[#110-#119]/2/#120(CALCULATED FEED PER HELICAL REVOLUTION)
 
(#122 ROUNDING MIGHT NOT BE NECESSARY) 
#122=[[ROUND[#121*10000]]/10000](ROUNDED CALCULATED FEED PER HELICAL REVOLUTION) 
 
#123=FUP[#112/#114](NO. OF LOOPS)
#124=#112/#123(CALCULATED FEED PER HELICAL REVOLUTION) 
 
(#125 ROUNDING MIGHT NOT BE NECESSARY) 
#125=[[ROUND[#124*10000]]/10000](ROUNDED CALCULATED FEED PER HELICAL REVOLUTION) 
 
G0X#110(X STARTPOINT)
 
G98G3G41V-[[#116-#115]/2]J-[[#116-#115]/4]F#117
 
#100=1 
WHILE[#100LE[#120-1]]DO1 
 
G3J[[#116-#115]/2]U-[#121*2] 
 
#100=#100+1
END1 
 
G3J[[#116-#115]/2]X#119(FINAL HELICAL PASS)
 
IF[#5001GT#111]GOTO1234(#5001 = CURRENT X POSITION)
 
G3J[[#116-#115]/2](FINAL FLAT BOTTOM PASS) 
 
V[[#116-#115]/2]J[[#116-#115]/4](RETURN TO CENTER OF HOLE) 
 
GOTO1235 
 
 
 
N1234
#100=1 
WHILE[#100LE[#123-1]]DO1 
 
G3J[[#116-#115]/2]U-[#124*2]F#118
 
#100=#100+1
END1 
 
G3J[[#116-#115]/2]X#111(FINAL HELICAL PASS)
 
G3J[[#116-#115]/2](FINAL FLAT BOTTOM PASS) 
 
V[[#116-#115]/2]J[[#116-#115]/4](RETURN TO CENTER OF HOLE) 
 
N1235
G0X#110(RETURN TO X STARTPOINT)
G40
G18
M0 
 
(*************************)
 
N500
(LOOP FUNCTION)
(FOR EXAMPLE FACEHOLE HELICAL MILLING) 
G28U0.V0.
G30W0. 
G17
T0505
G0X10.Z1.
#110=.05(STARTPOINT IN Z)
#111=-.395(ENDPOINT IN Z)
#112=.2(BACK OFF FROM BOTTOM FOR REDUCED FEED) 
#113=.05(FEED PER HELICAL REVOLUTION)
#114=.02(FEED PER HELICAL REVOLUTION AT BOTTOM)
#115=.75(TOOL DIAMETER)
#116=1.(DIAMETER OF HOLE)
#117=20.(FEEDRATE) 
#118=10.(REDUCED FEEDRATE AT BOTTOM) 
 
(#119 = ENDPOINT IN Z WITH OR WITHOUT BACKING OFF AT BOTTOM) 
IF[#112EQ0]THEN#119=#111 
IF[#112GT0]THEN#119=[#111+#112]
 
#120=FUP[[#110-#119]/#113](NO. OF LOOPS) 
#121=[#110-#119]/#120(CALCULATED FEED PER HELICAL REVOLUTION)
 
(#122 ROUNDING MIGHT NOT BE NECESSARY) 
#122=[[ROUND[#121*10000]]/10000](ROUNDED CALCULATED FEED PER HELICAL REVOLUTION) 
 
#123=FUP[#112/#114](NO. OF LOOPS)
#124=#112/#123(CALCULATED FEED PER HELICAL REVOLUTION) 
 
(#125 ROUNDING MIGHT NOT BE NECESSARY) 
#125=[[ROUND[#124*10000]]/10000](ROUNDED CALCULATED FEED PER HELICAL REVOLUTION) 
 
G0Z#110(Z STARTPOINT)
 
G98G3G41V-[[#116-#115]/2]J-[[#116-#115]/4]F#117
 
#100=1 
WHILE[#100LE[#120-1]]DO1 
 
G3J[[#116-#115]/2]W-#121 
 
#100=#100+1
END1 
 
G3J[[#116-#115]/2]Z#119(FINAL HELICAL PASS)
 
IF[#5001GT#111]GOTO1234(#5003 = CURRENT Z POSITION)
 
G3J[[#116-#115]/2](FINAL FLAT BOTTOM PASS) 
 
V[[#116-#115]/2]J[[#116-#115]/4](RETURN TO CENTER OF HOLE) 
 
GOTO1235 
 
 
 
N1234
#100=1 
WHILE[#100LE[#123-1]]DO1 
 
G3J[[#116-#115]/2]W-#124F#118
 
#100=#100+1
END1 
 
G3J[[#116-#115]/2]Z#111(FINAL HELICAL PASS)
 
G3J[[#116-#115]/2](FINAL FLAT BOTTOM PASS) 
 
V[[#116-#115]/2]J[[#116-#115]/4](RETURN TO CENTER OF HOLE) 
 
N1235
G0Z#110(RETURN TO Z STARTPOINT)
G40
G18
M0 
%

Comments

Post a Comment

Popular posts from this blog

List of Macro Variables

Variable Purpose Page #0 Null variable 22 #1 - #33 Local variables 28 #34 - #99 Not available 28 #100 - #199 Common variables 28 #200 - #499 Not available 28 #500 - #999 Permanent common variables (same as common variables, with the difference that the stored values in these are not cleared by reset or power cycle)  28/29 #1000 - #1015 and #1032 Correspond to input interface signals (G54.0 - G54.7, G55.0 - G55.7)  40/41 #1100 - #1115 and #1132 Correspond to output interface signals (F54.0 - F54.7, F55.0 - F55.7) 40/41 #2001 - #2064 X-axis wear offsets (on a lathe with 64 offset numbers) 42 #2001 - #2200 Tool length wear offsets (with parameter 6000#3 = 0, on a milling  machine with 200 offset numbers) 44 #2101 - #2164 Z-axis wear offsets (on a lathe with 64 offset numbers)  42 #2201 - #2264 Nose radius wear offsets (on a lathe with 64 offset numbers) 42 #2201 - #2400 Tool length geometry offsets (with parameter 6000#3 = 0, on a milling machine with 200 offset numbers...
Read more

DN (Doosan) (S)MX error message: return B-axis

Generates an error message and stops the machine in case B-axis has not been returned to clear chuck and tailstock after resetting the machine. For example: Machine has been stopped with a "B0.-tool" like a Mini-turret close to the jaws with tailstock supporting part. If the operator hasn't manually moved the B-axis to min. B-75., machine will stop and the control will display the error message. N100 (ROUGH TURN); M139 (BED COOLANT OFF); G40 G80 (NEEDS TO BE CANCELED BEFORE G69.1); G69.1; G13.1; G28 U0. V0.; IF[#5004 GT-75. ] THEN #3000=100 (MANUALLY MOVE B-AXIS TO WITHIN B-75. TO B-120.); G0 B-90. (NECESSARY TO CLEAR TAILSTOCK); G28 W0.;
Read more

Tapered thread flank infeed (eg 60) calculation

% (UPDATED R-VALUE/Z STARTPOINT IF FLANK INFEED HAS BEEN SELECTED IN FIRST G76 LINE [EG O010060 INSTEAD OF P010000])    #100=.122(DEPTH OF THREAD - P-VALUE IN SECOND G76 LINE) #101=-.55(Z STARTPOINT) #102=-5.125(Z ENDPOINT) #103=4.764(THREAD TAPER ANGLE)  #104=60(FLANK INFEED - EG 60 FOR 600 THREAD)      #106=[-[#102-#101]*[TAN[#103]]-[[TAN[#104/2]*#100]*[TAN[#103]]]](CORRECT R-VALUE)     #108=[#101+[[TAN[#104/2]*#100]]](CORRECT Z STARTPOINT)  #109=[-[#102-#101]*[TAN[#103]]](CORRECT R-VALUE)    M0  (CHECK MACRO #106 FOR THE CORRECT R-VALUE TO ADD IN THE SECOND G76 LINE - NEGATIVE VALUE FOR OD THREAD, POSITIVE VALUE FOR ID THREAD)     (OR)    (CHECK MACRO #108 FOR THE CORRECTED Z STARTPOINT AND MACRO #109 FOR THE R-VALUE TO ADD IN THE SECOND G76 LINE - NEGATIVE VALUE FOR OD THREAD, POSITIVE VALUE FOR ID THREAD) (Z STARTPOINT FOR FINAL PASS WILL BE SAME AS MACRO #101)    M0    %
Read more