0  BEGIN PGM 1015_EN MM 
1  ;Progrm for defining a point pattern in form
2  ;of a spiral with constant distance point to
3  ;point.
4  ;For manufacturing, a cycle for the machining
5  ;process is called at the calculated points.
6  ;In this program a drilling cycle is used.
7  ;After defining all necessary parameter, the
8  ;tool and the cycle a subprogram is
9  ;called. Where the individual positions are
10 ;calculated, the tool gets positioned and
11 ;the cycle is called.
12 ;
13 ;Input parameter
14 FN 0: Q1 =+45 ;FINAL RADIUS
15 FN 0: Q2 =+5 ;STARTING RADIUS
16 FN 0: Q3 =+60 ;START STEPPING ANGLE
17 FN 0: Q4 =+2.5 ;RADIUS STEP
18 FN 0: Q5 =+50 ;CENTER IN THE X-AXIS
19 FN 0: Q6 =+50 ;CENTER IN THE Y-AXIS
20 FN 0: Q7 =+2 ;SAFTY CLEARANCE
21 FN 0: Q8 =+20 ;ROTATION
22 ;Input parameter completed
23 ;
24 BLK FORM 0.1 Z X+0 Y+0 Z-12
25 BLK FORM 0.2  X+100  Y+95  Z+0
26 ;
27 ;Tool call
28 TOOL CALL 225 Z S2000
29 ;
30 ;Define the cycle for the machining process
31 CYCL DEF 1.0 PECKING
32 CYCL DEF 1.1 SET UP2
33 CYCL DEF 1.2 DEPTH-10
34 CYCL DEF 1.3 PLNGNG10
35 CYCL DEF 1.4 DWELL0
36 CYCL DEF 1.5 F1000
37 ;
38 CC  X+Q5  Y+Q6 ;Set center
39 LP  PR+0  PA+0 R0 FMAX M3 ;Pre-positioning at the center
40 ;Set rotation
41 CYCL DEF 10.0 ROTATION
42 CYCL DEF 10.1  ROT+Q8
43 CALL LBL 2 ;Call subprogram
44 ;Move back and end of program
45 L  Z+100 R0 F9999 M2
46 ;
47 LBL 2 ;Subprogram
48 LP  PR+Q2  PA+0 R0 F9998
49 L  Z+Q7
50 FN 0: Q14 =+Q4
51 FN 0: Q13 =+Q3
52 FN 3: Q34 =+Q2 * +Q4
53 FN 3: Q33 =+Q2 * +Q3
54 FN 0: Q24 =+Q2
55 FN 0: Q23 =+0
56 LBL 1
57 FN 4: Q14 =+Q34 DIV +Q24
58 FN 4: Q13 =+Q33 DIV +Q24
59 FN 1: Q24 =+Q24 + +Q14
60 FN 1: Q23 =+Q23 + +Q13
61 LP  PR+Q24  PA+Q23 M99 ;Move to the position and call the cycle
62 FN 11: IF +Q1 GT +Q24 GOTO LBL 1 ;Comparison current radius to end radius
63 LBL 0
64 END PGM 1015_EN MM