Konfiguracja czujnika długości narzędzia w Mach3 pl
-
- ELITA FORUM (min. 1000)
- Posty w temacie: 6
- Posty: 1418
- Rejestracja: 23 cze 2008, 10:38
- Lokalizacja: OOL lub DW
- Kontakt:
Re: Konfiguracja czujnika długości narzędzia w Mach3 pl
Da się elegancko.
MACH3 cncTworzenie Makr do palników magazynków THC OHC inneEKRANY dla firm producentów maszyn Budowa sprzedaż wypalarki plazma gaz obrotnice Elektrodrążarki Frezarki Tokarki Giętarki3D inne wg zlecenia 888 703 196 Tomek Komor [email protected]
Tagi:
-
- Nowy użytkownik, używaj wyszukiwarki
- Posty w temacie: 1
- Posty: 5
- Rejestracja: 03 lis 2018, 13:13
Re: Konfiguracja czujnika długości narzędzia w Mach3 pl
Witam. Mam problem z przypisaniem długości narzędzia. Posiadam w maszynie magazyn na 10 narzędzi oraz czujnik zegarowy do pomiaru długości narzędzia gdzie wymiar nominalny tego czujnika to 50 mm. Jak przypisac wszystkie narzedzia w mach3
-
- Lider FORUM (min. 2000)
- Posty w temacie: 1
- Posty: 5562
- Rejestracja: 04 lip 2004, 16:03
- Lokalizacja: Gliwice
Re: Konfiguracja czujnika długości narzędzia w Mach3 pl
Zgaduję że Mach3 ma jakąś tablicę narzędzi do której wpisuje się długości narzędzi
Pomiar W twoim wypadku wiedziałbym następująco Podjeżdżam wrzecionem bez narzędzia do twojego czujnika dotykam tak by wskazówka ustawiła się na 0 rezerwuję sobie zestaw Mach3 następnie kolejno wkładam narzędzia do wrzeciona Wjeżdżam na czujnik tak żeby pokazywało za każdym razem 0 a z wyświetlacza Mach3 dla osi z odczytuje wartości i wpisuje je do tabeli narzędzi dla kolejnych narzędzi tym wypadku nie wiem czy da się zrobić to automatycznie trzeba sobie wpisać na kartkę i wpisać ręcznie. Potem wywołując narzędzie T6 M6 g43 powinno nam przyjąć długość narzędzia z tabeli narzędzi.
Nie wiem czy o to Tobie chodziło Ale ja bym tak to widział.
Pomiar W twoim wypadku wiedziałbym następująco Podjeżdżam wrzecionem bez narzędzia do twojego czujnika dotykam tak by wskazówka ustawiła się na 0 rezerwuję sobie zestaw Mach3 następnie kolejno wkładam narzędzia do wrzeciona Wjeżdżam na czujnik tak żeby pokazywało za każdym razem 0 a z wyświetlacza Mach3 dla osi z odczytuje wartości i wpisuje je do tabeli narzędzi dla kolejnych narzędzi tym wypadku nie wiem czy da się zrobić to automatycznie trzeba sobie wpisać na kartkę i wpisać ręcznie. Potem wywołując narzędzie T6 M6 g43 powinno nam przyjąć długość narzędzia z tabeli narzędzi.
Nie wiem czy o to Tobie chodziło Ale ja bym tak to widział.
sorki za wszystkie błędy ... (dyslektyk)
Zobacz moje filmy http://www.youtube.com/user/pokachontass/videos
Zobacz moje filmy http://www.youtube.com/user/pokachontass/videos
-
- Nowy użytkownik, używaj wyszukiwarki
- Posty w temacie: 1
- Posty: 5
- Rejestracja: 21 paź 2017, 21:29
- Lokalizacja: Częstochowa
Re:
WitamPiotrjub pisze: ↑29 wrz 2010, 16:37patrząc jak się ludziska meczą podepnę makro napisane przez nas do MACH-a do czujnika długości narzędzia
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
Panowie mam problem, używałem tego makra w mach3 i jakiś czas temu wszystko działało dobrze lecz ostatnio dzieją się dzwine rzeczy, a mianowicie podczas pomiaru długości narzędzia zawsze zwracana jest wartość SENS_Z.
-Bazuję maszynę
-zakładam narzędzie nr.1 i rozpoczynam "auto tool zero"
-maszyna jedzie w miejsce pomiaru (czujnika) gdzie SENS_Z = -164
-po pomiarze który wygląda bardzo dobrze zwracana jest wartość 164
-zakładam narzędzie nr.2 inne długości
-robię pomiar
-zwracana jest wartość 164
Co to może być??
czy ktoś jest w stanie mi pomoc bo jest to bardzo uciążliwe.
dodam że kiedyś miałem płytkę LPT potem USB (chińczyka) i teraz mam MK3-ET XHC.
nie umiem stwierdzić kiedy rozpoczął się problem ale wcześniej wszystko działało dobrze.
-
- Nowy użytkownik, używaj wyszukiwarki
- Posty w temacie: 1
- Posty: 4
- Rejestracja: 08 lis 2019, 11:03
Re: Re:
Mam ten sam problem płytka MK4-ET XHC jest jakieś rozwiązanie ?dobrzann pisze: ↑02 sie 2021, 16:57WitamPiotrjub pisze: ↑29 wrz 2010, 16:37patrząc jak się ludziska meczą podepnę makro napisane przez nas do MACH-a do czujnika długości narzędzia
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
Panowie mam problem, używałem tego makra w mach3 i jakiś czas temu wszystko działało dobrze lecz ostatnio dzieją się dzwine rzeczy, a mianowicie podczas pomiaru długości narzędzia zawsze zwracana jest wartość SENS_Z.
-Bazuję maszynę
-zakładam narzędzie nr.1 i rozpoczynam "auto tool zero"
-maszyna jedzie w miejsce pomiaru (czujnika) gdzie SENS_Z = -164
-po pomiarze który wygląda bardzo dobrze zwracana jest wartość 164
-zakładam narzędzie nr.2 inne długości
-robię pomiar
-zwracana jest wartość 164
Co to może być??
czy ktoś jest w stanie mi pomoc bo jest to bardzo uciążliwe.
dodam że kiedyś miałem płytkę LPT potem USB (chińczyka) i teraz mam MK3-ET XHC.
nie umiem stwierdzić kiedy rozpoczął się problem ale wcześniej wszystko działało dobrze.
-
- Sympatyk forum poziom 2 (min. 50)
- Posty w temacie: 1
- Posty: 60
- Rejestracja: 19 sie 2013, 18:40
- Lokalizacja: Żywiec
Re: Konfiguracja czujnika długości narzędzia w Mach3 pl
Panowie doradźcie jak to poustawiać. Mianowicie mam zamocowany czujnik na frezarce. Fizycznie czujnik na stale jest poniżej imadła w którym montuje detal. Zrobiłem referencje, przejechałem sobie nad czujnik i wpisałem wartości do:
SENS_Z = -129 ' Sensor Z position
SENS_X = 8.17 ' Sensor X position
SENS_Y = 250 ' Sensor Y position
I teraz bazuje sobie detal. Zeruje Z. Zmieniam narzędzie np. na nr 2. Puszczam "Auto Tool Zero" i owszem jedzie ładnie nad czujnik bazuje się ale wpisuje do offsetu wartość 36,76 a powinno być ok 70, skąd ta różnica się bierze ?
SENS_Z = -129 ' Sensor Z position
SENS_X = 8.17 ' Sensor X position
SENS_Y = 250 ' Sensor Y position
I teraz bazuje sobie detal. Zeruje Z. Zmieniam narzędzie np. na nr 2. Puszczam "Auto Tool Zero" i owszem jedzie ładnie nad czujnik bazuje się ale wpisuje do offsetu wartość 36,76 a powinno być ok 70, skąd ta różnica się bierze ?
Kod: Zaznacz cały
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