0 BEGIN PGM 2135_FR MM 
1 ;Programme permettant de réaliser un tenon avec le contour
2 ;d'un profil polygonal P3G conforme à la norme DIN 3271.
3 BLK FORM 0.1 Z X+0 Y+0 Z-25
4 BLK FORM 0.2  X+100  Y+100  Z+0
5 ;
6 ;Appel de l'outil de fraisage
7 TOOL CALL 51 Z S5000
8 ;
9 ;Données de coupe
Q50 = 20 ;PROFONDEUR FRAISAGE
Q51 = 3 ;PROFONDEUR DE PASSE
Q52 = 2 ;DISTANCE D'APPROCHE
Q53 = 150 ;AVANCE DE LA PASSE EN PROFONDEUR
Q54 = 500 ;AVANCE FRAISAGE
10 ;
11 ;Paramètres du polygone P3G
Q30 = 75 ;DIAMETRE DE MEME EPAISSEUR (d1)
Q31 = 3.15 ;EXCENTRICITE (e)
Q36 = 50 ;CENTRE POLYGONE AXE X
Q37 = 50 ;CENTRE POLYGONE AXE Y
Q38 = 0 ;ROTATION
Q32 = 90 ;ANGLE DE DEPART
12 ;Fin de la programmation des paramètres
13 ;===========================================
Q35 = 0 ;DEPART DE L'INCREMENT ANGULAIRE
Q35 = Q32 ;POSITION DE DEPART
Q40 = Q35 + 360.5 ;POSITION FINALE
14 CYCL DEF 7.0 POINT ZERO
15 CYCL DEF 7.1  X+Q36
16 CYCL DEF 7.2  Y+Q37
17 CYCL DEF 10.0 ROTATION
18 CYCL DEF 10.1  ROT+Q38
19 CYCL DEF 14.0 CONTOUR
20 CYCL DEF 14.1 LABEL CONTOUR1
21 CYCL DEF 25 TRACE DE CONTOUR ~
   Q1=-Q50  ;PROFONDEUR FRAISAGE ~
    Q3=+0    ;SUREPAIS. LATERALE ~
    Q5=+0    ;COORD. SURFACE PIECE ~
    Q7=+Q52  ;HAUTEUR DE SECURITE ~
    Q10=-Q51  ;PROFONDEUR DE PASSE ~
    Q11=+Q53  ;AVANCE PLONGEE PROF. ~
    Q12=+Q54  ;AVANCE EVIDEMENT ~
    Q15=+1    ;MODE FRAISAGE
22 L  X+0  Y+0 R0 FMAX M3 M99
23 ;
24 ;Fin du programme
25 L  Z+100 R0 FMAX M30
26 ;
27 ;Fin du programme
28 ;Calcul du contour
29 LBL 1
Q41 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * COS Q35 - 3 * Q31 * SIN ( 3 * Q35 ) * SIN Q35
Q42 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * SIN Q35 + 3 * Q31 * SIN ( 3 * Q35 ) * COS Q35
30 L  X+Q41  Y+Q42 RR
Q35 = Q35 + 0.5
31 FN 10: IF +Q35 NE +Q40 GOTO LBL 1
32 LBL 0
33 END PGM 2135_FR MM