0  BEGIN PGM 1110_EN MM 
1  ;Program for defining a point pattern in the
2  ;form of a circle. In this example, combined
3  ;with a second program in which the holes
4  ;are made by bore milling. In this program
5  ;the helical movements are programmed and no
6  ;cycle is used.
7  ;Afer defining all necessary parameters and
8  ;the tool, the cycle for the machining process
9  ;is defined. In this example, the second
10 ;program is defined with cycle 12.
11 ;Following the individual positions are
12 ;approached, and the cycle is called.
13 ;
14 ;Input parameter for the pitch circle
15 FN 0: Q31 =+40 ;CIRCULAR HOLE PATTERN RADIUS
16 FN 0: Q32 =+0 ;STARTING ANGLE
17 FN 0: Q33 =+50 ;CENTER OF CIRCULAR HOLE PATTERN IN THE X AXIS
18 FN 0: Q34 =+50 ;CENTER OF CIRCULAR HOLE PATTERN IN THE Y AXIS
19 FN 0: Q35 =+30 ;STEPPING ANGLE
20 FN 0: Q36 =+12 ;NUMBER OF OPERATIONS
21 ;Input parameter pitch circle completed
22 ;Inpot parameter bore
23 FN 0: Q40 =+10 ;HOLE DIAMETER
24 FN 0: Q41 =-30 ;DEPTH
25 FN 0: Q42 =+25 ;NUMBER OF HELICAL PATHS
26 FN 0: Q43 =+2 ;SAFETY CLEARANCE
27 FN 0: Q44 =+1200 ;FEED RATE FOR MILLING
28 ;Input parameter bore completed
29 ;
30 ;Calculations
31 ;Pitch circle
32 FN 2: Q37 =+Q36 - +2 ;Number of repetitions
33 ;Bore
34 FN 4: Q45 =+Q40 DIV +2 ;Bore radius
35 FN 3: Q46 =+Q42 * +360 ;Angle for helical movement
36 ;Calculations completed
37 ;
38 BLK FORM 0.1 Z X+0 Y+0 Z-40
39 BLK FORM 0.2  X+100  Y+100  Z+0
40 ;
41 ;Tool call end mill
42 TOOL CALL 6 Z S8000
43 ;
44 ;Move to a safe position
45 L  Z+100 R0 FMAX M3
46 ;
47 ;Definition of program 11101-en.h as a cycle
48 CYCL DEF 12.0 PGM CALL
49 CYCL DEF 12.1 PGM TNC:\Database\11101_en.h
50 ;
51 CALL LBL 1 ;Call positions
52 ;
53 ;Move back and end of program
54 L  Z+50 R0 F9999 M2
55 ;
56 ;Sub program positions
57 LBL 1
58 CC  X+Q33  Y+Q34 ;Pitch circle center
59 LP  PR+Q31  PA+Q32 R0 F9999 ;First position
60 CYCL CALL
61 LBL 2
62 CC  X+Q33  Y+Q34 ;Pitch circle center
63 LP IPA+Q35 F9999 M99 ;Angle step
64 CALL LBL 2 REPQ37
65 LBL 0
66 END PGM 1110_EN MM