0  BEGIN PGM 1105_DE MM 
1  ;Programm zur Definition eines Punktemusters
2  ;in Form von einem Rahmen.
3  ;Für die Bearbeitung wird an den errechneten
4  ;Positionen ein Bearbeitungszyklus aufgerufen.
5  ;In diesem Programm ein Bohrzyklus. Nach der
6  ;Definition aller benötigten Parameter, des
7  ;Werkzeugs und des Bearbeitungszyklus wird ein
8  ;Unterprogramm aufgerufen, in dem die
9  ;einzelnen Positionen berechnet und
10 ;angefahren werden und der Zyklus
11 ;abgearbeitet wird.
12 ;
13 ;Eingabe Parameter
14 FN 0: Q1 =+15 ;STARTPOSITION NI DER X-ACHSE
15 FN 0: Q2 =+15 ;STARTPOSITION IN DER Y-ACHSE
16 FN 0: Q30 =+8 ;ANZAHL DER BEARBEITUNGEN IN X
17 FN 0: Q31 =+8 ;ANZAHL DER BEARBEITUNGEN IN Y
18 FN 0: Q32 =+10 ;ABSTAND DER BEARBEITUNGEN IN X
19 FN 0: Q33 =+10 ;ABSTAND DER BEARBEITUNGEN IN Y
20 FN 0: Q7 =+0 ;ROTATION
21 FN 0: Q8 =+2 ;SICHERHEITSABSTAND
22 ;Parametereingabe Ende
23 ;
24 BLK FORM 0.1 Z X+0 Y+0 Z-25
25 BLK FORM 0.2  X+100  Y+100  Z+0
26 ;
27 ;Werkzeugaufruf Bohrer
28 TOOL CALL 225 Z S5000
29 ;
30 ;Definition Bearbeitungszyklus
31 CYCL DEF 1.0 TIEFBOHREN
32 CYCL DEF 1.1 ABSTQ8
33 CYCL DEF 1.2 TIEFE-20
34 CYCL DEF 1.3 ZUSTLG10
35 CYCL DEF 1.4 V.ZEIT0
36 CYCL DEF 1.5 F100
37 ;
38 CALL LBL 20 ;Aufruf Unterprogramm Positionen
39 ;
40 ;Freifahren und Programmende
41 L  Z+100 R0 FMAX M2
42 ;
43 LBL 20 ;Definition der Positionen
44 FN 12: IF +Q30 LT +3 GOTO LBL 5
45 FN 12: IF +Q31 LT +3 GOTO LBL 5
46 ;Nullpunkt auf erste Position verschieben
47 CYCL DEF 7.0 NULLPUNKT
48 CYCL DEF 7.1  X+Q1
49 CYCL DEF 7.2  Y+Q2
50 ;Rotation setzen
51 CYCL DEF 10.0 DREHUNG
52 CYCL DEF 10.1  ROT+Q7
53 ;
54 L  Z+100 R0 FMAX ;Auf Sichere Hoehe fahren
55 L  X+0  Y+0 R0 FMAX M3 ;Erste Position anfahren
56 L  Z+Q8 R0 FMAX M99 ;Auf Sicherheitsabstand fahren und Zyklus aufrufen
57 FN 2: Q34 =+Q30 - +1 ;Zaehler Spalten
58 LBL 1
59 FN 2: Q34 =+Q34 - +1 ;Zaehler Spalten
60 L IX+Q32 FMAX M99 ;Auf naechste Position fahren und Zyklus aufrufen
61 FN 11: IF +Q34 GT +0 GOTO LBL 1 ;Vergleich ob weitere Spalten
62 FN 2: Q35 =+Q31 - +1 ;Zaehler Zeilen
63 LBL 2
64 FN 2: Q35 =+Q35 - +1 ;Zaehler Zeilen
65 L IY+Q33 FMAX M99 ;Naechste Position anfahren und Zyklus aufrufen
66 FN 11: IF +Q35 GT +0 GOTO LBL 2 ;Vergleich ob weitere Zeilen noetig
67 FN 2: Q34 =+Q30 - +1 ;Zaehler Spalten
68 LBL 3
69 FN 2: Q34 =+Q34 - +1 ;Zaehler Spalten
70 L IX-Q32 FMAX M99 ;Naechste Position anfahren und Zyklus aufrufen
71 FN 11: IF +Q34 GT +0 GOTO LBL 3 ;Vergleich ob weitere Spalten noetig
72 FN 2: Q36 =+Q31 - +2 ;Zaehler Zeilen
73 LBL 4
74 FN 2: Q36 =+Q36 - +1 ;Zaehler Zeilen
75 L IY-Q33 FMAX M99 ;Naechste Position anfahren und Zyklus aufrufen
76 FN 11: IF +Q36 GT +0 GOTO LBL 4 ;Vergleich ob weitere Zeilen noetig
77 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Sprung zum Unterprogrammende
78 LBL 5
79 FN 14: ERROR= 1011
80 LBL 6
81 ;Nullpunkt und Rotation zuruecksetzen
82 CYCL DEF 7.0 NULLPUNKT
83 CYCL DEF 7.1  X+0
84 CYCL DEF 7.2  Y+0
85 CYCL DEF 7.3  Z+0
86 CYCL DEF 10.0 DREHUNG
87 CYCL DEF 10.1  ROT+0
88 LBL 0
89 END PGM 1105_DE MM