0 BEGIN PGM Kontur X beidseitig MM 1 BLK FORM 0.1 Z X-5 Y-150 Z-150 2 BLK FORM 0.2 X+2050 Y+150 Z+150 3 ; 4 LBL "VARDEF" 5 Q1 = 2050 ; NPV in X 6 LBL 0 7 ; 8 ; Kontur Links 9 ; 10 Q602 = 125 ; Anfangspunkt X 11 Q603 = 225 ; Anfangspunkt Y 12 Q604 = 5.7 ; Anfangspunkt Z 13 Q605 = 0 ; Endpunkt Z 14 Q606 = 0.6 ; Zustellung Z 15 Q607 = Q604 + 5 ; Sicherheitsabstand Z 16 Q608 = 50 ; 2. Sicherheitsabstand Z 17 Q610 = 30 ; Werkzeug 18 Q611 = 250 ; Vc 19 Q614 = 1000 ; Vorschub Zustellung 20 Q615 = 600 ; Vorschub 21 Q618 = 17 ; M Befehl Innenkuehlung 22 ; 23 FN 9: IF +0 EQU +0 GOTO LBL "FRAESEN-L" 24 ; 25 ; Kontur Links 26 ; ( X / Y / RL / RR ) 27 ; 28 LBL "KONTUR-L" 29 L Y-225 F AUTO 30 L IZ+50 FMAX 31 L X+45 Y+225 FMAX 32 L IZ-50 FMAX 33 L Y-225 F AUTO 34 L IZ+50 FMAX 35 L X-45 Y+225 FMAX 36 L IZ-50 FMAX 37 L Y-225 F AUTO 38 L IZ+50 FMAX 39 L X-125 Y+225 FMAX 40 L IZ-50 FMAX 41 L Y-225 F AUTO 42 ; 43 ; Ab hier nichts mehr aendern!! 44 ; 45 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE-L" 46 LBL "FRAESEN-L" 47 TOOL CALL Q610 Z S( VC = Q611 ) ~ FQ615 48 CYCL DEF 304 ~ Q1994=-90 ~ Q1998=+1 ~ Q1999=+1 49 L Z+Q608 FMAX 50 L X+Q602 Y+Q603 FMAX M3 51 L Z+Q607 FMAX MQ618 52 L Z+Q604 FQ614 53 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR-L" 54 LBL "CONTINUE-L" 55 L Z+Q608 R0 FMAX 56 FN 9: IF +Q604 EQU +Q605 GOTO LBL "NEXT" 57 Q604 = Q604 - Q606 58 Q607 = Q607 - Q606 59 FN 11: IF +Q604 GT +Q605 GOTO LBL "FRAESEN-L" 60 Q604 = Q605 61 Q607 = Q604 + 5 62 FN 9: IF +0 EQU +0 GOTO LBL "FRAESEN-L" 63 LBL "NEXT" 64 ; 65 ; Kontur Rechts 66 ; 67 Q702 = - 175 ; Anfangspunkt X 68 Q703 = - 155 ; Anfangspunkt Y 69 Q704 = 5.7 ; Anfangspunkt Z 70 Q705 = 0 ; Endpunkt Z 71 Q706 = 0.6 ; Zustellung Z 72 Q707 = Q704 + 5 ; Sicherheitsabstand Z 73 Q708 = 50 ; 2. Sicherheitsabstand Z 74 Q710 = 30 ; Werkzeug 75 Q711 = 250 ; Vc 76 Q714 = 1000 ; Vorschub Zustellung 77 Q715 = 600 ; Vorschub 78 Q718 = 17 ; M Befehl Innenkuehlung 79 ; 80 FN 9: IF +0 EQU +0 GOTO LBL "FRAESEN-R" 81 ; 82 ; Kontur Rechts 83 ; ( X / Y / RL / RR ) 84 ; 85 LBL "KONTUR-R" 86 L Y+155 F AUTO 87 L IZ+50 FMAX 88 L X-125 Y-155 FMAX 89 L IZ-50 FMAX 90 L Y+155 F AUTO 91 L IZ+50 FMAX 92 L X-75 Y-155 FMAX 93 L IZ-50 FMAX 94 L Y+155 F AUTO 95 L IZ+50 FMAX 96 L X-25 Y-155 FMAX 97 L IZ-50 FMAX 98 L Y+155 F AUTO 99 L IZ+50 FMAX 100 L X+30 Y-155 FMAX 101 L IZ-50 FMAX 102 L Y+155 F AUTO 103 L IZ+50 FMAX 104 L X+80 Y-155 FMAX 105 L IZ-50 FMAX 106 L Y+155 F AUTO 107 L IZ+50 FMAX 108 L X+135 Y-155 FMAX 109 L IZ-50 FMAX 110 L Y+155 F AUTO 111 ; 112 ; Ab hier nichts mehr aendern!! 113 ; 114 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE-R" 115 LBL "FRAESEN-R" 116 TOOL CALL Q710 Z S( VC = Q711 ) ~ FQ715 117 CALL LBL "NPV" 118 CYCL DEF 304 ~ Q1994=+90 ~ Q1998=+1 ~ Q1999=+1 119 L Z+Q708 FMAX 120 L X+Q702 Y+Q703 FMAX M3 121 L Z+Q707 FMAX MQ718 122 L Z+Q704 FQ714 123 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR-R" 124 LBL "CONTINUE-R" 125 L Z+Q708 R0 FMAX 126 FN 9: IF +Q704 EQU +Q705 GOTO LBL "ENDE" 127 Q704 = Q704 - Q706 128 Q707 = Q707 - Q706 129 FN 11: IF +Q704 GT +Q705 GOTO LBL "FRAESEN-R" 130 Q704 = Q705 131 Q707 = Q704 + 5 132 FN 9: IF +0 EQU +0 GOTO LBL "FRAESEN-R" 133 LBL "ENDE" 134 CALL LBL "NPV-RESET" 135 TOOL CALL 32 Z S100 136 CYCL DEF 301 ~ Q1998=+1 137 L X+1250 Y+425 FMAX M30 138 LBL "NPV" 139 CALL LBL "VARDEF" 140 CYCL DEF 19.0 BEARBEITUNGSEBENE 141 CYCL DEF 19.1 B+0 142 CYCL DEF 7.0 NULLPUNKT 143 CYCL DEF 7.1 X+Q1 144 LBL 0 145 LBL "NPV-RESET" 146 CYCL DEF 19.0 BEARBEITUNGSEBENE 147 CYCL DEF 19.1 B+0 148 CYCL DEF 7.0 NULLPUNKT 149 CYCL DEF 7.1 X+0 150 LBL 0 151 END PGM Kontur X beidseitig MM