Mach3 Otomatik Takım Değiştirme

[kafu]

Eğer sabit sıralı ve boşluklar sabitse her takımın yerini tek tek tanıtmak yerine formul ile de yapılabilir sanırım...

Yanlışım varsa düzeltin...

IF Toolnumber>=1 and toolnumber<=8 then 
xpos = (toolnumber * 20 {20=takımlar arası sabit boşluk mm}) + 50 (ilk takım için başlangıç pos.)
ypos = 10
end if

Merhaba ramerturk toolchanger kodu calısıyor elıne saglık ama farzedelimki 1 nolu takımdan 2 nolu takıma makina gidiyor. hava yı acıyor sorun yok. takımıda agızlıyor ancak diğer takımlar catal gibi birseyin üstünde ve makina geriye dogru çıkmıyor direk yukarı doğru cıkıyor tabi buda problem cunku cataldan kurtulmuyor takım.. ben bunu macronun neresinden değiştirebilirim acaba ?

 

[mehmetkose]

Furkan, vermiş olduğum makroda;
Code "G00 Z" & ToolUp
While IsMoving()
Wend
Call MovePos(OldTool)
While IsMoving()
Wend
Code " g00 Z" & ToolDown
Code " G00 Y10"
Code "G4 P.75"
While IsMoving()
Wend

kırmıızı yazılı kodu eklersen yeterli olur sanırım... olmaz ise telefonum açık....

 

[ramerturk]

Merhaba ramerturk toolchanger kodu calısıyor elıne saglık ama farzedelimki 1 nolu takımdan 2 nolu takıma makina gidiyor. hava yı acıyor sorun yok. takımıda agızlıyor ancak diğer takımlar catal gibi birseyin üstünde ve makina geriye dogru çıkmıyor direk yukarı doğru cıkıyor tabi buda problem cunku cataldan kurtulmuyor takım.. ben bunu macronun neresinden değiştirebilirim acaba ?

Anladığım kadarıyla Tool lar direk yukarı yada aşağı hareket edemiyor. Bırakmak için; önce belli bir mesafe gerisinde Z pozisyonu ayarlanıp tool yerine ittiriliyor ve alırkende bunun tam tersi.

Evet burda verilen makroda toollar bosta gibi düişünülmüş ve direk bırakırken aşağı doğru bırakılıyor, alırkende direk yukarı çıkıyor. Eğer tool bir mmuhafazada ise ya bu muhafazayı kırar yada Z motoru sıkışır.

Tool magazini bırakmak ve almak için hangi eksenlerde hareket etmeniz gerektiğini bir kroki ile çizerseniz yardımcı olunabilir.

 

[ramerturk]

Furkan, vermiş olduğum makroda;
Code "G00 Z" & ToolUp
While IsMoving()
Wend
Call MovePos(OldTool)
While IsMoving()
Wend
Code " g00 Z" & ToolDown
Code " G00 Y10"
Code "G4 P.75"
While IsMoving()
Wend

kırmıızı yazılı kodu eklersen yeterli olur sanırım... olmaz ise telefonum açık....

Bu kod yeterli olmayacaktır. Çünkü yukardaki kodda önce Z ToolUp (Takımdan takıma gecerken kullanılacak Z seviyesi) değerine iniyor, sonra eski bıçağı bırakmak için Z ToolDown değerine düşüyor tool bırakmada almada yapılmadan "G00 Y10" koordinatına hareket ediyor ve "G4 ..." kodu işletiliyor.
Öncelikle MovePos alt fonksiyonu Tool Bırakma ve Alma için farklı hareket edecek şekilde yeniden düzenlenmeli. Çünkü bıçak alma davranışı ile bıçak bırakma davranışı artık farklılaşmak zorunda.

Kolay gelsin...

 

[hcolak]

merhabalar konuya verilen cevaplar gerçekten çok açıklayıcı.
ben otomatik takım sıfırlamayı aşağıdaki makro ile yapıyorum.
bu kod'ta z eksenin home kalkarak x ve y eksenlerinin takım sıfırlamada olduğu gibi önceden tanımladığım sabit yere gitmesini ve z eksenin o noktada hareket etmesini istiyorum. kodda ne gibi değişikler yapmam gerekir. şimdiden teşekkür ederim.

 

[hcolak]

PlateThickness = GetUserDRO(1151)
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P1"
Code "G31Z-40 F500"
While IsMoving()
Wend
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, 10.1)
Code "G4 P0.25"
Code "G0 Z20"
Code "(Z ekseni sıfırlandı...)"
Else
Code "(Z Eksen Sıfırlama Hatası... Bağlantıları kontrol ederek tekrar deneyiniz...)"
Exit Sub
End If

 

[ramerturk]

PlateThickness = GetUserDRO(1151)
CODE "G0 Z50"
Code "G0 X100 Y100"
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P1"
Code "G31Z-40 F500"
While IsMoving()
Wend
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, 10.1)
Code "G4 P0.25"
Code "G0 Z20"
Code "(Z ekseni sıfırlandı...)"
Else
Code "(Z Eksen Sıfırlama Hatası... Bağlantıları kontrol ederek tekrar deneyiniz...)"
Exit Sub
End If





CODE "G0 Z50" : İşleme başlamadan önce Z yi 50 mm yukarı alır bu sayede herhangi bir yere çarpma riski olmaz.

CODE "G0 X100 Y 100" : Sıfırlama yapılacak noktaya (X100 Y100) gider buradaki rakamları sizin istediğiniz yer neresi ise onunla değiştirebilirsiniz.

 

[gpeker2003]

Bu kod da yanlış.
G0 sonrası geçici koordinat noktasına göre hareket eder.
G28 yada G53 kodlarını kullanmalısın. Mutlak koordinatta bu kodlarla hareket ettirebilirsin.
Tabi öncelikle mutlak koordinatta 0 noktanı home ile tanıtmalısın.

 

[ramerturk]

Bu kod da yanlış.
G0 sonrası geçici koordinat noktasına göre hareket eder.
G28 yada G53 kodlarını kullanmalısın. Mutlak koordinatta bu kodlarla hareket ettirebilirsin.
Tabi öncelikle mutlak koordinatta 0 noktanı home ile tanıtmalısın.

Arkadaşa özel mesajdan göndermiştim. Burda paylaşmamışız...

PlateThickness = GetUserDRO(1151)
If GetOemLed (825)=0 Then
CODE "G0 G53 Z0"
Code "G0 G53 X100 Y100"
DoOEMButton (1010)
Code "G4 P1"
Code "G31Z-40 F500"
While IsMoving()
Wend
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, 10.1)
Code "G4 P0.25"
Code "G0 Z20"
Code "(Z ekseni sıfırlandı...)"
Else
Code "(Z Eksen Sıfırlama Hatası... Bağlantıları kontrol ederek tekrar deneyiniz...)"
Exit Sub
End If

 

[gpeker2003]

Şimdi idare eder.