Punkt zerowy ustalany przy pomocy wskaźnika laserowego

[maryushr]

Lasery kupowałem na ebayu, dokładnie takie same jak te: http://www.ebay.com/itm/New-650nm-5mW-L ... 3cbb3ef0f3 .

[kolanoreki]

Mariusz możesz podać gdzie i jakie kupowałeś lasery liniowe

Laser jest z firmy Amecam z Warszawy.
www.amecam.pl

Jest to LINIOWY WSKAŹNIK LASEROWY CZERWONY LLM635003-D11L32AM20
Zasilanie 3-5V DC. Koszt ok 120zł/szt.

pzdr

[dziabi3]

kolanoreki

jak laser jest zamontowany obok i świeci pionowo to niema problemu

[k-m-r1]

jak laser jest zamontowany obok i świeci pionowo to niema problemu

spotkałem sie z tym że ktoś zamontował laser i fajnie

ale nie był równolegle do palnika i po podniesieniu palnika na max świecił gdzie indziej

[kolanoreki]

jak laser jest zamontowany obok i świeci pionowo to niema problemu

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 organoleptycznie

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:

[dziabi3]

mam prawie już całe zrobione macro


w sobotę posprawdzam i udostępnię tu na forum bo obecnie nie mam czasu

[dziabi3]

'===============================================================================================================

'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