Kilka pytań początkującego kolegi

Maszyny ze stali, aluminium, odlewów itp.
Tu możesz również przedstawić się i opisać swoją maszynę

Autor tematu
Borysvip
Nowy użytkownik, używaj wyszukiwarki
Nowy użytkownik, używaj wyszukiwarki
Posty w temacie: 3
Posty: 3
Rejestracja: 22 lut 2019, 20:11

Kilka pytań początkującego kolegi

#1

Post napisał: Borysvip » 24 lut 2019, 19:05

Na początku witam wszystkich jako osoba nowa na forum, oraz nowy użytkownik CNC.
Proszę o pomoc w kilku sprawach:
1. Bazowanie osi chciałbym zrobić na dwa dojazdy, znalazłem na forum fajny skrypt, jednak moja maszyna ma problem z częścią w której odchodzi 15mm od krańcówki przed dokładnym bazowaniem. Maszyna odjeżdża jednak baaardzo wolno, czy można ten skrypt poprawić aby dało się wpisać wartość odjazdu?

SetParam ("ZRefPer",15) '<---TO JEST KOMENDA ZMIANY PARAMETRU BAZOWANIA na 15%
Sleep 200
DoOEMButton (1024) 'bazowanie na 15%
While IsMoving()
Wend
Code "G53 Z-15" 'zjedź z krańcówki na 15mm (chodzi o tą część)
While IsMoving()
Wend
SetParam ("ZRefPer",1) '<---TO JEST KOMENDA ZMIANY PARAMETRU BAZOWANIA na 1%
Sleep 200
DoOEMButton (1024) 'bazowanie na 1%
While IsMoving()
Wend
SetParam ("ZRefPer",15) '<---TO JEST KOMENDA ZMIANY PARAMETRU BAZOWANIA na 15%

2. Mam na płytce wyjście 5VDC max 120mA chcę pod to podpiąć czujnik długości narzędzia i wpuścić w wejście 5VDC 7mA, jednak chyba muszę użyć opornika, gdyż jedno takie wejście wczoraj spaliłem puszczając bezpośrednio, czy ktoś wie jaki rezystor użyć?

3. Mam skrypt do czujnika narzędzia, jednak mam problem z przerobieniem go aby oś Z zjechała na -120mm (0 mam gdy frez jest maksymalnie uniesiony, a wszystkie inne położenia są ujemne), gdy wstawiam -120 w miejscu -20, maszyna robi cuda :P

Dim X,Y,Z,px,py,pz,wx,wy,wz,d,zpoz
Dim tool,Hits,zs,zn,Hitn
Dim w
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
' Poniższe zmienne wymagają deklaracji przez użytkownika
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
wx= 10 ' Tutaj podajemy położenie punktu wymiany narzędzia w odniesieniu do krańcówek bazujących ( współrzędne maszynowe )
wy= 10
wz= 10 'wz - określa na jakiej wysokości ma ustawić się wrzeciono przy wymianie

px = 11 ' Tutajokreślamy punkt pomiaru narzędzia, również w odniesieniu do krańcówek bazujących
py = 11 ' (współrzędne maszynowe)

pz = 11 ' wysokość przejazdowa ( wysokość na jakiej odbywają się przejazdy na punkt pomiaru oraz wymiany
'pownna być jak najwyższa, tak aby narzędzie nie zachaczyło o obrabiany element, czy mocowanie

'""""""""""""""""""""""
'Koniec definicji
'""""""""""""""""""""""""""""
'"""""""""""""""""""""""""""""""""""""""
'Właściwy program
'"""""""""""""""""""""""""""""""
'zapamiętanie współrzędnych punktu wyjściowego

X = GetoemDRO( 83 )
Y = GetoemDRO( 84 )
zm=getoemdro(85)
Z = GetoemDRO( 180)

'message( (px)&(" , ")& (py)&(" , ")& (pz))

MsgBox ("Teraz nastąpi przejazd do spółrzędnych czujnika pomiaru narzędzia. Po czym jeżeli wrzeciono jest uruchamiane ręcznie, wyłącz je, a następnie kliknij ok") ' wyświetlenie komunikatu

Code "g53 G00 Z" & pz 'podniesienie Z na wysokość przelotową
While IsMoving()
Wend

w=Getoemled(11) ' zapamiętanie, czy wrzeciono było uruchomione
Code"m5" ' wyłączenie wrzeciona

Code " g53 G00 X" & px & "Y" & py 'szybki przejazd na pozycje czujnika
While IsMoving()
Wend

Message ("Teraz nastąpi pierwszy pomiar") ' komunkat o rozpoczęciu pomiaru

' pomiar podzielony jest na dwa etapy, w opuszczenie może być dość szybkie; po wykryciu czujnika, następuje podniesienie o 2mm
' a nstępnie ponowny pomiar - tutaj prędkość powinna być miejsza, pozowli to na osiągnięcie większej precyzji pomiaru

Code "G31 Z-20 F50" 'opuszczenie osi Z do współrzędnej -20 ( Z-20) - w tym czasie powinna nastąpić aktywacja czujnika
While IsMoving() ' Tutaj możemy zmienić prędkość pierwszego pomiaru - Wartość przy parametrze F, 50 oznacza 50mm/min
Wend

Code "G91 Z2 F50" 'podniesienie osi Z o 2 mm
While IsMoving() ' Tutaj możemy zmienić prędkość oraz drogę o ile ma się podnieść - podniesienie powinno spowodować wyłączenie czujnika
Wend

code "g90"

Code "G31 Z-20 F10" 'opuszczenie osi Z do współrzędnej -20 ( Z-20) - w tym czasie powinna nastąpić aktywacja czujnika
While IsMoving() ' Tutaj możemy zmienić prędkość drugiego pomiaru - Wartość przy parametrze F, 10 oznacza 10mm/min
Wend

Hits = GetVar(2002) 'przechwycenie wysokości na jakiej zadziałał czujnik przy "starym" narzędziu

Code "G53 G00 Z" & pz 'podniesienie osi Z na wysokość przelotową
While IsMoving()
Wend

MsgBox ("Teraz nastąpi przejazd do współrzędnych wymiany narzędzia") ' komunikat o przelocie na punkt wymiany

Code "g53 G00 X" & wx & "Y" & wy 'przejazd na pozycje wymiany
While IsMoving()
Wend

Code "g53 G00 Z" & wz 'ustawienie osi Z na wysokości wymiany
While IsMoving()
Wend

MsgBox ("Wymień narzędzie i kliknij OK, Po czym nastąpi przejazd do spółrzędnych czujnika pomiaru narzędzia") ' komunikat

Code "g53 G00 Z" & pz 'podniesienie Z na wysokość przelotową
While IsMoving()
Wend

Code " g53 G00 X" & px & "Y" & py 'przejazd na pozycje czujnika
While IsMoving()
Wend

MsgBox ("Teraz nastąpi drugi pomiar")'komunikato pomiarze drugiego narzędzia


Code "G31 Z-20 F50" 'opuszczenie osi Z do współrzędnej -20 ( Z-20) - w tym czasie powinna nastąpić aktywacja czujnika W tym miejscu chcę wpisać -120 i maszyna nie wykonuje polecenia
While IsMoving() ' Tutaj możemy zmienić prędkość pierwszego pomiaru - Wartość przy parametrze F, 50 oznacza 50mm/min
Wend

Code "G91 Z2 F50" 'podniesienie osi Z o 2 mm
While IsMoving() ' Tutaj możemy zmienić prędkość oraz drogę o ile ma się podnieść - podniesienie powinno spowodować wyłączenie czujnika
Wend

code "g90"

Code "G31 Z-20 F10" 'opuszczenie osi Z do współrzędnej -20 ( Z-20) - w tym czasie powinna nastąpić aktywacja czujnika
While IsMoving() ' Tutaj możemy zmienić prędkość drugiego pomiaru - Wartość przy parametrze F, 10 oznacza 10mm/min
Wend


Hitn = GetVar(2002) 'przechwycenie wysokości na jakiej zadziałał czujnik przy "nowym" narzędziu



Code "G53 G00 Z" & pz 'podniesienie Z na wysokość przelotową
While IsMoving()
Wend



d= Hits- Hitn ' obliczanie różnicy długości
d =Abs(d)

'message(Hits)
'message(Hitn)
'message(d)


zpoz=0

If Hits < Hitn Then zpoz=zm+d ' na podstawie wysokości zadziałań czujnika przy pomiarach obliczana jest wartość współczynnika korekcji wysokości osi Z
If Hits > Hitn Then zpoz=zm-d


Code "G53 G00 X" & X & "Y" & Y 'przejazd na współrzędne punktu wyjściowego ( ten w którym zostało wywołane makro )
While IsMoving()
Wend

MsgBox ("włącz wrzeciono i kliknij OK") ' komunikat o włączeniu wrzeciona - w przypadku gdy włączamy je ręcznie


Code "G0 g53 Z" & zpoz ' opuszczenie narzędzia - jego koniec powinien znaleźć się tam gdzi przed wywyołaniem makra
While IsMoving()
Wend

Call setdro(2,z) ' ustawienie wspłrzędnych - ofset

If w = true Then Code"m3" ' automatyczne włączenie wrzeciona jeżeli było uruchomine przed pomiarem.

End


Maszyna to chińczyk i używa Mach3, jeżeli to ma znaczenie :P
Przepraszam też jeżeli moje pytania są oczywiste czy głupie, dopiero zaczynam swoją przygodę.



Tagi:


Autor tematu
Borysvip
Nowy użytkownik, używaj wyszukiwarki
Nowy użytkownik, używaj wyszukiwarki
Posty w temacie: 3
Posty: 3
Rejestracja: 22 lut 2019, 20:11

Re: Kilka pytań początkującego kolegi

#2

Post napisał: Borysvip » 26 lut 2019, 20:16

Jeżeli chodzi o punkt 2. to już sobie poradziłem, według elektronika rezystor 1kohm jest OK, (tak też narazie pracuje maszyna i wszystko gra), proszę jeszcze o pomoc ze skryptami :)


dudziak4
Specjalista poziom 2 (min. 300)
Specjalista poziom 2 (min. 300)
Posty w temacie: 2
Posty: 478
Rejestracja: 06 wrz 2007, 13:30
Lokalizacja: Bielawa

Re: Kilka pytań początkującego kolegi

#3

Post napisał: dudziak4 » 26 lut 2019, 20:29

Żaden problem
"G53 G01 F1000 Z-15" F dowolnie zmieniaj to jest prędkość 1000 czyli 1m/min
Lub "G53 G00 Z-15" maksymalna prędkość maszyny.
Podmień to co w cudzysłowiu lub dopisz to czego nie ma.


Autor tematu
Borysvip
Nowy użytkownik, używaj wyszukiwarki
Nowy użytkownik, używaj wyszukiwarki
Posty w temacie: 3
Posty: 3
Rejestracja: 22 lut 2019, 20:11

Re: Kilka pytań początkującego kolegi

#4

Post napisał: Borysvip » 28 lut 2019, 10:30

Dzięki, działa super :)

Jeszcze jakby ktoś ten skrypt od długości narzędzia poprawił, będę wdzięczny.

Pozdrawiam,


dudziak4
Specjalista poziom 2 (min. 300)
Specjalista poziom 2 (min. 300)
Posty w temacie: 2
Posty: 478
Rejestracja: 06 wrz 2007, 13:30
Lokalizacja: Bielawa

Re: Kilka pytań początkującego kolegi

#5

Post napisał: dudziak4 » 01 mar 2019, 18:27

jakie masz limity ustawione w osi Z
"G31 Z-120 F50" jaki komunikat wyskakuje lub co się dzieje jak masz ten kod w skrypcie ?
A co się dzieje jak zostawisz "G31 Z-20 F50" wykonuje ?

ODPOWIEDZ Poprzedni tematNastępny temat

Wróć do „Frezarka - konstrukcja metalowa”