一个卸载附件头的程序
; <<<< Unloading >>>>
Scarica:
If (($A_DBB[47] B_And 'H0F') == 0)
RET
EndIf
If (($A_DBB[47] B_And 'H0F') <> Codice)
PM_Errore(52) ;Accessorio ancora montato
EndIf
;Posto occupato
If ($A_DBB[52] B_And PresPkU) And PickUp
PM_Errore(55) ;Posto su PickUp occupato
EndIf
If Not Manual
MSG("$65353" << G_Attach_Name) ;"Scaricamento"
EndIf

SUPA G0 Ax[G_Ram]=$MA_POS_LIMIT_PLUS[G_Ram]*G_Scale_DM-G_Scale_Pos
OP_RotAxC(Pos_C) ;Posiziono Asse C
; OP_RotAxA(Pos_A) ;Posiziono Asse A
Stopre
$MA_DRIVE_AX_RATIO2_NUMERA[Ax7]=1
$MA_DRIVE_AX_RATIO2_DENOM[Ax7]=1
$MA_REFP_MOVE_DIST_CORR[1,AX7]=G_Zero_Spd
Stopre
NewConf
Stopre
M99=115 ; Resynchronize spindle

Stopre
SUPA G0 X=Pos_X
SUPA G0 X=Pos_X Y=Pos_Y+SvinY SPOS=(Pos_Spd)
M21
M5
If PickUp
M99=121 ;Apertura tapparella
Stopre
M99=117 M99=116 ;Anticipo pick-up verso mandrino
EndIf

If Cart
; Controllo carrello bloccato
WHILE Not($A_DBB[52] B_And 'H80')
Stopre
MSG("$65377") ;"Bloccare carrello porta accessorio. Proseguire con NC-Start!"
M99=138 ;Conferma cambio accessorio manuale
ENDWHILE

If (Not ($A_DBB[52] B_And PresPkU))
PM_Errore(92) ;"Non segnalata presenza carrello porta accessorio"
EndIf
EndIf
------------------------------------------在这里提示缺少轴使能
SUPA G0 Ax[G_Ram]=Pos_Ram
If PickUp
。。。
。。。
。。。
有劳各位了