Here you are:
http://www.machsupport.com/MachCustomizeWiki/index.php?title=OEM_DROs
This is the Wiki and I would love to see you put your probe macro into the Wiki

Hello Fabiano,

I sent you a PM but I don't know if you saw it. Could you please post a copy of your tool change macro ? It would definitely help me a lot as I have absolutely no experience in VB script.

Thanks
Jean-Louis

Could you please post more about what you would like?
Thank you
Brian

Hi Brian,

Sorry I may have used wrong terms. What I actually would like to get is a tool probe macro as described by Fabiano (tool change position --> tool measurement --> tool change position --> new tool measurement).

I'm trying to understand the macro's listed above nevertheless, as I'm a real dummy in scripting, I wanted to get the final macro that Fabiano successfully used as a valid basis to make test on my machine.

Thanks
Jean-Louis

I hope he will be nice and post the Code

Yes, I hope too

Here I am...
I was on holiday, I read the new posts only now.
I'll send the code as soon as possible, I keep it on another Pc.

Faby

Here it is, my macro:

ChX = GetUserDRO( 1200 )
ChY = GetUserDRO( 1201 )
ChZ = GetUserDRO( 1202 )

Code "G53 G00 Z-1" 'Move the tool all the way up
While IsMoving()
Wend
ZOld = Getdro(2)
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down untill hit
While IsMoving()
Wend
HitOld = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G53 G00 Z-1"'Z move all way up
Code "G53 G00 X65 Y-200" 'Move to change tool position
While IsMoving()
Wend

MsgBox ("Insert the new tool")

Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z-230 F450" 'Z move down untill hit
While IsMoving()
Wend
HitNew = GetVar(2002) 'Get the Position that the Porbe hit at

Diff = HitOld - HitNew
DiffABS =Abs(Diff)

If DiffABS=0 Then End
ZNew=0
If HitOld < HitNew Then ZNew = ZOld - DiffABS :A=1
If HitOld > HitNew Then ZNew = ZOld + DiffABS :A=2


Code "G53 G00 Z-1"
While IsMoving()
Wend
Call setdro(2,ZNew)

'FxModel Creation

End

You have to set in mach3 the position of the tool switch
It's not perfect yet, when I change the tool it remain out of 0.5/1mm but i think it's a switch problem.
I'll try to get 3-4 measure value, for the same tool and then keep the average value.

I'll be in vacation for another week so if I won't answer you know why 

Bye Faby
FxModel Team

Thank you for posting it 

Thanks Faby and enjoy your holidays