Serdar ÇAL
Üye
- Katılım
- 21 Nis 2017
- Mesajlar
- 88
- Puanları
- 1
- Yaş
- 30
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
Burada havayı tetikleyen röleyi açıp kapatmak yerine,step motoru 0 ve 180 derece hareket ettirmek için bu macroyu nasıl editleyebiliriz