MACRO HACKS! Automate Your Tool Offsets and Data - Haas Automation Tip of the Day

Here is a macro I wrote to pickup a part from one side, jog to the other side and pick the opposing side up and store the mid-point in the selected work offset. It will also store the edge locations and the overall sizes in the G154P01, G154P03 and G14P3 offsets. Where is this useful? Anytime you need to pickup the mid-point of a machined or odd size part that would be difficult or time consuming to use the canned cycles. Now, I am by no means an expert in macros, but learning all the time. And, there are always many ways of writing a macro to do the same thing so, I would appreciate any constructive criticism or helpful information that would help me, and others out. -Mark, and Haas, HUGE Thank you for continuing to share and help your users out! It is very appreciated! #100= 1 (X=1, Y=2 AXIS TO PICKUP) #101= 54 (WORK OFFSET, 54-59) (MAKE SURE BLOCK DELETE IS OFF FOR FIRST PICKUP) (FIRST PICKUP PROBE MOVES + POSITIVE) (SECOND PICKUP PROBE MOVES - NEGATIVE) (1-JOG PROBE TO WITHIN .5 OF FIRST SURFACE) (2-RUN PROGRAM) (3-JOG PROBE TO WITHIN .5 OF OPPOSITE SECOND SURFACE) (4-RUN PROGRAM) (MID POINT OF BOTH PICKUPS = OFFSET SELECTED) (INDIVIDUAL SURFACE PICKUPS ARE STORED IN G154P01 & G154P02) (OVERALL DISTANCE BETWEEN THE PICKUP ARE ON G154P03) (FIRST X PICKUP=G154P01) (SECOND X PICKUP-G154P02) (OVERALL DISTANCE BETWEEN X PICKUP-G154P03) (FIRST Y PICKUP=G154P01) (SECOND Y PICKUP-G154P02) (OVERALL DISTANCE BETWEEN Y PICKUP-G154P03) IF [#100 LT 1] #3000=15 (#100 MUST BE 1 OR 2) IF [#100 GT 2] #3000=15 (#100 MUST BE 1 OR 2) IF [#101 LT 54] #3000=20 (WORK OFFSET MUST BE 54-59) IF [#101 GT 59] #3000=21 (WORK OFFSET MUST BE 54-59) IF [#100EQ1] GOTO 100 IF [#100EQ2] GOTO 200 (BEGINNING OF X PICKUP) N100 /(1ST X PICKUP IN + DIRECTION) /G65 P9995 W154.01 A20. D.5 /#110=#14001 /GOTO 110 (2ND X PICKUP IN DIRECTION) G65 P9995 W154.02 A20. D-.5 #111=#14021 (AVERAGE FOR BOTH PICKUPS IN X) #115=[[#110+#111]/2] #7041=#7021-#7001 (SETTING WORK OFFSET FOR X) IF[#101EQ54] #5221=#115 IF[#101EQ55] #5241=#115 IF[#101EQ56] #5261=#115 IF[#101EQ57] #5281=#115 IF[#101EQ58] #5301=#115 IF[#101EQ59] #5321=#115 GOTO 120 N110 #3032=1(TURN BLOCK DEL ON) M30 N120 #3032=0(TURN BLOCK DEL OFF) M30 (END OF X PICKUP) (BEGINNING OF Y PICKUP) N200 /(1ST Y PICKUP IN + DIRECTION) /G65 P9995 W154.01 A20. E.5 /#112=#14002 /GOTO 210 (2ND Y PICKUP IN -DIRECTION) G65 P9995 W154.02 A20. E-.5 #113=#14022 (AVERAGE FOR BOTH PICKUPS IN Y) #115=[[#112+#113]/2] #7042=#7022-#7002 (SETTING WORK OFFSET FOR Y) IF[#101EQ54] #5222=#115 IF[#101EQ55] #5242=#115 IF[#101EQ56] #5262=#115 IF[#101EQ57] #5282=#115 IF[#101EQ58] #5302=#115 IF[#101EQ59] #5322=#115 GOTO 220 N210 #3032=1(TURN BLOCK DEL ON) M30 N220 #3032=0(TURN BLOCK DEL OFF) M30 (END OF Y PICKUP)

Love this stuff - keep it up!

Mark / HAAS; these tips are 5-Star, the #3026 making sure tool offset always matches the tool # in the spindle is BIG stuff. Amateur here moving from Mach3 CNC to the next level and the ‘HAAS culture’ is guiding the way. 👍👍💪💪

Once my classmate showed me that Auto probing macro, I’ve been flying through with tool setups. It makes setting tools up so, so much faster and enjoyable.

Talking about tool offsets I would love to see a video on diameter offsets tool comp. All your videos are amazing and great teaching tools. Thank you!

Thank you! Cad cam is awesome, but maybe macros are better at least some areas. At age of 37 I still love to learn and I love my job more with every new thing I learn.

Still not to the macro level. But LOL on the ...pause...Daniel Machado :-) Brilliant. I will come back to this later as my reference library...Thanks, Mark, excellent presentation as usual.

Please make more videos on macro programming

This is really fucking cool even though I'm not in a shop that needs it! Awesome to know. Thanks for supporting your average machinist with all these awesome videos! Great stuff.

Thank you for sharing your wonderful videos I watching from South Africa

after 40 years on lathes I'm now being dragged kicking and screaming onto mills, these videos are helping so much.

Fantastic chart!! Thank you!

We didn't purchase to tool probe so we created a macro to ease setting tool lengths. We set all tools from the table surface as it never changes. We found the distance from home to the table surface in Z, store that number, then touch off tools to the table surface. #5023 is the current machine position in Z. Subtract that from the distance found before and you have your tool length. Using #3026 we then write it to the correct offset with a cycle start.

Hey Mark, do a video if the C-Axis on the CL-1 and just a little more in depth video on the CL-1, PLEASE!! My CL-1 delivers later this month and would love to see more of it in action!

Thanks for getting into macro programming. We just got WIPS installed on one machine, and we don't know how we ran without it. Our local HFO helped me out with this exact macro a few weeks ago so we can probe tooling groups. This machine is also robotically tended. My next hurdle is how to get the robot to load a new blank if a tool in a tooling group breaks.

We were trouble shooting tool probe macros today. This is some of the info I'm actually looking for. Get on YT and BAM, new #tipoftheday Thanks!

very nice tip...tnx for sharing it🍻

Wow Awesome!

Thanks for your information

My personal favorite is this one: O9000 (Automatic Tool Breakage Detection) G65 P9023 A24. T#3026 H0.01 M99 Aliased as an M-Code. This is an automatic tool breakage detection using the current tool macro variable. This makes it a lot easier when using tool breakage detection in my CAM system. It allows for an M-code rather than having to manually type in all of the information after each tool I want checked.