Punkt zerowy ustalany przy pomocy wskaźnika laserowego
-
- Specjalista poziom 2 (min. 300)
- Posty w temacie: 5
- Posty: 464
- Rejestracja: 21 gru 2004, 14:11
- Lokalizacja: Piaseczno
- Kontakt:
Laser jest z firmy Amecam z Warszawy.HUD pisze:Mariusz możesz podać gdzie i jakie kupowałeś lasery liniowe
www.amecam.pl
Jest to LINIOWY WSKAŹNIK LASEROWY CZERWONY LLM635003-D11L32AM20
Zasilanie 3-5V DC. Koszt ok 120zł/szt.
pzdr
-
- ELITA FORUM (min. 1000)
- Posty w temacie: 1
- Posty: 1418
- Rejestracja: 23 cze 2008, 10:38
- Lokalizacja: OOL lub DW
- Kontakt:
spotkałem sie z tym że ktoś zamontował laser i fajniedziabi3 pisze:jak laser jest zamontowany obok i świeci pionowo to niema problemu
ale nie był równolegle do palnika i po podniesieniu palnika na max świecił gdzie indziej
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]
-
- Specjalista poziom 2 (min. 300)
- Posty w temacie: 5
- Posty: 464
- Rejestracja: 21 gru 2004, 14:11
- Lokalizacja: Piaseczno
- Kontakt:
Tak ale mamy wtedy kolejne zbędne dodatkowe ruchy maszyny , makra,.... a tak stajemy nad punktem, w którym chcemy zaczynać np. palić detal, zerujemy osie, wciskamy start, i praca idzie do przodu Przerabiałem to organoleptyczniedziabi3 pisze:jak laser jest zamontowany obok i świeci pionowo to niema problemu
A ... i przy bocznym montażu mamy często mniejsze pole robocze, chyba, że karetka wyjeżdża poza obrys stołu o min wartość odsunięcia osi lasera krzyżowego i palnika.
Jeśli natomiast posiadamy wysokie burty w waterjecie lub plaźmie, ustawione mamy softlimity, to wówczas pole robocze nam się skurczy, nie będzie wykorzystane maksymalnie:neutral:
-
- Specjalista poziom 3 (min. 600)
- Posty w temacie: 4
- Posty: 874
- Rejestracja: 13 sie 2009, 16:15
- Lokalizacja: xxx
'===============================================================================================================
'Macro najazdu na wskaznik lasera V1
'2013-04-09 00:32
'===============================================================================================================
Const NewPoz_X = 30 'różnica odległosci w osi X miedzy frezem a laserem, ważny jest znak wartości
Const NewPoz_Y = 30 'różnica odległosci w osi Y miedzy frezem a laserem, ważny jest znak wartości
Const FeedMove = 500 'prędkość przejazdów
'===============================================================================================================
Dim ZDROsaveCord 'Pozycja osi Z przed wywołaniem PROBE
Dim Inc 'Gdy 1 ruch inkrementalny , 0 absolutny
Dim MachCoor 'Gdy 1 kordynaty programowe
Dim FeedCurrent 'Zapis prędkosci
'===============================================================================================================
'Główny program
'===============================================================================================================
Sub Main
'--------------------------------------------------------------------
If GetOEMLed(806) Or GetOEMLed(807) Or GetOEMLed(809) Then
StopRewindSleep
Message"ERROR: Maszyna nie zbazowana !!!"
End
ElseIf GetOEMLed(11) Then
StopRewindSleep
Message"ERROR: wrzeciono pracuje"
End
End If
'--------------------------------------------------------------------
SaveMachCoor
SaveIncAbs
SaveFeedCurrent
ZDROsaveCord = GetOEMDro(802)
'--------------------------------------------------------------------
Code"G90"
WaitForMove
Code "G53 G0 Z0"
WaitForMove
Code"G91"
WaitForMove
Code"G1 X" & NewPoz_X & " Y" & NewPoz_Y & " F" & FeedMove
WaitForMove
Code"G90"
WaitForMove
Code"G1 Z" & ZDROsaveCord & " F" & FeedMove
WaitForMove
SetOEMDro(800, 0)
SetOEMDro(801, 0)
Sleep(1000)
'--------------------------------------------------------------------
RestoreFeedCurrent
RestoreIncAbs
RestoreMachCoor
'--------------------------------------------------------------------
End Sub
'===============================================================================================================
'Funkcje
'===============================================================================================================
Sub SaveMachCoor ()
If GetOEMLed(16) Then
DoOEMButton(256)
MachCoor = 1
Else
MachCoor = 0
End If
End Sub
'-------------------------------------------
Sub RestoreMachCoor ()
If MachCoor = 1 Then
If Not GetOEMLed(16) Then
DoOEMButton(256)
End If
Else
If GetOEMLed(16) Then
DoOEMButton(256)
End If
End If
End Sub
'-------------------------------------------
'-------------------------------------------
Sub SaveIncAbs ()
If GetOEMLed(49) Then
Inc = 1
Else
Inc = 0
End If
End Sub
'-------------------------------------------
Sub RestoreIncAbs ()
If Inc = 1 Then
Code"G91"
WaitForMove
Else
Code"G90"
WaitForMove
End If
End Sub
'-------------------------------------------
'-------------------------------------------
Sub SaveFeedCurrent ()
FeedCurrent = GetOEMDRO(818)
End Sub
'-------------------------------------------
Sub RestoreFeedCurrent ()
Code "F" &FeedCurrent
WaitForMove
End Sub
'-------------------------------------------
'-------------------------------------------
Sub StopRewindSleep ()
DoOEMButton(1003)
DoOEMButton(1002)
Sleep(150)
End Sub
'-------------------------------------------
'-------------------------------------------
Sub WaitForMove ()
While IsMoving()
Sleep(15)
Wend
End Sub
'===============================================================================================================
Macro zapamiętuje prędkość posuwu , czy jest w koordynatach maszynowych , czy jest w g90 czy g91 i na koniec przywraca poprzedni stan
do przejazdu podnoś się do 0 maszynowego i opada do poprzedniej wysokości w osi Z , kontroluje zabazowanie osi.
Miłej zabawy w testowaniu Poniżej plik do pobrania
'Macro najazdu na wskaznik lasera V1
'2013-04-09 00:32
'===============================================================================================================
Const NewPoz_X = 30 'różnica odległosci w osi X miedzy frezem a laserem, ważny jest znak wartości
Const NewPoz_Y = 30 'różnica odległosci w osi Y miedzy frezem a laserem, ważny jest znak wartości
Const FeedMove = 500 'prędkość przejazdów
'===============================================================================================================
Dim ZDROsaveCord 'Pozycja osi Z przed wywołaniem PROBE
Dim Inc 'Gdy 1 ruch inkrementalny , 0 absolutny
Dim MachCoor 'Gdy 1 kordynaty programowe
Dim FeedCurrent 'Zapis prędkosci
'===============================================================================================================
'Główny program
'===============================================================================================================
Sub Main
'--------------------------------------------------------------------
If GetOEMLed(806) Or GetOEMLed(807) Or GetOEMLed(809) Then
StopRewindSleep
Message"ERROR: Maszyna nie zbazowana !!!"
End
ElseIf GetOEMLed(11) Then
StopRewindSleep
Message"ERROR: wrzeciono pracuje"
End
End If
'--------------------------------------------------------------------
SaveMachCoor
SaveIncAbs
SaveFeedCurrent
ZDROsaveCord = GetOEMDro(802)
'--------------------------------------------------------------------
Code"G90"
WaitForMove
Code "G53 G0 Z0"
WaitForMove
Code"G91"
WaitForMove
Code"G1 X" & NewPoz_X & " Y" & NewPoz_Y & " F" & FeedMove
WaitForMove
Code"G90"
WaitForMove
Code"G1 Z" & ZDROsaveCord & " F" & FeedMove
WaitForMove
SetOEMDro(800, 0)
SetOEMDro(801, 0)
Sleep(1000)
'--------------------------------------------------------------------
RestoreFeedCurrent
RestoreIncAbs
RestoreMachCoor
'--------------------------------------------------------------------
End Sub
'===============================================================================================================
'Funkcje
'===============================================================================================================
Sub SaveMachCoor ()
If GetOEMLed(16) Then
DoOEMButton(256)
MachCoor = 1
Else
MachCoor = 0
End If
End Sub
'-------------------------------------------
Sub RestoreMachCoor ()
If MachCoor = 1 Then
If Not GetOEMLed(16) Then
DoOEMButton(256)
End If
Else
If GetOEMLed(16) Then
DoOEMButton(256)
End If
End If
End Sub
'-------------------------------------------
'-------------------------------------------
Sub SaveIncAbs ()
If GetOEMLed(49) Then
Inc = 1
Else
Inc = 0
End If
End Sub
'-------------------------------------------
Sub RestoreIncAbs ()
If Inc = 1 Then
Code"G91"
WaitForMove
Else
Code"G90"
WaitForMove
End If
End Sub
'-------------------------------------------
'-------------------------------------------
Sub SaveFeedCurrent ()
FeedCurrent = GetOEMDRO(818)
End Sub
'-------------------------------------------
Sub RestoreFeedCurrent ()
Code "F" &FeedCurrent
WaitForMove
End Sub
'-------------------------------------------
'-------------------------------------------
Sub StopRewindSleep ()
DoOEMButton(1003)
DoOEMButton(1002)
Sleep(150)
End Sub
'-------------------------------------------
'-------------------------------------------
Sub WaitForMove ()
While IsMoving()
Sleep(15)
Wend
End Sub
'===============================================================================================================
Macro zapamiętuje prędkość posuwu , czy jest w koordynatach maszynowych , czy jest w g90 czy g91 i na koniec przywraca poprzedni stan
do przejazdu podnoś się do 0 maszynowego i opada do poprzedniej wysokości w osi Z , kontroluje zabazowanie osi.
Miłej zabawy w testowaniu Poniżej plik do pobrania
- Załączniki
-
- M21najazd na laser.rar
- (967 Bajtów) Pobrany 169 razy
Mach3 + CSMIO =