840Dsl数控系统刀库管理变量精选

N10 PROC L6 SAVE DISPLOF ;SBLOF
N20 ;V08.04.14  Dec 18, 2016
N30 ;------------------------------------------------------------
N40 ; Example: Tool change cycle for machine manufacturer
N50 ;------------------------------------------------------------
N60 ; Change tool: Tool management and PLC
N70  DEF INT _WZ_IN_SP,_WZ_VOR
N80  DEF STRING[32] TL_NAME,TL_SPD
N90  DEF REAL TL_NUMBER,TL_NUM_SPD
N100 DEF INT NEW_LOC,NEW_MAG_NR
     DEF INT _TYPE_SPD_S
_WZ_VOR=-99
BEGIN:
IF ($P_SEARCH<>0) OR ($P_SIM<>0) OR ($P_ISTEST<>0)
  GETSELT(TNR_SEARCH)
  T=$TC_TP2[TNR_SEARCH] 
  M206
  GOTOF P_END
ENDIF
N110 _WZ_IN_SP=$TC_MPP6[9998,1]
N120 GETSELT(_WZ_VOR)          

N170 R50=$A_TOOLMLN[_WZ_VOR]            ;新刀具当前所在的刀位号(DB72.DBW26)
N180 R51=$A_TOOLMN[_WZ_VOR]             ;新刀具当前所在的刀库号(DB72.DBW24)

N170 R52=$A_TOOLMLN[_WZ_IN_SP]          ;主轴刀具当前所在的刀位号(1)
N180 R53=$A_TOOLMN[_WZ_IN_SP]           ;主轴刀具当前所在的刀库号(9998)

N170 R60=$A_MYMLN[_WZ_VOR]              ;新刀具当前所在的真实刀位号 DB72.DBW26
N180 R61=$A_MYMN[_WZ_VOR]               ;新刀具当前所在的真实刀库号 DB72.DBW24