mach3 te takım telafisi nasıl yapılır

[bunyamin01]

arkadaşlar mrb.umarım sorularımla bıktırmıyorumdur.mach3 te bıçakları değiştirdikçe boy farkı oluyor.auto tool zero nasıl yapılıyor kısaca anlatırmısınız.birde bunun için touch prob makro gerekli heralde forumda takip ettiğim kadarıyla.birde makro gönderebilirmisiniz.kesicinin ucuna değdireceğimiz metal parçanın kalınlığı farkedermi.

 

[Rodop_Boy]

Merhaba;

Daha önce forumda bende bu konu ile ilgili araştırma yapmıştım. Netten de bulduğum linki atıyorum incelerseniz. Ben bu linkteki tarzada bir çalışma yaptım. macrosu içinde plaka kalınlığı 1,6 yazıyor + 2 mm kaçıyor yani 3,6 da duruyor. forum içinde arama da yaparsanız farklı macrolar ile tarifler olacaktı. Gpeker'in yapmış olduğu.

Mach3 Zero Probe Tool

kendi uygulamam.

https://www.facebook.com/photo.php?v=1428894034014199&set=vb.100006808472767&type=2&theater

 

[bunyamin01]

arkadaşlar touch probe makro yardımcı olurmusunuz.

 

[bunyamin01]

iyi akşamlar takım telafi için makro gerekiyor.nasıl bulabilirim

 

[ramerturk]

iyi akşamlar takım telafi için makro gerekiyor.nasıl bulabilirim

[MENTION=259323]Rodop_Boy[/MENTION] vermiş zaten...

[COLOR=#333333][FONT=Arial]'VB Code Start[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]'-------------------[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]CurrentFeed = GetOemDRO(818)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]DoSpinStop()[/FONT][/COLOR]

[COLOR=#333333][FONT=Arial]ZMove = 20.00 'Total lenght of Probe to move before Stop or no Contact Made.[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]ZOffset = 1.60 ' Plate Hight[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]ZSal = ZOffset + 2.00 '+ Free Hight, Will possition the Proble 2 MM over the Material.[/FONT][/COLOR]

[COLOR=#333333][FONT=Arial]StopZmove = 0[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]If GetOemLed (825)=0 Then[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]DoOEMButton (1010)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "G4 P2.5"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "G31 Z-"& ZMove & "F25"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]While IsMoving()[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Sleep(200)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Wend[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Probepos = GetVar(2002)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]If Probepos = - ZMove Then[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "G0 Z10"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]StopZmove = 1[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "F" &CurrentFeed[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End If[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]If StopZmove = 0 Then[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "G0 Z" & Probepos[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]While IsMoving ()[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Sleep (200)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Wend[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Call SetDro (2, ZOffset)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "G4 P1"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "G0 Z" & ZSal[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "(Z zeroed)"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "F" &CurrentFeed[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End If[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Else[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Code "(Check Ground Probe)"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End If[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Exit Sub[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]'-------------------[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]'VB Code Stop[/FONT][/COLOR]

 

[bunyamin01]

Teşekkür ederim kardeşim .çok çok sağol.

 

[ayştain]

[MENTION=259323]Rodop_Boy[/MENTION] vermiş zaten...

[COLOR=#333333][FONT=Arial]'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()[/FONT][/COLOR]

[COLOR=#333333][FONT=Arial]ZMove = 20.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 1.60 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will possition the Proble 2 MM over the Material.[/FONT][/COLOR]

[COLOR=#333333][FONT=Arial]StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub
'-------------------
'VB Code Stop[/FONT][/COLOR]

 

[ayştain]

HOCAM BU KODU NEREYE EKLEMEMİZ LAZIM