ROTARY TOOL CHANGER Pos 5-8

[thb-support]

ROTARY TOOL CHANGER

[andrefc101]

Helaas… daar weet ik niets van….

[thb-support]

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

[rsemotion]

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?

[John Sellis]

https://cnc4xr7.com/rotary-atc.php

[boutje]

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.

[thb-support]

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

[boutje]

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.

[thb-support]

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.

[thb-support]

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

[hugo stoutjesdijk]

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.

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.
b.v. : Je kunt een foutmelding krijgen, hij kan direct naar C5 gaan, en er zijn vast nog veel meer verkeerde oplossingen te verzinnen.

[rsemotion]

misschien even wat debug comments er in maken zodat je weet wat er gezet gaat worden en zo...

Voorbeeld

Response = MsgBox ( "moving to back to " & CurrentPosX & " - " & CurrentPosY &" , then Z=" & CurrentPosZ , 1 )

[thb-support]

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

[thb-support]

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