[BenAllen11]

Hi all,

Just wondered if anyone would be able to convert this Heidenhain program into a usable fanuc programme.

0 BEGIN PGM 80 MM
1 ;80 DIA,
2;,
3;,
4 ;16. BALL
5 FN 0: Q1 =+32.015
6 FN 0: Q2 =+0
7 FN 0: Q3 =+4000
8 FN 9: Q4 =+445
9 FN 1: Q5 =+Q4 + +20
10 L RO
11 TOOL CALL 0 Z SQ3
12 L X+Q5 Y+0 Z+50 RO F20000 M3
13 L Z-7 F1000
14 CC Y+0 Z-7
15 L IY+Q1
16 LBL 10
17 L X-10 F1500
18 CC X-10 Y+0
19 CP IPA+180 DR+ F10000
20 L X+Q5 F1500
21 L Y+0 F10000
22 L Z-7
23 CC Y+0 Z-7
24 L IY+Q1
25 CP IPA-Q2 DR-
26 Q2 = Q2 + 0.75
27 Q3 = Q3 + 0 + 2
28 TOOL CALL 0 Z SQ3
29 LBL 0
30 CALL LBL 10 REP123
31 L Z+250 F5000
32 STOP M2
33 END PGM 80 MM

Thanks

[cncmakers001]

O0080 (PROGRAM NAME: 80 MM)
(80 DIA)
(16. BALL)

#1 = 32.015 (RADIUS VALUE)
#2 = 0 (INITIAL INCREMENT FOR IPA)
#3 = 4000 (TOOL OFFSET)
#4 = 445 (INITIAL X POSITION)
#5 = [#4 + 20] (FINAL X POSITION)

G21 (SET UNITS TO MM)
T1 M06 (SELECT TOOL)
G90 G54 (ABSOLUTE PROGRAMMING, WORK OFFSET)
S#3 M03 (SPINDLE ON CLOCKWISE WITH SPEED #3)
G00 X#5 Y0 Z50 (RAPID MOVE TO START POSITION)
G01 Z-7 F1000 (LINEAR MOVE TO CUTTING DEPTH)

N10
G03 Y0 Z-7 R#1 (CIRCULAR INTERPOLATION)
G01 X-10 F1500 (MOVE TO X-10)
G03 I0 J0 R10 F10000 (HALF-CIRCLE CLOCKWISE MOVE)
G01 X#5 F1500 (RETURN TO START X POSITION)
G01 Y0 F10000 (LINEAR MOVE BACK TO CENTERLINE)
G01 Z-7 (MOVE TO DEPTH AGAIN)

G03 Y0 Z-7 R#1 (CIRCULAR INTERPOLATION)
G03 I0 J0 R10 F10000 (HALF-CIRCLE COUNTERCLOCKWISE MOVE)

#2 = [#2 + 0.75] (INCREMENT IPA)
#3 = [#3 + 2] (INCREMENT TOOL OFFSET)
T1 M06 (TOOL CHANGE)

IF[#2 LT 123] GOTO10 (REPEAT LABEL 10 UNTIL LIMIT)
G00 Z250 F5000 (RETRACT TOOL)
M30 (END OF PROGRAM)