gestire la foratrice multipla con mach3

[jambo]

Penso di aver speso 6.5 ma sono molto esigente. Arriveró a finirla intorno ai 10. Tieni conto che la devo far tagliare intorno ai 3400x1450mm
Era una macchina non funzionante e chi me l'ha venduta gli avevano cercato solo per trovare il guasto intorno ai 6000,00 e non aveva neanche la z motorizzata ma solo pneumatica

[marco 83]

bene...complimenti

ma la foratrice a parte dove l hai trovata??ma soprattutto quanto ti è costata?

comunque per gestirla a parte la parte meccanico/pneumatica (script e macro)secondo me ti serve un software tipo alphacam o altri in modo da gestire per bene tutti i singoli mandrini.come descritto da decos mi sembra un tantino laborioso con artcam.

speriamo si faccia vivo....

[decos]

secondo me è non è cosi complicato come sembra su questo link https://www.youtube.com/watch?v=_i5VjgLmD-A c'è il video di un primo test che feci qualche anno fa adesso rispetto al video ho eliminato la procedura di azzeramento per la bucatrice ed ho velocizzato i cambi fra una punta el'altra.Lo scrip che ho usato e uno per cambio utensile che ho modificato aggiungendo per ogni utensile(cioè punta) il suo offset e i vari rele da attivare per avviare il secondo motore ho modificato il comando m4 cosi nel gcode di foratura modifico gli m3 con m4
Questo è il mio script
Sub Main() 'Definir variables
OldTool = GetOEMDRO (1200) 'Prendere il valore dello strumento corrente.
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
d = GetToolChangeStart( 6 )
e = GetToolChangeStart( 7 )
tool = GetSelectedTool()
NewTool = tool
MaxToolNum = 7 'Numero massimo di strumenti che possono essere utilizzati.
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Inserire un numero valido strumento (Entre 1 y 7)")
Wend
Code "G00 G53 Z" & ToolUp 'Fino al punto zero macchina sull'asse Z.
While IsMoving()
Wend




Code "G53 Z" & ToolUp 'Sollevare l'asse Z per allontanarsi dallo strumento. (O una posizione in cui si attaccano con gli strumenti)
While IsMoving()
Wend
Call MovePos(NewTool) 'Passare alla posizione in cui il nuovo strumento.
While IsMoving()
Wend

Code "G53 Z" & ToolUp 'Sollevare l'asse Z e la posizione in cui si trovava prima.
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Code"M898"
Sleep(1000)
Code"G0 X0 Y0"
Code"M900"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output4)


Case Is = 2
Code"M898"
While IsMoving()
Wend
Sleep(1000)
Code"G0 X0 Y0"
Code"M902"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output6)

Case Is = 3
Code"M898"
While IsMoving()
Wend
Sleep(1000)
Code"G0 X0 Y0"
Code"M904"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output7)

Case Is = 4
Code"M898"
While IsMoving()
Wend
Sleep(1000)
Code"G0 X0 Y0"
Code"M906"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output8)

Case Is = 5
Code"M898"
While IsMoving()
Wend
Sleep(1000)
Code"G0 X0 Y0"
Code"M908"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output9)

Case Is = 6
Code"M898"
While IsMoving()
Wend
Sleep(1000)
Code"G0 X0 Y0"
Code"M910"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output10)

Case Is = 7
Code"M898"
While IsMoving()
Wend
Sleep(1000)
Code"G0 X0 Y0"
Code"M912"
While IsMoving()
Wend
sleep(1000)
ActivateSignal(Output11)
Case Is = 8

End Select


Code "G53 X" & XPos & " Y" & YPos
End Sub
Main