Latche axbb-e macro m6
Posted: Tue Feb 27, 2024 1:03 pm
Good morning !
Consider purchasing the axbb-e controller. I am interested in the M6 macro, currently I use the mach3 program.
Axbb-e disc and uccnc program - gives more possibilities, theoretically. Feed and rotation control from the potentiometer panel, friendly interface.
I haven't found any typical lathe screen for basic gcode to work. Additionally, the post-processor (I use hsmworks) is set to milling.
I also use an 8-tool head, below is the M6 start code used by the mach3 program.
Can you help me convert this macro for uccnc control and the axbbe board?
If anyone has any cool screenshots for the lathe, I'd be happy to download them.
Thank you for your help !
Consider purchasing the axbb-e controller. I am interested in the M6 macro, currently I use the mach3 program.
Axbb-e disc and uccnc program - gives more possibilities, theoretically. Feed and rotation control from the potentiometer panel, friendly interface.
I haven't found any typical lathe screen for basic gcode to work. Additionally, the post-processor (I use hsmworks) is set to milling.
I also use an 8-tool head, below is the M6 start code used by the mach3 program.
- Code: Select all
Sub Main() 'Definir variables
OldTool = GetOEMDRO (1200)
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
'Konfiguracja
iToolNum = 8 'maksymalna ilosc narzedzi
RefTool = 1 'numer narzedzia po wyzerowaniu osi
iCwFeed = 5000 'posuw zmiany
iCcwFeed = 1000 'posuw cofania
'Najazd na punkt wymiany narzedzia
Code "G90 G00 G53 X-5"
Code "G90 G00 G53 Z-80"
While IsMoving()
Message "WYMIANA NARZĘDZIA"
sleep(100)
Wend
sleep(20)
Message "WYMIANA"
NewTool = tool
MaxToolNum = 13
If NewTool = OldTool Then
Exit Sub
End If
While NewTool = MaxToolNum
NewTool = Question ("Place valid tool number (1 to 13)")
Wend
'Call MovePos(OldTool)
'While IsMoving()
'Wend
ActivateSignal(Output4)
Code "G4 P 700."
Call MovePos(NewTool)
While IsMoving()
Wend
DeActivateSignal(Output0)
Code "G4 P40."
While IsMoving()
Wend
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
If isactive(input4) Then
I = 1
Else
I=0
End If
ActivateSignal(OUTPUT4)
sleep 500
deActivateSignal(output4)
sleep 0
If isactive(Output4) Then
J = 1
Else
J=0
End If
End Sub
Sub MovePos(ByVal ToolNumber As Integer)
Select Case ToolNumber
Case Is = 1
Code "G00 A0.0"
Case Is = 2
Code "G00 A45.0"
Case Is = 3
Code "G00 A90.0"
Case Is = 4
Code "G00 A135.0"
Case Is = 5
Code "G00 A180.0"
Case Is = 6
Code "G00 A225.0"
Case Is = 7
Code "G00 A270 .0"
Case Is = 8
Code "G00 A315 .0"
End Select
End Sub
Can you help me convert this macro for uccnc control and the axbbe board?
If anyone has any cool screenshots for the lathe, I'd be happy to download them.
Thank you for your help !