XYZ TAKIM SIFIRLAMA MAKROSU TURKCEYE CEVIRDİM

[srkn43]

BUYRUN ARKADASLAR
Sub Main()

Dim ConfirmReady As String
Dim DoXY As String
Dim DoZ As String
Dim XaxisDRO As Integer
Dim YaxisDRO As Integer
Dim ZaxisDRO As Integer
Dim ToolDia As Integer
Dim platethickness As Integer
' notice the legacy SetDRO() command uses single digit values for xyzabc
XaxisDRO=0
YaxisDRO=1
ZaxisDRO=2

ConfirmReady = AskTextQuestion("DOKUNMATİK PLAKAYI YERLEŞTİRİN. (y/n)")
If ConfirmReady = "y" Then GoTo 1 Else GoTo 5

1:
DoXY = AskTextQuestion("X ve Y EKSENLERİDE SIFIRLANSINMI? (y/n)")
If DoXY = "y" Then GoTo 2 Else GoTo 3

2:
ToolDia = AskTextQuestion("KULLANACAGIN UCUN KALINLIGINI GİRİN?")
Message( "Auto Zeroing X..." )
SetDRO(XaxisDRO, 0.0000)
Sleep 100
If IsSuchSignal (22) Then
code "G31 X-2 F10"
While IsMoving()
Sleep 100
Wend
SetDRO(XaxisDRO, ToolDia/2)
Sleep 100
code "G1 X.5"
End If

Message( "Auto Zeroing Y..." )
SetDRO(YaxisDRO, 0.0000)
Sleep 100
If IsSuchSignal (22) Then
code "G31 Y-1 F10"
While IsMoving()
Sleep 100
Wend
SetDRO(YaxisDRO, ToolDia/2)
Sleep 100
code "G1 Y.5"
End If

3:
DoZ = AskTextQuestion("DOKUNMATIK PLAKA HAZIRMI DEVAM EDİLSİNMİ. (y/n)")
If DoZ = "y" Then GoTo 4 Else GoTo 6

4:
platethickness=AskTextQuestion("PLAKA KALINLIGI NEDIR")

Message( "Auto Zeroing Z...")

SetDRO(ZaxisDRO, 0.0000)
Sleep 100
If IsSuchSignal (22) Then
code "G31 Z-2 F10"
While IsMoving()
Sleep 100
Wend
SetDRO(ZaxisDRO,platethickness )
Sleep 100
code "G1 Z1"
End If
GoTo 6

5:
Message ("TAKIM SIFIRLAMA İPTAL EDİLDİ.")
GoTo 7

6:
Message "TAKIM SIFIRLAMA TAMAMLANDI EKSENLERİ KONTROL EDİN."

7:
End Sub

 

[DoremiFa]

Acemi birisi olarak soruyorum bu makro xyz eksenlerini niçin sıfırlıyor? Ben sadece Z yi sıfırlayıp işleme başlıyorum acaba birşeyi eksikmi yapıyorum yada bu makronun espirisi nedir?

 

[srkn43]

X VE Y EKSENLERİNİ EL YARDAMI İLE SIFIRLARSANIZ ORNEGİN SADECE YAZI YZMAK VEYA 3D YAPMAK SA AMACINIZ PEK O KADAR ONEMLİ DEGİL.AMA METRİK BİR İŞ YAPIYORSANIZ TORNA GİBİ VEYA PARCA KESMEK GİBİ UCUN YARISINI CIKMALISIN.ORNEGİN 10 MM BİR UC KULLANIYORSUN MERKEZİ 5 MM DİR SEN KOSEDEN SIFIRLARSAN MAKINA 5 MM HATA VERİR BİLMEM ANLATABİLDİMMİ

 

[DoremiFa]

Anlamadım ama Açıklaman için Teşekkür ederim. Sanırım bana gereken birşey değil yada ben öyle zannediyorum

 

[alpsah01]

Serkan bey emeğiniz için teşekkürler , fakat sıfırlama esnasında makina ilerleme değerleri 2 mm olarak görünüyor, eğer siz inch kullanıyorsanız o ayrı konu, ilerleme hızını ve mesafeyi biraz artırırsanız daha iyi olur bence. Bu kodu yazan dayı americoni olduğu için değerler inch ve bu makro icin

bu videodaki gibi blok yapmanız lazim

 

[srkn43]

Metrik olarak nasıl değer vereceğim onu bilmiyorum

 

[srkn43]

Serkan bey emeğiniz için teşekkürler , fakat sıfırlama esnasında makina ilerleme değerleri 2 mm olarak görünüyor, eğer siz inch kullanıyorsanız o ayrı konu, ilerleme hızını ve mesafeyi biraz artırırsanız daha iyi olur bence. Bu kodu yazan dayı americoni olduğu için değerler inch ve bu makro icin

bu videodaki gibi blok yapmanız lazim

Mm olarak nasıl değer verecegim

 

[KAYSERİ]

Bu makro hangi köşeden X ve Y yi sıfırlamaya göre ayarlı. Sağ ön Sol ön Sağ arka Sol arka ?

 

[srkn43]

Sanırım içerdeki daireden

 

[alpsah01]

Bu makro hangi köşeden X ve Y yi sıfırlamaya göre ayarlı. Sağ ön Sol ön Sağ arka Sol arka ?

Bu makro yukarıdaki videoda olduğu gibi daire merkezi için

Metrik olarak nasıl değer vereceğim onu bilmiyorum

code "G31 X-25 F50" gibi yapabilirsin