0 BEGIN PGM Rechtecktasche tauchen MM 1 BLK FORM 0.1 Z X-1 Y-287.5 Z-20 2 BLK FORM 0.2 X+719 Y+2.5 Z+0 3 ; 4 ; Variablen fuer Tasche definieren 5 ; 6 Q701 = 329 ; Kante Richtung X- 7 Q702 = 599 ; Kante Richtung X+ 8 Q703 = - 52.5 ; Kante Richtung Y+ 9 Q704 = - 122.5 ; Kante Richtung Y- 10 Q705 = - 22 ; Tiefe Tasche Z- 11 Q706 = - 1 ; Bahnzustellung Z- 12 Q707 = 15 ; Eckenradius 13 ; 14 ; Variablen fuer Fraesen definieren 15 ; 16 Q708 = 5 ; Sicherheitsabstand Z 17 Q709 = 50 ; 2. Sicherheitsabstand Z 18 Q710 = 1000 ; Vorschub Zustellung 19 Q711 = 800 ; Vorschub Schruppen 20 Q712 = 1000 ; Vorschub Schlichten 21 Q713 = 29 ; Werkzeug Schruppen 22 Q714 = 150 ; Vc Schruppen 23 Q715 = 29 ; Werkzeug Schlichten 24 Q716 = 150 ; Vc Schlichten 25 Q717 = 0.3 ; Aufmass Laenge 26 Q718 = 0.3 ; Aufmass Radius 27 Q719 = 7 ; M Befehl Innenkuehlung 28 Q720 = 8 ; M Befehl Kuehlung 29 Q721 = 17 ; M Befehl Luftkuehlung 30 ; 31 ; Ab hier nichts mehr aendern!! 32 ; 33 LBL "BEGIN" 34 TOOL CALL Q713 Z S( VC = Q714 ) ~ FQ711 DL+Q717 DR+Q718 35 CYCL DEF 301 ~ Q1998=+1 36 MQ719 MQ720 37 Q725 = Q702 - Q707 ; Startpunkt X 38 Q726 = Q703 - Q707 ; Startpunkt Y 39 Q727 = Q705 / ( Q706 * 4 ) ; Berechnung 40 L X+Q725 Y+Q726 FMAX M3 41 L Z+Q708 FMAX 42 L Z+0 F250 43 Q730 = 0 ; Zaehler 44 L Y+Q703 RL F AUTO 45 LBL "CONTINUE" 46 L X+Q701 Y+Q703 IZ+Q706 RL F AUTO 47 RND RQ707 F AUTO 48 L X+Q701 Y+Q704 IZ+Q706 RL F AUTO 49 RND RQ707 F AUTO 50 L X+Q702 Y+Q704 IZ+Q706 RL F AUTO 51 RND RQ707 F AUTO 52 L X+Q702 Y+Q703 IZ+Q706 RL F AUTO 53 RND RQ707 F AUTO 54 Q730 = Q730 + 1 ; Zaehler 55 FN 9: IF +Q730 EQU +Q727 GOTO LBL "LAST_ROUND" 56 FN 12: IF +Q730 LT +Q727 GOTO LBL "CONTINUE" 57 LBL "LAST_ROUND" 58 L X+Q701 Y+Q703 RL F AUTO 59 RND RQ707 F AUTO 60 L X+Q701 Y+Q704 RL F AUTO 61 RND RQ707 F AUTO 62 L X+Q702 Y+Q704 RL F AUTO 63 RND RQ707 F AUTO 64 L X+Q702 Y+Q703 RL F AUTO 65 RND RQ707 F AUTO 66 L IX-Q707 RL F AUTO 67 L Z+Q709 R0 FMAX 68 Q730 = Q730 + 1 ; Zaehler 69 FN 11: IF +Q730 GT +Q727 GOTO LBL "SCHLICHT" 70 LBL "SCHLICHT" 71 LBL "PLACEHOLDER" 72 ; 73 ; zusaetzliche Bearbeitung 74 ; 75 LBL 0 76 TOOL CALL Q715 Z S( VC = Q716 ) ~ FQ712 77 CYCL DEF 301 ~ Q1998=+1 78 MQ719 MQ720 79 L X+Q725 Y+Q726 FMAX M3 80 L Z+Q708 FMAX 81 L Z+Q705 F1000 82 L Y+Q703 RL F AUTO 83 L X+Q701 Y+Q703 RL F AUTO 84 RND RQ707 F AUTO 85 L X+Q701 Y+Q704 RL F AUTO 86 RND RQ707 F AUTO 87 L X+Q702 Y+Q704 RL F AUTO 88 RND RQ707 F AUTO 89 L X+Q702 Y+Q703 RL F AUTO 90 RND RQ707 F AUTO 91 L IX-Q707 RL F AUTO 92 L Z+Q709 R0 FMAX 93 FN 9: IF +0 EQU +0 GOTO LBL "END" 94 LBL "END" 95 CALL LBL "PLACEHOLDER" 96 TOOL CALL 32 Z S100 97 CYCL DEF 301 ~ Q1998=+1 98 L X+1250 Y+70 FMAX M30 99 END PGM Rechtecktasche tauchen MM