0 BEGIN PGM Ablaengen MM 1 ; 2 ; Variablen fuer Werkstueck definieren 3 ; 4 Q522 = 0 ; 0 = RL / 1 = RR 5 ; 6 Q501 = - 1490 ; Koordinate X- 7 Q502 = 0 ; Koordinate X+ 8 Q503 = - 35 ; Koordinate Y- 9 Q504 = 0 ; Koordinate Y+ 10 Q505 = - 15 ; Tiefe Z 11 ; 12 ; Variablen fuer Fraesen definieren 13 ; 14 Q506 = 5 ; Sicherheitsabstand Z 15 Q507 = 50 ; 2. Sicherheitsabstand Z 16 Q508 = 1000 ; Vorschub Zustellung 17 Q509 = 1500 ; Vorschub Schruppen 18 Q510 = 1000 ; Vorschub Schlichten 19 Q511 = 1 ; Werkzeug Schruppen 20 Q512 = 250 ; Vc Schruppen 21 Q513 = 2 ; Werkzeug Schlichten 22 Q514 = 250 ; Vc Schlichten 23 Q515 = 0.3 ; Aufmass Laenge 24 Q516 = 0.3 ; Aufmass Radius 25 ; 26 ; Ab hier nichts mehr aendern!! 27 ; 28 Q523 = 1 29 TOOL CALL Q511 Z S( VC = Q512 ) ~ FQ509 DL+Q515 DR+Q516 30 M17 31 FN 9: IF +Q522 EQU +0 GOTO LBL "KONTUR_RL" 32 FN 9: IF +Q522 EQU +1 GOTO LBL "KONTUR_RR" 33 LBL "SCHLICHTEN" 34 FN 11: IF +Q523 GT +2 GOTO LBL "ENDE" 35 LBL "PLACEHOLDER" 36 ; 37 ; zusaetzliche Bearbeitung (Stirn) 38 ; 39 CYCL DEF 19.0 BEARBEITUNGSEBENE 40 CYCL DEF 19.1 B+0 C+0 41 CYCL DEF 7.0 NULLPUNKT 42 CYCL DEF 7.1 X-1490 43 CYCL DEF 7.2 Z-8 44 L X-500 FMAX 45 CYCL DEF 304 ~ Q1994=-75 ~ Q1998=+1 ~ Q1999=+1 46 L X-20 Y+20 Z+100 FMAX M3 47 L Z+10 FMAX 48 L Z-10 F1000 49 L X+0 RR F AUTO 50 L Y-55 RR F AUTO 51 L Z+50 R0 FMAX 52 CYCL DEF 19.0 BEARBEITUNGSEBENE 53 CYCL DEF 19.1 B+0 C+0 54 CYCL DEF 7.0 NULLPUNKT 55 CYCL DEF 7.1 X+0 56 CYCL DEF 7.2 Z+0 57 LBL 0 58 TOOL CALL Q513 Z S( VC = Q514 ) ~ FQ510 59 M7 M8 60 FN 9: IF +Q522 EQU +0 GOTO LBL "KONTUR_RL" 61 FN 9: IF +Q522 EQU +1 GOTO LBL "KONTUR_RR" 62 LBL "KONTUR_RL" 63 Q517 = Q501 - ( Q108 * 2 ) ; 2x Radius X- 64 Q518 = Q504 + ( Q108 * 2 ) ; 2x Radius Y+ 65 Q519 = Q505 + ( Q505 * 0.075 ) ; 7.5% tiefer Z- 66 Q520 = Q503 - ( Q108 * 2 ) ; 2x Radius Y- 67 Q521 = Q502 + ( Q108 * 2 ) ; 2x Radius X+ 68 CYCL DEF 301 ~ Q1998=+1 69 L X+Q521 Y+Q518 FMAX M3 70 L Z+Q506 FMAX 71 L Z+Q519 FQ508 72 L X+Q502 RL F AUTO 73 L Y+Q520 RL F AUTO 74 L Z+Q507 R0 FMAX 75 L X+Q517 FMAX 76 L Z+Q506 FMAX 77 L Z+Q519 FQ508 78 L X+Q501 RL F AUTO 79 L Y+Q518 RL F AUTO 80 L Z+Q507 R0 FMAX 81 Q523 = Q523 + 1 82 FN 9: IF +0 EQU +0 GOTO LBL "SCHLICHTEN" 83 LBL "KONTUR_RR" 84 Q517 = Q501 - ( Q108 * 2 ) ; 2x Radius X- 85 Q518 = Q504 + ( Q108 * 2 ) ; 2x Radius Y+ 86 Q519 = Q505 + ( Q505 * 0.075 ) ; 7.5% tiefer Z- 87 Q520 = Q503 - ( Q108 * 2 ) ; 2x Radius Y- 88 Q521 = Q502 + ( Q108 * 2 ) ; 2x Radius X+ 89 CYCL DEF 301 ~ Q1998=+1 90 L X+Q517 Y+Q518 FMAX M3 91 L Z+Q506 FMAX 92 L Z+Q519 FQ508 93 L X+Q501 RR F AUTO 94 L Y+Q520 RR F AUTO 95 L Z+Q507 R0 FMAX 96 L X+Q521 FMAX 97 L Z+Q506 FMAX 98 L Z+Q519 FQ508 99 L X+Q502 RR F AUTO 100 L Y+Q518 RR F AUTO 101 L Z+Q507 R0 FMAX 102 Q523 = Q523 + 1 103 FN 9: IF +0 EQU +0 GOTO LBL "SCHLICHTEN" 104 LBL "ENDE" 105 CALL LBL "PLACEHOLDER" 106 TOOL CALL 0 Z S100 107 L X+250 IY-250 FMAX M30 108 END PGM Ablaengen MM