Re: HEIDENHAIN iTNC 530
Napsal: 26. 9. 2021, 11:19
Ahoj,
velmi Vás zdravím. Omlouvám se pokud někoho pohorším ale zkusím to.
Jsem novým uživatelem heidenheinu a zatím v něm plavu. Hledám na netu co se dá abych se do toho dostal, ale jde to ztuha. Na netu jsem našel program na frézování R po obvodě....na tomto foru jsem hledal a četl, ale nenašel....nebyl by někdo z Vás schopen a ochoten napsat takovýto program kde by se místo radiusu frézoval úhel po obvodě? Vkládám sem program který jsem našel....předem děkuji za odpověď ať už bude jakákoliv..
0 BEGIN PGM R na obvode SL-cyklom MM
1 ; Vytvorene 5.10.2017
2 ; Pouzitie vsetkych druhov frez - stopkova , radiusova , gulova
3 ; Konturu pisat v pociatku radiusu
4 ; V tabulke nastrojov vypisovat okrem L , R aj R2 [R2-pre grafiku]
5 BLK FORM 0.1 Z X-110 Y-50 Z-12
6 BLK FORM 0.2 X+110 Y+50 Z+0
7 * - fr-DxxxRxxxR2xx
8 TOOL CALL 118 Z S4500 F2250
9 M8 M3
10 FN 0: Q4 =+5 ; radius
11 FN 0: Q2 =+0 ; pociatocny uhol
12 FN 0: Q16 =+1 ; po kolko v Z-e ; v stupnoch
13 FN 0: Q35 =+7,975 ; R2 frezy
14 Q17 = Q4 + Q35 ; vysledna hlbka
15 LBL 3
16 Q42 = Q4 * COS Q2 - Q4 - ( Q35 - ( Q35 * COS Q2 ) )
17 Q43 = Q4 * SIN Q2 - Q35 + ( Q35 * SIN Q2 )
18 CYCL DEF 14.0 OBRYS
19 CYCL DEF 14.1 LBL OBRYSU1
20 CYCL DEF 25 LINIE OBRYSU ~
Q1=+Q42 ;HLOUBKA FREZOVANI ~
Q3=+Q43 ;PRIDAVEK PRO STRANU ~
Q5=+0 ;SOURADNICE POVRCHU ~
Q7=+2 ;BEZPECNA VYSKA ~
Q10=-50 ;HLOUBKA PRISUVU ~
Q11=+150 ;POSUV NA HLOUBKU ~
Q12= AUTO ;POSUV PRO FREZOVANI ~
Q15=+1 ;ZPUSOB FREZOVANI
21 M99
22 Q2 = Q2 + Q16 ; pripocitanie kroku uhlu
23 FN 11: IF +Q42 GT -Q17 GOTO LBL 3 ; ak Q42 je viac ako vysledna hlbka~
radiusu , skok na LBL3
24 LBL 0
25 L Z+200 R0 FMAX M9
26 M2
27 * - konec
28 LBL 1 ; kontura
29 CC X+0 Y+0
30 L X+0 Y+36,43 RR F AUTO
31 C X+0 Y+36,43 DR- F AUTO
32 LBL 0
33 END PGM R na obvode SL-cyklom MM
velmi Vás zdravím. Omlouvám se pokud někoho pohorším ale zkusím to.
Jsem novým uživatelem heidenheinu a zatím v něm plavu. Hledám na netu co se dá abych se do toho dostal, ale jde to ztuha. Na netu jsem našel program na frézování R po obvodě....na tomto foru jsem hledal a četl, ale nenašel....nebyl by někdo z Vás schopen a ochoten napsat takovýto program kde by se místo radiusu frézoval úhel po obvodě? Vkládám sem program který jsem našel....předem děkuji za odpověď ať už bude jakákoliv..
0 BEGIN PGM R na obvode SL-cyklom MM
1 ; Vytvorene 5.10.2017
2 ; Pouzitie vsetkych druhov frez - stopkova , radiusova , gulova
3 ; Konturu pisat v pociatku radiusu
4 ; V tabulke nastrojov vypisovat okrem L , R aj R2 [R2-pre grafiku]
5 BLK FORM 0.1 Z X-110 Y-50 Z-12
6 BLK FORM 0.2 X+110 Y+50 Z+0
7 * - fr-DxxxRxxxR2xx
8 TOOL CALL 118 Z S4500 F2250
9 M8 M3
10 FN 0: Q4 =+5 ; radius
11 FN 0: Q2 =+0 ; pociatocny uhol
12 FN 0: Q16 =+1 ; po kolko v Z-e ; v stupnoch
13 FN 0: Q35 =+7,975 ; R2 frezy
14 Q17 = Q4 + Q35 ; vysledna hlbka
15 LBL 3
16 Q42 = Q4 * COS Q2 - Q4 - ( Q35 - ( Q35 * COS Q2 ) )
17 Q43 = Q4 * SIN Q2 - Q35 + ( Q35 * SIN Q2 )
18 CYCL DEF 14.0 OBRYS
19 CYCL DEF 14.1 LBL OBRYSU1
20 CYCL DEF 25 LINIE OBRYSU ~
Q1=+Q42 ;HLOUBKA FREZOVANI ~
Q3=+Q43 ;PRIDAVEK PRO STRANU ~
Q5=+0 ;SOURADNICE POVRCHU ~
Q7=+2 ;BEZPECNA VYSKA ~
Q10=-50 ;HLOUBKA PRISUVU ~
Q11=+150 ;POSUV NA HLOUBKU ~
Q12= AUTO ;POSUV PRO FREZOVANI ~
Q15=+1 ;ZPUSOB FREZOVANI
21 M99
22 Q2 = Q2 + Q16 ; pripocitanie kroku uhlu
23 FN 11: IF +Q42 GT -Q17 GOTO LBL 3 ; ak Q42 je viac ako vysledna hlbka~
radiusu , skok na LBL3
24 LBL 0
25 L Z+200 R0 FMAX M9
26 M2
27 * - konec
28 LBL 1 ; kontura
29 CC X+0 Y+0
30 L X+0 Y+36,43 RR F AUTO
31 C X+0 Y+36,43 DR- F AUTO
32 LBL 0
33 END PGM R na obvode SL-cyklom MM