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

bunyamin01 · 11 Şub 2014

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 · 11 Şub 2014

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 · 12 Şub 2014

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

bunyamin01 · 12 Şub 2014

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

ramerturk · 13 Şub 2014

özgürhasan' Alıntı:
iyi akşamlar takım telafi için makro gerekiyor.nasıl bulabilirim

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

Kod:

[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 · 16 Şub 2014

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

ayştain · 18 Mar 2016

ramerturk' Alıntı:

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

Kod:

[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 · 18 Mar 2016

HOCAM BU KODU NEREYE EKLEMEMİZ LAZIM

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

bunyamin01

Üye

Rodop_Boy

Üye

bunyamin01

Üye

bunyamin01

Üye

ramerturk

Profesyonel Üye

bunyamin01

Üye

ayştain

Üye

ayştain

Üye

Benzer Konular

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

Üye

Üye

Üye

Üye

Profesyonel Üye

Üye

Üye

Üye

Benzer Konular

Privacy & Transparency

Privacy & Transparency