Macro B question

[So not a Guru]

We have a part that has countersinks that are recessed into a curved surface. To measure c'sinks that can't be reached with a c'sink gauge, we usually use a gage ball & indicator to determine if the c'sink diameter is correct.

Since this part has the c'sinks on a curved surface, we can't do that. So I thought I'd try my hand at using a probe & writing a macro to extrapolate the measurement. I can't seem to get it to work. The machine is a Mazak VCU500 with a Matrix II controller.

Can anyone point me to what I've got messed up here?

This is what I've got:

 

(MEASURE CENTER OF PART "Z")
/G53 Z0.
/G53 X0. Y0.
/G53  B0. C0.
/T30 M06
/G0 G90 G54 X0.0 Y0.0 G43 H30 Z4.0
/G65 P9810 Z1.32 F50.(PROTECTED MOVE)
/G65 P9811 Z0. S2. (SINGLE SURFACE MEASURE, STORE IN G55)
/G65 P9810 Z3.5 F50.  (PROTECTED MOVE)
/G53 Z0.
/M01

M00
(PLACE A 7/16" GAGE BALL IN THE CSINKED HOLE)
(TURN THE RAPID DOWN TO 25%)

(MEASURE THE TOP OF THE BALL)
/G53 Z0.
/G53 X0. Y0.
/G53  B0. C0.
/T30 T20 M06
/G0 G90 G54 X-0.50 Y-0.50 G43 H30 Z4.0
/G65 P9810 Z1.56 F50.(PROTECTED MOVE)
/G65 P9811 Z0. S3. (SINGLE SURFACE MEASURE, STORE IN G56)
/G65 P9810 Z4.0 F50.  (PROTECTED MOVE)
/G53 Z0.
/T20 M6
/M01

#100=(ABS(#5243))
#101=(ABS(#5263))
#103=(#101-#100)

M00
(CHECK THE  0.382" - 0.392" 100° CSINK DIA)
(MACRO VARIABLE #153 SHOULD BE BETWEEN 0.2849 & 0.2891)
(ADJUST THE OFFSET AS REQUIRED)
(THE NEXT OP WILL RERUN THE PREVIOUS CSINK)

 

[JParis]

27 minutes ago, So not a Guru said:

#100=(ABS(#5243))
#101=(ABS(#5263))
#103=(#101-#100)

#100=ABS[#5243]

#101=ABS[#5263]

#103=[#101-#100]

Try that

[JParis]

I would do it more like this...I would capture the z value immediately after it was taken...then calculate it at the end..

I use the calculation to read the correct offset register for the active offset...in doing it this way, I can use this code on whatever offsets I need without have to change it all the time

 (MEASURE CENTER OF PART "Z")
/G53 Z0.
/G53 X0. Y0.
/G53  B0. C0.
/T30 M06
/G0 G90 G54 X0.0 Y0.0 G43 H30 Z4.0
/G65 P9810 Z1.32 F50.(PROTECTED MOVE)
/G65 P9811 Z0. S2. (SINGLE SURFACE MEASURE, STORE IN G55)
/G65 P9810 Z3.5 F50.  (PROTECTED MOVE)
/#100=ABS[#[5203+[20*[#19-101]]]]<------------HERE
/G53 Z0.
/M01


M00
(PLACE A 7/16" GAGE BALL IN THE CSINKED HOLE)
(TURN THE RAPID DOWN TO 25%)


(MEASURE THE TOP OF THE BALL)
/G53 Z0.
/G53 X0. Y0.
/G53  B0. C0.
/T30 T20 M06
/G0 G90 G54 X-0.50 Y-0.50 G43 H30 Z4.0
/G65 P9810 Z1.56 F50.(PROTECTED MOVE)
/G65 P9811 Z0. S3. (SINGLE SURFACE MEASURE, STORE IN G56)
/#101=ABS[#[5203+[20*[#19-101]]]] <-----------HERE
/G65 P9810 Z4.0 F50.  (PROTECTED MOVE)
/G53 Z0.
/T20 M6
/M01


#103=(#101-#100)<------------------HERE

M00
(CHECK THE  0.382" - 0.392" 100° CSINK DIA)
(MACRO VARIABLE #153 SHOULD BE BETWEEN 0.2849 & 0.2891)
(ADJUST THE OFFSET AS REQUIRED)
(THE NEXT OP WILL RERUN THE PREVIOUS CSINK)

 

[So not a Guru]

5 hours ago, JParis said:

#100=ABS[#5243]

#101=ABS[#5263]

#103=[#101-#100]

Try that

Thanks John, I'll try it in the morning.

[So not a Guru]

10 hours ago, So not a Guru said:

Thanks John, I'll try it in the morning.

It worked perfectly, thanks again.

 

15 hours ago, JParis said:

#100=ABS[#[5203+[20*[#19-101]]]]

How does this work?

I get the 1st part #100=Abs[#[5203+[20*[#19-101]]]], but I don't understand how subtracting 101 from the S value returns the correct offset register.

Wouldn't #100=ABS[#[5203+[20*#19]]] work ?

[JParis]

1 hour ago, So not a Guru said:

How does this work?

I get the 1st part #100=Abs[#[5203+[20*[#19-101]]]], but I don't understand how subtracting 101 from the S value returns the correct offset register.

Wouldn't #100=ABS[#[5203+[20*#19]]] work ?

It might work just fine for G54-G59 but once you get to G54.1P1-G54.1P300....as Renishaw uses 101 to equal G54.1P1 you need to subtract to get the correct register.

 

and I live in the extened offsets...rarely using G54-G59

[So not a Guru]

20 hours ago, JParis said:

as Renishaw uses 101 to equal G54.1P1

Ok that makes sense. I didn't realize that, probably because I so rarely use the extended offsets.