Hi snake
I recently created a simple program for that. You can also change it so that you can call it with PGM call. I don’t that at the moment as I am just too lazy ... smile.gif
In the first PGM you can mill the hole as big as you want. In the second one that I give you, the miller needs to be big enough so that there is no cone in the middle as here only a helix is milled...
0 BEGIN PGM Helixboreout MM
1 BLK FORM 0.1 Z X-20 Y-20 Z-30
2 BLK FORM 0.2 X+20 Y+20 Z+0
3 ;
4 ;Parameterprogram to drill any desired holes per helix
5 ;
6 ;necessary details
7 ;
8 FN 0: Q19 =+1 ;Tool number
9 FN 0: Q30 =+4000 ;Turning speed tool
10 FN 0: Q4 =+40 ;diameter drill hole
11 FN 0: Q8 =+4 ;Immersion depth per turning
12 FN 0: Q9 =+2 ;security distance
13 FN 0: Q10 =+4 ;depth
14 FN 0: Q20 =+850 ;mill feed
15 FN 0: Q31 =+0 ;oversize tool length
16 FN 0: Q32 =+0 ;oversize tool radius
17 ;
18 ;
19 FN 0: Q1 =+0 ;circle centre X Pos.1
20 FN 0: Q2 =+0 ; circle centre Y Pos.1
21 CALL LBL 6
22 ;
23 ;
24 FN 0: Q1 =+80 ; circle centre X Pos.2
25 FN 0: Q2 =+80 ; circle centre Y Pos.2
26 CALL LBL 6
27 ;
28 ;
29 FN 0: Q1 =+130 ; circle centre X Pos.3
30 FN 0: Q2 =+130 ; circle centre Y Pos.3
31 CALL LBL 6
32 ;
33 ;
34 L Z+200 R0 FMAX M5
35 L X+300 R0 FMAX M2
36 ;
37 ;
38 ;
39 ; from here onwards don’t change anything!!!!!!
40 LBL 6
41 ;B
42 FN 18: SYSREAD Q80 = ID50 NR2 IDXQ19 ;read out tool radius
43 FN 1: Q5 =+Q9 + +Q10 ;calculate total depth
44 Q3 = ( Q80 * 2 ) - 0.5 ;calculate beginning diameter
45 FN 4: Q12 =+Q4 DIV +2 ;calculation circle radius
46 FN 3: Q88 =+Q80 * +2 ;control dimension calculate tool/drill diameter
47 ;calculation end
48 ;
49 TOOL CALL Q19 Z SQ30 DL+Q31 DR+Q32
50 L Z+200 R0 FMAX M3
51 ;
52 FN 11: IF +Q88 GT +Q4 GOTO LBL 7
53 ;
54 LBL 1
55 L M110
56 L X+Q1 Y+Q2 R0 FMAX
57 L Z+Q9 R0 FMAX
58 CC X+Q1 Y+Q2
59 LP PR+Q3 PA+0 RL FQ20
60 LBL 2
61 FN 1: Q99 =+Q99 + +Q8
62 FN 11: IF +Q99 GT +Q5 GOTO LBL 3
63 CP IPA-360 IZ-Q8 DR+
64 FN 12: IF +Q99 LT +Q5 GOTO LBL 2
65 LBL 3
66 CP IPA-360 Z-Q10 DR+
67 CP IPA+365 DR+
68 LP PR+0 PA+0 R0
69 L Z+Q9 R0 FMAX
70 FN 0: Q99 =+0
71 FN 9: IF +Q3 EQU +Q12 GOTO LBL 5
72 Q3 = Q3 + ( Q80 * 2 )
73 FN 12: IF +Q3 LT +Q12 GOTO LBL 1
74 LBL 4
75 FN 0: Q3 =+Q12
76 CALL LBL 1
77 LBL 0
78 LBL 5
79 Q3 = ( Q80 * 2 ) - 0.5
80 L M111
81 LBL 0
82 LBL 7
83 FN 14: ERROR= 1046
84 ;drill hole too small for cutter
85 LBL 0
86 END PGM Helixboreout MM
0 BEGIN PGM helixmm MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-30
2 BLK FORM 0.2 X+200 Y+200 Z+0
3 ;
4 ;miller diameter needs to be at least Q3
5 ;
6 ;
7 ;necessary details
8 ;
9 FN 0: Q4 =+40 ; diameter of the drill hole
10 FN 0: Q8 =+6.342 ;immersion depth per turning
11 FN 0: Q9 =+2 ;safe distance
12 FN 0: Q10 =+11.5 ; depth + possible opening dimensions
13 FN 0: Q20 =+130 ;feed immersion
14 ;
15 ;
16 TOOL CALL "SECO" Z S3200
17 L Z+200 R0 FMAX M3
18 ;
19 FN 0: Q1 =+50 ;circle centre X Pos.1
20 FN 0: Q2 =+50 ; circle centre Y Pos.1
21 CALL LBL 4
22 ;
23 FN 0: Q1 =+80 ; circle centre X Pos.2
24 FN 0: Q2 =+80 ; circle centre Y Pos.2
25 CALL LBL 4
26 ;
27 FN 0: Q1 =+115 ; circle centre X Pos.3
28 FN 0: Q2 =+115 ; circle centre Y Pos.3
29 CALL LBL 4
30 ;
31 ;
32 L Z+200 R0 FMAX M5
33 L X+300 R0 FMAX M2
34 ;
35 ; from here onwards don’t change anything!!!!!!
36 LBL 4
37 ;Calculation
38 FN 1: Q5 =+Q9 + +Q10 ; calculate total depth
39 FN 4: Q3 =+Q4 DIV +2 ;calculate radius
40 ;Calculation end
41 CALL LBL 1
42 LBL 0
43 ;
44 LBL 1
45 L M110
46 L X+Q1 Y+Q2 R0 FMAX
47 L Z+Q9 R0 FMAX
48 CC X+Q1 Y+Q2
49 LP PR+Q3 PA+0 RL FQ20
50 LBL 2
51 FN 1: Q99 =+Q99 + +Q8
52 FN 11: IF +Q99 GT +Q5 GOTO LBL 3
53 CP IPA-360 IZ-Q8 DR+
54 FN 12: IF +Q99 LT +Q5 GOTO LBL 2
55 LBL 3
56 CP IPA-360 Z-Q10 DR+
57 CP IPA+365 DR+
58 LP PR+0 PA+0 R0
59 L Z+Q9 R0 FMAX
60 FN 0: Q99 =+0
61 L M111
62 LBL 0
63 END PGM helixmm MM