Sub Main

Rem	Mätning av verktyg av JB CNC & Linear Components Based On ( leafboy77 & Erniebro & PEU Work)
NuvarandeZ = GetOemDro(802)	'Hämta nuvarande Z
Maetpuck = GetOEMDRO(1001)	'Hämta höjd på mätpuck (Settings / Gage height)
MaxProblaengd = 20
NyZ = NuvarandeZ - MaxProblaengd	 'Max probningslängd
NuvarandeFeedrate = GetOemDRO(818) 'Hämta nuvarande feedrate


Code "G90F1000"	 'Sänk hastighet till F
Code "G31 Z" & NyZ 'Proba ned
While IsMoving()
Sleep(10)
Wend
MaetPos = GetOemDro(802)	'Hämta nuvarande Z

If (NuvarandeZ - MaetPos) > MaxProblaengd Then 'Kontrollera om max mätningslängd överskrids
	MsgBox("Max probningslängd överskriden, Mätning avbryts")
	Exit Sub
End If

Call SetDro (2,Maetpuck)	 'Sätt Z till ny höjd

TillbakaPos = Maetpuck + 10
Code "G90 G0 Z" & TillbakaPos 'Kör till 10mm över pucken med ny Z
Code "F" & NuvarandeFeedrate  'Återställ feedrate 

End Sub