dams19
Nouveau
bonjour a tous j'aimerai savoir si vous avez déja creer des programmes de cone externe parametré sans sortie d'outils,avec correction du rayon en bout suivant angle de la pente.
je propose ceci et qu'en pensez vous?
0 BEGIN PGM HELOI-EXT1 MM P
1 BLK FORM 0.1 Z X-30 Y-30 Z-40
2 BLK FORM 0.2 X+30 Y+30 Z+0
3 TOOL CALL "T125E" Z S3600 F15000 DL+0 DR+0
4 * -
5 FN 0: Q30 = +0.8 ; R TORIQUE
6 FN 0: Q1 = +0 ; DEPART/Z
7 FN 0: Q19 = +1 ; PASSE AU TOUR
8 FN 0: Q0 = -8.879 ; PROFONDEUR EXT-CONE
9 FN 0: Q2 = +35 ; ANGLE.CONE
10 FN 0: Q3 = +2 ; ANGLE ANG PLAN XY
11 FN 0: Q4 = +26 ; DIAMETRE PLAN Z0
12 * - -------*******---------
13 * - -------*******---------
14 * - -------*******---------
15 CALL LBL 10 ; CORRECTION SUIVANT PENTE
16 * - -------*******---------
17 * - -------*******---------
18 * - -------*******---------
19 FN 0: Q1 = -Q1
20 FN 0: Q0 = -Q0
21 Q4 = ((Q4 / 2) + Q108) - Q96
22 FN 0: Q5 = -Q3
23 Q11 = ((Q19 * TAN Q2) / (360 / Q5)) ;
24 FN 0: Q19 = -Q11
25 Q5 = Q5 + Q3
26 Q12 = (COS Q5 * (Q4))
27 Q13 = (SIN Q5 * (Q4))
28 Q14 = (Q1 * TAN Q2)
29 Q15 = (Q14 * COS Q5)
30 Q16 = (Q14 * SIN Q5)
31 Q17 = Q12 + Q15
32 Q18 = Q13 + Q16
33 Q1 = Q1 + Q19
34 * - -------*******---------
35 * - -------*******---------
36 * - -------*******---------
37 * - POSITIONNEMENT
38 L X+Q17 Y+Q18 R0 F MAX
39 L Z-Q1 R0 F MAX
40 CALL LBL 1
41 * - -------*******---------
42 * - -------*******---------
43 * - -------*******---------
44 STOP M2
45 LBL 1
46 Q5 = Q5 + Q3
47 Q1 = Q1 + Q19
48 Q12 = (COS Q5 * (Q4))
49 Q13 = (SIN Q5 * (Q4))
50 Q14 = (Q1 * TAN Q2)
51 Q15 = (Q14 * COS Q5)
52 Q16 = (Q14 * SIN Q5)
53 Q17 = Q12 + Q15
54 Q18 = Q13 + Q16
55 L X+Q17 Y+Q18 Z-Q1 R0 F MAX
56 Q20 = Q1 + Q19
57 FN 12: IF +Q20 LT +Q0 GOTO LBL 1
58 FN 9: IF +Q1 EQU +Q0 GOTO LBL 99
59 Q21 = Q20 - Q0
60 Q19 = Q21 - Q19
61 FN 0: Q19 = -Q19
62 FN 12: IF +Q1 LT +Q0 GOTO LBL 1
63 L Z+100 R0 F MAX
64 CC X+0 Y+0
65 CP IPA+360 DR-
66 L Z+0 R0 F MAX M91
67 LBL 0
68 LBL 99
69 CC X+0 Y+0
70 CP IPA+360 DR-
71 LBL 0
72 LBL 10
73 Q91 = (COS Q2 * Q30)
74 Q92 = (SIN Q2 * Q30)
75 Q93 = (TAN Q2 * Q92)
76 Q94 = (Q93 + Q91) - Q30
77 Q95 = Q30 * TAN Q2
78 Q96 = (Q95 - Q94)
79 FN 0: Q97 = +Q96
80 LBL 0
81 END PGM HELOI-EXT1 MM P
63 END PGM HELOI-CONE2 MM
je propose ceci et qu'en pensez vous?
0 BEGIN PGM HELOI-EXT1 MM P
1 BLK FORM 0.1 Z X-30 Y-30 Z-40
2 BLK FORM 0.2 X+30 Y+30 Z+0
3 TOOL CALL "T125E" Z S3600 F15000 DL+0 DR+0
4 * -
5 FN 0: Q30 = +0.8 ; R TORIQUE
6 FN 0: Q1 = +0 ; DEPART/Z
7 FN 0: Q19 = +1 ; PASSE AU TOUR
8 FN 0: Q0 = -8.879 ; PROFONDEUR EXT-CONE
9 FN 0: Q2 = +35 ; ANGLE.CONE
10 FN 0: Q3 = +2 ; ANGLE ANG PLAN XY
11 FN 0: Q4 = +26 ; DIAMETRE PLAN Z0
12 * - -------*******---------
13 * - -------*******---------
14 * - -------*******---------
15 CALL LBL 10 ; CORRECTION SUIVANT PENTE
16 * - -------*******---------
17 * - -------*******---------
18 * - -------*******---------
19 FN 0: Q1 = -Q1
20 FN 0: Q0 = -Q0
21 Q4 = ((Q4 / 2) + Q108) - Q96
22 FN 0: Q5 = -Q3
23 Q11 = ((Q19 * TAN Q2) / (360 / Q5)) ;
24 FN 0: Q19 = -Q11
25 Q5 = Q5 + Q3
26 Q12 = (COS Q5 * (Q4))
27 Q13 = (SIN Q5 * (Q4))
28 Q14 = (Q1 * TAN Q2)
29 Q15 = (Q14 * COS Q5)
30 Q16 = (Q14 * SIN Q5)
31 Q17 = Q12 + Q15
32 Q18 = Q13 + Q16
33 Q1 = Q1 + Q19
34 * - -------*******---------
35 * - -------*******---------
36 * - -------*******---------
37 * - POSITIONNEMENT
38 L X+Q17 Y+Q18 R0 F MAX
39 L Z-Q1 R0 F MAX
40 CALL LBL 1
41 * - -------*******---------
42 * - -------*******---------
43 * - -------*******---------
44 STOP M2
45 LBL 1
46 Q5 = Q5 + Q3
47 Q1 = Q1 + Q19
48 Q12 = (COS Q5 * (Q4))
49 Q13 = (SIN Q5 * (Q4))
50 Q14 = (Q1 * TAN Q2)
51 Q15 = (Q14 * COS Q5)
52 Q16 = (Q14 * SIN Q5)
53 Q17 = Q12 + Q15
54 Q18 = Q13 + Q16
55 L X+Q17 Y+Q18 Z-Q1 R0 F MAX
56 Q20 = Q1 + Q19
57 FN 12: IF +Q20 LT +Q0 GOTO LBL 1
58 FN 9: IF +Q1 EQU +Q0 GOTO LBL 99
59 Q21 = Q20 - Q0
60 Q19 = Q21 - Q19
61 FN 0: Q19 = -Q19
62 FN 12: IF +Q1 LT +Q0 GOTO LBL 1
63 L Z+100 R0 F MAX
64 CC X+0 Y+0
65 CP IPA+360 DR-
66 L Z+0 R0 F MAX M91
67 LBL 0
68 LBL 99
69 CC X+0 Y+0
70 CP IPA+360 DR-
71 LBL 0
72 LBL 10
73 Q91 = (COS Q2 * Q30)
74 Q92 = (SIN Q2 * Q30)
75 Q93 = (TAN Q2 * Q92)
76 Q94 = (Q93 + Q91) - Q30
77 Q95 = Q30 * TAN Q2
78 Q96 = (Q95 - Q94)
79 FN 0: Q97 = +Q96
80 LBL 0
81 END PGM HELOI-EXT1 MM P
63 END PGM HELOI-CONE2 MM