Redukcja posuwow osi

Witam,
chcialbym ograniczyc predkosci posuwow osi X Y i Z w przypadku podniesienia oslon frezarki.
Mam zainstalowane krancowki oslon podlaczone do pinu E-STOP oraz zwieracz krancowek oslon za pomoca przelacznika z kluczem.Gdy klucz jest w pozycji OFF podniesienie oslon wyzwala E-STOP, w przypadku gdy jest w pozycji ON blokuje krancowke oslon i mozliwa jest praca z uniesiona oslona.Dodatkowo mam zainstalowany przekaznik podlaczony do klucza - chce wykorzystac styki tego przekaznika do podania impulsu na wejscie MACH-a by zredukowac posuwy. Pytanie jak to wykonac?
Oczywiscie po przekreceniu klucza w pozycje OFF - predkosc maksymalna posuwow wraca do wartosci ustawczych.
Pozdrawiam,Michal.

sam niewiem ale trzeba by pokąbinowac

chodzi mi po głowie że podac impulc na port tak by mach odebrał go a w machu uruchomiony musi byc skrypt który zwolni predkosc każdej osi

narazie nic niezdziałam remont mam i do drugiego kompa dostępu brak tak bym może cośnapisał

k-m-r1 pisze:sam niewiem ale trzeba by pokąbinowac

chodzi mi po głowie że podac impulc na port tak by mach odebrał go a w machu uruchomiony musi byc skrypt który zwolni predkosc każdej osi

narazie nic niezdziałam remont mam i do drugiego kompa dostępu brak tak bym może cośnapisał

Umiescilem w macropump.m1s:
If IsActive(Input1) Then
Call SetParam("VelocitiesX",1.5)
Call SetParam("VelocitiesY",1.5)
Call SetParam("VelocitiesZ",1.5)
Else
Call SetParam("VelocitiesX",20)
Call SetParam("VelocitiesY",20)
Call SetParam("VelocitiesZ",20)
End If

i zadzialalo. Musze to jeszcze potestowac na maszynie.
Temat zamykam.
Pozdr/M.

Działa Twoje makro?? Pozwolę sobie zamieścić swoje makro:).

Dim x,y,z,i,d
a:
d=getoemled(821)

If d=-1 Then

Do While i<7

i=i+1

dooembutton(109)
Loop
message("Praca przy ograniczonej prędkości")
Else

If i=7 Then
dooembutton(1014)
i=0
message("Praca przy normalnej prędkości")
Else

End If
End If

GoTo a