Heidenhain Gurus

[MrFish]

I'm looking for some help in developing a macro to speed up the tool setup procedure.

 

On our Haas machines there is a handy renshaw developed macro for setting your tools up off the tool setter. You basically tell it the first tool and last tool and it automatically indexs between the tools and runs the tool measeurement cycle.

 

I was hoping that some clever Heidenhain guru could help me to write one to do the same thing on our DMG with Heidenhain 540 controller ?

 

I understand the basics of the Heidenhain language but not enough to write a indexing style macro with adjustable start and end tools.

 

Any help is much appreciated.

[Steve Hattori]

We use a program written to call each and measure it sequentially, including a choice of 583 or 584 measure cycle, for tools getting a radius measurement as well as length. Its just a simple hand-written prog that uses a label call for each measure cycle, then we run thru whatever section we want measured, or just let the machine measure everything while we do other stuff...

 

hope that helps

[frostfritt]

0 BEGIN PGM KOD MM P

 

1 Q1 = 3 ; Start with tool 3

2 Q2 = 10 ; End with tool 10

3 Q3 = 1 : Radius measurement 1=yes 0=no

 

4 LBL 1

5 TOOL DEF Q1

6 TOOL CALL Q1 Z S1000

7 L M6

 

8 FN 9: IF +Q3 EQU +1 GOTO LBL 2

9 ;Put your length measeurement cycle here.

 

10 LBL 2

11 FN 9: IF +Q3 EQU +0 GOTO LBL 3

12 ;Put your Radius measeurement cycle here.

 

13 LBL 3

14 Q1 = Q1 + 1

15 FN 10: IF +Q1 NE +Q2 GOTO LBL 1

16 FN 9: IF +Q1 EQU +Q2 GOTO LBL 1

17 END PGM KOD MM P

 

 

Something like this I think...

 

/frostfritt

[MrFish]

Steve - exactly what I am after.

 

frostfritt - thanks will give it a try - much appreciated.

[MrFish]

Frostfritt - here is what I ended up with , didn't need the radius function so modified it a bit and had to add in the Greater Than Equation to get it to stop after the last tool.

 

 

 

0 BEGIN PGM MEARSURETOOLSEQ MM

1 L Z+0.1 C+0 B+0 R0 FMAX M91

2 L X+136 Y-0.1 Z+0.1 C+0 B+0 R0 FMAX M91

3 Q30 = 7 ;Start tool number

4 Q31 = 9 ;End tool number

5 LBL 1

6 TOOL DEF 0

7 TOOL CALL Q30 Z S500

8 L M6

9 TCH PROBE 481 CAL. TOOL LENGTH ~

Q340=+0 ;CHECK ~

Q260=+50 ;CLEARANCE HEIGHT ~

Q341=+0 ;PROBING THE TEETH

10 Q30 = Q30 + 1

11 FN 11: IF +Q30 GT +Q31 GOTO LBL 2

12 FN 10: IF +Q30 NE +Q31 GOTO LBL 1

13 FN 9: IF +Q30 EQU +Q31 GOTO LBL 1

14 LBL 2

15 L Z+0.1 C+0 B+0 R0 FMAX M91

16 L X+136 Y-0.1 Z+0.1 C+0 B+0 R0 FMAX M91

17 M30

18 END PGM MEARSURETOOLSEQ MM

 

 

Works a treat and i now have time to make a coffee while the machine sets the tools for me (I WISH). Thanks for stairing me in the right direction.