0  BEGIN PGM 7080_EN MM 
1  ;Program for using an end mill 
2  ;for outside machining of a taper.
3  ;The operation requires movement in X and Z.
4  ;In a parameter, you define how frequently 
5  ;this milling path is to be repeated 
6  ;in order to mill the taper all around (Q10)
7  ;
8  BLK FORM 0.1 Z X+0 Y+0 Z-30
9  BLK FORM 0.2  X+50  Y+50  Z+0
10 ;
11 ;Parameter entry
12 FN 0: Q1 =+25 ;CENTER IN 1ST AXIS
13 FN 0: Q2 =+25 ;CENTER IN 2ND AXIS
14 FN 0: Q3 =+0 ;COORDINATE Z ABOVE
15 FN 0: Q5 =+15 ;UPPER RADIUS
16 FN 0: Q4 =-20 ;COORDINATE Z BELOW
17 FN 0: Q6 =+25 ;LOWER RADIUS
18 FN 0: Q7 =+2 ;SAFETY CLEARANCE
19 FN 0: Q8 =+600 ;FEED RATE FOR MILLING
20 FN 0: Q9 =+9999 ;RETRACTION FEED RATE
21 FN 0: Q10 =+180 ;GRADUATION
22 FN 0: Q16 =+10 ;LATERAL SAFETY CLEARANCE
23 ;End of parameter input
24 ;
25 ;Tool call for end mill
26 TOOL CALL 8 Z S5555
27 ;
28 ;Calculations
29 FN 1: Q11 =+Q3 + +Q7 ;Clearance height
30 FN 1: Q12 =+Q5 + +Q108 ;Compensated radius above
31 FN 1: Q13 =+Q6 + +Q108 ;Compensated radius below
32 FN 1: Q17 =+Q13 + +Q16 ;Safe lateral position
33 FN 4: Q14 =+360 DIV +Q10 ;Stepping angle
34 FN 2: Q15 =+Q10 - +1 ;Number of repeats
35 ;End of calculations
36 ;
37 L  Z+100 R0 FMAX M3 ;Retract
38 ;
39 ;Move datum to center
40 CYCL DEF 7.0 DATUM SHIFT
41 CYCL DEF 7.1  X+Q1
42 CYCL DEF 7.2  Y+Q2
43 L  X+Q17  Y+0 R0 FMAX ;Pre-position
44 L  Z+Q11 R0 FMAX ;Move to clearance height
45 LBL 1
46 L  Z+Q4 R0 FQ9 ;Move in Z to depth
47 L  X+Q13  Y+0 R0 FQ9 ;Move to lower radius
48 L  X+Q12  Y+0  Z+Q3 ;Move to upper radius and top edge
49 L  Z+Q11 R0 FQ9 ;Move to clearance height
50 L  X+Q17  Y+0 R0 ;Move to lateral clearance
51 ;Stepping angle
52 CYCL DEF 10.0 ROTATION
53 CYCL DEF 10.1 IROT+Q14
54 CALL LBL 1 REPQ15 ;Repetition
55 ;
56 ;Reset coordinate transformation
57 CYCL DEF 10.0 ROTATION
58 CYCL DEF 10.1  ROT+0
59 CYCL DEF 7.0 DATUM SHIFT
60 CYCL DEF 7.1  X+0
61 CYCL DEF 7.2  Y+0
62 CYCL DEF 7.3  Z+0
63 ;Retract and end program
64 L  Z+100 R0 FQ9 M30
65 END PGM 7080_EN MM