Probe sub program

[Graphcon]

Does anybody have a sub program (using EIA code) for probing a boss/hole using a Renishaw probe (or maybe other type) on a Mazak M32+ control .

TIA

[psychomill]

Your machine should have it loaded as a 9000 program if the renishaw software was installed. Mine has been altered for many reasons that would take a mile of info to explain and configure your machine. I'll try and see if I can find a 'clean' one. Any particular reason you need an EIA sub?

[Graphcon]

I'm am writing some macros and the problem is getting the control to update the postion from a G54 change, it's always one behind. Our control has 9 digit program numbers for the probing subs and is locked out.

[cogsman1]

O9019(rengaugeholespigot)
(7-1-04)
M98p9024
#9=#109
If[abs[#506-[abs[#500*2.0]]]gt#103]goto1
If[abs[#506-[abs[#501*2.0]]]lt#103]goto2
N1#3000=84(probenotdatumed)
N2
If[#7ne#0]goto3
#7=#1
If[#1ne#0]goto3
#3000=91(formaterror)
N3
If[#8ne#0]goto4
#8=#4
N4
If[#18eq#0]goto5
If[#8ne#0]goto5
#3000=91(formaterror)
N5
#30=-1.0
If[#26eq#0]goto6
#30=1.0
N6
If[#17ne#0]goto7
#17=12.0*#9
N7
If[#19ne#0]goto8
#19=10.0*#9
N8
#27=#5041-#121
#28=#5042-#122
G65p9006d[#7]q[#17]z[#26]f[#9]s[#19]
If[#145ne0]goto15
#3=[#107-[#506*#30]]-[#7*2.0]
#3=#3/2
If[#18eq#0]goto9
#31=[#108-[#18*2.0]]/2
#[2000+#8]=#31
N9
If[#13eq#0]goto10
#[2000+#13]=#3*#30
N10
If[#21eq#0]goto11
If[abs[#3]ltabs[#21]]goto11
#145=3.0
Goto12
N11
If[#20eq#0]goto12
#[2000+#20]=#[2000+#20]-[#3*0.8]
N12
If[#22eq#0]goto13
G65p9030d[#7]v[#22]e[#3*#30]h[#11]m[#13]
N13
If[#145ne3]goto14
#3000=94(steplimitexceeded)
N14
If[#11eq#0]goto17
If[abs[#3]lt#11]goto17
#3000=90(outoftolerance)
N15
If[#145eq2]goto16
#3000=92(probeopen)
N16
#3000=93(probefail)
N17
G0z#28
G#148
#100=#7+#3
M99