ROTARY TOOL CHANGER Pos 5-8
Moderator: Moderators
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
ROTARY TOOL CHANGER Pos 5-8
ROTARY TOOL CHANGER
- andrefc101
- Donateur
- Berichten: 3733
- Lid geworden op: 26 dec 2007 08:39
- Locatie: Bergen op Zoom
- Contacteer:
Re: ROTARY TOOL CHANGER Pos 5-8
Helaas… daar weet ik niets van….
Laatst gewijzigd door andrefc101 op 17 mar 2022 15:17, 1 keer totaal gewijzigd.
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
Re: ROTARY TOOL CHANGER Pos 5-8
Beste forum aanhangers, ben al een tijdje bezig met een rotary toolwissel voor het frezen,
Maar kom er niet goed uit,
De routine wordt niet goed opgevangen lijkt het wel.
Ook de gereedschap keuze werkt niet goed.
Kan iemand daar eens naar kijken.
Zie hieronder.
Sub Main() 'Define 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 = 5 'Maximum number of tools to use.
ToolDown = -50 'Height for the tool change.
ToolUp = 0.0 'Height the Z-axis for the tool change.
PosSec = 50.0 'Position center carocel.
PosWX = -10 'go to positon x.
Posinto = -20 'go into.
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Place valid tool number (between 1 y 5)")
Wend
Code "G00 G53 Z" & ToolUp 'The z-axis is going to "machine zero"
While IsMoving()
Wend
Code "G00 G53 X" & PosWX 'The x-axis is going to "position"
While IsMoving()
Wend
Code "G53 y" & PosSec 'Center Carocel.
While IsMoving()
Wend
Code "G53 Z" & ToolDown 'Down to the height of tools
While IsMoving()
Wend
Code "G00 G53 x" & Posinto 'Dit in de x of carocel"
While IsMoving()
Wend
Call MovePos(OldTool) 'Going to the last position to relase the old tool.
While IsMoving()
Wend
ActivateSignal(Output1) 'Relase the tool.
Code "G4 P1.0"
Code "G53 Z" & ToolUp
While IsMoving()
Wend
Call MovePos(NewTool) 'Go to the new tool position.
While IsMoving()
Wend
Code "G53 Z" & ToolUp 'Up the z-axis to hold the tool.
While IsMoving()
Wend
DeActivateSignal(Output1) 'hold the new tool.
Code "G4 P1.0"
'Code "G53 y" & PosSec 'Returns to the safe position.
While IsMoving()
Wend
Code "G53 Z" & ToolUp 'Returns z-axis to "machine zero".
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
End Sub
Sub MovePos(ByVal ToolNumber As Integer)
Select Case ToolNumber 'Here set the position of each tool.
Case Is = 1
'Code "G00 G53 x12.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C1"
Case Is = 2
'Code "G00 G53 x24.0"
'Code "G00 G53 y5.0"
Code "G00 G53 c2"
Case Is = 3
'Code "G00 G53 x36.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C3"
Case Is = 4
'Code "G00 G53 x48.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C4"
Case Is = 5
'Code "G00 G53 x60.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C5"
End Select
End Sub
Main
Maar kom er niet goed uit,
De routine wordt niet goed opgevangen lijkt het wel.
Ook de gereedschap keuze werkt niet goed.
Kan iemand daar eens naar kijken.
Zie hieronder.
Sub Main() 'Define 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 = 5 'Maximum number of tools to use.
ToolDown = -50 'Height for the tool change.
ToolUp = 0.0 'Height the Z-axis for the tool change.
PosSec = 50.0 'Position center carocel.
PosWX = -10 'go to positon x.
Posinto = -20 'go into.
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Place valid tool number (between 1 y 5)")
Wend
Code "G00 G53 Z" & ToolUp 'The z-axis is going to "machine zero"
While IsMoving()
Wend
Code "G00 G53 X" & PosWX 'The x-axis is going to "position"
While IsMoving()
Wend
Code "G53 y" & PosSec 'Center Carocel.
While IsMoving()
Wend
Code "G53 Z" & ToolDown 'Down to the height of tools
While IsMoving()
Wend
Code "G00 G53 x" & Posinto 'Dit in de x of carocel"
While IsMoving()
Wend
Call MovePos(OldTool) 'Going to the last position to relase the old tool.
While IsMoving()
Wend
ActivateSignal(Output1) 'Relase the tool.
Code "G4 P1.0"
Code "G53 Z" & ToolUp
While IsMoving()
Wend
Call MovePos(NewTool) 'Go to the new tool position.
While IsMoving()
Wend
Code "G53 Z" & ToolUp 'Up the z-axis to hold the tool.
While IsMoving()
Wend
DeActivateSignal(Output1) 'hold the new tool.
Code "G4 P1.0"
'Code "G53 y" & PosSec 'Returns to the safe position.
While IsMoving()
Wend
Code "G53 Z" & ToolUp 'Returns z-axis to "machine zero".
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
End Sub
Sub MovePos(ByVal ToolNumber As Integer)
Select Case ToolNumber 'Here set the position of each tool.
Case Is = 1
'Code "G00 G53 x12.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C1"
Case Is = 2
'Code "G00 G53 x24.0"
'Code "G00 G53 y5.0"
Code "G00 G53 c2"
Case Is = 3
'Code "G00 G53 x36.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C3"
Case Is = 4
'Code "G00 G53 x48.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C4"
Case Is = 5
'Code "G00 G53 x60.0"
'Code "G00 G53 y5.0"
Code "G00 G53 C5"
End Select
End Sub
Main
Re: ROTARY TOOL CHANGER Pos 5-8
Als ik de titel goed begrijp wil je tot 8 posities?
waar loop je tegen aan,
wat doet het wel en wat doet het niet
welke versie mach?
waar loop je tegen aan,
wat doet het wel en wat doet het niet
welke versie mach?
Ook een konijn kan wel eens het haasje zijn...
-
- Donateur
- Berichten: 499
- Lid geworden op: 10 mar 2014 13:09
- Locatie: genemuiden
Re: ROTARY TOOL CHANGER Pos 5-8
Ik neem aan dat je wel je machine referentie laat lopen als je deze opstart?
Want alle positie wisselingen zijn in de machine coördinaten en die moeten bij opstarten wel op 0 staan.
Anders werkt het niet.
Want alle positie wisselingen zijn in de machine coördinaten en die moeten bij opstarten wel op 0 staan.
Anders werkt het niet.
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
Re: ROTARY TOOL CHANGER Pos 5-8
Heren bedankt voor de reactie.
Programma is nu gemaakt voor 5 posities.
Ref aanrijden als start: oke
Alles programmeren in g53: oke
Machine BF 46
Rotary draait nu droog, zonder hardware.
Beweging om de Rotary naar de juiste positie te krijgen met in en uitgangen gaat denk ik ook lukken.
Mijn grootste vraag is eigenlijk:
1) het oproepen van de oude tool, om de tool in spindel weer terug te kunnen zetten.
Als ik nu Mach 3 opstart en de rotary refereer en in mach het tool nummer ingeef wat in de spindel zit, dan moet de eerste actie zijn het terug zetten die tool op de juiste plek.
Bvb Tool 1 zit in de spindel en ik geef het commando M6 T3.
Tevens is het zo dat wanneer ik M6 T.. dan start de macro niet.
Ik hoop niet dan dit te veel info in een keer is.
Bedankt alvast voor de medewerking.
v.g Gerrit
Programma is nu gemaakt voor 5 posities.
Ref aanrijden als start: oke
Alles programmeren in g53: oke
Machine BF 46
Rotary draait nu droog, zonder hardware.
Beweging om de Rotary naar de juiste positie te krijgen met in en uitgangen gaat denk ik ook lukken.
Mijn grootste vraag is eigenlijk:
1) het oproepen van de oude tool, om de tool in spindel weer terug te kunnen zetten.
Als ik nu Mach 3 opstart en de rotary refereer en in mach het tool nummer ingeef wat in de spindel zit, dan moet de eerste actie zijn het terug zetten die tool op de juiste plek.
Bvb Tool 1 zit in de spindel en ik geef het commando M6 T3.
Tevens is het zo dat wanneer ik M6 T.. dan start de macro niet.
Ik hoop niet dan dit te veel info in een keer is.
Bedankt alvast voor de medewerking.
v.g Gerrit
Re: ROTARY TOOL CHANGER Pos 5-8
Misschien te simpel.
Maar heb je in de "general config" aangevinkt dat je een "auto toolchanger" hebt?
En dan moet je macro wel de naam M6Start.m1s hebben.
Maar heb je in de "general config" aangevinkt dat je een "auto toolchanger" hebt?
En dan moet je macro wel de naam M6Start.m1s hebben.
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
Re: ROTARY TOOL CHANGER Pos 5-8
Het opstarten M6 is gelukt.
M6Start was opgeslagen als M6 Start, met spatie.
Hoe makkelijk kan het zijn.
Nu maar verder testen.
Bedankt maar weer.
M6Start was opgeslagen als M6 Start, met spatie.
Hoe makkelijk kan het zijn.
Nu maar verder testen.
Bedankt maar weer.
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
Re: ROTARY TOOL CHANGER Pos 5-8
Zit nog wel met een andere vraag.
1)Moet drie inputs opvragen.
Weet niet hoe ik dit moet programmeren?
2) als ik Mach3 opstart, en ik geef in bij de huidige Tool 1
En doe een M6 t5 dan moet hij eerst naar pos C1 om de tool weg te zetten, en dat gaat nog niet goed.
v.g
1)Moet drie inputs opvragen.
Weet niet hoe ik dit moet programmeren?
2) als ik Mach3 opstart, en ik geef in bij de huidige Tool 1
En doe een M6 t5 dan moet hij eerst naar pos C1 om de tool weg te zetten, en dat gaat nog niet goed.
v.g
- hugo stoutjesdijk
- Donateur
- Berichten: 12055
- Lid geworden op: 02 mar 2011 17:04
- Locatie: elst (u)
- Contacteer:
Re: ROTARY TOOL CHANGER Pos 5-8
Ik heb geen idee, maar misschien andere mensen wel als je er ook bij zet wat er dan wel gebeurt, en wat er precies niet goed gaat.thb-support schreef: ↑21 mar 2022 15:08 als ik Mach3 opstart, en ik geef in bij de huidige Tool 1
En doe een M6 t5 dan moet hij eerst naar pos C1 om de tool weg te zetten, en dat gaat nog niet goed.
b.v. : Je kunt een foutmelding krijgen, hij kan direct naar C5 gaan, en er zijn vast nog veel meer verkeerde oplossingen te verzinnen.
Ik ben voor meer techniek op school, maar dan wel vanaf groep 1 basischool.
Re: ROTARY TOOL CHANGER Pos 5-8
misschien even wat debug comments er in maken zodat je weet wat er gezet gaat worden en zo...
Voorbeeld
Voorbeeld
Response = MsgBox ( "moving to back to " & CurrentPosX & " - " & CurrentPosY &" , then Z=" & CurrentPosZ , 1 )
Ook een konijn kan wel eens het haasje zijn...
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
Re: ROTARY TOOL CHANGER Pos 5-8
Denk dat ik het heb gevonden, laat het nog weten betreft Toolpositie in Rotary.
Over blijft is.
Opvragen van de ingangen, de Rotary kom van op zij en gaat naar hard spindel.
Hier zitten twee naderingsschakelaars, deze bevestigen de afgelegde weg.
Ingang 12 en 13.
Tevens moet ik de lucht druk afvragen ingang 14, vrijgaven alle verdere acties.
Zit hier vast hoe dit te programmeren.
Dus als iemand mij verder kan hepen graag.
v.g Gerrit
Over blijft is.
Opvragen van de ingangen, de Rotary kom van op zij en gaat naar hard spindel.
Hier zitten twee naderingsschakelaars, deze bevestigen de afgelegde weg.
Ingang 12 en 13.
Tevens moet ik de lucht druk afvragen ingang 14, vrijgaven alle verdere acties.
Zit hier vast hoe dit te programmeren.
Dus als iemand mij verder kan hepen graag.
v.g Gerrit
-
- Berichten: 52
- Lid geworden op: 23 okt 2010 22:19
Re: ROTARY TOOL CHANGER Pos 5-8
Heren, ik probeer de status van de ingangen op te vragen, maar krijg dit niet in orde.
wie weet waar de fout zit.
Hieronder een voorbeeld wij praten over Mach3
Show the user state of the Input #1 Input
If IsActive(INPUT1) Then
Message “INPUT #1 input is active”
Else
Message “INPUT #1 input is inactive”
End If
v.g
wie weet waar de fout zit.
Hieronder een voorbeeld wij praten over Mach3
Show the user state of the Input #1 Input
If IsActive(INPUT1) Then
Message “INPUT #1 input is active”
Else
Message “INPUT #1 input is inactive”
End If
v.g