ZCurrent = GetOemDro(802)     		'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001)       		'OEMDRO(1001)= hoogte Probe
ZNew = ZCurrent - 100        	 	'Probe 100mm naar beneden

Dim ZBlock  
Dim ZFrees 
Dim Hhoogte 

Code "G53 X190 Y190 F5000"          	'verplaatsen naar ProbeBlockPositie
While IsMoving ()
Sleep(10)
Wend
Code "F500"            	
Code "G31 Z " &ZNew            		'Beweging naar Gage 
While IsMoving ()
Sleep(10)
Wend


ZBlock =  (GetOemDro(802))    		'Hoogte wegschrijven als ZBlock

	
Code  "G90 Z +70 F5000"       			'beweeg naar veilige Hoogte
While IsMoving ()
Sleep(10)
Wend     	    
Code  "G90 Y +86"				'Beweeg spindel boven Gage
While IsMoving ()
Sleep(10)
Wend
Code "F500"
Code "G31 Z" &ZNew            		'Beweging naar Gage
While IsMoving ()
Sleep(10)
Wend
ZFrees =  (GetOemDro(802))		'hoogte wegschrijven als ZFrees
Hhoogte = ((ZBlock*-1) - (ZFrees*-1) + 75)
Call SetDro (2,GageH)        		'DRO(2)=Z DRO
Code  "G90 Z +50 F5000" 
MsgBox("H = " & Hhoogte)