programmi di tasche coniche

[teogian]

Metto a disposizione 2 programmi per Heidenhain per la finitura di tasche con 2 oppure 4 lati conici.
Se a qualcuno può servire....


0 BEGIN PGM TASCA-CONICA-SU-4-LATI-Q MM
1 BLK FORM 0.1 Z X-173 Y-173 Z-97
2 BLK FORM 0.2 X+173 Y+173 Z+0
3 ;FRESA HM SFERICA D8
4 TOOL CALL 20 Z S6000 F600 DL+0 DR+0.1
5 L Z+100 R0 FMAX M3
6 FN 0: Q1 =+10 ; GRADI
7 FN 0: Q2 =+0.5 ; INCREMENTO IN Z
8 FN 0: Q3 =+115.045 ;LARGHEZZA INIZIALE X
9 Q5 = Q2 * TAN Q1 ;SPOSTAMENTO NEL RAGGIO AD OGNI INCREMENTO DI Z
10 FN 0: Q6 =+115.045 ;LARGHEZZA INIZIALE X-
11 FN 0: Q7 =+115.045 ;LARGHEZZA INIZIALE Y-
12 CALL LBL 1
13 L Z+100 R0 FMAX M30
14 LBL 1
15 L X+0 Y-100 R0 FMAX
16 L Z+5 R0 FMAX
17 L Z+0 F1000
18 LBL 2
19 Q3 = Q3 - Q5
20 Q4 = Q4 - Q5
21 Q6 = Q6 - Q5
22 Q7 = Q7 - Q5
23 APPR LCT X+0 Y-Q7 IZ-Q2 R3 RL F1000
24 L X+Q6 F AUTO
25 L Y+Q4
26 L X-Q3
27 L Y-Q7
28 L X+2.5
29 DEP LCT X+0 Y-90 R3 F1000
30 CALL LBL 2 REP75
31 L Z+100 R0 FMAX
32 LBL 0
33 END PGM TASCA-CONICA-SU-4-LATI-Q MM


0 BEGIN PGM TASCA-CONICA-SU-2-LATI-Q MM
1 BLK FORM 0.1 Z X-173 Y-173 Z-97
2 BLK FORM 0.2 X+173 Y+173 Z+0
3 ;FRESA HM SFERICA D8
4 TOOL CALL 20 Z S6000 F600 DL+0 DR+0.1
5 L Z+100 R0 FMAX M3
6 FN 0: Q1 =+45 ; GRADI
7 FN 0: Q2 =+0.5 ; INCREMENTO IN Z
8 FN 0: Q3 =+115.045 ;LARGHEZZA INIZIALE X
9 Q5 = Q2 * TAN Q1 ;SPOSTAMENTO NEL RAGGIO AD OGNI INCREMENTO DI Z
10 CALL LBL 1
11 L Z+100 R0 FMAX M30
12 LBL 1
13 L X+0 Y-100 R0 FMAX
14 L Z+5 R0 FMAX
15 L Z+0 F1000
16 LBL 2
17 Q3 = Q3 - Q5
18 Q4 = Q4 - Q5
19 APPR LCT X+0 Y-115 IZ-Q2 R3 RL F1000
20 L X+115 F AUTO
21 L Y+Q4
22 L X-Q3
23 L Y-115
24 L X+2.5
25 DEP LCT X+0 Y-100 R3 F1000
26 CALL LBL 2 REP75
27 L Z+100 R0 FMAX
28 LBL 0
29 END PGM TASCA-CONICA-SU-2-LATI-Q MM

[euge1981]

Grazie Teogian,
ti ringrazio.

[euge1981]

Mi viene un dubbio,
perchè in "30 CALL LBL 2 REP75" non usi una variabile al posto di 75?

[teogian]

Tutto si può fare e migliorare, Euge, così è tale e quale come me l'ha passato uno stampista della mia zona, io li ho solo provati al simulatore per vedere se giravano, nella pratica penso che nell'officina in cui lavoro non li utilizzeremo mai, in quanto si fanno lavorazioni di altro tipo.
ciao