1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(info: G76 Threading, Specify driveline and offset, use NEGATIVE offset I for External Thread)
; default values:
; external thread example: xi=0.5,k=0.05,i=-0.03
; for majordiam=0.94,minordiam=0.84,i=-0.03
; internal thread example: xi=0.39,k=0.05,i=+0.03
; for majordiam=0.94,minordiam=0.84,i=+0.03
o<g76base> sub
#<toolno> = #1 (= 10)
#<rpm> = #2 (= 200 Spindle RPM)
#<xi> = #3 (= 0.5 X: Xi driveline)
#<zi> = #4 (= -0.5 Z: Zi driveline)
; G76 required items:
#<p> = #5 (= 0.125 P: Pitch, NEG for tpi)
#<z> = #6 (= -1.0 Z: Zf final)
#<i> = #7 (= -0.03 I: Thread peak offset)
#<k> = #8 (= 0.05 K: Full thread depth)
#<j> = #9 (= 0.015 J: Initial cut depth)
; G76 optional items:
#<r> = #10 (= 1.0 R: Depth degression)
#<q> = #11 (= 29.5 Q: Compound slide angle)
#<h> = #12 (= 0 H: No. of spring passes)
#<e> = #13 (= 0.050 E: Taper dist =K typ)
#<l> = #14 (= 2 L: End Taper 0,1,2,3)
; other:
#<spindir> = #15 (=3 Dir: Right=3 Left=4)
#<mode> = #16 (=8 G7/G8 Radius=8 Diam=7)
#<verbose> = #17 (=0 0:silent, 1:verbose)
o<if00> if [#<p> LT 0]
#<p> = ABS[1 / #<p>]
(debug, g76base: Computed pitch = #<p> from tpi)
o<if00> endif
o<if10> if [ [#<l> NE 0] AND [#<l> NE 1] AND [#<l> NE 2] AND [#<l> NE 3] ]
(print, q76base: Require: L = 0 or 1 or 2 or 3 - EXITING)
(debug, q76base: Require: L = 0 or 1 or 2 or 3 - EXITING)
(AXIS,notify, q76base: Require: L = 0 or 1 or 2 or 3 - EXITING)
m2
o<if10> endif
o<if11> if [ [#<spindir> NE 3] AND [#<spindir> NE 4]]
(print, q76base: Dir: 3 for RH 4 for LH - EXITING)
(debug, q76base: Dir: 3 for RH 4 for LH - EXITING)
(AXIS,notify, q76base: Dir: 3 for RH 4 for LH - EXITING)
m2
o<if11> endif
o<if12> if [ [#<mode> NE 7] AND [#<mode> NE 8] ]
(print, q76base: Mode: 7 for D 8 for R - EXITING)
(debug, q76base: Mode: 7 for D 8 for R - EXITING)
(AXIS,notify, q76base: Mode: 7 for D 8 for R - EXITING)
m2
o<if12> endif
o<if20> if [#<_vmajor> lT 2.6]
; no introspection on lathe radius/diameter mode
; so allow only G8 (radius mode)
o<if21> if [#<mode> NE 8]
(print, g76base: v2.5 requires G8 - EXITING)
(debug, g76base: v2.5 requires G8 - EXITING)
(AXIS,notify, g76base: v2.5 requires G8 - EXITING)
m2
o<if21> endif
o<if20> else
; >= 2.6
; use introspection on lathe radius/diameter mode
; to restore mode
o<if22> if [#<_lathe_diameter_mode> EQ 1]
#<restore_mode> = 7 ; diam
o<if22> endif
o<if23> if [#<_lathe_radius_mode> EQ 1]
#<restore_mode> = 8 ; radius
o<if23> endif
o<if24> if [ [#<_lathe_diameter_mode> EQ 0] AND [ #<_lathe_radius_mode> EQ 0] ]
; not supposed to happen:
(print, g76base: unexpected lathe mode - EXITING)
(debug, g76base: unexpected lathe mode - EXITING)
(AXIS,notify, g76base: unexpected lathe mode - EXITING)
m2
o<if24> endif
o<if25> if [ [#<_lathe_diameter_mode> EQ 1] AND [ #<_lathe_radius_mode> EQ 1] ]
; not supposed to happen:
(print, g76base: unexpected lathe mode - EXITING)
(debug, g76base: unexpected lathe mode - EXITING)
(AXIS,notify, g76base: unexpected lathe mode - EXITING)
m2
o<if25> endif
o<if20> endif
G#<mode>
o<if60> if [#<verbose> GT 0]
o<if70> if [#<mode> EQ 7]
(debug, g76base: set G7 DIAMETER mode)
o<if70> else
(debug, g76base: set G8 RADIUS mode)
o<if70> endif
o<if60> endif
o<loadtool> call [#<toolno>]
M#<spindir> S#<rpm>
G0 X#<xi> Z#<zi>
G76 P#<p> Z#<z> I#<i> J#<j> R#<r> K#<k> Q#<q> H#<h> E#<e> L#<l>
o<if80> if [[#<_vmajor> GE 2.6] AND [#<verbose> GT 0]]
(debug, g76base restoring mode to G #<restore_mode>)
o<if80> endif
o<g76base> endsub
|
