0  BEGIN PGM 3085_EN MM 
1  ;NC program for machining a concave arc
2  ;segment. You can define different radii
3  ;for the profile at the start of the arc and
4  ;at the end of the arc.
5  ;In addition, the start and end angles can
6  ;be variably defined in  the profil and in
7  ;the X/Y plane.
8  ;In the NC program you define the tool and all
9  ;the parameters required for machining. Then
10 ;the control calls another NC program. It
11 ;preforms all calculations and positioning
12 ;movements in this program. You do not need
13 ;to make any changes to the NC program called.
14 ;Machining is programmed in two steps in this
15 ;example. The parameters to be edited for
16 ;finishing are defined again after the first
17 ;program call and the NC program for machining
18 ;is called a second time.
19 ;
20 BLK FORM 0.1 Z X+0 Y+0 Z-40
21 BLK FORM 0.2  X+200  Y+100  Z+0
22 ;
23 TOOL CALL "BALL_MILL_D10" Z S2800
24 TOOL CALL  Z DL-Q108
25 L  Z+20 R0 F9998 M3
26 ;Parameter input
27 ;General parameters
28 FN 0: Q1 =+100 ;ARC CENTER X
29 FN 0: Q2 =+0 ;ARC CENTER Y
30 FN 0: Q3 =+0 ;ARC CENTER Z
31 FN 0: Q6 =+25 ;STARTING RADIUS OF CONTOUR IN X/Z PLANE
32 FN 0: Q16 =+10 ;END RADIUS OF CONTOUR IN X/Z PLANE
33 FN 0: Q7 =+90 ;STARTING ANGLE OF CONTOUR IN X/Z PLANE
34 FN 0: Q17 =+270 ;END ANGLE OF CONTOUR IN X/Z PLANE
35 FN 0: Q8 =+0 ;STARTING ANGLE OF CONTOUR IN X/Y PLANE
36 FN 0: Q18 =+180 ;END ANGLE OF CONTOUR IN X/Y PLANE
37 FN 0: Q10 =+60 ;RADIUS AT CENTER OF CONTOUR IN X/Y PLANE
38 FN 0: Q25 =+10 ;SET-UP CLEARANCE
39 FN 0: Q26 =+100 ;NUMBER OF CUTS
40 FN 0: Q27 =+50 ;NUMBER OF LINEAR SEGMENTS PER CUT
41 ;
42 ;Roughing parameters
43 FN 0: Q20 =+100 ;FEED RATE FOR PLUNGING
44 FN 0: Q21 =+300 ;FEED RATE FOR MILLING
45 FN 0: Q22 =+300 ;FEED RATE FOR PREPOSITIONING
46 FN 0: Q23 =+8 ;OVERSIZE IN Z AXIS
47 FN 0: Q29 =+2 ;ROUGHING FACTOR
48 ;End of parameter input 
49 ;
50 ;Calculation of radius compensation
51 FN 2: Q6 =+Q6 - +Q108
52 FN 2: Q16 =+Q16 - +Q108
53 ;
54 ;Pre-position the tool
55 L  X+Q1  Y+Q2 R0 F9999
56 ;
57 ;Program call for machining
58 CALL PGM 30851_en
59 ;
60 ;Finishing parameters
61 FN 0: Q20 =+200 ;FEED RATE FOR PLUNGING
62 FN 0: Q21 =+500 ;FEED RATE FOR MILLING
63 FN 0: Q22 =+1000 ;FEED RATE FOR PREPOSITIONING
64 FN 0: Q23 =+0 ;OVERSIZE IN Z AXIS
65 FN 0: Q29 =+1 ;ROUGHING FACTOR
66 ;End of parameter input
67 ;
68 ;Pre-position tool
69 L  X+Q1  Y+Q2 R0 F9999
70 ;
71 ;Program call for machining
72 CALL PGM 30851_en
73 ;
74 ;Retract and end program
75 L  Z+50 R0 F9998 M2
76 END PGM 3085_EN MM