Skip to content

Commit af0e218

Browse files
c-morleyc-morley
committed
gcode: update qtvcp's lathe macro files
1 parent b23a50f commit af0e218

5 files changed

Lines changed: 119 additions & 69 deletions

File tree

‎nc_files/macros/lathe/chamfer.ngc‎

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
1-
; MACROCOMMAND=X,SFM,DOC,Z,Tool Number,Chamfer size,Front Outside,Front Inside,Back Outside
2-
; MACRODEFAULTS=1,300,.5,1,1,.015,true,false,false
1+
; MACROCOMMAND=X,SFM,DOC,Z,Tool Number,Chamfer size,Front Outside,Front Inside,Back Outside,Max RPM
2+
; MACRODEFAULTS=1,300,.5,1,1,.015,true,false,false,1500
33
; MACROSVG=LatheMacro.svg,4
44

55
; O<chamfer>call [${chamfer.x-f}] [${chamfer.sf-f}] [0.5] [${chamfer.z-f}] [${chamfer.tool-s}] [${chamfer.size-f}] [${chamfer.fo}] [${chamfer.fi}] [${chamfer.bo}]
@@ -13,6 +13,7 @@
1313
; #7 front outside switch *
1414
; #8 front inside switch *
1515
; #9 back outside switch *
16+
; #10 Max RPM
1617

1718
;chamfer
1819

@@ -21,7 +22,7 @@ O<chamfer> sub
2122
O107 IF [#<_imperial>]
2223
(MSG, IMPERIAL ON)
2324
#1 = [#1 * 25.4]; X
24-
#2 = [#2 * 3.28]; surface speed
25+
#2 = [#2 * 304.8] ; sf/m to mm/m
2526
#3 = [#3 * 25.4]; doc?
2627
#4 = [#4 * 25.4]; Z
2728
#6 = [#6 * 25.4]; chanfer size
@@ -34,14 +35,18 @@ G18 ; XZ Plane
3435
G21 ; Metric Units
3536
G90 ; Absolute Distance
3637

37-
M6 T#5 G43
3838

3939
#1 = [#1 / 2] ; because of radius mode
4040

4141
#14 = [#<_x>] (starting X)
4242
#13 = [#<_z>] (starting Z)
4343

44-
G96 D1500 S#2 ; Constant Surface Speed Mode
44+
(MSG, Unpause To start Chamfer Macro)
45+
m0
46+
47+
M6 T#5 G43
48+
49+
G96 D#10 S#2 ; Constant Surface Speed Mode
4550
M3
4651
g95 F0.1 ; Feed-Per-Rev Mode
4752

‎nc_files/macros/lathe/drill.ngc‎

Lines changed: 48 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -1,30 +1,50 @@
11
; MACROCOMMAND= Drill Diameter,Finish Depth,SFM,FPR,Tool Number,Peck Depth,Retract Depth
2-
; MACRODEFAULTS=1,-1,300,.007,1,0.2,.1
2+
; MACRODEFAULTS=1.0,-1.0,300.0,.007,1,0.2,.1
33
; MACROSVG=LatheMacro.svg,6
44
; O<drill> call [${drill.diameter-f}] [${drill.zdepth-f}] [${drill.sf-f}] [${drill.feed-f}] [${drill.tool-s}] [${drill.peck-f}] [${drill.retract-f}]
55

66
; #1 drill diameter
77
; #2 zdepth
8-
; #3 speed
8+
; #3 surface speed
99
; #4 feed/rpm
1010
; #5 tool number
1111
; #6 peck amount
1212
; #7 peck retract amount - not used right now
1313

1414
O<drill> sub
1515

16-
O107 IF [#<_imperial>]
17-
(MSG, IMPERIAL ON)
18-
#1 = [#1 * 25.4]
19-
#2 = [#2 * 3.28]
20-
#3 = [#3 * 25.4]
21-
#4 = [#4 * 25.4]
22-
#6 = [#6 * 25.4]
23-
#7 = [#7 * 25.4]
24-
O107 ENDIF
25-
26-
(MSG, Press Cycle Start To start Drilling Macro)
27-
m0
16+
O100 IF [#<_imperial>]
17+
(MSG, IMPERIAL sizes)
18+
#<diam> = [#1 * 25.4]
19+
#<zDepth> = [#2 * 25.4]
20+
#<surfaceSpeed> = [#3 * 304.8] ; sf/m to mm/m
21+
#<fpr> = [#4 * 25.4]
22+
#<peck> = [#6 * 25.4]
23+
#<retract> = [#7 * 25.4]
24+
#10 = [[#3 *12] / [3.1415 * #1]] ; RPM from sfm request
25+
26+
(debug, Expected Drilling Diameter %d#1)
27+
(debug, Peck Increment %.2f#6)
28+
(debug, Start Z %f#<_z>)
29+
(debug, Finish Z %.2f#2)
30+
(debug, Feed %.3f#4 IPM)
31+
(debug, Tool %d#5)
32+
(debug, %d#3 SFM @ RPM %d#10)
33+
O100 ELSE
34+
(MSG, METRIC sizes)
35+
#<diam> = #1
36+
#<zDepth> = #2
37+
#<surfaceSpeed> = #3 ;mm/m
38+
#<fpr> = #4
39+
#<peck> = #6
40+
#<retract> = #7
41+
#10 = [#<surfaceSpeed> / [3.1415 * #<diam>]] ; RPM from mm/m request
42+
43+
(debug, Drilling dia #<diam> mm, peck dist #<peck> mm)
44+
(debug, startz #<_z> mm, depth #<zDepth> mm)
45+
(debug, feed #<fpr> mm/rpm, tool #5)
46+
(debug, Surface Speed #<surfaceSpeed> mm/m, rpm #10)
47+
O100 ENDIF
2848

2949
M73 ; save state, restore on exit
3050

@@ -33,36 +53,30 @@ G17 ; XY Plane
3353
G21 ; Metric Units don't change units!
3454
G90 ; Absolute Distance
3555

36-
#13 = #<_z> (starting Z)
56+
#<zStart> = #<_z> (starting Z)
3757

38-
M6 T#5 G43
58+
(MSG, 100% %.4h Unpause To start Drilling Macro)
59+
m0
3960

40-
O51 IF [#<_metric>]
41-
#10 = [[1000 * #3] / [3.1415 * #1]] ; metric mode RPM
42-
#11 = 2 ;retract plane
43-
O51 ELSE
44-
#10 = [[#3 * 12 / 3.1415] / #1] ; inch mode RPM
45-
#11 = 0.05 ; retract plane
46-
O51 ENDIF
61+
M6 T#5 G43
4762

4863
G97 S#10 ; Constant RPM mode
4964
M3 ;Start Spindle
50-
G95 F#4 ; Feed-Per-Rev Mode
65+
G95 F#<fpr> ; Feed-Per-Rev Mode
5166

5267
g4p1 ; Wait to reach speed
5368

54-
(debug, Drilling dia #1 depth #2 startz #13 speed #3 feed/rpm #4 tool #5 peck dist #6 rpm #10)
55-
56-
G0 X0 ; must drill from the centerline. Tool should be zeroed here
57-
G00 Z #13
58-
G98
59-
G83 Z#2 R#13 Q#6
60-
G80
69+
G0 X0 ; must drill from the centerline. Tool should be zeroed here
70+
G00 Z #<zStart>
71+
G98
72+
G83 Z#<zDepth> R#<zStart> Q#<peck>
73+
G80
6174

62-
G0 Z #13
63-
M5
64-
G7
75+
G0 Z #<zStart>
76+
M5
77+
G7
6578

79+
(MSG,Done Drilling Macro)
6680
O<drill> endsub
6781

6882
M2

‎nc_files/macros/lathe/facing.ngc‎

Lines changed: 18 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
1-
; MACROCOMMAND=Face Diameter,SFM,DOC,FPR,Z Length,Angle,Tool Number
2-
; MACRODEFAULTS=1,500,.02,.007,-2,0,1
1+
; MACROCOMMAND=Face Diameter,SFM,DOC,FPR,Z Length,Angle,Tool Number, Max RPM
2+
; MACRODEFAULTS=1,500,.02,.007,-2,0,1,1500
33
; MACROSVG=LatheMacro.svg,2,10
44

55
; O<facing>call [${face.x-f}] [${face.sf-f}] [${face.cut-f}] [${face.feed-f}] [${face.z-f}] [${face.angle-s}] [${face.tool-s}]
@@ -10,16 +10,21 @@
1010
; #4 feed/rpm
1111
; #5 Face Z length
1212
; #6 face angle
13-
; #7 tool number
14-
13+
; #7 tool numbber
14+
; #8 max RPM
1515
;Facing
1616

1717
O<facing> sub
1818

19+
O10 IF [#6 NE 0]
20+
(MSG, Angled facing isn't supported yet)
21+
M2
22+
O10 ENDIF
23+
1924
O107 IF [#<_imperial>]
2025
(MSG, IMPERIAL ON)
2126
#1 = [#1 * 25.4]
22-
#2 = [#2 * 3.28]
27+
#2 = [#2 * 304.8] ; sf/m to mm/m
2328
#3 = [#3 * 25.4]
2429
#4 = [#4 * 25.4]
2530
#5 = [#5 * 25.4]
@@ -32,17 +37,18 @@ G18 ; XZ Plane
3237
G21 ; Metric Units
3338
G90 ; Absolute Distance
3439

35-
M6 T#7 G43
36-
37-
O10 IF [#6 NE 0]
38-
(MSG, Angled facing isn't supported yet)
39-
M2
40-
O10 ENDIF
4140

4241
#14 = [#<_x> * 2] (starting X)
4342
#13 = #<_z> (starting Z)
4443

45-
G96 D1500 S#2 ; Constant Surface Speed Mode
44+
(debug, Facing start X #14 mm, Start Z #13 mm)
45+
(debug, Finish Z #5 mm)
46+
(MSG, Unpause To start Facing Macro)
47+
m0
48+
49+
M6 T#7 G43
50+
51+
G96 D#8 S#2 ; Constant Surface Speed Mode
4652
M3
4753
g95 F#4 ; Feed-Per-Rev Mode
4854

‎nc_files/macros/lathe/threading.ngc‎

Lines changed: 27 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ O<threading> sub
1818
O107 IF [#<_imperial>]
1919
(MSG, IMPERIAL ON)
2020
#1 = [#1 * 25.4] ; start X
21-
#2 = [#2 * 3.28] ; surface speed
21+
#2 = [#2 * 304.8] ; sf/m to mm/m
2222
#4 = [#4 * 25.4] ; pitch
2323
#5 = [#5 * 25.4] ; z finish
2424
O107 ENDIF
@@ -28,20 +28,35 @@ G18 ; XZ Plane
2828
G21 ; Metric Units
2929
G90 ; Absolute Distance
3030

31-
32-
M6 T#3 G43
33-
3431
#14 = [#<_x> * 2] (starting X)
3532
#13 = #<_z> (starting Z)
3633

34+
O50 IF [#6 GT 0.5]
35+
(debug, INTERNAL Threading thread dia-#1)
36+
(debug, start-#13)
37+
(debug, finish-#5)
38+
(debug, Pitch-#4)
39+
(debug, Depth-#3)
40+
O50 ELSE
41+
#<OD> = [#1 - 0.108 * #4]
42+
#<ID> = [#1 - 1.0825 * #4]
43+
(debug, EXTERNAL Threading OD = #<OD> ID = #<ID>)
44+
O50 ENDIF
45+
46+
(MSG, Unpause To start Threading Macro)
47+
m0
48+
49+
M6 T#3 G43
50+
3751
G96 D200 S#2 ; Constant Surface Speed Mode
3852
M3
3953
g95 F0.1 ; Feed-Per-Rev Mode
4054

4155
g4p1 ; Wait to reach speed
4256

4357
;Threading
44-
O51 IF [#6 GT 0.5]
58+
; Internal
59+
O51 IF [#6 GT 0.5]
4560
#<OD> = [#1]
4661
#<ID> = [#1 - 1.3 * #4]
4762
;g1X [#<ID> - 1] ;thread truncation
@@ -51,14 +66,15 @@ g4p1 ; Wait to reach speed
5166
G0 X[#<ID> - 1]
5267
g0 Z #13
5368
#3 = [#4 * 1.3]
54-
(debug, INTERNAL Threading thread dia-#1 start-#13 finish-#5 Pitch-#4 Depth-#3)
69+
5570
g1X [#<ID> - 1]
5671
g76 p#4 z#5 i1 j0.2 k#3 h3 r1.5 q29.5 e0 l0
57-
58-
O51 ELSE
72+
73+
; External
74+
O51 ELSE
5975
#<OD> = [#1 - 0.108 * #4]
6076
#<ID> = [#1 - 1.0825 * #4]
61-
(debug, EXTERNAL Threading OD = #<OD> ID = #<ID>)
77+
; EXTERNAL Threading OD = #<OD> ID = #<ID>)
6278
#3 = [#4 * 1.0825]
6379
g1X [#<OD> + 1] ;final thread truncation
6480
g0 z#13
@@ -68,7 +84,8 @@ g4p1 ; Wait to reach speed
6884
G0 Z #13
6985
g76 p#4 z#5 i-1 j0.2 k#3 h3 r1.5 q29.5 e0 l0
7086

71-
O51 ENDIF
87+
O51 ENDIF
88+
7289
G0 Z #13
7390
m5
7491
O<threading> endsub

‎nc_files/macros/lathe/turning.ngc‎

Lines changed: 16 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
1-
; MACROCOMMAND=Finish Diameter,SFM,DOC,FPR,Finish Length,Radius,Angle,Tool Number
2-
; MACRODEFAULTS=1,500,.02,.007,-2,0,0,1
1+
; MACROCOMMAND=Finish Diameter,SFM,DOC,FPR,Finish Length,Radius,Angle,Tool Number, Max RPM
2+
; MACRODEFAULTS=1.0,500.0,.02,.007,-2.0,0.0,0.0,1,1500
33
; MACROSVG=LatheMacro.svg,0,11
44

55
; O<turning> call [${turn.x-f}] [${turn.sf-f}] [${turn.cut-f}] [${turn.feed-f}] [${turn.z-f}] [${turn.rad-f}] [${turn.angle-f}] [${turn.tool-s}]
@@ -12,14 +12,15 @@
1212
; #6 radius
1313
; #7 angle
1414
; #8 tool number
15+
; #9 max RPM
1516
;Turning
1617

1718
O<turning> sub
1819

1920
O107 IF [#<_imperial>]
2021
(MSG, IMPERIAL ON)
2122
#1 = [#1 * 25.4]
22-
#2 = [#2 * 3.28]
23+
#2 = [#2 * 304.8] ; sf/m to mm/m
2324
#3 = [#3 * 25.4]
2425
#4 = [#4 * 25.4]
2526
#5 = [#5 * 25.4]
@@ -34,26 +35,33 @@ G21 ; Metric Units
3435
G90 ; Absolute Distance
3536
G91.1 ; but not for arcs
3637

37-
M6 T#8 G43
38-
3938
#1 = [#1 / 2] ; because of radius mode
4039
#14 = [#<_x>] (starting X)
41-
#13 = #<_z> (starting Z)
40+
#13 = [#<_z>] (starting Z)
4241

4342
#20 = [#6 * SIN[#7]]
4443
#21 = [#6 * COS[#7]]
4544
#22 = [#6 / COS[#7]]
4645
#23 = [#5 + #6 - #20]
4746
#24 = [[#13 - #23] * TAN[#7]]
4847

49-
G96 D1500 S#2 ; Constant Surface Speed Mode
48+
49+
(debug, Start rad #14)
50+
(debug, start length #13)
51+
(debug, finish rad #1)
52+
(debug, finish length #5)
53+
(MSG, Unpause To start Turning Macro)
54+
m0
55+
56+
M6 T#8 G43
57+
58+
G96 D500 S#2 ; Constant Surface Speed Mode
5059
m3 ;Start Spindle
5160
g95 F#4 ; Feed-Per-Rev Mode
5261

5362

5463
g4p1 ; Wait to reach speed
5564

56-
(debug, Turning finish rad #1 start rad #14 start length #13 finish length #5)
5765

5866
O100 WHILE [#14 GT [#1 + #3 / 2]]
5967
g0 X #14

0 commit comments

Comments
 (0)