0 BEGIN PGM srazeni MM 1 ; Vytvorene 28.10.2021 2 ; Program pro vyfrezovani srazeni 3 ; Do tab. nastroju zapsat L a R nastroje ( R2 pro grafiku ) 4 ; 5 BLK FORM 0.1 Z X-50 Y-50 Z-12 6 BLK FORM 0.2 X+50 Y+50 Z+0 7 ; 8 TOOL CALL 1 Z S4500 F2250 9 L Z+200 R0 FMAX M3 10 ; 11 ;###################### 12 ; Nastaveni srazeni # 13 ; 1= sirka + uhel # 14 ; 2= hloubka + uhel # 15 ; 3= sirka + hloubka # 16 FN 0: Q20 =+2 ; # 17 ;###################### 18 ; 19 FN 0: Q21 =+5 ; sirka sr 20 FN 0: Q22 =+10 ; uhel sr | 0 = rovina 21 FN 0: Q23 =+1 ; hloubka sr 22 ; 23 FN 0: Q24 =+0.1 ; prisuv v Z 24 FN 0: Q25 =+5 ; R2 frezy 25 ; 26 Q40 = 0 ;akt. hloubka 27 ; 28 LBL 3 29 CALL LBL 10 ;vypocty 30 ; 31 CYCL DEF 14.0 OBRYS 32 CYCL DEF 14.1 LBL OBRYSU1 33 CYCL DEF 25 LINIE OBRYSU ~ Q1=-Q40 ;HLOUBKA FREZOVANI ~ Q3=-Q41 ;PRIDAVEK PRO STRANU ~ Q5=+0 ;SOURADNICE POVRCHU ~ Q7=+2 ;BEZPECNA VYSKA ~ Q10=+Q40 ;HLOUBKA PRISUVU ~ Q11=+150 ;POSUV NA HLOUBKU ~ Q12= AUTO ;POSUV PRO FREZOVANI ~ Q15=+1 ;ZPUSOB FREZOVANI 34 ; 35 M99 36 ; 37 FN 12: IF +Q40 LT +Q31 GOTO LBL 3 38 LBL 0 39 L Z+200 R0 FMAX M30 40 * - konec 41 LBL 1 ; kontura 42 CC X+0 Y+0 43 L X+0 Y+50 RL F AUTO 44 CP IPA+360 DR- 45 LBL 0 46 ; 47 LBL 10 ;vypocty 48 Q20 = ABS Q20 ;typ 49 Q21 = ABS Q21 ;sirka 50 Q22 = ABS Q22 ;uhel 51 Q23 = ABS Q23 ;hloubka 52 Q24 = ABS Q24 ;krok 53 Q25 = ABS Q25 ;R2 fr 54 ; 55 Q30 = Q22 ;uhel 56 FN 10: IF +Q20 NE +3 GOTO LBL 11 57 Q30 = ATAN ( Q23 / Q21 ) ;uhel z sirky a hloubky 58 LBL 11 59 Q31 = Q23 ;hloubka 60 FN 10: IF +Q20 NE +1 GOTO LBL 12 61 Q31 = Q21 * ( TAN Q30 ) ;hloubka 62 LBL 12 63 Q26 = Q25 - ( SIN Q30 ) * Q25 ;x R2 64 Q27 = Q25 - ( COS Q30 ) * Q25 ;z R2 65 ; 66 Q40 = Q40 + Q24 ;akt. hloubka 67 Q41 = ( Q31 - Q40 + Q27 ) / ( TAN Q30 ) + Q26 68 ; 69 LBL 0 70 END PGM srazeni MM