0 BEGIN PGM CHF-CIRCLE-Q MM
1 ;
2 ; NP VORHER AUF MITTE KREIS SCHIEBEN!
3 ;
4 * - QR7 FASEx BREITE
5 * - QR8 FASEz TIEFE
6 * - QR9 FASE WINKEL
7 * - QR11 WZG-UEBERLAUF TIEFE Uz
8 * - QR22 KREISDURCHMESSER
9 * - QR23 0=AUSSEN / 1=INNEN
10 * - QR24 0=FASE OBEN / 1=FASE UNTEN
11 * - QR25 D-FASE UNTEN WIRD BERECHNET
12 * - QR28 GESCHWENKTE BEARBEITUNG? 0/1
13 * - QR29 Z-KOORD. FASE UNTERKANNTE
14 ;
15 CALL PGM TNC:\CHF-CALC.H
16 ;
17 CYCL DEF 32.0 TOLERANZ
18 CYCL DEF 32.1 T0.01
19 CYCL DEF 32.2 HSC-MODE:0 TA0.01
20 ;
21 ;PLANE SPATIAL AKTIV - GESCHWENKT?
22 ;
23 FN 9: IF +QR28 EQU +0 GOTO LBL "AXIS-POS"
24 FUNCTION TCPM F CONT AXIS SPAT PATHCTRL VECTOR REFPNT TIP-TIP
25 FN 9: IF +0 EQU +0 GOTO LBL "CONTACT"
26 ;
27 LBL "AXIS-POS"
28 FUNCTION TCPM F CONT AXIS POS PATHCTRL VECTOR REFPNT TIP-TIP
29 ;
30 LBL "CONTACT"
31 L A-QR9 C+0 R0 FMAX
32 ;
33 ;KONTUR ANFAHREN? AUSSEN JA, INNEN NEIN
34 FN 9: IF +QR23 EQU +1 GOTO LBL "KEIN-ANFAHREN"
35 ;
36 QL1 = Q108 + QR15 + ( QR22 / 2 )
37 L X+0 Y-QL1 Z+50 FMAX
38 L Z+QR16
39 CALL LBL "FASE"
40 ;
41 LBL "KEIN-ANFAHREN"
42 L X+0 Y+0 Z+50 R0 FMAX
43 L Z+QR16
44 ;
45 LBL "FASE"
46 FN 9: IF +QR28 EQU +1 GOTO LBL "GESCHWENKTE-FASE"
47 CALL PGM TNC:\CHF-CIRCLE-ISO.H
48 FN 9: IF +0 EQU +0 GOTO LBL "Z-FREIFAHREN"
49 ;
50 LBL "GESCHWENKTE-FASE"
51 CALL PGM TNC:\CHF-CIRCLE-SWING-ISO.H
52 ;
53 LBL "Z-FREIFAHREN"
54 L IZ+200 R0 FMAX M129
/ 55 L Z-1 R0 FMAX M91
56 ;
57 FUNCTION RESET TCPM
58 ;
59 END PGM CHF-CIRCLE-Q MM
-
0 BEGIN PGM CHF-CIRCLE-
ISO MM
1 * -
2 * - QR22 KREISDURCHMESSER
3 * - QR23 0=AUSSEN / 1=INNEN
4 * - QR24 0=FASE OBEN / 1=FASE UNTEN
5 * - QR25 D-FASE UNTEN WIRD BERECHNET
6 * -
7 QL1 = ( QR22 / 2 ) + QR15 ; AUSSEN
8 ;
9 FN 9: IF +QR23 EQU +0 GOTO LBL 1
10 FN 9: IF +QR24 EQU +1 GOTO LBL "CHF-UNTEN"
11 ;
12 QL1 = ( QR22 / 2 ) - QR15 ; INNEN
13 CALL LBL 2
14 ;
15 LBL "CHF-UNTEN"
16 QL1 = ( QR25 / 2 ) - QR15 ; INNEN
17 CALL LBL 3
18 ;
19 * - AUSSENKREIS
20 LBL 1
21 QL2 = QL1 + QR13
22 L X+0 Y-QL1 R0
23 CC X+0 Y+0
24 CP IPA-370 IC-370 DR-
25 L X-Q108 Y-QL2
26 CALL LBL "ENDE"
27 ;
28 CALL LBL "ENDE"
29 ;
30 * - 2 INNENKREIS
31 LBL 2
32 L X+0 Y+QL1 R0
33 CC X+0 Y+0
/ 34 LP PR+QL1 PA+80 R0
35 CP IPA+370 IC+370 DR+
36 L X+0 Y+0
37 ;
38 CALL LBL "ENDE"
39 ;
40 * - 3 INNENKREIS UNTEN
41 LBL 3
42 L X+0 Y-QL1 R0
43 CC X+0 Y+0
/ 44 LP PR-QL1 PA+80 R0
45 CP IPA+370 IC+370 DR+
46 L X+0 Y+0
47 ;
48 LBL "ENDE"
49 END PGM CHF-CIRCLE-ISO MM