Mach3 Otomatik Takım Değiştirme

deniz77

Uzman Üye
Katılım
18 Mar 2007
Mesajlar
395
Puanları
248
Yaş
35
Arkadaşlar mach3 ten otomatik takım değiştirme ile ilgisi , bilgisi olan arkadaşlar bu işi nasıl yaptıklarını anlatabilirlermi?
 

mehmetkose

Usta Üye
Katılım
21 Kas 2006
Mesajlar
589
Puanları
198
Arkadaşlar mach3 ten otomatik takım değiştirme ile ilgisi , bilgisi olan arkadaşlar bu işi nasıl yaptıklarını anlatabilirlermi?
takım değiştirmek istediğinize göre aparatınızda mevcut,nasıl bir aparat kullandığınızı (mümkünse resimli olarak) anlatırsanız yardımcı olabilirim...
 

Drug1

Üye
Katılım
10 Haz 2009
Mesajlar
188
Puanları
3
Yaş
35
Konum
Dünya
Bu işlem için sıradan bir kontrol kartı yeterli gelmeyecektir. Ayrıca iş milinin bağlı olduğu Z eksenininde uygun bağlantı elemanlarına göre bir mekanizmaya sahip olması gerekir. Bahsedilen aparat bizim taret diye tabir ettiğimiz mekanizmadır. Tezgah üzerinde M06 takım değiştirme kodu geldiği anda istenilen takımın taret üzerinde ki numarasına göre taret döner spindle ın bağlı olduğu mekanizma gelir önce diğer çakıyı yine taret üzerindeki numarasına göre bırakır ve Z ekseninde yukarı kalkar taret yeni takım için döner ve mekanizmanın tam altına gelir. Takımı alır ve proğramda kaldığı yerden devam eder. Taret yerine sadece ileri geri hareketi pnömatik bir silindirle yapan ve konumlandırmayı önceden belirlenmiş ve proğramdan proğrama farketmeyen yapıda kaydedilmiş şekilde olan , sıralanmış çakıları almak için etzgah kendisi hareket eden bir makina görmüştüm. Mach-3 için mümkün ama uygun kontrol kartı mevcut mu ?
 
Katılım
26 Mar 2008
Mesajlar
5
Puanları
1
Yaş
35
Değerli arkadaşlar mach3 ile magazin olmadan takım degiştirmek istiyorum.alt programı nasıl yazmalıyım yada mach3 te böyle bir özellik varsa nasıl aktif etmeliyim. yardımlarınız için şimdiden teşekkür ederim......
 

mehmetkose

Usta Üye
Katılım
21 Kas 2006
Mesajlar
589
Puanları
198
Değerli arkadaşlar mach3 ile magazin olmadan takım degiştirmek istiyorum.alt programı nasıl yazmalıyım yada mach3 te böyle bir özellik varsa nasıl aktif etmeliyim. yardımlarınız için şimdiden teşekkür ederim......
Bir çılgın mucit ile bir çılgın makinist bir araya gelirse uçak bile yapılır arkadaşım:D şaka bir yana benim "magazin olmadan takım değiştirmek istiyorum" dan anladığım; "benim makinam, takım değiştirme noktasına gelince dursun ta ki ben tekrar START butonuna basıncaya kadar" diye anlıyorum, eğer böyle bir işlem yapmak istiyor isek; sırası ile "üst menülerden CONFIG/GENERAL CONFIG" e tıklayıp sol üst satırlarda bulunan " TOOL CHANGE " bölümündeki " STOP SPINDLE.WAIT FOR CYCLE START. " seçeneğini işaretleriz... eğer benim anlayamadığım bir şekilde takım değiştirmek istiyorsan biraz daha ayrıntlı anlatırsan yardımcı olmaya çalışırız, çünkü takım değiştirmenin birçok yöntemi var (macro lar v.s.) kolay gelsin...
 
Son düzenleme:

ramerturk

Profesyonel Üye
Katılım
31 Tem 2011
Mesajlar
1,029
Puanları
483
Yaş
48

ramerturk

Profesyonel Üye
Katılım
31 Tem 2011
Mesajlar
1,029
Puanları
483
Yaş
48
Birde böyle bişey var...

 
Katılım
26 Mar 2008
Mesajlar
5
Puanları
1
Yaş
35
Mehmet kardeş takımlarımız makinanın calışma alanının en uç noktasında sıralı ve aralarında 25 cm boşluk var.Ve bu takımları alması için atc yi ayarladım lakin mach3 te takım degiştirmek için alt mokro yazılımı nasıl yapmam gerektigini bilmiyorum ,yardımcı olursanız paylaşımınızın ne kadar degerli oldugunu sizde göreceksiniz.lütfen bu konuyu hasasiyetle yer verirseniz müteşekkürlerimi sunarım.Saygılarım ile...
 

mehmetkose

Usta Üye
Katılım
21 Kas 2006
Mesajlar
589
Puanları
198
Buyur kardeş sana otomatik takım değiştirme (ATC) makrosu... saygılar....

Kod:
' OTOMATİK TAKIM DEĞİŞTİRME MAKROSU
' Mehmet İzzet KÖSE
Sub Main()
OldTool = GetOEMDRO (1200) 
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool

MaxToolNum = 8 'Değiştirmek istenen max. takım sayısı
ToolDown = -3.125 'Takımı almak yada bırakmak için Z nin pozisyonu...!
ToolUp = 0.0 'Bıraktığı takımdan alacağı takıma giderken Z nin pozisyonu...!

If NewTool = OldTool Then
Exit Sub
End If

While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend

Code "G00 G53 Z" & ToolUp
While IsMoving()
Wend

Call MovePos(OldTool)
While IsMoving()
Wend

Code "G53 Z" & ToolDown
Code "G4 P.75"
While IsMoving()
Wend

ActivateSignal(Output1) 'Takımı bırakmak için gerekli sinyal....!

Code "G4 P1.0" 'Takımı bırakmak için bekletmek... gerektiği kadar gecikme yaptırılır...!

'SystemWaitFor (7) 'Takımı aldığını bildiren Limit switch sinyalini beklemek...opsiyoneldir.. istenirse kullanılmaz... şuan pasif durumda gerekirse satır başındaki tırnağı kaldırmak yeterli...

Code "G53 Z-2.5" & ToolUp

Call MovePos(NewTool)
While IsMoving()
Wend

Code "G53 Z" & ToolDown
Code "G4 P.75"
While IsMoving()
Wend

DeActivateSignal(Output1) 'Takımı bırakmak için gönderilen sinyali kapatıyor... yani takımı tutuyor.. output1 kullanılıyor...
Code "G4 P1.0" 'Wait for the tool to Clamp
While IsMoving()
Wend

Code "G53 Z" & ToolUp
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
Code "G00 X" & x & " Y" & y 'Takım değiştirmeyi tamamlayıp kaldığı yere konumlanma....
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Xpos = 12.00
YPos = 2.00

Case Is = 2
Xpos = 14.00
YPos = 2.00
Case Is = 3

Xpos = 16.00
YPos = 2.00
Case Is = 4

Xpos = 18.00
YPos = 2.00
Case Is = 5

Xpos = 12.00
YPos = 4.00
Case Is = 6

Xpos = 14.00
YPos = 4.00

Case Is = 7
Xpos = 16.00
YPos = 4.00

Case Is = 8
Xpos = 18.00
YPos = 4.00

End Select

Code "G53 X" & XPos & " Y" & YPos
End Sub
Main
 
Moderatör tarafında düzenlendi:

Sponsor Bağlantı

Forum istatistikleri

Konular
106,003
Mesajlar
746,757
Kullanıcılar
393,952
Son üye
oguzhanakbas

Yeni konular

Üst