Mach 3 centre hole finder VBScript

[STEPHENPRESCOTT]

Hi all, does any one have a working hole center finder code for Mach 3 please ??
I found this on you tube but does not work right
Thanks for any help given ,,,,,,,,,,,,,,,,,,,,,stevep
Rem VBScript To center probe inside a pipe
If GetOemLed (825) NE 0 Then 'Check if the probe is already grounded or faulty
Code "(Probe plate is grounded, check connection and try again)"
Else
FeedCurrent = GetOemDRO(818) 'Get the current settings
XCurrent = GetDro(0)
YCurrent = GetDro(1)
Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "F4" 'slow feed rate to 4 ipm (make F25 if using mm)
Rem Probe Left
XNew = Xcurrent - 3 'probe 3 inches to left
Code "G31 X" &XNew
While IsMoving() 'wait for the move to finish
Wend
XPos1 = GetVar(2000) 'get the probe touch location
Code "G0 X" &XCurrent 'rapid move back to start point
Rem Probe Right
XNew = XCurrent + 3 'probe 3 inches to right
Code "G31 X" &XNew
While IsMoving()
Wend
XPos2 = GetVar(2000)
XCenter = (XPos1 + XPos2) / 2 'center is midway between XPos1 and XPos2
Code "G0 X" &XCenter 'rapid move to the x center location
Rem Probe up
YNew = YCurrent + 3
Code "G31 Y" &YNew
While IsMoving()
Wend
YPos1 = GetVar(2001)
Code "G0 Y" &YCurrent
Rem Probe down
YNew = YCurrent - 3
Code "G31 Y" &YNew
While IsMoving()
Wend
YPos2 = GetVar(2001)
YCenter = (YPos1 + YPos2) / 2
Code "G0 Y" &YCenter 'rapid move To the center location
While IsMoving ()
Wend
Code "F" &FeedCurrent 'restore starting feed rate
End If

Similar Threads:

• Webcam centre / edge / hole finder
• Newbie- Centre Finder
• How Do I Find the Center of a hole using an edge finder?
• How to drill a centre hole accurately.

[ger21]

Are you using a chinese motion controller by chance? If so, most probing macros that you find usually won't work with them.

[STEPHENPRESCOTT]

Are you using a chinese motion controller by chance? If so, most probing macros that you find usually won't work with them.

Hi , no I am not,have used a script to locate Z height many times, so edge should not be a problem......stevep

[ger21]

Can you elaborate on what doesn't work right?
What version of Mach3 are you using?

[STEPHENPRESCOTT]

Can you elaborate on what doesn't work right?
What version of Mach3 are you using?

OK found the hole center wizard ...didnt even know it was there !!!