0  BEGIN PGM 7085_EN MM 
1  ;Program for using an end mill 
2  ;for inside 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 =+25 ;UPPER RADIUS
16 FN 0: Q4 =-20 ;COORDINATE Z BELOW
17 FN 0: Q6 =+15 ;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 ;End of parameter input
23 ;
24 ;Tool call for end mill
25 TOOL CALL 8 Z S5555
26 ;
27 ;Calculations
28 FN 1: Q11 =+Q3 + +Q7 ;Clearance height
29 FN 2: Q12 =+Q5 - +Q108 ;Compensated radius above
30 FN 2: Q13 =+Q6 - +Q108 ;Compensated radius below
31 FN 4: Q14 =+360 DIV +Q10 ;Stepping angle
32 FN 2: Q15 =+Q10 - +1 ;Number of repeats
33 ;End of calculations
34 ;
35 L  Z+100 R0 FMAX M3 ;Retract
36 ;
37 ;Move datum to center
38 CYCL DEF 7.0 DATUM SHIFT
39 CYCL DEF 7.1  X+Q1
40 CYCL DEF 7.2  Y+Q2
41 L  X+0  Y+0 R0 FMAX ;Pre-position
42 L  Z+Q11 R0 FMAX ;Move to clearance height
43 LBL 1
44 L  X+Q12  Y+0 R0 FQ9 ;Move to upper radius
45 L  Z+Q3 R0 FQ8 ;Move in Z to top
46 L  X+Q13  Y+0  Z+Q4 ;Move to lower radius and depth
47 L  X+0  Y+0 R0 ;Move to the center
48 L  Z+Q11 R0 FQ9 ;Move to clearance height
49 ;Stepping angle
50 CYCL DEF 10.0 ROTATION
51 CYCL DEF 10.1 IROT+Q14
52 CALL LBL 1 REPQ15 ;Repetition
53 ;
54 ;Reset coordinate transformation
55 CYCL DEF 10.0 ROTATION
56 CYCL DEF 10.1  ROT+0
57 CYCL DEF 7.0 DATUM SHIFT
58 CYCL DEF 7.1  X+0
59 CYCL DEF 7.2  Y+0
60 CYCL DEF 7.3  Z+0
61 ;Retract and end program
62 L  Z+100 R0 FQ9 M30
63 END PGM 7085_EN MM