@jbf
Par contre tu n'as pas la certitude du Diamètre 150 en fin de programme .
A moins de lancer le programme avec ton origine en Z ( conversion des coordonnées ) de 10 ou 20 mm relevé pour avoir l'aperçu de la sortie et penser a annuler ce décalage a la fin du programme .
Contrairement a un programme en exemple sur Top Solid après une simulation tu fais une comparaison .
merci pour ton aide voici la version final du programme
0 BEGIN PGM TREMIEV2 MM
1 BLK FORM 0.1 Z X-135 Y-135 Z-110
2 BLK FORM 0.2 X+135 Y+135 Z+0
3 TOOL CALL "MILL_D38_FINISH" Z S( VC = 300 )
4 CYCL DEF 252 POCHE CIRCULAIRE ~
Q215=+0 ;OPERATIONS D'USINAGE ~
Q223=+150 ;DIAMETRE DU CERCLE ~
Q368=+0 ;SUREPAIS. LATERALE ~
Q207= FZ+0.2 ;AVANCE FRAISAGE ~
Q351=+1 ;MODE FRAISAGE ~
Q201=-110 ;PROFONDEUR ~
Q202=+5 ;PROFONDEUR DE PASSE ~
Q369=+0 ;SUREP. DE PROFONDEUR ~
Q206= FZ+0.2 ;AVANCE PLONGEE PROF. ~
Q338=+0 ;PASSE DE FINITION ~
Q200=+2 ;DISTANCE D'APPROCHE ~
Q203=+0 ;COORD. SURFACE PIECE ~
Q204=+50 ;SAUT DE BRIDE ~
Q370=+1 ;FACTEUR RECOUVREMENT ~
Q366=+1 ;PLONGEE ~
Q385= FZ+0.2 ;AVANCE DE FINITION ~
Q439=+0 ;REFERENCE AVANCE
5 CYCL CALL POS X+0 Y+0 FMAX M3 M7
6 TOOL CALL "MILL_D38_FINISH" Z S( VC = 230 )
7 L Z+200 R0 FMAX M3 M7
8 L X+0 Y+0 R0 FMAX
9 L Z+0 R0 FMAX
10 ;
11 ;formulaire a remplir
12 ;
13 ;
14 Q1 = 100 ;MOITIER CARRE SUPERIEURE
15 Q2 = 20 ;RAYON ANGLE DE DEPART
16 Q3 = 75 ;RAYON DIAMETRE INFERIEURE
17 Q4 = 105 ;HAUTEUR DE LA TREMIE
18 Q12 = 1 ;PRISE DE PASSE
19 Q14 = 0.13 ;AVANCE EN FZ
20 Q15 = 20 ;RAYON DES ANGLES
21 ;
22 ; CALCULS (NE RIEN REMPLIR)
23 ;
24 Q5 = Q1 - Q3 ;COTE OPPOSE
25 Q6 = Q5 / Q4 ;PENTE DE LA PAROI
26 Q7 = ATAN Q6 ;ANGLE DE LA PENTE
27 Q8 = Q1 - Q2 ;LONGUEUR DU COTE OPPOSE
28 Q9 = Q8 / SIN 45 ;LONGUEUR DE L'HYPOTENUSE
29 Q10 = Q9 / Q4 ;PENTE DE L'HYPOTENUSE
30 Q11 = ATAN Q10 ;ANGLE DE L'HYPOTENUSE
31 Q13 = Q4 / Q12 ;REPETITIONS CALCULEES
32 Q16 = TAN Q7 ;VALEUR CALCULEE
33 Q17 = ( Q3 - Q2 ) / Q13 ;INCREMENT DE RAYON
34 ;
35 LBL 1
36 Q1 = Q1 - ( Q12 * Q16 ) ;AJUSTEMENT DE Q1
37 Q2 = Q2 + Q17 ;AJUSTEMENT DE Q2 POUR GRANDIR
38 FN 11: IF +Q2 GT +Q3 GOTO LBL 2 ;SAUTER SI LE RAYON (Q2) DEPASSE LE RAYON INFERIEUR (Q3)
39 FN 9: IF +Q2 EQU +Q3 GOTO LBL 2 ;SAUTER SI LE RAYON (Q2) EST EGAL AU RAYON INFERIEUR (Q3)
40 L IZ-Q12 R0 FMAX
41 L Y+Q1 RL FZQ14
42 L X-Q1 FZQ14
43 RND RQ2 ;TRANSITION AVEC UN RAYON
44 L Y-Q1 FZQ14
45 RND RQ2 ;TRANSITION AVEC UN RAYON
46 L X+Q1 RL FZQ14
47 RND RQ2 ;TRANSITION AVEC UN RAYON
48 L Y+Q1 RL FZQ14
49 RND RQ2 ;TRANSITION AVEC UN RAYON
50 L X+0 FZQ14
51 L X+0 Y+0 R0 FMAX
52 CALL LBL 1 REPQ13
53 LBL 2
54 END PGM TREMIEV2 MM