0  BEGIN PGM 3230_EN MM 
1  ;Milling program for a radius at the edge
2  ;of a hole. An end mill is used.
3  ;The milling path is in a linearized
4  ;circular path in the X/Z plane.
5  ;You define the number of linear steps
6  ;per quarter circle through the parameter Q6.
7  ;Likewise, you define how frequently
8  ;this milling path is to be repeated in order
9  ;to mill the radius all around (Q4).
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-30
12 BLK FORM 0.2  X+30  Y+30  Z+0
13 ;
14 ;Drilling
15 ;Tool call for drill
16 TOOL CALL 237 Z S3000 F200
17 L  Z+100 R0 FMAX M3
18 L  X+15  Y+15 R0 FMAX
19 L  Z+2 R0 FMAX
20 L  Z-20 R0 F AUTO
21 L  Z+100 R0 FMAX
22 ;
23 ;Milling radii
24 ;Parameter entry
25 FN 0: Q1 =+15 ;CENTER IN 1ST AXIS
26 FN 0: Q2 =+15 ;CENTER IN 2ND AXIS
27 FN 0: Q3 =+10 ;HOLE RADIUS
28 FN 0: Q4 =+100 ;NUMBER OF MILLING PATHS
29 FN 0: Q5 =+5 ;RADIUS TO BE MACHINED
30 FN 0: Q6 =+30 ;MILLING PATH PITCH
31 FN 0: Q7 =+2 ;SAFETY CLEARANCE
32 FN 0: Q8 =+300 ;FEED RATE FOR PECKING
33 FN 0: Q9 =+1200 ;FEED RATE FOR MILLING
34 ;End of parameter input
35 ;
36 ;Tool call for end mill
37 TOOL CALL 6 Z S8000
38 ;
39 ;Calculations
40 FN 4: Q10 =+360 DIV +Q4 ;Angular-step plane
41 FN 2: Q11 =+Q4 - +1 ;Number of repetitions in the plane
42 FN 4: Q12 =+90 DIV +Q6 ;Angular step of milling path
43 FN 2: Q13 =+Q6 - +1 ;Number of repetitions per milling path
44 FN 1: Q14 =+Q3 + +Q5 ;Center for radius
45 FN 2: Q15 =+Q14 - +Q108 ;Radius compensation
46 ;End of calculations
47 ;
48 L  X+Q1  Y+Q2 R0 F9999 M3 ;Pre-positioning
49 L  Z+Q7 ;Move to clearance height
50 L  Z-Q5 FQ8 ;Plunging
51 ;Move datum to center
52 CYCL DEF 7.0 DATUM SHIFT
53 CYCL DEF 7.1  X+Q1
54 CYCL DEF 7.2  Y+Q2
55 LBL 1
56 CC  X-Q15  Z-Q5 ;Define CC for radius
57 LP  PR+Q5  PA+90 R0 FQ9 ;Approach contour
58 LBL 2
59 LP IPA-Q12 ;Traverse linear radius segment
60 CALL LBL 2 REPQ13 ;Call repetition
61 L  Z+Q7 ;Move to clearance height
62 L  X+0  Y+0 ;Pre-positioning again
63 ;Rotation in the plane
64 CYCL DEF 10.0 ROTATION
65 CYCL DEF 10.1 IROT+Q10
66 CALL LBL 1 REPQ11 ;Repetition of milling path
67 ;
68 ;Reset the rotation
69 CYCL DEF 10.0 ROTATION
70 CYCL DEF 10.1  ROT+0
71 ;Reset the datum
72 CYCL DEF 7.0 DATUM SHIFT
73 CYCL DEF 7.1  X+0
74 CYCL DEF 7.2  Y+0
75 CYCL DEF 7.3  Z+0
76 ;Retract and end program
77 L  Z+20 R0 FMAX M2
78 END PGM 3230_EN MM