Mach3 Otomatik Takım Değiştirme

kafu · 11 Ağu 2012

ramerturk' Alıntı:
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...

Kod:

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 · 11 Ağu 2012

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 · 11 Ağu 2012

kafu' Alıntı:
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 · 12 Ağu 2012

mehmetkose' Alıntı:
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 · 6 Eki 2012

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 · 6 Eki 2012

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 · 7 Eki 2012

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 · 14 Eki 2012

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 · 14 Eki 2012

gpeker2003' Alıntı:
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 · 14 Eki 2012

Şimdi idare eder.

Mach3 Otomatik Takım Değiştirme

kafu

Üye

mehmetkose

Usta Üye

ramerturk

Profesyonel Üye

ramerturk

Profesyonel Üye

hcolak

Üye

hcolak

Üye

ramerturk

Profesyonel Üye

gpeker2003

Üye

ramerturk

Profesyonel Üye

gpeker2003

Üye

Benzer Konular

Mach3 Otomatik Takım Değiştirme

Üye

Usta Üye

Profesyonel Üye

Profesyonel Üye

Üye

Üye

Profesyonel Üye

Üye

Profesyonel Üye

Üye

Benzer Konular

Privacy & Transparency

Privacy & Transparency