PROC TCHANGE SAVE SBLOF DISPLOF；

DEF INT _LANGUAGE；

IF $P_GG[47]==2；

_LANGUAGE=1；

ELSE

_LANGUAGE=0；

ENDIF

IF _LANGUAGE==1 ;ISO 模式；

$C_MACPAR[1] = $C_T_VALUE；

G291

T$1

G290

ELSE

IF $C_T_PROG==1 ;T 是数字？

IF $C_T==0 ;T=0？

T=0

ENDIF

IF $C_T > 0

T=$C_T ;T=编程刀具号

IF $C_D_PROG= =1 ;是否有新 D 号；

D=$C_D

ENDIF

ENDIF

ENDIF

IF $C_TS_PROG==1 ;T 是文字？；

T=$C_TS ;T=编程刀名；

IF $C_D_PROG= =1 ;是否有新 D 号；

D=$C_D

ENDIF

ENDIF

ENDIF

;SETPIECE(1) ;如果以加工个数监控刀具寿命，每次换刀后寿命减 1

M17