0  BEGIN PGM 1025_DE MM 
1  ;Programm zur Definition eines Punktemusters,
2  ;bei dem Bohrungen auf einem runden Werkstueck
3  ;in linearer Anordnug erstellt werden.
4  ;Die Linien liegen parallel zur X-Achse. Den
5  ;Abstand der Bohrungen zueinander definieren
6  ;Sie in einem Parameter. Den Abstand der
7  ;Linien in der Y-Achse definieren Sie
8  ;ebenfalls in einem Parameter, diesen jedoch
9  ;als Faktor mit dem der Abstand in der X-Achse
10 ;multipliziert wird.
11 ;Aus den eingegebenen Parametern und dem
12 ;Werkzeugradius errechnet die Steuerung
13 ;die moeglichen Bohrpositionen, an denen dann
14 ;der Bohrzyklus ausgeführt wird.
15 ;In diesem Programm wird zuvor noch mittels
16 ;Programmaufruf ein rundes Werkstueck erstellt.
17 ;
18 ;Eingabe Parameter
19 FN 0: Q1 =+80 ;KREISZENTRUM IN DER X-ACHSE
20 FN 0: Q2 =+80 ;KREISZENTRUM IN DER Y-ACHSE
21 FN 0: Q3 =+80 ;KREISRADIUS
22 FN 0: Q4 =+8 ;ABSTAND DER BEARBEITUNGEN IN
23 ;            ;DER X-ACHSE
24 FN 0: Q5 =+0.866 ;FAKTOR FUER DEN ABSTAND
25 ;            ;IN DER Y-ACHSE
26 ;            ;Q4 * Q5 =ABSTAND IN Y
27 FN 0: Q8 =+2 ;SICHERHEITSABSTAND
28 ;Parametereingabe Ende
29 ;
30 BLK FORM 0.1 Z X-0.5 Y-0.5 Z-20
31 BLK FORM 0.2  X+160.5  Y+160.5  Z+0
32 ;
33 ;Aufruf Programm 10251-de.h zum Vorfraesen
34 ;des Runden Werkstuecks
35 CALL PGM 10251_de.H
36 ;
37 ;Werkzeugaufruf Bohrer
38 TOOL CALL 223 Z S200
39 ;
40 ;Definition Bearbeitungszyklus
41 CYCL DEF 1.0 TIEFBOHREN
42 CYCL DEF 1.1 ABSTQ8
43 CYCL DEF 1.2 TIEFE-21
44 CYCL DEF 1.3 ZUSTLG10
45 CYCL DEF 1.4 V.ZEIT0
46 CYCL DEF 1.5 F100
47 ;
48 CALL LBL 1 ;Aufruf Unterprogramm Positionen
49 ;
50 ;Freifahren und Programmende
51 L  Z+50 R0 FMAX M2
52 ;
53 ;Unterprogramm Positionen
54 LBL 1
55 ;Berechnung der Abstände und der ersten Position
56 FN 2: Q14 =+Q3 - +Q108
57 FN 1: Q13 =+Q14 + +Q2
58 FN 1: Q15 =+Q3 + +Q108
59 FN 2: Q32 =+Q2 - +Q3
60 FN 2: Q32 =+Q32 - -Q108
61 FN 0: Q21 =+Q1
62 FN 0: Q22 =+Q32
63 FN 3: Q27 =+Q4 * +Q5
64 FN 3: Q23 =+Q4 * +0.5
65 FN 3: Q24 =+Q4 * +3
66 FN 1: Q24 =+Q24 + +Q3
67 ;
68 L  Z+100 R0 FMAX M3 ;Auf sichere Position fahren
69 L  X+Q21  Y+Q22 R0 FMAX M3 ;Erste Position anfahren
70 L  Z+Q8 FMAX M99 ;Auf Sicherheitsabstand fahren und Zyklus aufrufen
71 LBL 5 ;Bestimmung der weiteren Positionen, Anfahren und Zyklusaufruf
72 FN 1: Q21 =+Q21 + -Q23
73 FN 1: Q22 =+Q22 + +Q27
74 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
75 LBL 30
76 FN 1: Q21 =+Q21 + -Q4
77 CALL LBL 50
78 FN 12: IF +Q29 LT +Q14 GOTO LBL 30
79 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
80 LBL 32
81 FN 1: Q21 =+Q21 + +Q4
82 CALL LBL 50
83 FN 11: IF +Q29 GT +Q14 GOTO LBL 32
84 LBL 31
85 L  X+Q21  Y+Q22 R0 FMAX M99
86 FN 1: Q21 =+Q21 + +Q4
87 CALL LBL 50
88 FN 12: IF +Q29 LT +Q14 GOTO LBL 31
89 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
90 FN 1: Q21 =+Q21 + +Q23
91 FN 1: Q22 =+Q22 + +Q27
92 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
93 LBL 40
94 FN 1: Q21 =+Q21 + +Q4
95 CALL LBL 50
96 FN 12: IF +Q29 LT +Q14 GOTO LBL 40
97 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
98 LBL 41
99 FN 1: Q21 =+Q21 + -Q4
100 CALL LBL 50
101 FN 11: IF +Q29 GT +Q14 GOTO LBL 41
102 LBL 42
103 L  X+Q21  Y+Q22 R0 FMAX M99
104 FN 1: Q21 =+Q21 + -Q4
105 CALL LBL 50
106 FN 12: IF +Q29 LT +Q14 GOTO LBL 42
107 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
108 FN 9: IF +0 EQU +0 GOTO LBL 5
109 LBL 0
110 LBL 50
111 FN 2: Q28 =+Q1 - +Q21
112 FN 2: Q29 =+Q2 - +Q22
113 FN 8: Q29 =+Q28 LEN +Q29
114 FN 3: Q30 =+Q28 * +Q28
115 FN 5: Q30 = SQRT +Q30
116 FN 11: IF +Q30 GT +Q24 GOTO LBL 99
117 LBL 0
118 LBL 99
119 L  Z+50 R0 FMAX ;Freifahren
120 LBL 0
121 END PGM 1025_DE MM