Moje pierwsze cnc i problemy (3040)
-
Autor tematu - Czytelnik forum poziom 1 (min. 10)
- Posty w temacie: 13
- Posty: 19
- Rejestracja: 20 lis 2007, 18:13
- Lokalizacja: Poręba
Moje pierwsze cnc i problemy (3040)
Witam
Zacząłem swoją przygodę z CNC,na początek zakupiłem chińczyka 3040 do grawerunku na zapalniczkach (hobby)
I jak na nowicjusza przystało tak oto pojawiły się pierwsze problemy,chodzi o pomiar narzędzia,nie mam już pojęcia jak mam to ustrojstwo poustawiać aby nie łamać frezów walczę z tym już od 2 tygodni,połamałem już 10 frezów,przejrzałem już chyba wszystkie filmiki na youtubie o forum nie wspomnę,więc pozostało mi tylko stworzyć temat.
Szukałem na forum podobnych tematów ale nic konkretnego nie napotkałem
Tutaj jest link do tego ustrojstwa:
http://www.fystore.com/p173607/2012-Cos ... chine.html
Proszę niech ktoś się zlituje i pomoże to ustawić,dodam że posiadam macha3
Zacząłem swoją przygodę z CNC,na początek zakupiłem chińczyka 3040 do grawerunku na zapalniczkach (hobby)
I jak na nowicjusza przystało tak oto pojawiły się pierwsze problemy,chodzi o pomiar narzędzia,nie mam już pojęcia jak mam to ustrojstwo poustawiać aby nie łamać frezów walczę z tym już od 2 tygodni,połamałem już 10 frezów,przejrzałem już chyba wszystkie filmiki na youtubie o forum nie wspomnę,więc pozostało mi tylko stworzyć temat.
Szukałem na forum podobnych tematów ale nic konkretnego nie napotkałem
Tutaj jest link do tego ustrojstwa:
http://www.fystore.com/p173607/2012-Cos ... chine.html
Proszę niech ktoś się zlituje i pomoże to ustawić,dodam że posiadam macha3
Tagi:
-
- Specjalista poziom 2 (min. 300)
- Posty w temacie: 1
- Posty: 422
- Rejestracja: 20 lut 2012, 21:13
- Lokalizacja: Polska
Tak na szybko to robisz tak - zakładasz frez, w odpalonym Machu naciskasz TAB i pojawia Ci sie taki programowy JOG. Ustawiasz zeby posuwy były przykładowo 0,1 i jedziesz na czujnik. Bedac juz baaaaardzo blisko zmniejszasz prędkość przykładowo do 0,01 i dalej jedziesz na niego aż Ci sie w machu lampka zapali (w ostatniej zakładce z programowymi diodami) co będzie oznaczać że jesteś już na czujniku. Wtedy ustawiasz zero i gotowe. Tylko pamiętaj ustawić sobie wysokość tej czujki.
A tak żeby było na ładnie to na forum jest cały temat poświęcony makrom do ustawiania długości narzędzia i wysokości materiału i tam masz makra - poczytaj , wybierz sobie odpowiednie i będzie ok.
A tak żeby było na ładnie to na forum jest cały temat poświęcony makrom do ustawiania długości narzędzia i wysokości materiału i tam masz makra - poczytaj , wybierz sobie odpowiednie i będzie ok.
-
Autor tematu - Czytelnik forum poziom 1 (min. 10)
- Posty w temacie: 13
- Posty: 19
- Rejestracja: 20 lis 2007, 18:13
- Lokalizacja: Poręba
Użyłem tego macra:
Dim ZOFFSET, ZTOP, ZBOTTOM, ZGODOWN, ZABS, ZUPFINE, Z_SAFE
Dim ToolLen
Dim Tool
Dim SENS_Z, SENS_X, SENS_Y, Z_LIFT, Z_PARK, MAX_DTRAVEL
Dim SPD_FAST, SPD_FINE
' -----------------------------------------------------
' Configuration parameters
' -----------------------------------------------------
SENS_Z = -129 ' Sensor Z position
Z_SAFE = -45 ' Safe Z above sensor (for rapid move)
SENS_X = 8.17 ' Sensor X position
SENS_Y = 250 ' Sensor Y position
MAX_DTRAVEL = 100 ' Max down travel
SPD_FAST = 1000
SPD_FINE = 100 ' Fast and fine speeds
Z_LIFT = 1.5 ' Z lift for fine probing
Z_PARK = -5 ' Park after probe absolute Z position
' -----------------------------------------------------
Message( "Dokonuję pomiaru długości narzędzia..." )
If GetOEMLed(807) Then
Message( "TC ERROR: X Axis not referenced!" )
End
End If
If GetOEMLed(808) Then
Message( "TC ERROR: Y Axis not referenced!" )
End
End If
If GetOEMLed(809) Then
Message( "TC ERROR: Z Axis not referenced!" )
End
End If
If GetOEMLed(825) Then
Message( "TC ERROR: Czujnik pomiaru cały czas załączony! pomiar przerwany." )
End
End If
If GetOEMLed(11) Then
Message( "TC ERROR: Do pomiaru narzędzia wyłącz wrzeciono!" )
End
End If
Tool = GetDRO(24) ' Get current tool index
' narzedzie 0 nie podlega pomiarowi
If(Tool = 0) Then
Message( "TC INFO: Narzędzie nr:0 nie podlega pomiarom długości" )
End
End If
WaitForMove
Code("G43T0")
Code("G43H0") ' turn off tool lenght compensation
WaitForMove
' Move to PARK
Code("G0G53 Z" & Z_PARK)
WaitForMove
' Move to XY position of tool correction sensor
' Code("G0G53 X" & SENS_X & " Y" & SENS_Y)
Code("G0G53 X" & SENS_X)
WaitForMove
' Get actual Z offset
ZOFFSET = GetOEMDRO(49)
' Rapid go down to safe distance above sensor
Code("G0G53 Z" & Z_SAFE)
WaitForMove
' Probe
ZTOP = GetDRO(2) ' actual Z position
ZGODOWN = ZTOP - MAX_DTRAVEL ' max down travel
Code("G31 Z" & ZGODOWN & "f" & SPD_FAST)
WaitForMove
ZUPFINE = GetOEMDRO(85) + Z_LIFT
Code("G1G53 Z" & ZUPFINE & "f" & SPD_FAST) ' go up Z_LIFT
WaitForMove
' fine probe
Code("G31 Z" & ZGODOWN & "f" & SPD_FINE)
WaitForMove
ZBOTTOM = GetVar(2002) 'get probe activation point
' Lift Z to abs park position
Sleep(50)
Code("G0G53 Z" & Z_PARK)
WaitForMove
ZABS = ZBOTTOM + ZOFFSET
ToolLen = -(SENS_Z - ZABS)
WaitForMove
SetOEMDRO(42, ToolLen)
Code("G43T" & Tool) ' G43 to sync value in system
Code("G43H" & Tool) ' G43 to sync value in system
WaitForMove
Message ("Z Value : " & ToolLen)
' -----------------------------------------------------------------------------
Sub WaitForMove ()
While IsMoving()
Sleep(15)
Wend
End Sub
Po kliknięciu w pomiar nic cię nie dzieje tylko wtedy gdy nacisnę któryś z kierunków na klawiaturze powoli się przesuwa kilka milimetrów i staje w miejscu.
Spróbuję sposobu spol-a zobaczę czy coś z tego wyjdzie,dzięki za pomoc.
Jestem z tej Poręby z śląska słynny FUM (upadający już )
Dim ZOFFSET, ZTOP, ZBOTTOM, ZGODOWN, ZABS, ZUPFINE, Z_SAFE
Dim ToolLen
Dim Tool
Dim SENS_Z, SENS_X, SENS_Y, Z_LIFT, Z_PARK, MAX_DTRAVEL
Dim SPD_FAST, SPD_FINE
' -----------------------------------------------------
' Configuration parameters
' -----------------------------------------------------
SENS_Z = -129 ' Sensor Z position
Z_SAFE = -45 ' Safe Z above sensor (for rapid move)
SENS_X = 8.17 ' Sensor X position
SENS_Y = 250 ' Sensor Y position
MAX_DTRAVEL = 100 ' Max down travel
SPD_FAST = 1000
SPD_FINE = 100 ' Fast and fine speeds
Z_LIFT = 1.5 ' Z lift for fine probing
Z_PARK = -5 ' Park after probe absolute Z position
' -----------------------------------------------------
Message( "Dokonuję pomiaru długości narzędzia..." )
If GetOEMLed(807) Then
Message( "TC ERROR: X Axis not referenced!" )
End
End If
If GetOEMLed(808) Then
Message( "TC ERROR: Y Axis not referenced!" )
End
End If
If GetOEMLed(809) Then
Message( "TC ERROR: Z Axis not referenced!" )
End
End If
If GetOEMLed(825) Then
Message( "TC ERROR: Czujnik pomiaru cały czas załączony! pomiar przerwany." )
End
End If
If GetOEMLed(11) Then
Message( "TC ERROR: Do pomiaru narzędzia wyłącz wrzeciono!" )
End
End If
Tool = GetDRO(24) ' Get current tool index
' narzedzie 0 nie podlega pomiarowi
If(Tool = 0) Then
Message( "TC INFO: Narzędzie nr:0 nie podlega pomiarom długości" )
End
End If
WaitForMove
Code("G43T0")
Code("G43H0") ' turn off tool lenght compensation
WaitForMove
' Move to PARK
Code("G0G53 Z" & Z_PARK)
WaitForMove
' Move to XY position of tool correction sensor
' Code("G0G53 X" & SENS_X & " Y" & SENS_Y)
Code("G0G53 X" & SENS_X)
WaitForMove
' Get actual Z offset
ZOFFSET = GetOEMDRO(49)
' Rapid go down to safe distance above sensor
Code("G0G53 Z" & Z_SAFE)
WaitForMove
' Probe
ZTOP = GetDRO(2) ' actual Z position
ZGODOWN = ZTOP - MAX_DTRAVEL ' max down travel
Code("G31 Z" & ZGODOWN & "f" & SPD_FAST)
WaitForMove
ZUPFINE = GetOEMDRO(85) + Z_LIFT
Code("G1G53 Z" & ZUPFINE & "f" & SPD_FAST) ' go up Z_LIFT
WaitForMove
' fine probe
Code("G31 Z" & ZGODOWN & "f" & SPD_FINE)
WaitForMove
ZBOTTOM = GetVar(2002) 'get probe activation point
' Lift Z to abs park position
Sleep(50)
Code("G0G53 Z" & Z_PARK)
WaitForMove
ZABS = ZBOTTOM + ZOFFSET
ToolLen = -(SENS_Z - ZABS)
WaitForMove
SetOEMDRO(42, ToolLen)
Code("G43T" & Tool) ' G43 to sync value in system
Code("G43H" & Tool) ' G43 to sync value in system
WaitForMove
Message ("Z Value : " & ToolLen)
' -----------------------------------------------------------------------------
Sub WaitForMove ()
While IsMoving()
Sleep(15)
Wend
End Sub
Po kliknięciu w pomiar nic cię nie dzieje tylko wtedy gdy nacisnę któryś z kierunków na klawiaturze powoli się przesuwa kilka milimetrów i staje w miejscu.
Spróbuję sposobu spol-a zobaczę czy coś z tego wyjdzie,dzięki za pomoc.
Jestem z tej Poręby z śląska słynny FUM (upadający już )
-
- Lider FORUM (min. 2000)
- Posty w temacie: 2
- Posty: 2103
- Rejestracja: 07 lip 2006, 00:31
- Lokalizacja: mazowieckie
Szkoda, bo do tej z mazowieckiego mam rzut beretem. Przy maszynie szybko bym coś poradził. Rozumiem, że w konfiguracji masz właściwy pin przypisany i jak naciskasz ręcznie przycisk to kontrolka reaguje. Nie pamiętam, które makro miałem, ale mi działało pierwsze makro jakie znalazłem tu na forum (teraz mam LinuxCNC). Może masz jakąś starą wersję mach-a. Wyświetla się chociaż pierwszy komunikat: "Dokonuję pomiaru długości narzędzia..."?Sopel32 pisze:Jestem z tej Poręby z śląska słynny FUM (upadający już )
-
Autor tematu - Czytelnik forum poziom 1 (min. 10)
- Posty w temacie: 13
- Posty: 19
- Rejestracja: 20 lis 2007, 18:13
- Lokalizacja: Poręba
Ok udało się z tym macro:
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
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
Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
Code "G31Z-20 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 Z20" 'put the Z retract height you want here
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "F" &CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate is grounded!) " 'this goes in the status bar if aplicable
Exit Sub
End If
Pięknie zjeżdża do czujnika i podnosi się
Jeszcze jeden problem w Aspire przygotowałem taki próbny tekst z kilku liter i graweruje go już około 40 min. czy to nie za wolno ?
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
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
Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
Code "G31Z-20 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 Z20" 'put the Z retract height you want here
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "F" &CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate is grounded!) " 'this goes in the status bar if aplicable
Exit Sub
End If
Pięknie zjeżdża do czujnika i podnosi się
Jeszcze jeden problem w Aspire przygotowałem taki próbny tekst z kilku liter i graweruje go już około 40 min. czy to nie za wolno ?
-
Autor tematu - Czytelnik forum poziom 1 (min. 10)
- Posty w temacie: 13
- Posty: 19
- Rejestracja: 20 lis 2007, 18:13
- Lokalizacja: Poręba
heh zgadza się już sobie poradziłem
tylko strasznie długo graweruje,jeszcze nie skończył ponad godzina już...
hmm feed rate na machu pokazuje 100 a niżej przeskakują cyfry mniej więcej od 70 do 120
tekst jest nie wielki
Czy możliwe jest że poknociłem z poziomu tworzenia tekstu w ustawieniach narzędzia ?
tylko strasznie długo graweruje,jeszcze nie skończył ponad godzina już...
hmm feed rate na machu pokazuje 100 a niżej przeskakują cyfry mniej więcej od 70 do 120
tekst jest nie wielki
Czy możliwe jest że poknociłem z poziomu tworzenia tekstu w ustawieniach narzędzia ?
Ostatnio zmieniony 24 sty 2013, 21:27 przez Sopel32, łącznie zmieniany 1 raz.