0  BEGIN PGM 10005_EN MM 
1  ;Milled-turned workpiece
2  ;
3  ;Workpiece blank definition as cylinder
4  BLK FORM CYLINDER Z R60 L100 DIST+1
5  ;
6  ;Activate the datum
7  CYCL DEF 247 DATUM SETTING ~
    Q339=+2    ;DATUM NUMBER
8  ;
9  ;Lathe machining, outside roughing
10 ;Tool call for turning tool, roughing
11 TOOL CALL "TURN_ROUGH"
12 ;
13 ;Subprogram call, turning mode
14 CALL LBL "TURN"
15 ;Subprogram call, move to save position
16 CALL LBL "SAVE"
17 ;
18 ;Adapting the rotary coordinate system
19 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+0    ;PRECESSION ANGLE ~
    Q498=+0    ;REVERSE TOOL ~
    Q530=+0    ;INCLINED MACHINING ~
    Q531=+0    ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=+0    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
20 ;
21 ;Define the constant surface speed and
22 ;max. spindle speed
23 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800
24 ;
25 ;Move tilting axis to zero and switch-on
26 ;turning spindle
27 L  A+0 R0 FMAX M303
28 ;
29 ;Face turning
30 CYCL DEF 821 SHOULDER, FACE ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q493=+0    ;DIAMETER AT CONTOUR END ~
    Q494=+0    ;CONTOUR END IN Z ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0    ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q506=+0    ;CONTOUR SMOOTHING
31 L  X+122  Y+0 R0 FMAX ;Pre-positioning
32 L  Z+10 R0 FMAX ;Pre-positioning
33 L  Z+2 R0 F0.5 M99 ;Move to starting height and cycle call
34 ;
35 ;Longitudinal turning
36 CYCL DEF 811 SHOULDER, LONGITDNL. ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q493=+117  ;DIAMETER AT CONTOUR END ~
    Q494=-80   ;CONTOUR END IN Z ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.2  ;OVERSIZE FOR DIAMETER ~
    Q484=+0    ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q506=+0    ;CONTOUR SMOOTHING
37 L  X+122  Y+0 R0 FMAX ;Pre-positioning
38 L  Z+10 R0 FMAX ;Pre-positioning
39 L  Z+2 R0 F0.5 M99 ;Move to starting height and cycle call
40 ;
41 ;Shoulder turning
42 CYCL DEF 811 SHOULDER, LONGITDNL. ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q493=+100  ;DIAMETER AT CONTOUR END ~
    Q494=-20   ;CONTOUR END IN Z ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.2  ;OVERSIZE FOR DIAMETER ~
    Q484=+0    ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q506=+0    ;CONTOUR SMOOTHING
43 L  X+119  Y+0 R0 FMAX ;Pre-positioning
44 L  Z+10 R0 FMAX ;Pre-positioning
45 L  Z+2 R0 F0.5 M99 ;Move to starting height and cycle call
46 ;
47 ;Tool call for axial recessing tool
48 TOOL CALL "TURN_REC_AX_100-150"
49 ;
50 ;Subprogram call, turning mode
51 CALL LBL "TURN"
52 ;Subprogram call, move to a save position
53 CALL LBL "SAVE"
54 ;
55 ;Adapting the rotary coordinate system
56 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+0    ;PRECESSION ANGLE ~
    Q498=+0    ;REVERSE TOOL ~
    Q530=+0    ;INCLINED MACHINING ~
    Q531=+0    ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=+0    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
57 ;
58 ;Define the constant surface speed and
59 ;max. spindle speed
60 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800
61 ;
62 ;Move tilting axis to zero and switch-on
63 ;turning spindle
64 L  A+0 R0 FMAX M303
65 ;
66 ;Axial recess
67 CYCL DEF 852 ENH.REC.TURNING, AX. ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q491=+85   ;DIAMETER AT CONTOUR START ~
    Q492=+0    ;CONTOUR START IN Z ~
    Q493=+50   ;DIAMETER AT CONTOUR END ~
    Q494=-5    ;CONTOUR END IN Z ~
    Q495=+0    ;ANGLE OF SIDE ~
    Q501=+1    ;TYPE OF STARTING ELEMENT ~
    Q502=+0.5  ;SIZE OF STARTING ELEMENT ~
    Q500=+0.5  ;RADIUS OF CONTOUR EDGE ~
    Q496=+0    ;ANGLE OF SECOND SIDE ~
    Q503=+1    ;TYPE OF END ELEMENT ~
    Q504=+0.5  ;SIZE OF END ELEMENT ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.4  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q463=+2    ;MAX. CUTTING DEPTH ~
    Q507=+0    ;MACHINING DIRECTION ~
    Q508=+0    ;OFFSET WIDTH ~
    Q509=+0    ;DEPTH COMPENSATION ~
    Q488=+0.1  ;PLUNGING FEED RATE
68 L  X+85  Y+0 R0 FMAX ;Pre-positioning
69 L  Z+10 R0 FMAX ;Pre-positioning
70 L  Z+2 R0 F0.5 M99 ;Move to starting height and cycle call
71 ;
72 ;Turning for radial recess
73 ;Tool call for radial recessing tool
74 TOOL CALL "TURN_REC_RAD"
75 ;
76 ;Subprogram call, turning mode
77 CALL LBL "TURN"
78 ;Subprogram call, move to save position
79 CALL LBL "SAVE"
80 ;
81 ;Adapting the rotary coordinate system
82 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+0    ;PRECESSION ANGLE ~
    Q498=+0    ;REVERSE TOOL ~
    Q530=+0    ;INCLINED MACHINING ~
    Q531=+0    ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=+0    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
83 ;
84 ;Define the constant surface speed and
85 ;max. spindle speed
86 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800
87 ;
88 ;Move tilting axis to zero and switch-on
89 ;turning spindle
90 L  A+0 R0 FMAX M303
91 ;
92 ;Contour turning
93 CYCL DEF 14.0 CONTOUR
94 CYCL DEF 14.1 CONTOUR LABEL1
95 CYCL DEF 840 RECESS TURNG, RADIAL ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q488=+0.1  ;PLUNGING FEED RATE ~
    Q483=+0.4  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q479=+0    ;CONTOUR MACHINING LIMIT ~
    Q480=+0    ;DIAMETER LIMIT VALUE ~
    Q482=+0    ;LIMIT VALUE Z ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q507=+0    ;MACHINING DIRECTION ~
    Q508=+0    ;OFFSET WIDTH ~
    Q509=+0    ;DEPTH COMPENSATION ~
    Q499=+0    ;REVERSE CONTOUR
96 L  X+119  Y+0 R0 FMAX ;Pre-positioning
97 L  Z+10 R0 FMAX ;Pre-positioning
98 L  Z+2 R0 F0.5 M99 ;Move to starting height and cycle call
99 ;
100 ;Radial recess
101 CYCL DEF 841 SIMPLE REC. TURNG., RADIAL DIR. ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q493=+105  ;DIAMETER AT CONTOUR END ~
    Q494=-40   ;CONTOUR END IN Z ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.4  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q507=+0    ;MACHINING DIRECTION ~
    Q508=+0    ;OFFSET WIDTH ~
    Q509=+0    ;DEPTH COMPENSATION
102 L  X+119  Y+0 R0 FMAX ;Pre-positioning
103 L  Z+10 R0 FMAX ;Pre-positioning
104 L  Z-23 R0 F0.5 M99 ;Move to starting height and cycle call
105 ;
106 ;Hole milling
107 ;Subprogram call, milling mode
108 CALL LBL "MILL"
109 ;
110 ;Tool call for end mill
111 TOOL CALL "MILL_D20_ROUGH" Z S3000 F700
112 ;
113 L  X+0  Y+0  Z+100 R0 FMAX M3 ;Pre-positioning
114 ;
115 ;Hole milling
116 CYCL DEF 208 BORE MILLING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q201=-60   ;DEPTH ~
    Q206=+500  ;FEED RATE FOR PLNGNG ~
    Q334=+2.5  ;PLUNGING DEPTH ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q335=+32   ;NOMINAL DIAMETER ~
    Q342=+0    ;ROUGHING DIAMETER ~
    Q351=+1    ;CLIMB OR UP-CUT
117 M99 ;Cycle call
118 ;
119 ;Subprogram call, move to save position
120 CALL LBL "SAVE"
121 ;
122 ;Lathe machining, inside roughing
123 ;Tool call for turning tool, roughing
124 TOOL CALL "TURN_ROUGH"
125 ;
126 ;Subprogram call, turning mode
127 CALL LBL "TURN"
128 ;Subprogram call, move to save position
129 CALL LBL "SAVE"
130 ;
131 ;Adapting the rotary coordinate system
132 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+0    ;PRECESSION ANGLE ~
    Q498=+1    ;REVERSE TOOL ~
    Q530=+0    ;INCLINED MACHINING ~
    Q531=+0    ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=+0    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
133 ;
134 ;Define the constant surface speed and
135 ;max. spindle speed
136 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800
137 ;
138 ;Move tilting axis to zero and switch-on
139 ;turning spindle (M304 because the tool is
140 ;reversed)
141 L  A+0 R0 FMAX M304
142 ;
143 ;Inside shoulder turning
144 CYCL DEF 821 SHOULDER, FACE ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q493=+84   ;DIAMETER AT CONTOUR END ~
    Q494=-5    ;CONTOUR END IN Z ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.4  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q506=+0    ;CONTOUR SMOOTHING
145 L  X+30  Y+0 R0 FMAX ;Pre-positioning
146 L  Z+2 R0 FMAX M99 ;Move to starting height and cycle call
147 ;
148 ;Inside shoulder turning
149 CYCL DEF 822 SHOULDER, FACE. EXT. ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q491=+32   ;DIAMETER AT CONTOUR START ~
    Q492=-5    ;CONTOUR START IN Z ~
    Q493=+75   ;DIAMETER AT CONTOUR END ~
    Q494=-40   ;CONTOUR END IN Z ~
    Q495=+0    ;ANGLE OF FACE ~
    Q501=+0    ;TYPE OF STARTING ELEMENT ~
    Q502=+1    ;SIZE OF STARTING ELEMENT ~
    Q500=+1    ;RADIUS OF CONTOUR EDGE ~
    Q496=+0    ;ANGLE OF CIRCUM. SURFACE ~
    Q503=+2    ;TYPE OF END ELEMENT ~
    Q504=+1    ;SIZE OF END ELEMENT ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.4  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q506=+0    ;CONTOUR SMOOTHING
150 L  X+30  Y+0 R0 FMAX ;Pre-positioning
151 L  Z-3 R0 FMAX M99 ;Move to starting height and cycle call
152 L  Z+10 R0 FMAX ;Move back
153 ;
154 ;Subprogram call, move to save position
155 CALL LBL "SAVE"
156 ;
157 ;Lathe machining, outside finishing
158 ;Tool call for turning tool, finishing
159 TOOL CALL "TURN_FINISH"
160 ;
161 ;Subprogram call, turning mode
162 CALL LBL "TURN"
163 ;
164 ;Activation of blank form update
165 ;Workpiece blank defined in subprogram "Blank"
166 FUNCTION TURNDATA BLANK LBL "Blank"
167 ;
168 ;Adapting the rotary coordinate system
169 ;Tool is inclined because a recess is to be
170 ;machined
171 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+90   ;PRECESSION ANGLE ~
    Q498=+0    ;REVERSE TOOL ~
    Q530=+2    ;INCLINED MACHINING ~
    Q531=+30   ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=-1    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
172 ;
173 ;Define the constant surface speed and
174 ;max. spindle speed
175 FUNCTION TURNDATA SPIN VCONST:ON VC:500 S800
176 ;
177 M303
178 ;Contour finishing
179 CYCL DEF 14.0 CONTOUR
180 CYCL DEF 14.1 CONTOUR LABEL3
181 CYCL DEF 810 TURN CONTOUR LONG. ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q499=+0    ;REVERSE CONTOUR ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q483=+0.1  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.1  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q487=+1    ;PLUNGE ~
    Q488=+0    ;PLUNGING FEED RATE ~
    Q479=+0    ;CONTOUR MACHINING LIMIT ~
    Q480=+0    ;DIAMETER LIMIT VALUE ~
    Q482=+0    ;LIMIT VALUE Z ~
    Q506=+0    ;CONTOUR SMOOTHING
182 M99 ;Cycle call
183 ;
184 ;Lathe machining, thread turning
185 ;Tool call for thread-turning tool
186 TOOL CALL "TURN_THREAD"
187 ;
188 ;Subprogram call, turning mode
189 CALL LBL "TURN"
190 ;
191 ;Subprogram call, move to save position
192 CALL LBL "SAVE"
193 ;
194 ;Adapting the rotary coordinate system
195 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+0    ;PRECESSION ANGLE ~
    Q498=+0    ;REVERSE TOOL ~
    Q530=+0    ;INCLINED MACHINING ~
    Q531=+0    ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=+0    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
196 ;
197 ;Define the constant surface speed and
198 ;max. spindle speed
199 FUNCTION TURNDATA SPIN VCONST:ON VC:300 SMAX800
200 ;
201 ;Move tilting axis to zero and switch-on
202 ;turning spindle
203 L  A+0 R0 FMAX M304
204 ;
205 ;Thread cutting
206 CYCL DEF 831 THREAD LONGITUDINAL ~
    Q471=+0    ;THREAD POSITION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q491=+95   ;THREAD DIAMETER ~
    Q472=+1.5  ;THREAD PITCH ~
    Q473=+0    ;DEPTH OF THREAD ~
    Q492=+0    ;CONTOUR START IN Z ~
    Q494=-18   ;CONTOUR END IN Z ~
    Q474=+0    ;THREAD RUN-OUT ~
    Q463=+0.3  ;MAX. CUTTING DEPTH ~
    Q467=+0    ;ANGLE OF INFEED ~
    Q468=+1    ;TYPE OF INFEED ~
    Q470=+0    ;STARTING ANGLE ~
    Q475=+1    ;NUMBER OF STARTS ~
    Q476=+2    ;NUMBER OF AIR CUTS
207 L  X+98  Y+0 R0 FMAX ;Pre-positioning
208 L  Z+2 R0 FMAX ;Move to starting height
209 M99 ;Cycle call
210 ;
211 ;Turning for radial recess
212 ;Tool call for radial recessing tool
213 TOOL CALL "TURN_REC_RAD"
214 ;
215 ;Subprogram call, turning mode
216 CALL LBL "TURN"
217 ;Subprogram call, move to save position
218 CALL LBL "SAVE"
219 ;
220 ;Adapting the rotary coordinate system
221 CYCL DEF 800 ADJUST XZ SYSTEM ~
    Q497=+0    ;PRECESSION ANGLE ~
    Q498=+0    ;REVERSE TOOL ~
    Q530=+0    ;INCLINED MACHINING ~
    Q531=+0    ;ANGLE OF INCIDENCE? ~
    Q532=+750  ;FEED RATE ~
    Q533=+0    ;PREFERRED DIRECTION ~
    Q535=+3    ;ECCENTRIC TURNING ~
    Q536=+0    ;ECCENTRIC W/O STOP
222 ;
223 ;Define the constant surface speed and
224 ;max. spindle speed
225 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800
226 ;
227 ;Move tilting axis to zero and switch-on
228 ;turning spindle
229 L  A+0 R0 FMAX M303
230 ;
231 ;Contour turning
232 CYCL DEF 14.0 CONTOUR
233 CYCL DEF 14.1 CONTOUR LABEL4
234 CYCL DEF 840 RECESS TURNG, RADIAL ~
    Q215=+0    ;MACHINING OPERATION ~
    Q460=+2    ;SAFETY CLEARANCE ~
    Q478=+0.3  ;ROUGHING FEED RATE ~
    Q488=+0.1  ;PLUNGING FEED RATE ~
    Q483=+0.4  ;OVERSIZE FOR DIAMETER ~
    Q484=+0.2  ;OVERSIZE IN Z ~
    Q505=+0.2  ;FINISHING FEED RATE ~
    Q479=+0    ;CONTOUR MACHINING LIMIT ~
    Q480=+0    ;DIAMETER LIMIT VALUE ~
    Q482=+0    ;LIMIT VALUE Z ~
    Q463=+3    ;MAX. CUTTING DEPTH ~
    Q507=+0    ;MACHINING DIRECTION ~
    Q508=+0    ;OFFSET WIDTH ~
    Q509=+0    ;DEPTH COMPENSATION ~
    Q499=+0    ;REVERSE CONTOUR
235 L  X+119  Y+0 R0 FMAX ;Pre-positioning
236 L  Z+10 R0 FMAX ;Pre-positioning
237 L  Z+2 R0 F0.5 M99 ;Move to starting height and cycle call
238 ;
239 ;Subprogram call, milling mode
240 CALL LBL "MILL"
241 ;Subprogram call, move to save position
242 CALL LBL "SAVE"
243 ;End of program
244 M30
245 ;
246 ;Subprogram, turning mode
247 LBL "TURN"
248 M140 MB MAX ;Retracting
249 M145 ;Cancel the kinematic calculation
250 FUNCTION MODE TURN ;Activate turning mode
251 M144 ;Activation kinematic caltulation
252 M136 ;Switch feed rate to mm per revolution
253 LBL 0
254 ;
255 ;Subprogram, milling mode
256 LBL "MILL"
257 M140 MB MAX ;Retracting
258 M145 ;Cancel the kinematic calculation
259 FUNCTION MODE MILL ;Activate milling mode
260 M137 ;Switch feed rate to mm per minute
261 ;Subprogram call, move to save position
262 CALL LBL "SAVE"
263 L  C+0  A+0 R0 FMAX ;Move tilting axis to zero
264 LBL 0
265 ;
266 ;Subprogram, move to save position
267 LBL "SAVE"
268 L  X+400  Y+400 R0 FMAX M91 ;Save position !machine dependent!
269 LBL 0
270 ;
271 ;Contour for blank form update
272 LBL "Blank"
273 L  Z+0  X+0
274 L  Z+0  X+100
275 L  Z-20  X+100
276 L  Z-20  X+116.9997
277 L  Z-23  X+117
278 L  Z-23  X+105
279 L  Z-40  X+105
280 L  Z-40  X+116.9997
281 L  Z-43  X+117
282 L  Z-43  X+100
283 L  Z-56.9063  X+100
284 L  Z-56.9063  X+0
285 L  Z-60  X+117
286 L  Z-60  X+0
287 L  Z-80  X+117
288 L  Z-80  X+119.9997
289 L  Z-100  X+120
290 L  Z-100  X+0
291 L  Z+0
292 LBL 0
293 ;
294 ;Contour1
295 LBL 1
296 L  X+117  Z-43 RL
297 L  X+100
298 L  Z-56.9063
299 L  X+117  Z-60
300 LBL 0
301 ;
302 ;Contour 2
303 LBL 3
304 L  X+90  Z+0
305 L  X+95
306 RND R2
307 L  Z-20
308 UDC THREAD PITCH1.5 R0.8 DEPTH0.8 BREADTH5 ;undercut
309 L  X+110
310 LBL 0
311 ;
312 ;Contour4
313 LBL 4
314 L  X+105  Z-23
315 L  Z-27
316 GRV RADIAL CENTER-31.5 R1 DIAM89 BREADTH9 ANG_WIDTH28.072 RND1 FAR_RND1 ;Recess
317 L  Z-40
318 LBL 0
319 END PGM 10005_EN MM