Emeği geçenlerden Allah razı olsun, son paylaşılan çatala yanaşmalı olanın takım sıfırlama probu kısmını siliyordum script hatası veriyordu sondaki 2 satır silinmeyecekmiş çözdüm
Exit Sub
End If <<<< bu 2 satır silinmeyecek ihtiyacı olanlar için son çalışan probsuz hali aşağıda:
' OTOMATİK TAKIM DEĞİŞTİRME MAKROSU
'İzzet Mehmet KÖSE ve Ramertürk (Mustafa Abi)
'
Farklı Z seviyelerindeki tool için ATC makrosu
Public xtool As Integer
Public Ytool As Integer
Public ToolDown As Integer
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()
Park = 150
NewTool = tool
MaxToolNum = 16 '*** Değiştirmek istenen max. takım sayısı
ToolDown = -30 '*** Takımı almak yada bırakmak için Z nin pozisyonu...! Her tool icin ayrı olabilir.
ToolUp = 150 '*** 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
'*************** Eski takım bırakılıyor *************************
ActivateSignal(Output3) '*** Hareketli Magazin tutucu için gerekli sinyal....!
Code "G00 G53 Z" & ToolUp
While IsMoving()
Wend
Call ToolPos(OldTool)
Code "G53 X" & XTool & " Y" & YTool+Park
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P.5"
While IsMoving()
Wend
Code "G53 X" & XTool & " Y" & YTool
While IsMoving()
Wend
ActivateSignal(Output2) '*** 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..
Code "G53 Z" & ToolUp '*** Takım bırakıldı ve Toolup seviyesine çıkıldı...
'************** Yeni takım alınıyor ******************************
Call ToolPos(NewTool)
Code "G53 X" & XTool & " Y" & YTool
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P.5"
While IsMoving()
Wend
DeActivateSignal(Output2) '*** Takımı bırakmak için gönderilen sinyali kapatıyor, yani takımı tutuyor.
Code "G4 P1.0" '*** Wait for the tool to Clamp
While IsMoving()
Wend
Code "G53 X" & XTool & " Y" & YTool+Park '*** Takım alındıktan sonra mandaldan kurtarmak için Y yönünde +Park kadar gidiliyor...
While IsMoving()
Wend
Code "G53 Z" & ToolUp
'************* Tool numarası set ediliyor ***********************
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
PlateThickness = GetUserDRO(1151)
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P1" 'P1 değeriyle oynayabilirsiniz. Amacı auto tool zero tuşuna bastığınızda harekete geçmek için ne kadar süre beklemesi gerektiğidir. Mesela acelem var derseniz 0.25 yapabilirsiniz
Yalnız nokta ile virgül değil
Exit Sub
End If
Code "G00 X" & x & " Y" & y '*** Takım değiştirmeyi tamamlayıp kaldığı yere konumlanma....
DeActivateSignal(Output3) '*** Hareketli Magazin tutucu için gerekli sinyal....!
End Sub
'*********** Takım konumlnma alt fonksiyonu Takım yerleri burda belirtilir. ************
'Xtool: Toolun X değeri Ytool: Toolun Y değeri.
'Tool hangi eksende ise ona göre değerleri değiştirmek gerekir.
Sub ToolPos(ByVal ToolNumber As Integer)
Select Case ToolNumber
Case Is = 1
XTool = 50
YTool = 20
ToolDown=25
Case Is = 2
XTool = 70
YTool = 20
ToolDown=25
Case Is = 3
XTool = 90
YTool = 20
Tooldown=25
Case Is = 4
XTool = 110
YTool = 20
ToolDown=25
Case Is = 5
XTool = 680.58
YTool = 20
ToolDown=43.18
Case Is = 6
XTool = 711.44
YTool = 20
ToolDown=43.18
Case Is = 7
XTool = 742.3
YTool = 20
ToolDown=43.18
Case Is = 8
XTool = 773.16
YTool = 20
ToolDown=43.18
Case Is = 9
XTool = 79.86
YTool = 169.25
ToolDown=-46.82
Case Is = 10
XTool = 177.48
YTool = 169.25
ToolDown=-46.82
Case Is = 11
XTool = 208.34
YTool = 169.25
Tooldown=-46.82
Case Is = 12
XTool = 239.2
YTool = 169.25
ToolDown=-46.82
Case Is = 13
XTool = 631.2
YTool = 169.25
ToolDown=-46.82
Case Is = 14
XTool = 662.06
YTool = 169.25
ToolDown=-46.82
Case Is = 15
XTool = 692.92
YTool = 169.25
ToolDown=-46.82
Case Is = 16
XTool = 723.78
YTool = 169.25
ToolDown=-46.82
End Select
End Sub
Main