pomoc w budowie wypalarki plazmowej

prokopcio · Post napisał: **prokopcio** » 30 mar 2013, 14:12

Tak można ale proponuję po probe podnieść palnik chociaż na Z=0 (skorygować odległość zera od krańcówki) lub nad materiał jęśli nie potrzebujesz kontaktu i dopiero odpalić plazmę, w przeciwnym razie palnik będzie dłużej odpalony "leżał" na materiale co jest dla niego dość niezdrowe...

jo · Post napisał: jo » 30 mar 2013, 20:35

kłopot jest taki , jak włączam palnik w powietrzu , M3 , palnik czeka na Arc,nie rusza się nigdzie , po kilkunastu próbach przegrzał mi się układ zajarzenia w plazmie

z kolei palnik odpalany na blasze zachlapuje dysze , zwłaszcza że przy odpalaniu ciśnienie rośnie powoli ( 7m węża do palnika)

gdzie są te makra w Machu , mam z nimi do pogadania

bartuss1 · Post napisał: **bartuss1** » 30 mar 2013, 20:47

a nie mozesz zwyczajnie dopisac sobie pauzy g04 p iles tam milisekund czy tez sekund ?

jo · Post napisał: jo » 30 mar 2013, 21:42

do 200 detali ?

teraz mam M3

DoSpinCW()

a jak dobrze to rozgryzam trza by dać

DoSpinCW()
While IsActive (input1) (nie wiem czy da coś wpisanie (thc on) zamiast input)
Code "G4 P1"
While IsMoving
Wend

można też dodać While not IsActive (input1), jeśli jest Active Low

lub

DoSpinCW()
SystemWaitFor(INPUT1)
Code "G4 P1"
While IsMoving
Wend

to by było do odpalania w powietrzu, trza by dodać coś żeby zetka podjechała +2mm
a do stykowego trza by dodać ten G-code Prokopcia

prokopcio · Post napisał: **prokopcio** » 30 mar 2013, 22:03

przecież to niema nic wspólnego z wykryciem pozycji materiału. Jedynie oczekiwanie na łuk co chyba mach ma "z urzędu". Trzeba wprowadzić do makro ruch osi Z

podpowie mi ktoś jak odczytać aktualną współrzędną materiałową w skrypcie ?

zacząłem pisać 2 skrypty do zajarzania dotykowego i z krańcówką ale brakuje mi odczytu aktualnej pozycji zetki GetABSPosition daje wrtości maszynowe z których wyliczam materiałowe ale to tak na okrętkę mi się wydaje.

bartuss1 · Post napisał: **bartuss1** » 30 mar 2013, 22:09

jo pisze:do 200 detali ?

wchodzisz w edycję pliku
i pstrykasz zamien m3 na m3 g04 p ...
i zamien wszystko - masz pauzę dla miliona detali czy ile ich tam jest

jo · Post napisał: jo » 30 mar 2013, 22:38

prokopcio pisze:przecież to niema nic wspólnego z wykryciem pozycji materiału. Jedynie oczekiwanie na łuk co chyba mach ma "z urzędu". Trzeba wprowadzić do makro ruch osi Z

podpowie mi ktoś jak odczytać aktualną współrzędną materiałową w skrypcie ?

zacząłem pisać 2 skrypty do zajarzania dotykowego i z krańcówką ale brakuje mi odczytu aktualnej pozycji zetki GetABSPosition daje wrtości maszynowe z których wyliczam materiałowe ale to tak na okrętkę mi się wydaje.

ba , jak bym wiedział wszystko , zerknij pooniżej

g28.1 z3.0
G92 z0.0
G00 z9.4
G92 z0.0
g00 z6.0
M03
P (any number i want to put in)
z3.0
x.........y.......

code "F30"
code "G31 Z-1"
While ismoving
Wend
code "G92 Z-" & offset
While ismoving
Wend
code "G00 Z" & pierceHeight
While ismoving
Wend

and this code in GCode...

F30
G31 Z-1
G92 Z-0.1500
G00 Z0.1250

code "F30"
code "G31 Z-1"
While ismoving
Wend
code "G92 Z-" & offset
While ismoving
Wend
code "G00 Z" & pierceHeight
While ismoving
Wend

Incidentally, a tip: I don't use DoSpinCW - it's slooooooooow, instead I use activateSignal(OUTPUT1) - it's waaaaaay faster to respond.

prokopcio · Post napisał: **prokopcio** » 30 mar 2013, 22:54

Pisałem równolegle - wykrycie "stykowe" bez krańsówki

Kod: Zaznacz cały

StartPos = "30"        ' pozycja od której będzie rozpoczynana detekcja
SpeedOfDetect = "300"  ' prędkość opuszczania podczas detekcji
HeightOfPiercing = "2" ' wysokość przebijania 
TimeOfPiercing = "500"   ' czas przebijania [ms] 


Dim AxisPos, MaterialPos As Double

THCoff() 
Code "G0 Z" & StartPos
 While (IsMoving()) 
  sleep (50)         
 Wend    
AxisPos = GetABSPosition(2) 
ActivateSignal(Output1) 
Code "G31 Z0 F" & SpeedOfDetect
Message("Detecting of material pos...") 
 While (IsMoving()) 
  sleep (50)         
 Wend   
MaterialPos = StartPos - ( AxisPos - GetABSPosition(2) ) 
If MaterialPos <= 0 Then 
  Message("No material detected !") 
  DeActivateSignal(Output1) 
  Code "G0 Z" & StartPos
 Else 
  Message("Material pos:" & MaterialPos) 
  Code "G0 Z" & MaterialPos + HeightOfPiercing
   While (IsMoving()) 
    sleep (10)         
   Wend 
  Sleep(TimeOfPiercing) 
  Code "G0 Z" & MaterialPos + 1
  StartTHC() 
End If
ZeroThc() 

While (IsMoving()) 
 sleep (50)         
Wend

trzeba dopisać tylko pełną obsługę jeśli nie wykryje materiału - teraz tylko wyłącza plazmę i podnosi... poza tym przetestowałem chyba wszystko co się dało odnośnie wyłączenia THC - nie potrafię tego zrobić : komendy te NIE DZIAŁAJĄ !!! nie wiem czemu.

jo · Post napisał: jo » 30 mar 2013, 23:17

a po co wyłączać ?

prokopcio · Post napisał: **prokopcio** » 31 mar 2013, 13:20

a po co zostawiać załączoną plazmę jeśli wiadomo że niema materiału lub nie odpaliła ?

pomoc w budowie wypalarki plazmowej

Wałek prowadzący aluminiowy drążony drylin® R AWMR-20 fi 20 - 500 mm

Dysk na rzepy 150 18A975/P180

pomoc w budowie wypalarki plazmowej

Wałek prowadzący aluminiowy drążony drylin® R AWMR-20 fi 20 - 500 mm

Dysk na rzepy 150 18A975/P180

Zaloguj się • Zarejestruj się

Połącz się z kontem sieci społecznościowej