Mach3 Otomatik Takım Değiştirme

[deniz77]

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]

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]

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 ?

 

[çılgın mucit]

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]

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 ş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...

 

[ramerturk]

Automatic homemade tool changer
web sayfası: HOMESHOPACCESSORIES.COM

videosu:

 

[ramerturk]

Birde böyle bişey var...

 

[hc77]

Birde böyle bişey var...

Bende bu videoyu defalarca izleyip heveslendim.Spindle ucundaki aparat ve macro yazımı hakkında aydınlatabilecek arkadaşlar yardımcı olursa sevinirim.Teşekkür ve saygılarımla...

 

[çılgın mucit]

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]

Buyur kardeş sana otomatik takım değiştirme (ATC) makrosu... saygılar....

' 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