Tablaya parçayı bağlama

[Yusuf SEYLAN]

Yok o başlı başına bir kod zaten bişey değiştirmiyorsun (code "m00") dan sonra yapıştır kullan

 

[canerten]

SafeZ'ye gitmek içinde böyle bir sabit var mı?

 

[Yusuf SEYLAN]

o koda z yide ekleyebilirsin yüksekliği sen belirlersin yada son kordinattaki yüksekliğe gider

 

[Yusuf SEYLAN]

ayrı olarak yazmak istersen safez kodu
DoOemButton(104)
Message("Moved to SafeZ")

 

[canerten]

Gümlettik yine proximty'e makinayı Bu kod ile x y z de 0'a gidiyor. Fakat proximy'e çarptı. Anlamadım.

 

[Yusuf SEYLAN]

Kod bu macroda çalışıyor
Tool numarası set ediliyorun altında yazıyor

Farklı Z seviyelerindeki tool için ATC makrosu;
Sanal olarak çalışıyor gozukuyor ama deneme imkanım yok bu nedenle dikkatli kullanınız !!!

' OTOMATİK TAKIM DEĞİŞTİRME MAKROSU
'[B]Farklı Z seviyelerindeki tool için ATC makrosu[/B]
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 = 50
NewTool = tool




MaxToolNum = 8 '*** 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 = 30     '*** 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 *************************
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.75"
While IsMoving()
Wend


Code "G53 X" & XTool & " Y" & YTool
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..
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.75"
While IsMoving()
Wend


DeActivateSignal(Output1) '*** 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 )
Code "G00 X" & x & " Y" & y '*** Takım değiştirmeyi tamamlayıp kaldığı yere konumlanma....
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 = 0
ToolDown=-25


Case Is = 2
XTool = 100
YTool = 0
ToolDown=-20




Case Is = 3
XTool = 150
YTool = 0
Tooldown=-40


Case Is = 4
XTool = 200
YTool = 0
ToolDown=-20


Case Is = 5
XTool = 250
YTool = 0
ToolDown=-20


Case Is = 6
XTool = 300
YTool = 0
ToolDown=-20


Case Is = 7
XTool = 350
YTool = 0
ToolDown=-20


Case Is = 8
XTool = 400
YTool = 0
ToolDown=-20


End Select


End Sub
Main

 

[canerten]

Yanlışlık olmasın. Sanırım o makroda çalışıyor çünkü üst satırda o değişkene bir pozisyon atanmış..

x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )

Bu da diğer screenlerde DRO'dan verilen sabit bir toolchange konumu..

 

[canerten]

toolchange ok. Video atacağım ama hala ortalık berber bir halde. Düzeltince bir video yapacağım. Şimdiki sorunum çift taraflı kestiğimde ahşapta iz kalıyor. Aşağıdaki kayın ağacı. Mengeneye bağlayıp kesiyorum. Önce Üstte 10 mm, Sonra ters çevirip 12 mm işliyorum. Arada işlenmemiş kısım kalmayacak şekilde. Ancak ahşabın yönü dolayısıyla ekteki gibi bir renk farkı iz kalıyor. Bir taraftan keserken tersten dönerek de işlemesini denedim. Fakat yine olmadı..

Son çare kendine daire zımpara tezgahı yaptım. O da pek gönyeli olmadığından büyük yüzeylerde kullanmak mümkün değil. Şimdi bir de şu normal üçgen şekilli zımpara makinalarından almayı düşünüyorum? Onunla bu izi yok edebilir miyim?

 

[KAYSERİ]

Rahatlıkla yok eder. Metal yüzeyi gibi oluyor tahtanın yüzü. Cam gibi ayna gibi

 

[canerten]

O izi elle 1 saat zımparalasamda yok edemedim. Fakat yukarıda bahsettiği zımpara makinası yerine şunu almayı düşündüm. Bu tercih etmemin sebebi zımparalanacak parçalarımın çok küçük 6cm vs. olması. Daha rahat kullanabilirim diye düşünüyorum. Tavsiye eder misiniz?