ankis
Katılımcı Üye
- Katılım
- 15 Nis 2011
- Mesajlar
- 376
- Puanları
- 56
Alttaki resimde Nmotion arayuz kartım ve eski standart arayuz kartım gözüküyor, nmotion(usb ) zımbırtısı akz benzeri çinden aldığım bir kart gayet iyi çalışıyor ; lakin z eksenini sıfırlamak istediğimde script de aşağı yönde f5 feed ile in komutunu iplemiyor ve f450 ile ilerliyor f10 da yazsam f450 ye varıyor inmesi ...aynı script ile kucuk olan bilindik arayuz kartını denediğimde script teki komutları aynen uyguluyor ve sorun cıkmıyor... neyaptıysam nmotion arayuz kartındaki feed 5 ile inmesi olayını düzeltemedim...
Kullandığım script
'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 3.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 20.65 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will possition the Proble 2 MM over the Material.
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z"& ZMove & "F5"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z-10"
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
script den anlayan arkadas yada akz kullanan arkadaslar ın çözüm fikri varmı bu sorun için?
bu olayı çözmem lazım çunkü kısa zaman sonra atc adaptörü için kesim yapmaya baslıyacağım ve adaptoru kesici ucları değiştirdiğinde f5 ile değil f450 ile inecek ve buda ayrı bir sorun olacak bana...
Kullandığım script
'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 3.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 20.65 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will possition the Proble 2 MM over the Material.
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z"& ZMove & "F5"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z-10"
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
script den anlayan arkadas yada akz kullanan arkadaslar ın çözüm fikri varmı bu sorun için?
bu olayı çözmem lazım çunkü kısa zaman sonra atc adaptörü için kesim yapmaya baslıyacağım ve adaptoru kesici ucları değiştirdiğinde f5 ile değil f450 ile inecek ve buda ayrı bir sorun olacak bana...