cnc-club.ru

Код: Выделить всё

'_____________________________________________________
'M6Start.M1s
' Remember Lathe tools are called from the code/mdi T0606 M6 (for tool 6, offset 6) then M6.
' output 5 -pirmyn
' output 14 atgal
Sub Main()
NewTool = GetSelectedTool()
OldTool = GetCurrentTool()
MaxToolNum = 6 'Max number of tools for the changer
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
If NewTool = OldTool Or NewTool = 0 Then
Exit Sub
End If
If OldTool <> NewTool Then
While Slot <> NewTool
ActivateSignal(OUTPUT5) 'start rotating forward
If IsActive(INPUT1) And Not IsActive(INPUT2) And Not IsActive(INPUT3) And IsActive (INPUT4) Then
Slot = 1
End If
If Not IsActive(INPUT1) And IsActive(INPUT2) And Not IsActive(INPUT3) And IsActive (INPUT4) Then
Slot = 2
End If
If IsActive(INPUT1) And IsActive(INPUT2) And Not IsActive(INPUT3) And IsActive (INPUT4) Then
Slot = 3
End If
If Not IsActive(INPUT1) And Not IsActive(INPUT2) And IsActive(INPUT3) And IsActive (INPUT4) Then
Slot = 4
End If
If IsActive(INPUT1) And Not IsActive(INPUT2) And IsActive(INPUT3) And IsActive (INPUT4) Then
Slot = 5
End If
If Not IsActive(INPUT1) And IsActive(INPUT2) And IsActive(INPUT3) And IsActive (INPUT4) Then
Slot = 6
End If
Wend
Sleep(100)
DeActivateSignal(OUTPUT5) 'stop rotating forward, rotate backward now
End If
Sleep(500)
ActivateSignal(OUTPUT14) ' rotating backward
Sleep(500)
While IsActive(OEMTrig1) ' kol index aktyvus
ActivateSignal(OUTPUT5)
Wend
DeActivateSignal(OUTPUT5)
Sleep(500)
DeActivateSignal(OUTPUT14)

SetOEMDRO(824,NewTool)
Code "G4 P2" 'A pause time of 2 seconds to give your reverse turret time to seat
While IsMoving
Wend

End Sub
Main
'__________