Siemens SINUMERIK 840D sl Handbuch Seite 787

N1290 $P_UIFR[1,x,tr] = 11
N1300 $P_UIFR[1,y,tr] = 14
N1310
N1320 g54
N1330
; Frame einstellen
N1350 ROT RPL=-45
N1360 ATRANS X-2 Y10
N1370
; Vierkant schruppen
N1390 G1 X10 Y-10 G41 OFFN=1; Aufmass 1mm
N1400 X-10
N1410 Y10
N1420 X10
N1430 Y-10
N1440
; Werkzeugwechsel
N1460 G0 Z20 G40 OFFN=0
N1470 T3 D1 X15 Y-15
N1480 Z10 G41
N1490
; Vierkant schlichten
N1510 G1 X10 Y-10
N1520 X-10
N1530 Y10
N1540 X10
N1550 Y-10
N1560
; Frame abwaehlen
N1580 Z20 G40
N1590 TRANS
N1600
N1610 if $P_BFRAME <> CTRANS(X,10,Y,20,Z,30,CAX,10,B,40,C,15)
N1620 setal(61000)
N1630 endif
N1640 if $P_BFRAME <> $P_CHBFR[0]
Grundfunktionen
Funktionshandbuch, 03/2010, 6FC5397-0BP20-1AA0
K2: Achsen, Koordinatensysteme, Frames
10.5 Frames
787