Volevo chiedervi una mano per programmare questo smusso.
Qualcuno mi ha consigliato di calcolare il passo in incrementale in X(o Y) e Z e di usare repitizioni con passate da 0,1mm....mi potete fare un esempio perfavore? Grazie
Codice: Seleziona tutto
0 BEGIN PGM NUMEROGRADI MM
1 BLK FORM 0.1 Z X-55 Y-30 Z-30
2 BLK FORM 0.2 X+55 Y+30 Z+0
3 FN 0: Q1 =+0 ;PUNTO-CALCOLO
4 FN 0: Q5 =+0 ; Z ZERO
5 FN 0: Q2 =+25 ; GRADI
6 FN 0: Q3 =+20 ; PROFONDITA-TOTALE
7 FN 0: Q13 =+0.25 ; INCREMENTO-ZETA
8 FN 1: Q4 =+Q2 + +Q1
9 TOOL CALL 5 Z S3150
10 L Z+5 R0 FMAX M3
11 CALL LBL 10
12 LBL 1
13 FN 0: Q108 =+Q1 ; aggiunge incremento al raggio-fresa
14 TOOL CALL Z DR+Q1
15 L X+60 Y-50 R0 FMAX M13 ; PUNTO-LIBERO
16 L Z-Q5 R0 MAX
17 L X+0 Y-20 RL F2500 ; PROFILO-CONTORNO
18 L X-45
19 RND R10
20 L Y+20
21 RND R10
22 L X+45
23 RND R10
24 L Y-20
25 RND R10
26 L X+0
27 L Z+Q4 R0 FMAX ;Z SICUREZZA
28 CALL LBL 10
29 FN 2: Q5 =+Q5 - -Q13
30 FN 12: IF +Q5 LT +Q3 GOTO LBL 1
31 FN 9: IF +Q5 EQU +Q3 GOTO LBL 1
32 FN 11: IF +Q5 GT +Q3 GOTO LBL 99
33 L Z-Q5
34 LBL 99 ;LABEL-FINE PROGRAMMA
35 L Z+100 R0 FMAX M30
36 LBL 10
37 Q12 = TAN Q2 * Q13 ;CALCOLO-TANGENTE
38 FN 1: Q1 =+Q1 + +Q12
39 LBL 0
40 END PGM NUMEROGRADI MM
Codice: Seleziona tutto
0 BEGIN PGM RAGGIOFUORI MM
1 BLK FORM 0.1 Z X-40 Y-40 Z-30
2 BLK FORM 0.2 X+40 Y+40 Z+0
3 FN 0: Q1 =+5
4 FN 0: Q2 =+10 ; RAGGIO + RAGGIOFRESA
5 FN 0: Q98 =+0
6 FN 0: Q99 =+1 ; ANGOLAZIONE-INCREMENTALE
7 FN 1: Q4 =+Q2 + -Q1
8 TOOL CALL 5 Z S2000
9 L Z+5 R0 FMAX M3
10 CALL LBL 10
11 LBL 1
12 TOOL CALL DR+Q1
13 L X+50 Y+0 R0 FMAX M13
14 L Z-Q20 R0 F1200
15 L X+40 Y+0 RL F1200
16 L Y-15
17 L X+10
18 RND R5
19 L Y-35
20 L X-35
21 RND R10
22 L Y+10
23 RND R5
24 L X-10
25 RND R5
26 L Y+30
27 L X+10
28 L X+40 Y+10
29 L Y+0
30 L X+50 R0 F1200
31 L Z+Q4 R0 FMAX
32 FN 9: IF +Q98 EQU +90 GOTO LBL 99
33 CALL LBL 10
34 FN 12: IF +Q98 LT +90 GOTO LBL 1
35 FN 9: IF +Q98 EQU +90 GOTO LBL 1
36 LBL 99
37 L Z+100 R0 FMAX M30
38 LBL 10
39 FN 1: Q98 =+Q98 + +Q99
40 FN 7: Q41 = COS +Q98
41 FN 6: Q42 = SIN +Q98
42 FN 3: Q12 =+Q2 * +Q41
43 FN 2: Q13 =+Q2 - +Q12
44 FN 2: Q1 =+0 - +Q13
45 FN 3: Q32 =+Q2 * +Q42
46 FN 2: Q20 =+Q2 - +Q32
47 LBL 0
48 END PGM RAGGIOFUORI MM
Codice: Seleziona tutto
0 BEGIN PGM SFORMO-SMUSSO MM
1 BLK FORM 0.1 Z X-50 Y-25 Z-30
2 BLK FORM 0.2 X+50 Y+25 Z+0
3 ;
4 CYCL DEF 247 DEF. ZERO PEZZO ~
Q339=+2 ;NUMERO ORIGINE
5 ;
6 ;azzeramento variabili
7 Q51 = 0
8 Q58 = 0
9 ;
10 ;Z di partenza
11 Q59 = 0
12 ;z di incremento
13 Q60 = 1
14 ;z di arrivo
15 Q70 = 25
16 ;gradi da effettuare
17 Q64 = 25
18 ;raggio torico fresa
19 Q80 = 2
20 ;
21 TOOL CALL "FACE_MILL_D40" Z S1000 F1000
22 M3 M25
23 L X+0 Y+0 R0 FMAX
24 L Z+50 R0 FMAX
25 ;
26 ;calcoli del raggio torico fresa
27 ;
28 Q81 = SIN Q64 * Q80
29 Q82 = COS Q64 * Q80
30 ;
31 ;calcoli di posizionamento Z
32 ;
33 Q58 = Q80 - Q81
34 ;
35 LBL 1
36 Q59 = Q60 + Q59
37 Q51 = TAN Q64 * Q59
38 ;
39 CYCL DEF 14.0 PROFILO
40 CYCL DEF 14.1 LABEL PROFILO2
41 CYCL DEF 270 DATI PROF. SAGOMATO ~
Q390=+1 ;TIPO DI AVVICINAM. ~
Q391=+1 ;CORREZIONE RAGGIO ~
Q392=+5 ;RAGGIO ~
Q393=+90 ;ANGOLO DEL CENTRO ~
Q394=+0 ;DISTANZA
42 CYCL DEF 25 CONTORNATURA ~
Q1=-Q59 ;PROFONDITA'FRESATURA ~
Q3=+Q51 ;QUOTA LATERALE CONS. ~
Q5=-Q58 ;COORD. SUPERFICIE ~
Q7=+50 ;ALTEZZA DI SICUREZZA ~
Q10=-30 ;PROF. INCREMENTO ~
Q11= AUTO ;AVANZ. INCREMENTO ~
Q12= AUTO ;AVANZ. PER SVUOT. ~
Q15=+1 ;MODO FRESATURA ~
Q18=+0 ;UTENSILE SGROSSATURA ~
Q446=+0.01 ;MATERIALE RESIDUO ~
Q447=+10 ;DISTANZA COLLEGAM. ~
Q448=+2 ;ESTENS. TRAIETTORIA
43 M99
44 FN 11: IF +Q70 GT +Q59 GOTO LBL 1
45 M30
46 LBL 2
47 L X-20 Y+25 RL
48 L X+50 Y+0
49 L X-20 Y-25
50 LBL 0
51 ;
52 END PGM SFORMO-SMUSSO MM