Дед Щукарь писал(а):Подскажите, пожалуйста, с какой ноги драйвера получить сигнал управления,
На любой свободный выход.
Потом прописать их здесь:
Дед Щукарь писал(а):После окончания исполненных кадров идет новый М06 с другим номером, меняется инструмент, здесь ручка другого цвета и т.д.
Нужно будет в папке ...\Mach3\macros\Mach3Mill в файле M6Start.m1s написать управление сигналом Output под каждую ручку. Как это сделать ищем в инете с поиском Output Mach3.
Далее в таблице инструментов прописать корректоры, чтобы Mach3 сам сдвигал ось под инструмент.
Задача веселая для начинающих
Пример макроса для смены инструмента (работать не будет)
Код: Выделить всё
'_____________________________________________________
'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
'__________
Дилетанту сложные вещи кажутся очень простыми, и только профессионал понимает насколько сложна самая простая вещь
Кто хочет - ищет возможности, кто не хочет - ищет оправдание.
Найди работу по душе и тебе не придется работать.