Macro for optithread, wave thread

IN VIDEO M24X3 AND M20X1.5 AND AT THE END SIMULATION.
OPTITHREAD, WAVE THREAD
EXAMPLE FOR M24X3
MACRO
N2
G54
G0T1212
G97S500M3
G0X52.Z2.Y0
#101=24.(DIAMETER OF THREAD)
#102=3.(FEED)
#103=0.35(DEEP OF CUT IN DIAMETER)
#104=50.(END OF THREAD IN Z AXIS IF THE THREAD IS VERY LONG, MACRO WILL MAKE IT 2% LONGER, FOR EXAMPLE IF YOU PUT 350MM IT WILL FINISH 356MM )
#105=3.(AMOUNT OF FINISH PASSES)
#106=20.5(DEEP OF CUT)
#107=TAN[30](METRIC TAN30, INCH TAN 27.5)
#108=[#101-#103]
#109=#101+#102*2(SAFE HIGH)
#110=[#104/[#102*5]]
#111=FUP[#110](FUP ROUND THE RESULT UP FOR EXAMPLE IF RESULT IS 8.2 IT WILL ROUND IT TO 9)
#112=#107*[[#109-#108]/2]
#113=4.(BEGGINING IN Z AXIS)
#114=#102
#120=0
#130=0
#140=0
#150=1
G0X#109Z#113F#102
N1
G32W-[#102*3-#112*2]F#102
G32X#108W-#112
G32W-#102*2
G32X#109W-#112
#120=#120+1
IF[#111LE#120]GOTO5
GOTO1
N5
G0X#109Z[#113+#114*2]
#130=0
N20
G32W-[#102*3-#112*2]
G32X#108W-#112
G32W-#102*2
G32X#109W-#112
#130=#130+1
IF[#111LE#130]GOTO60
GOTO20
N60
G0X#109Z[#113+#114*3]
#140=0
N21
G32W-[#102*3-#112*2]
G32X#108W-#112
G32W-#102*2
G32X#109W-#112
#140=#140+1
IF[#111LE#140]GOTO61
GOTO21
N61
#150=#150+1
G0X#109Z#113F#102
#100=0
#110=0
#120=0
#108=[#108-#103]
#109=[#109-#103]
#152=#101-#106
#162=#152/#103
#172=FIX[#162]
G0X#109Z#113F#102
IF[#172LE#150]GOTO70
GOTO1
N70
G0X100.Z50.
M01
(FINISH PASSES)
#155=0
#173=#172*#103
#180=#152-#173
G99G18M46
G54
G0T1212
G97S500M3
G0X52.Z2.
G0X#109Z[#113+#114*3]
G32W-[#102*3-#112*2]F#102
G32X#108W-#112
G32W-[#111*5*#102]
G32X#109W-#112
#108=[#108-#103]
#109=[#109-#180]
N30
G0X#109Z[#113+#114*3]
G32W-[#102*3-#112*2]
G32X#106W-#112
G32W-[#111*5*#102]
G32X#109W-#112
#155=#155+1
IF[#155EQ#105]GOTO80
GOTO30
N80
G0X100.Z100.
G0G28V0
M30
%

[@ukasz7726]

Konkretny program dobra robota !

[@CNCPL1]

Dzięki

[@saweks9919]

Szcunek! Za wiedze i dzielenie się nią.

[@CNCPL1]

👍

[@111mitra]

Dzięki za wzór. Dobra robota.

[@CNCPL1]

Spoko, mam nadzieję, że się przyda komuś.

[@RekaWeza]

Zajebista muzyka!

[@alexis-sk9vf]

What's the point? I understand if it's a viscous metal, like copper. In any case, for conventional threads on conventional alloys, this is unproductive in my opinion. May I offer another method ?

[@CNCPL1]

Its made for chip breaking. Check sandvik optithread. Im waiting for Your method.

[@darcustaseen1602]

Thats slow. Looks like multiple g32 passes... Can this be done in fewer passes and improved speed? I would want this done on internal threads... Care to share your macro?

[@CNCPL1]

Macro in description.

[@darcustaseen1602]

@@CNCPL1 Thank you for this.

[@darcustaseen1602]

@@CNCPL1 Can you take a look at a reworking of your macro to see if it does the same job? (THREAD CUTTING MACRO - EXTERNAL WITH CHIP BREAKING); (PARAMETRIC INPUTS); #200=24.0 (DIAMETER OF THREAD); #201=3.0 (PITCH); #202=0.35 (DEPTH OF CUT IN DIAMETER); #203=50.0 (LENGTH OF THREAD); #204=3 (NUMBER OF FINISH PASSES); #205=20.5 (TOTAL DEPTH OF CUT); #206=30.0 (THREAD ANGLE - USE 30 FOR METRIC, 27.5 FOR INCH); (CALCULATED PARAMETERS); #210=TAN[#206] (TANGENT OF THREAD ANGLE); #211=[#200-#202] (MINOR DIAMETER); #212=#200+#201*2 (CLEARANCE DIAMETER); #213=FUP[#203/[#201*5]] (NUMBER OF PASSES); #214=#210*[[#212-#211]/2] (THREAD HEIGHT); #215=4.0 (START POSITION IN Z); #216=#200-#205 (FINAL THREAD DIAMETER); #217=FIX[[#200-#216]/#202] (NUMBER OF ROUGHING PASSES); N1 G54; G18 G99; G0 T0303; G97 S500 M3; G0 X#212 Z#215; (ROUGHING PASSES WITH CHIP BREAKING); #220=1 (PASS COUNTER); N10 (START OF ROUGHING LOOP); #221=[#211+[#217-#220]*#202] (CURRENT DIAMETER); G32 W-[#201*3-#214*2] F#201; G32 X#221 W-#214; G32 W-#201*2; G32 X#212 W-#214; G0 X#212; G0 Z#215; #220=#220+1; IF [#220 LE #217] GOTO 10; (FINISHING PASSES); #230=1 (FINISH PASS COUNTER); N20 (START OF FINISHING LOOP); G0 X#212 Z#215; G32 W-[#201*3-#214*2] F#201; G32 X#216 W-#214; G32 W-[#213*5*#201]; G32 X#212 W-#214; G0 X#212; G0 Z#215; #230=#230+1; IF [#230 LE #204] GOTO 20; G0 Z100.; G0 G28 U0 W0; M30; %

[@darcustaseen1602]

@@CNCPL1 I am planning on modifying it so it works with internal threads and then try it out on the machine. Unfortunately, I lack the software to backplot this. I'm really struggling with NCPlot at the moment!

[@darcustaseen1602]

@@CNCPL1 Here is your macro, modified for my machine (it has an inverted x-axis) and for internal thread... thank you for doing all the hardwork: (INTERNAL THREAD CUTTING MACRO WITH WAVE MOTION - INVERTED X-AXIS); (PARAMETRIC INPUTS); #200=30.0 (BORE DIAMETER); #201=3.0 (PITCH); #202=0.35 (DEPTH OF CUT IN DIAMETER); #203=50.0 (LENGTH OF THREAD); #204=3.0 (NUMBER OF FINISH PASSES); #205=20.5 (TOTAL DEPTH OF CUT); #206=30.0 (THREAD ANGLE - USE 30.0 FOR METRIC, 27.5 FOR INCH); ; (CALCULATED PARAMETERS); #210=TAN[#206] (TANGENT OF THREAD ANGLE); #211=-[#200+#202] (MAJOR DIAMETER); #212=-[#200-#201*2] (CLEARANCE DIAMETER); #213=FUP[#203/[#201*5]] (NUMBER OF PASSES); #214=#210*[[ABS[#211]-ABS[#212]]/2] (THREAD HEIGHT); #215=-4.0 (START POSITION IN Z); #216=-[#200+#205] (FINAL THREAD DIAMETER); #217=FIX[[ABS[#216]-#200]/#202] (NUMBER OF ROUGHING PASSES); ; N1 G54; G18 G99; G0 T0303; G97 S500 M3; G0 X#212 Z#215; ; (ROUGHING PASSES WITH WAVE MOTION); #220=1.0 (PASS COUNTER); N10 (START OF ROUGHING LOOP); #221=[#211+[#220-1.0]*#202] (CURRENT DIAMETER); #222=#215 (CURRENT Z POSITION); WHILE [#222 GT [#215-#203]] DO; G32 X#221 W-[#201*3.0] F#201; G32 X[#221+0.1] W-0.2; G32 X#212 W-0.2; G0 X#212; #222=[#222-[#201*3.0+0.4]]; G0 Z#222; END; G0 Z#215; #220=#220+1.0; IF [#220 LE #217] GOTO 10; ; (FINISHING PASSES WITH WAVE MOTION); #230=1.0 (FINISH PASS COUNTER); N20 (START OF FINISHING LOOP); #222=#215 (RESET CURRENT Z POSITION); WHILE [#222 GT [#215-#203]] DO; G32 X#216 W-[#201*3.0] F#201; G32 X[#216+0.05] W-0.2; G32 X#212 W-0.2; G0 X#212; #222=[#222-[#201*3.0+0.4]]; G0 Z#222; END; G0 Z#215; #230=#230+1.0; IF [#230 LE #204] GOTO 20; G0 Z100.0; M30; %

[@user-fx5mz5jl9u]

Sir software nama