Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Sezione dedicata a Mach3
Rispondi
Avatar utente
pierpaolo
Senior
Senior
Messaggi: 1315
Iscritto il: martedì 19 giugno 2012, 1:10
Località: roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da pierpaolo » mercoledì 25 marzo 2020, 12:00

Ok perfetto Pedro la proverò appena possibile ...
Quindi la.macro non fa si che termini il processo di cambio se va in errore ma aspetta l'ok per proseguire giusto?

Solo per essere sicuro che nn devo ricominciare un lavoro da zero se prende male unutensile :)

Avatar utente
Pedro
God
God
Messaggi: 7021
Iscritto il: domenica 6 aprile 2008, 18:44
Località: Roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da Pedro » mercoledì 25 marzo 2020, 12:13

certo, come mi avevi chiesto
"Ho controllato molto approfonditamente," disse il computer, "e questa è sicuramente la risposta. Ad essere sinceri, penso che il problema sia che voi non abbiate mai saputo veramente qual è la domanda."

Avatar utente
pierpaolo
Senior
Senior
Messaggi: 1315
Iscritto il: martedì 19 giugno 2012, 1:10
Località: roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da pierpaolo » mercoledì 25 marzo 2020, 12:14

Perfetto lo provo appena possibile e ti dico...
Grazie mille intanto

Avatar utente
Pedro
God
God
Messaggi: 7021
Iscritto il: domenica 6 aprile 2008, 18:44
Località: Roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da Pedro » mercoledì 25 marzo 2020, 12:23

forse usando un limit potrebbe fermare il tutto perciò invece usa l'home di C e sostituisci l' OEMLED con 485 invece di 483
"Ho controllato molto approfonditamente," disse il computer, "e questa è sicuramente la risposta. Ad essere sinceri, penso che il problema sia che voi non abbiate mai saputo veramente qual è la domanda."

Avatar utente
pierpaolo
Senior
Senior
Messaggi: 1315
Iscritto il: martedì 19 giugno 2012, 1:10
Località: roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da pierpaolo » mercoledì 25 marzo 2020, 12:26

Quindi modifico la schermata di mach3 con questo led? O posso provarlo già sullo screen che ho?

Avatar utente
Pedro
God
God
Messaggi: 7021
Iscritto il: domenica 6 aprile 2008, 18:44
Località: Roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da Pedro » mercoledì 25 marzo 2020, 12:30

non devi cambiare nulla, solo la macro e l'input sulla configurazione
"Ho controllato molto approfonditamente," disse il computer, "e questa è sicuramente la risposta. Ad essere sinceri, penso che il problema sia che voi non abbiate mai saputo veramente qual è la domanda."

Avatar utente
pierpaolo
Senior
Senior
Messaggi: 1315
Iscritto il: martedì 19 giugno 2012, 1:10
Località: roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da pierpaolo » mercoledì 25 marzo 2020, 12:34

Pedro ha scritto:
mercoledì 25 marzo 2020, 12:23
forse usando un limit potrebbe fermare il tutto perciò invece usa l'home di C e sostituisci l' OEMLED con 485 invece di 483
Qui quindi intendevi 845 e non 485 giusto? Perché oemled del home c è 845 per quello chiedevo

Avatar utente
Pedro
God
God
Messaggi: 7021
Iscritto il: domenica 6 aprile 2008, 18:44
Località: Roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da Pedro » mercoledì 25 marzo 2020, 12:36

ho anagrammato per vedere se te accorgevi :lol:

si, sbaglio mio di digitazione
"Ho controllato molto approfonditamente," disse il computer, "e questa è sicuramente la risposta. Ad essere sinceri, penso che il problema sia che voi non abbiate mai saputo veramente qual è la domanda."

Avatar utente
pierpaolo
Senior
Senior
Messaggi: 1315
Iscritto il: martedì 19 giugno 2012, 1:10
Località: roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da pierpaolo » sabato 28 marzo 2020, 14:49

Eccoci qua ... provato tutto e funziona alla grande...
Solo una parentesi da togliere dalla macro ma va perfettamente...
Almeno adesso riesco a farla andare da sola senza la paura che possa distruggere qualcosa o far male a qualcuno... :)

Una semplice sensore che da una sicurezza in più...

Qua nelle due foto si vede come rimane eccitato il sensore quando l'utensile è dentro a metà...

E qui il video di come funziona prima mettendo il cono esattamente e poi col cono posizionato erroneamente...

https://youtu.be/ecQpQC1YkDc

Pedro che dirti.... come sempre grazie e appena finisce sta tribolazione vieni mi a trovare e ci andiamo a mangiare na cosa :wink:
Non hai i permessi necessari per visualizzare i file e le foto allegati in questo messaggio. Per visualizzare tali file devi registrarti ed effettuare il Login

Avatar utente
Pedro
God
God
Messaggi: 7021
Iscritto il: domenica 6 aprile 2008, 18:44
Località: Roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da Pedro » sabato 28 marzo 2020, 15:42

forte, mi piace =D>
"Ho controllato molto approfonditamente," disse il computer, "e questa è sicuramente la risposta. Ad essere sinceri, penso che il problema sia che voi non abbiate mai saputo veramente qual è la domanda."

Avatar utente
Fiveaxis
God
God
Messaggi: 5712
Iscritto il: sabato 15 gennaio 2011, 12:08
Località: Monza e Brianza

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da Fiveaxis » lunedì 30 marzo 2020, 13:57

Complimenti! =D>
La macchina conta...ma la differenza la fa il "manico"!

Avatar utente
pierpaolo
Senior
Senior
Messaggi: 1315
Iscritto il: martedì 19 giugno 2012, 1:10
Località: roma

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da pierpaolo » lunedì 30 marzo 2020, 14:10

Si complimenti a Pedro :D

buby
Senior
Senior
Messaggi: 612
Iscritto il: domenica 10 giugno 2007, 10:32
Località: Rg

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da buby » sabato 13 novembre 2021, 12:24

Ottimo lavoro bravi =D>
Anche io ho iniziato questa avventura ...Ho trovato degli spunti e ho ottimizzato una macro che funziona ma sto trovando difficoltà nell' implementare il controllo dei due sensori del mandrino #-o .
la macro è questa:
-------------------------------------------------------------------------------------------------------------------------------------------------
Sub Main()
OldTool = GetOEMDRO (1200) 'Tool In spindle DRO You must add this to your settings screen
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
tool = GetSelectedTool()
NewTool = tool

'----------------Tool Changer Macro (Bed Type)----------------------

MaxToolNum = 6 'Max number off tools for the changer
ToolDown = -150 'Z Pos to Get or drop a tool
ToolUp = 0 'Z Hieght to Rapid from tool to tool

'--------------------Auto Tool Zero---------------------------------

PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO
If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
End If
'-------------------------------------------------------------------
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 G53 Z " & ToolUp
While IsMoving()
Wend
Call MovePos(OldTool)
While IsMoving()
Wend
Code "G4 P1"
Code "G53 Z" & ToolDown
While IsMoving()
Wend
ActivateSignal(Output4) 'Turn On Draw bar to release the tool
Code "G4 P2.0" 'Wait for the tool to release
'SystemWaitFor (7) 'Wait for the tool Release Limit switch
Code "G53 Z-0.5" & ToolUp
Call MovePos(NewTool)
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P1"
While IsMoving()
Wend
DeActivateSignal(Output4) 'Turn Off Draw bar to Clamp the tool
Code "G4 P2.0" 'Wait for the tool to Clamp
While IsMoving()
Wend
Code "G53 Z" & ToolUp
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
While IsMoving()
Wend
ActivateSignal(Output5) 'Clamp the tool
Code "G4 P5.0" 'Wait for the tool to Clamp
While IsMoving()
Wend
DeActivateSignal(OUTPUT5)

'-----------------------------Auto Tool Zero-----------------------------

Code "G53 X100 Y100" ' Move to Probe position
Code "G4 P1" ' this delay gives me time to get from computer to hold probe in place
Code "G31Z-50 F150" 'probing move, can set the feed rate here as well as how far to move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
Code "G0 Z30." 'put the Z retract height you want here
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "G00 X" & x & " Y" & y 'Move back to where the tool change was prompted
End Sub
'---------------------------Tool Positio-------------------------------------
Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Xpos = 100.00
YPos = 20.00
Case Is = 2
Xpos = 170.00
YPos = 20.00
Case Is = 3
Xpos = 240.00
YPos = 20.00
Case Is = 4
Xpos = 310.00
YPos = 20.00
Case Is = 5
Xpos = 380.00
YPos = 20.00
Case Is = 6
Xpos = 450.00
YPos = 20.00

End Select

Code "G53 X" & XPos & " Y" & YPos
End Sub
Main
-----------------------------------------------------------------------------------------------------------------------------------------------
I sensori li ho collegati ad imput1 e imput 2 rispettivamente oem 821 e 822
la logica è
imput 1 = 1
Cono agganciato
imput 2 = 0

imput 1 = 0
Pinza Aperta
imput 2 = 1

imput 1 = 0
Cono non agganciato o scarico
imput 2 = 0

Vorrei che se non aggancia per errore il cono, appaia un messaggio di errore "CONO NON AGGANCIATO" e la lavorazione si fermasse, e magari fare in modo di ritentare l'aggancio dando uno start... ma dopo vari tentativi non ne vengo fuori :x
Mi date una mano...

Altra cosa che non ho capito ma questo sarebbe un pulsante da aggiungere o un'altra pagina?
OldTool = GetOEMDRO (1200) 'Tool In spindle DRO You must add this to your settings screen

buby
Senior
Senior
Messaggi: 612
Iscritto il: domenica 10 giugno 2007, 10:32
Località: Rg

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da buby » sabato 13 novembre 2021, 20:23

OldTool ho capito che va inserito nella schermata di mach3 praticamente l'utensile che resta inserito dopo uno spegnimento, ma io avevo già settato in general config di ricordarselo da solo.

buby
Senior
Senior
Messaggi: 612
Iscritto il: domenica 10 giugno 2007, 10:32
Località: Rg

Re: Funzionerà? Cerco aiuto per macro ATC con Mach3. Si inizia..

Messaggio da buby » domenica 14 novembre 2021, 9:15

Secondo voi cosi potrebbe funzionare? Almeno per quanto riguarda il mancato aggancio?


Sub Main()
OldTool = GetOEMDRO (1200) 'Tool In spindle DRO You must add this to your settings screen
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
tool = GetSelectedTool()
NewTool = tool

'----------------Tool Changer Macro (Bed Type)----------------------

MaxToolNum = 6 'Max number off tools for the changer
ToolDown = -150 'Z Pos to Get or drop a tool
ToolUp = 0 'Z Hieght to Rapid from tool to tool
Dim tool As Single <------ ' Utensile agganciato correttamente; 0 siginifica vuoto'
--------------------Auto Tool Zero---------------------------------

PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO
If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
End If
'-------------------------------------------------------------------
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 G53 Z " & ToolUp
While IsMoving()
Wend
Call MovePos(OldTool)
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P.75"
While IsMoving()
Wend
ActivateSignal(Output4) 'Turn On Draw bar to release the tool
Code "G4 P1.0" 'Wait for the tool to release
'SystemWaitFor (7) 'Wait for the tool Release Limit switch
Code "G53 Z-0.5" & ToolUp
Call MovePos(NewTool)
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P.75"
While IsMoving()
Wend
DeActivateSignal(Output4) 'Turn Off Draw bar to Clamp the tool
Code "G4 P1.0" 'Wait for the tool to Clamp
If(IsACTIVE(Input1)=0) Then <------- se il sensore non è attivo ferma tutto
MachMsg("CONO NON AGGANCIATO","ERRORE",0)
DoOEMButton(1003) <-----

While IsMoving()
Wend
Code "G53 Z" & ToolUp
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
While IsMoving()
Wend
ActivateSignal(Output5) 'Clamp the tool
Code "G4 P5.0" 'Wait for the tool to Clamp
While IsMoving()
Wend
DeActivateSignal(OUTPUT5)

'-----------------------------Auto Tool Zero-----------------------------

Code "G0 X100 Y100" ' Move to Probe position
Code "G4 P5" ' this delay gives me time to get from computer to hold probe in place
Code "G31Z-10 F100" 'probing move, can set the feed rate here as well as how far to move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
Code "G0 Z1." 'put the Z retract height you want here
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "G00 X" & x & " Y" & y 'Move back to where the tool change was prompted
End Sub
'---------------------------Tool Positio-------------------------------------
Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Xpos = 100.00
YPos = 20.00
Case Is = 2
Xpos = 170.00
YPos = 20.00
Case Is = 3
Xpos = 240.00
YPos = 20.00
Case Is = 4
Xpos = 310.00
YPos = 20.00
Case Is = 5
Xpos = 380.00
YPos = 20.00
Case Is = 6
Xpos = 450.00
YPos = 20.00

End Select

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

Rispondi

Torna a “Mach3”