POS baublys CNC (4de axel)

[tecno]

Det är en del att skriva om i makrot PeterH innan allt faller på plats, är ju ett proof of concept och det ser ju lovande ut.

[POS]

Exakt, jag la ingen tid på att finjustera macrot helt enkelt.

Verktygsracket kommer jag sätta så högt det går för att hålla den undan från spånor mm och visar det sig att det behövs så får jag kombinera bytet med en renblåsning.
Det går förmodligen att ta lite av luften som styr chucken och leda till ett litet munstycke.

Totala verktygslängden får man sätt ett max på som känns lagen, det beror lite på typen av hållare jag väljer för små verktyg.

[Cano]

Om du har en kona i änden på verktyget blir inte hållaren lika känslig för spån och att verktyget sitter snett i den.
En tanke om du ska köra med stoppring, är att verktyget sitter i en fjädrande hållare.

[PeterH]

Ingen fara... jag bara undrade om det var en "feature" som Mach hade eller om det gick att fixa i makrot

[POS]

Peter: Det går lätt att fixa men träbitshållaren är inte värd jobbet.

Cano: Jag ska nog ha lite fjädring i hållaren, då blir den lite mer "förlåtande" också.
Den får gärna röra sig nån mm i sidled också bara den fjädrar tillbaka till samma läge hela tiden.

Edit: Och går det att svarva en kon på skaftet på verktygen så styr det ju i bättre som cano sa.

[pickitup]

Hej,
Jag tror jag har en likadan spindel som dig, en jäger. Men jag undrar över vad du driver den med? Min spidel skall ha mellan 15-60v och 250-1000hz och har inte hittat någon vfd för det området.

mvh Pickitup

[POS]

Jag driver den med tillhörande frekvensomvandlare som jag fick med på köpet, du ser den i den här filmen:

Jag vet inte riktigt vad den ger ut för frekvenser eller nått annat heller för den delen...

Du kan väl driva den med en 400hz frekvensomvadlare men få ett lägre varvtal?
Nån här borde ju kunna svara på vad du ska leta efter, jag har inte kunskaperna tyvärr.

[pickitup]

hmmm... en sån skulle man ha. Jag får leta vidare. Tack!

/pickitup

[POS]

Nu har X-IL hjälp mig med frekvensomvandlaren och hur jag ska varvtalsstyra den, nu ska vi bara fixa lite hårdvara som ger 0-8V och ett relä för av/på. Tackar!

Tills 0-8V styrningen är klar så ska jag jobba med ett ställ för verktygen och fixa en till styrd tryckluftsventil.

En sak jag funderar på är hur man fixar så dimmkylningen slås av och på vid verktygsbyte, det måste till nått i macrot men jag är
osäker på hur man gör.
Nån som fixat det på sitt macro?

Edit: Jag ska prova att lägga in M8/M9 i macrot och se om jag kan få till lämplig funktion.

[X-IL]

Måste bara säga att jag är grymt imponerad av denna maskin, och POS som trots att han låter påskina att han inte kan så mycket får ihop allt till ett bra paket.

OffTopic: Fasen vad skönt det är när en DSub25 bara glider ner i alla hålen, detta kort dock fräst och borrat i POS andra maskin. Ikväll ska det lödas är det tänkt.

[POS]

Jag är nog bara envis och ger inte upp, så finns det ju som tur är så många hjälpsamma personer tex här på EF

Macrot ska ju finjusteras och då dyker det upp frågor såklart.
Jag la in M9-M8 i början och slutet på macrot och det fungerar ju men är en ganska dålig lösning, har jag tex inte kylning på innan bytet så slås det på efter ändå.

Det måste ju till en logik som frågar om kylningen är på och agerar efter det, problemet är att jag inte kan fixa det.
Är det nån som kan peka lite åt rätt håll så vore jag tacksam.

Sen har jag en annan fråga om macrot, en av transportvärderna ökar med x10 och jag kan inte fatta varför??
Fräsen går alltså 100mm om jag skriver 10 i macrot.

'ToolChange Macro For Bed type tool changer 11/05 Brian
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 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool
'Tool Changer Macro (Bed Type)
MaxToolNum = 8 'Max number off tools for the changer
ToolDown = -159 'Z Pos to Get or drop a tool
ToolUp = 0 'Z Hieght to Rapid from tool to tool
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 M9 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-13" & ToolUp Här går maskinen till Z-130
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
While IsMoving()
Wend
Code "G53 Z" & ToolUp
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
Code "M8 G00 X" & x & " Y" & y 'Move back to where the tool change was prompted
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Xpos = 40
YPos = -230
Case Is = 2
Xpos = 40
YPos = -245
Case Is = 3
Xpos = 40
YPos = -200
Case Is = 4
Xpos = 40
YPos = -200
Case Is = 5
Xpos = 40
YPos = -200
Case Is = 6
Xpos = 40
YPos = -200
Case Is = 7
Xpos = 40
YPos = -200
Case Is = 8
Xpos = 40
YPos = -200
End Select

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

[POS]

Jag kom på det själv när jag fick klura lite, ändrade enligt färgmarkeringarna.
Lite dumt att jag inte fattade först

Men Kylning av/på kvarstår att lösa.

'ToolChange Macro For Bed type tool changer 11/05 Brian
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 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool
'Tool Changer Macro (Bed Type)
MaxToolNum = 8 'Max number off tools for the changer
ToolDown = -159 'Z Pos to Get or drop a tool
ToolUp = 0 'Z Hieght to Rapid from tool to tool
Toolbetween = -130
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 M9 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" & Toolbetween
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
While IsMoving()
Wend
Code "G53 Z" & ToolUp
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
Code "M8 G00 X" & x & " Y" & y 'Move back to where the tool change was prompted
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Xpos = 40
YPos = -230
Case Is = 2
Xpos = 40
YPos = -245
Case Is = 3
Xpos = 40
YPos = -200
Case Is = 4
Xpos = 40
YPos = -200
Case Is = 5
Xpos = 40
YPos = -200
Case Is = 6
Xpos = 40
YPos = -200
Case Is = 7
Xpos = 40
YPos = -200
Case Is = 8
Xpos = 40
YPos = -200
End Select

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

[POS]

Trevande försök men jag når inte ända fram tyvärr.
Jag har provat den här lösningen och några liknade utan att få till det.
Den slår av kylningen men aldrig på igen.

Kylning = GetOEMDRO (113) I början på macrot
M9 på lämpligt ställe i macrot
Call SetUserDRO (113,kylning) I slutet på macrot

[labmaster]

Jag har inte programmerat Mach3 macro någon gång men prova om det funkar med följande

If Kylning = 1 Then
Call SetUserDRO (113,1)
End If

Ett problem kan ju i och för sig vara att du använder stork K i Kylning vid GetOEMDRO men litet k i kylning till SetUserDRO. Det ställer till problem om variablerna är "case sencitive" i Mach3.

[POS]

Jag har visst blandat ihop lite siffror också men nu tror jag att det är det här man ska jobba med:

OEMLED
Flood LED= 13 (inget jag lyckas använda mig av)

OEM Buttons
Flood toggle=113
Flood ON=224
Flood OFF=225


Tex så funkar komandot "DoOEMButton (113)" att slå av/på kylningen.