Donc voici ma version:
0 BEGIN PGM Sphere-V1 MM
1 BLK FORM 0.1 Z X-41 Y-41 Z-50
2 BLK FORM 0.2 X+41 Y+41 Z+0
3 ;
4 ;Usinage d une sphere en parametre
5 ;Avec une fraise boule
6 ;ATTENTION usinage en centre
7 ;outil centre de la boule
8 ;
9 ;Parametres a renseigner
10 FN 0: Q1 =+80 ;Diametre Sphere
11 FN 0: Q2 =+10 ;Diametre Fraise boule
12 FN 0: Q3 =+1 ;Angle incremental
13 FN 0: Q4 =+0 ;Angle de depart
14 ;
15 ;CALCULS FIXES
16 Q11 = Q1 / 2 ;Rayon Boule
17 Q12 = Q2 / 2 ;Rayon Fraise boule
18 Q13 = Q12 - Q11 ;Rayon total ou hypothenus
19 ;
20 ;Fr boule 10
21 TOOL CALL 10 Z S8000 F200
22 L X+0 Y+0 R0 FMAX M13
23 L Z+8 R0 FMAX
24 L Z+0 R0 F AUTO
25 ;
26 LBL 1
27 Q14 = Q13 * COS Q4 ;Diametre de contournage
28 Q15 = Q13 * SIN Q4 ;Hauteur de contournage
29 CALL LBL 11
30 Q4 = Q4 + Q3
31 FN 12: IF +Q4 LT +90 GOTO LBL 1
32 ;
33 L Z+600 R0 FMAX
34 L X-500 Y+500 R0 FMAX
35 L M30
36 ;
37 LBL 11
38 L Z+Q15 R0 FMAX
39 L X+Q14 Y+0 F AUTO
40 CC X+0 Y+0
41 C X+Q14 Y+0 DR+
42 L X+0 Y+0
43 LBL 0
44 END PGM Sphere-V1 MM
Edit: 2 ou 3 p'tites retouches
Pour info: