0 BEGIN PGM Gewinde fraesen MM 1 BLK FORM 0.1 Z X-100 Y-100 Z-20 2 BLK FORM 0.2 X+100 Y+100 Z+0 3 ; 4 ; Variablen fuer Gewinde definieren 5 ; 6 Q800 = 0 ; 0 = Sack / 1 = Durch 7 ; 8 Q801 = 50 ; X Koordinate 9 Q802 = - 50 ; Y Koordinate 10 Q803 = 45 ; Durchmesser 11 Q804 = 1.5 ; Steigung 12 Q805 = 20 ; Tiefe 13 Q806 = 22 ; Werkzeugnummer 14 Q807 = 150 ; Schnittgeschwindigkeit 15 Q808 = 400 ; Vorschub 16 Q809 = 0 ; Aufmass Radius 17 Q810 = 7 ; Kuehlung (M7 / M8) 18 Q811 = 5 ; Z Sicherheitsabstand 19 Q812 = 50 ; 2. Sicherheitsabstand 20 ; 21 ; Ab hier nichts mehr aendern!!! 22 ; 23 Q813 = Q803 / 2 24 Q814 = Q805 + Q811 25 Q815 = 360 * ( Q814 / Q804 ) 26 Q816 = ( Q814 / Q804 ) * 2 27 Q817 = Q805 + ( Q811 * 2 ) 28 Q818 = 360 * ( Q817 / Q804 ) 29 Q819 = ( Q817 / Q804 ) * 2 30 ; 31 FN 9: IF +Q800 EQU +0 GOTO LBL "SACK" 32 FN 9: IF +Q800 EQU +1 GOTO LBL "DURCH" 33 ; 34 LBL "SACK" 35 TOOL CALL Q806 Z S( VC = Q807 ) ~ DR+Q809 36 CYCL DEF 301 ~ Q1998=+1 37 CC X+Q801 Y+Q802 38 LP PR+0 PA+0 FMAX M3 39 L Z+Q811 FMAX MQ810 40 L Z-Q805 F1000 41 APPR CT X+Q813 Y+Q802 CCA90 R+5 RL FQ808 42 CP IPA+Q815 IZ+Q816 DR+ RL FQ808 43 LP PR+0 PA+0 R0 FQ808 44 L Z+Q812 FMAX 45 FN 9: IF +0 EQU +0 GOTO LBL "ENDE" 46 LBL "DURCH" 47 TOOL CALL Q806 Z S( VC = Q807 ) ~ DR+Q809 48 CYCL DEF 301 ~ Q1998=+1 49 CC X+Q801 Y+Q802 50 LP PR+0 PA+0 FMAX M3 51 L Z+Q811 FMAX MQ810 52 APPR CT X+Q813 Y+Q802 CCA90 R+5 RR FQ808 53 CP IPA+Q818 IZ-Q819 DR- RR FQ808 54 LP PR+0 PA+0 R0 FQ808 55 L Z+Q812 FMAX 56 FN 9: IF +0 EQU +0 GOTO LBL "ENDE" 57 LBL "ENDE" 58 TOOL CALL 32 Z S100 59 CYCL DEF 301 ~ Q1998=+1 60 L X+500 Y+70 FMAX M30 61 END PGM Gewinde fraesen MM