0 BEGIN PGM Abzeilen Kontur 1 WKZ MM 1 BLK FORM 0.1 Z X-1183 Y-80 Z-70 2 BLK FORM 0.2 X+0 Y+0 Z+0 3 * - 4 TEILE 7 ; 8 ; Variablen fuer Fraesen definieren 9 ; 10 Q602 = - 228 ; Anfangspunkt X 11 Q603 = 35 ; Anfangspunkt Y 12 Q604 = - 1.5 ; Anfangspunkt Z 13 Q605 = - 19 ; Endpunkt Z 14 Q606 = 1.5 ; Zustellung Z 15 Q607 = Q604 + 5 ; Sicherheitsabstand Z 16 Q608 = 50 ; 2. Sicherheitsabstand Z 17 Q610 = 31 ; Werkzeug 18 Q611 = 250 ; Vc 19 Q614 = 1000 ; Vorschub Zustellung 20 Q615 = 900 ; Vorschub 21 Q618 = 7 ; M Befehl Innenkuehlung 22 ; 23 FN 9: IF +0 EQU +0 GOTO LBL "FRAESEN" 24 ; 25 ; Konturzug fuer Fraesen definieren 26 ; ( X / Y / RL / RR ) 27 ; 28 LBL "KONTUR" 29 L Y-115 30 L Y-60 31 L X-1028 32 L Y-115 33 L Y+35 34 L Y-20 35 L X-228 36 L Y+35 37 ; 38 ; Ab hier nichts mehr aendern!! 39 ; 40 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE" 41 LBL "FRAESEN" 42 TOOL CALL Q610 Z S( VC = Q611 ) 43 CYCL DEF 301 ~ Q1998=+1 44 L X+Q602 Y+Q603 FMAX M3 45 L Z+Q607 FMAX MQ618 46 L Z+Q604 FQ614 47 L FQ615 48 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR" 49 LBL "CONTINUE" 50 L Z+Q608 R0 FMAX 51 FN 9: IF +Q604 EQU +Q605 GOTO LBL "ENDE" 52 Q604 = Q604 - Q606 53 Q607 = Q607 - Q606 54 FN 11: IF +Q604 GT +Q605 GOTO LBL "FRAESEN" 55 Q604 = Q605 56 Q607 = Q604 + 5 57 FN 9: IF +0 EQU +0 GOTO LBL "FRAESEN" 58 LBL "ENDE" 59 L Z+Q608 FMAX M9 M0 60 TOOL CALL 32 Z S100 61 CYCL DEF 301 ~ Q1998=+1 62 L X+500 Y+70 FMAX M30 63 END PGM Abzeilen Kontur 1 WKZ MM