Siemens SINUMERIK 840D sl Handbuch Seite 775

N1020 endif
N1030 if $P_IFRAME <> $P_UIFR[1]
N1040 setal(61000)
N1050 endif
N1060 if $P_ACTFRAME <>
CTRANS(X,11,Y,22,Z,33,C,19):CROT(X,10,Y,20,Z,30):CMIRROR(X,C)
N1070 setal(61000)
N1080 endif
N1090
N1100 TRANSMIT(2)
N1110
N1120 if $P_BFRAME <> CTRANS(X,10,Y,0,Z,20,CAZ,30,C,15)
N1130 setal(61000)
N1140 endif
N1180 if $P_IFRAME <>
CTRANS(X,1,Y,0,Z,2,CAZ,3,C,4):CROT(X,10,Y,20,Z,30):CMIRROR(X,C)
N1190 setal(61000)
N1200 endif
N1240 if $P_ACTFRAME <>
CTRANS(X,11,Y,0,Z,22,CAZ,33,C,19):CROT(X,10,Y,20,Z,30):CMIRROR(X,C)
N1250 setal(61001)
N1260 endif
N1270
N1280
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
Grundfunktionen
Funktionshandbuch, 03/2010, 6FC5397-0BP20-1AA0
K2: Achsen, Koordinatensysteme, Frames
10.5 Frames
775