Lathe ATC 8 Position

>> YOUR LINK HERE: ___ http://youtube.com/watch?v=Rzhf9FKGxr8

8 position Lathe ATC. • How to set up DIY tool changer, how to add buttons to the Mack3 screen set, change settings for the Pokeys57cnc/Pokeys57U boards and mechanical buttons. • it was a 4-1 • cnc boards........ • Pokeys57cnc https://www.poscope.com/product/pokey... • Pokeys57u https://www.poscope.com/product/pokey... • PoExtBusOC16 https://www.poscope.com/product/poext... • Pokeys downloads https://www.poscope.com/downloads-man... • Screen editor • Machscreen. Click on Program Downloads • https://kd-dietz.com/ • M6start. Copy and paste into M6start.M1S file. • mach3 directory/macros • • 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() • NewTool = tool • MaxToolNum = 8 • If NewTool = OldTool Then • Exit Sub • End If • While NewTool ＞ MaxToolNum • NewTool = Question ( Place valid tool number (1 to 8) ) • Wend • 'Call MovePos(OldTool) • 'While IsMoving() • 'Wend • ActivateSignal(Output4) • Code G4 P.5 • Call MovePos(NewTool) • While IsMoving() • Wend • DeActivateSignal(Output4) • Code G4 P.5 • While IsMoving() • Wend • Call SetUserDRO (1200,NewTool) • SetCurrentTool( NewTool ) • • DeActivateSignal(Output19) • DeActivateSignal(Output18) • DeActivateSignal(Output17) • DeActivateSignal(Output16) • DeActivateSignal(Output15) • DeActivateSignal(Output14) • DeActivateSignal(Output13) • DeActivateSignal(Output12) • Newtool = GetOEMDRO (1200) • If Newtool = 1 Then ActivateSignal(Output19) • If Newtool = 2 Then ActivateSignal(Output18) • If Newtool = 3 Then ActivateSignal(Output17) • If Newtool = 4 Then ActivateSignal(Output16) • If Newtool = 5 Then ActivateSignal(Output15) • If Newtool = 6 Then ActivateSignal(Output14) • If Newtool = 7 Then ActivateSignal(Output13) • If Newtool = 8 Then ActivateSignal(Output12) • 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

#############################

New on site