Siemens SINUMERIK 840D sl Funktionshandbuch Seite 312

Programmierung
5.8 NC-Sprachbefehle
Ersetzungsunterprogramm für T- und TCA-Ersetzung:
N1000 PROC T_SUB_PROG DISPLOF SBLOF
; gemeinsamer Teil
...
; unterschiedliche Werkzeuganwahl:
N2000 IF ($C_TCA == 1)
N2010
N2020
N2030
N2040
N2050
N2060
N2070
N2080
N2090
N2100
N2110
N2120
N2130
N2140
N2150 ELSE
N2160
N2170
N2180
N2190
N2200
N2210
N2220
N2230
N2240 ENDIF
...
M17
312
; TCA–Ersetzung aktiv
IF ( $C_DUPLO_PROG == 1) AND ( $C_THNO_PROG == 1)
TCA( $C_TS, $C_DUPLO, $C_THNO )
ELSE
IF ( $C_DUPLO_PROG == 1) AND ( $C_THNO_PROG == 0)
TCA( $C_TS, $C_DUPLO)
ELSE
IF ( $C_DUPLO_PROG == 0) AND ( $C_THNO_PROG == 1)
ELSE
ENDIF
ENDIF
ENDIF
IF ( $C_T_PROG == 1) OR ( $C_TS_PROG == 1)
; T–Ersetzung aktiv
IF ( $C_T_PROG == 1)
T[ $C_TE ] = $C_T
ELSE
T[ $C_TE ] = $C_TS
ENDIF
ENDIF
TCA( $C_TS, ,$C_THNO)
TCA( $C_TS)
Funktionshandbuch, 02/2012, 6FC5397-6BP40-3AA0
Werkzeugverwaltung