0  BEGIN PGM 4220_DE MM 
1  ;Programm, um bei einem Quader die
2  ;Seitenflaechen und die Oberflaeche zu
3  ;bearbeiten.
4  ;Der Bezugspunkt muss in X und Y im Zentrum
5  ;und in der Z-Achse an der
6  ;Unterseite liegen.
7  ;Sie definieren in den Parametern die Roh-
8  ;und Fertigteilmasse in den einzelnen Achsen.
9  ;Ausserdem definieren Sie das Werkzeug,
10 ;Schnittdaten, Aufmasse und
11 ;Sicherheitsabstaende.
12 ;Danach berechnet die Steuerung die Masse
13 ;fuer die BLK-Form und die Aufmasse fuer
14 ;die einzelnen Flaechen.
15 ;Anschliessend erfolgt die Definition der
16 ;BLK-Form und der Werkzeugaufruf mit den
17 ;zuvor eingegebenen oder berechneten
18 ;Parametern. Dann entscheidet die Steuerung
19 ;durch einen Vergleich von Roh- und Fertigteil
20 ;welche Flaechen bearbeitet werden muessen.
21 ;Danach bearbeitet die Steuerung die
22 ;noetigen Flaechen.
23 ;!!WICHTIG!!
24 ;An den zu bearbeitenden Flaechen
25 ;duerfen keine Spannelemente vorhanden sein.
26 ;Vor dem Verfahren der Rundachsen muss eine
27 ;sichere Position angefahren werden, diese
28 ;ist maschinenabhaengig und muss von Ihnen
29 ;angepasst werden.
30 ;
31 ;Parametereingabe
32 Q1 = 550 ;FERTIGMASS X
33 Q2 = 200 ;FERTIGMASS Y
34 Q3 = 200 ;FERTIGMASS Z
35 Q4 = 650 ;ROHTEILMASS X
36 Q5 = 210 ;ROHTEILMASS Y
37 Q6 = 210 ;ROHTEILMASS Z
38 Q9 = 51 ;WERKZEUGNUMMER
39 Q10 = 5200 ;DREHZAHL
40 Q11 = 1200 ;VORSCHUB FRAESEN
41 Q15 = 3 ;ZUSTELLTIEFE
42 Q16 = 0.3 ;AUFMASS TIEFE
43 Q17 = 800 ;VORSCHUB SCHLICHTEN
44 Q18 = 3 ;SICHERHEITSABSTAND
45 Q19 = 50 ;SICHERE HOEHE ZUM VORPOSITIONIEREN
46 ;Parametereingabe Ende
47 ;
48 ;Berechnungen
49 Q7 = Q4 / 2 ;1/2 Rohmass X fuer BLK
50 Q8 = Q5 / 2 ;1/2 Rohmass Y fuer BLK
51 Q12 = ( Q4 - Q1 ) / 2 ;Aufmass in X je Seite
52 Q13 = Q1 / 2 ;Fertigmass X von Werkstueckmitte
53 Q22 = ( Q5 - Q2 ) / 2 ;Aufmass in Y je Seite
54 Q23 = Q2 / 2 ;Fertigmass Y vom Werkstueckmitte
55 Q30 = Q19 + Q12 ;Vorpositionierung bei Bearbeitung in X
56 Q31 = Q19 + Q22 ;Vorpositionierung bei Bearbeitung in Y
57 Q32 = Q19 + Q6 ;Vorpositionierung bei Bearbeitung in Z
58 ;Berechnungen Ende
59 ;
60 BLK FORM 0.1 Z X-Q7 Y-Q8 Z+0
61 BLK FORM 0.2  X+Q7  Y+Q8  Z+Q6
62 ;
63 ;Werkzeugaufruf
64 TOOL CALL Q9 Z SQ10 FQ11
65 ;
66 M3
67 ;
68 ;Vergleich von Rohmass und Fertigmass in der
69 ;X-Achse. Wenn die Bearbeitung erforderlich
70 ;ist, Sprung zu LBL1
71 FN 11: IF +Q4 GT +Q1 GOTO LBL 1
72 ;
73 LBL 3 ;LBL fuer Ruecksprung
74 ;Vergleich von Rohmass und Fertigmass in der
75 ;Y-Achse. Wenn die Bearbeitung erforderlich
76 ;ist, Sprung zu LBL2
77 FN 11: IF +Q5 GT +Q2 GOTO LBL 2
78 ;
79 LBL 4 ;LBL fuer Ruecksprung
80 ;Vergleich von Rohmass und Fertigmass in der
81 ;Z-Achse. Wenn die Bearbeitung erforderlich
82 ;ist, Sprung zu LBL5
83 FN 11: IF +Q6 GT +Q3 GOTO LBL 5
84 ;
85 LBL 6 ;LBL fuer Ruecksprung
86 ;
87 M140 MB MAX F9999 ;Freifahren
88 M30 ;Programmende
89 ;
90 ;Unterprogramme
91 ;Bearbeitung X
92 LBL 1
93 ;Nullpunktverschiebung auf Fertigteilkante
94 CYCL DEF 7.0 NULLPUNKT
95 CYCL DEF 7.1  X+Q13
96 L  Z+Q32 R0 FMAX ;Auf Z Sichere Position fahren
97 L  X+0  Y+0 R0 FMAX ;Schwenkposition anfahren
98 ;Bearbeitungsebene schwenken
99 PLANE SPATIAL SPA+90 SPB+0 SPC+90 MOVE DIST200 FMAX
100 ;Vorpositionieren in Z auf sichere Hoehe
101 L  Z+Q30 R0 FMAX
102 ;Vorpositionieren in X und Y
103 L  X+0  Y+0 R0 FMAX
104 ;Zyklus definieren
105 CYCL DEF 232 PLANFRAESEN ~
    Q389=+2    ;STRATEGIE ~
    Q225=-Q8   ;STARTPUNKT 1. ACHSE ~
    Q226=+0    ;STARTPUNKT 2. ACHSE ~
    Q227=+Q12  ;STARTPUNKT 3. ACHSE ~
    Q386=+0    ;ENDPUNKT 3. ACHSE ~
    Q218=+Q5   ;1. SEITEN-LAENGE ~
    Q219=+Q6   ;2. SEITEN-LAENGE ~
    Q202=+Q15  ;MAX. ZUSTELL-TIEFE ~
    Q369=+Q16  ;AUFMASS TIEFE ~
    Q370=+1    ;MAX. UEBERLAPPUNG ~
    Q207=+Q11  ;VORSCHUB FRAESEN ~
    Q385=+Q17  ;VORSCHUB SCHLICHTEN ~
    Q253= MAX ;VORSCHUB VORPOS. ~
    Q200=+5    ;SICHERHEITS-ABST. ~
    Q357=+5    ;SI.-ABSTAND SEITE ~
    Q204=+50   ;2. SICHERHEITS-ABST.
106 CYCL CALL
107 M140 MB+200 ;Freifahren
108 L  X+0  Y+Q6 R0 FMAX ;Schwenkposition anfahren
109 PLANE RESET MOVE DIST200 FMAX ;Bearbeitungsebene zurueckschwenken
110 ;Nullpunktverschiebung auf 2.Fertigteilkante
111 CYCL DEF 7.0 NULLPUNKT
112 CYCL DEF 7.1  X-Q13
113 L  X+0 R0 FMAX ;Schwenkposition anfahren
114 ;Bearbeitungsebene schwenken
115 PLANE SPATIAL SPA+90 SPB+0 SPC+270 MOVE DIST200 FMAX
116 ;Vorpositionieren in Z auf sichere Hoehe
117 L  Z+Q30 R0 FMAX
118 ;Vorpositionieren in X und Y
119 L  X+0  Y+0 R0 FMAX
120 ;Zyklus definieren
121 CYCL DEF 232 PLANFRAESEN ~
    Q389=+2    ;STRATEGIE ~
    Q225=-Q8   ;STARTPUNKT 1. ACHSE ~
    Q226=+0    ;STARTPUNKT 2. ACHSE ~
    Q227=+Q12  ;STARTPUNKT 3. ACHSE ~
    Q386=+0    ;ENDPUNKT 3. ACHSE ~
    Q218=+Q5   ;1. SEITEN-LAENGE ~
    Q219=+Q6   ;2. SEITEN-LAENGE ~
    Q202=+Q15  ;MAX. ZUSTELL-TIEFE ~
    Q369=+Q16  ;AUFMASS TIEFE ~
    Q370=+1    ;MAX. UEBERLAPPUNG ~
    Q207=+Q11  ;VORSCHUB FRAESEN ~
    Q385=+Q17  ;VORSCHUB SCHLICHTEN ~
    Q253= MAX ;VORSCHUB VORPOS. ~
    Q200=+5    ;SICHERHEITS-ABST. ~
    Q357=+5    ;SI.-ABSTAND SEITE ~
    Q204=+50   ;2. SICHERHEITS-ABST.
122 CYCL CALL
123 M140 MB+200 ;Freifahren
124 L  X+0  Y+Q6 R0 FMAX ;Schwenkposition anfahren
125 ;Bearbeitungsebene zurueckschwenken
126 PLANE RESET MOVE DIST200 FMAX
127 ;Nullpunkt zuruecksetzen
128 CYCL DEF 7.0 NULLPUNKT
129 CYCL DEF 7.1  X+0
130 CYCL DEF 7.2  Y+0
131 CYCL DEF 7.3  Z+0
132 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Ruecksprung
133 ;***************************************
134 ;Bearbeitung Y
135 LBL 2
136 ;Nullpunktverschiebung auf Fertigteilkante
137 CYCL DEF 7.0 NULLPUNKT
138 CYCL DEF 7.1  Y+Q23
139 L  X+0  Y+0 R0 FMAX ;Schwenkposition anfahren
140 ;Bearbeitungsebene schwenken
141 PLANE SPATIAL SPA+90 SPB+0 SPC+180 MOVE DIST200 FMAX
142 ;Vorpositionieren in Z auf sichere Hoehe
143 L  Z+Q31 R0 FMAX
144 ;Vorpositionieren in X und Y
145 L  X+0  Y+0 R0 FMAX
146 ;Zyklus definieren
147 CYCL DEF 232 PLANFRAESEN ~
    Q389=+2    ;STRATEGIE ~
    Q225=-Q13  ;STARTPUNKT 1. ACHSE ~
    Q226=+0    ;STARTPUNKT 2. ACHSE ~
    Q227=+Q22  ;STARTPUNKT 3. ACHSE ~
    Q386=+0    ;ENDPUNKT 3. ACHSE ~
    Q218=+Q1   ;1. SEITEN-LAENGE ~
    Q219=+Q6   ;2. SEITEN-LAENGE ~
    Q202=+Q15  ;MAX. ZUSTELL-TIEFE ~
    Q369=+Q16  ;AUFMASS TIEFE ~
    Q370=+1    ;MAX. UEBERLAPPUNG ~
    Q207=+Q11  ;VORSCHUB FRAESEN ~
    Q385=+Q17  ;VORSCHUB SCHLICHTEN ~
    Q253= MAX ;VORSCHUB VORPOS. ~
    Q200=+5    ;SICHERHEITS-ABST. ~
    Q357=+5    ;SI.-ABSTAND SEITE ~
    Q204=+50   ;2. SICHERHEITS-ABST.
148 CYCL CALL
149 M140 MB+200 ;Freifahren
150 L  X+0  Y+Q6 R0 FMAX ;Schwenkposition anfahren
151 ;Bearbeitungsebene zurueckschwenken
152 PLANE RESET MOVE DIST200 FMAX
153 ;Nullpunktverschiebeung auf 2.Fertigteilkante
154 CYCL DEF 7.0 NULLPUNKT
155 CYCL DEF 7.1  Y-Q23
156 L  Y+0 R0 FMAX ;Auf Schwenkposition fahren
157 PLANE SPATIAL SPA+90 SPB+0 SPC+0 TURN MB100 FMAX
158 ;Vorpositionieren in Z auf sichere Hoehe
159 L  Z+Q31 R0 FMAX
160 ;Vorpositionieren in X und Y
161 L  X+0  Y+0 R0 FMAX
162 ;Zyklus definieren
163 CYCL DEF 232 PLANFRAESEN ~
    Q389=+2    ;STRATEGIE ~
    Q225=-Q13  ;STARTPUNKT 1. ACHSE ~
    Q226=+0    ;STARTPUNKT 2. ACHSE ~
    Q227=+Q22  ;STARTPUNKT 3. ACHSE ~
    Q386=+0    ;ENDPUNKT 3. ACHSE ~
    Q218=+Q1   ;1. SEITEN-LAENGE ~
    Q219=+Q6   ;2. SEITEN-LAENGE ~
    Q202=+Q15  ;MAX. ZUSTELL-TIEFE ~
    Q369=+Q16  ;AUFMASS TIEFE ~
    Q370=+1    ;MAX. UEBERLAPPUNG ~
    Q207=+Q11  ;VORSCHUB FRAESEN ~
    Q385=+Q17  ;VORSCHUB SCHLICHTEN ~
    Q253= MAX ;VORSCHUB VORPOS. ~
    Q200=+5    ;SICHERHEITS-ABST. ~
    Q357=+5    ;SI.-ABSTAND SEITE ~
    Q204=+50   ;2. SICHERHEITS-ABST.
164 CYCL CALL
165 M140 MB+200 ;Freifahren
166 L  X+0  Y+Q6 R0 FMAX ;Schwenkposition anfahren
167 ;Bearbeitungsebene zurueckschwenken
168 PLANE RESET MOVE DIST200 FMAX
169 ;Nullpunkt zuruecksetzen
170 CYCL DEF 7.0 NULLPUNKT
171 CYCL DEF 7.1  X+0
172 CYCL DEF 7.2  Y+0
173 CYCL DEF 7.3  Z+0
174 FN 9: IF +0 EQU +0 GOTO LBL 4 ;Ruecksprung
175 ;*******************************************
176 ;Bearbeitung Z
177 LBL 5
178 ;Zyklus definieren
179 CYCL DEF 232 PLANFRAESEN ~
    Q389=+2    ;STRATEGIE ~
    Q225=-Q7   ;STARTPUNKT 1. ACHSE ~
    Q226=-Q8   ;STARTPUNKT 2. ACHSE ~
    Q227=+Q6   ;STARTPUNKT 3. ACHSE ~
    Q386=+Q3   ;ENDPUNKT 3. ACHSE ~
    Q218=+Q4   ;1. SEITEN-LAENGE ~
    Q219=+Q5   ;2. SEITEN-LAENGE ~
    Q202=+Q15  ;MAX. ZUSTELL-TIEFE ~
    Q369=+Q16  ;AUFMASS TIEFE ~
    Q370=+1    ;MAX. UEBERLAPPUNG ~
    Q207=+Q11  ;VORSCHUB FRAESEN ~
    Q385=+Q17  ;VORSCHUB SCHLICHTEN ~
    Q253= MAX ;VORSCHUB VORPOS. ~
    Q200=+5    ;SICHERHEITS-ABST. ~
    Q357=+5    ;SI.-ABSTAND SEITE ~
    Q204=+50   ;2. SICHERHEITS-ABST.
180 CYCL CALL
181 M140 MB+300 F5000 ;Freifahren
182 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Ruecksprung
183 END PGM 4220_DE MM