Not nearly enough information ...you'd do better sharing a file so someone can get some idea of what it is and what machine as that does not look flat and it is likely some kind of multi-axis positioning

OK, let m e see how much of this I can explain G00G55G90X1.245Y-1.245(POSITION TO CENTER & ORIENT SPINDLE) <-----This is the starting position M150S3000 <------- I "think" this is the spindle clocking an orientation (S3000, S2100, S1200, S300) G43Z0.1H3 M184 <-------another guess this is locking the spindle G91G99G81X.001Y-.001Z-3.65R-4.5F250.K77 <----This is stepping over in X&Y 77 times at an increment of .001" G00G90Z5. G00G28G91Z0 G90 M185 <-------unlocking the spindle M00 Your starting position is what will need to change....whatever the distance is between the depth you currently get and the depth you want to have. If you're going to go deeper, you'll likely want to increase the K # number repeats If it'll be shallow, you may be able to reduce the number of repeats.... You'll then have to figure(add/subtract, the K values to make sure the distance achieved by the number of repeats gets you to your desired depth...

I keep mine very simple... Every single program I post the subs start numbering at 40001 and just continue. Because everything is in the one file, I can use those numbers in each and every program. It makes no difference what OP.... MInd you, this is Tool #1 that works on 4 parts on 3 sides of a tombstone and has controls built in to control to choose how the program will run...that's the macro options G20 G0G17G40G49G80G90 G0G28G91Z0. M00 () IF[#925EQ3]GOTO88001 () (1/2 3FL ENDMILL TOOL - 11010500 DIA. OFF. - 51999 LEN. - 51999 TOOL DIA. - .5) (1/2 ENDMILL / R-F-MILL SIDE STEPS MILL .650 WIDE / Z-.080) (MAX Z DEPTH - Z1.) (MIN Z DEPTH - Z-.862) (OPERATION #1) N1000 T11010500M6 IF[#925NE0]GOTO80001 T11010188 N80001 G90G10L10P#51999R0 G90G10L12P#51999R0 S18000M3 M8 () IF[#925EQ1]GOTO10101 IF[#925EQ2]GOTO10108 IF[#925EQ4]GOTO10117 IF[#900EQ1]GOTO10101 IF[#900EQ0]GOTO30101 N10101 () G0G90B0. G0G90G54.1P101X-2.315Y1.2448 G43H#51999Z1. M98H40001 (1/2 ENDMILL / R-F-MILL SIDE STEPS MILL .650 WIDE / Z-.080) G0G90Z12. () IF[#925EQ1]GOTO30100 () N30101 IF[#901EQ1]GOTO10102 IF[#901EQ0]GOTO30102 N10102 () G0G90B0. G54.1P102X-2.315Y1.2448 G43H#51999Z1. M98H40001 (1/2 ENDMILL / R-F-MILL SIDE STEPS MILL .650 WIDE / Z-.080) G0G90Z12. () N30102 IF[#902EQ1]GOTO10103 IF[#902EQ0]GOTO30103 N10103 () G0G90B0. G54.1P103X-2.315Y1.2448 G43H#51999Z1. M98H40001 (1/2 ENDMILL / R-F-MILL SIDE STEPS MILL .650 WIDE / Z-.080) G0G90Z12. () N30103 IF[#903EQ1]GOTO10104 IF[#903EQ0]GOTO30104 N10104 () G0G90B0. G54.1P104X-2.315Y1.2448 G43H#51999Z1. M98H40001 (1/2 R-MILL / R-MILL OUTSIDE PROFILE / Z-.74) (OPERATION #3) N1001 G0G90Z12. () N30104 IF[#903EQ1]GOTO10105 IF[#903EQ0]GOTO30105 N10105 () G0G90B90. G54.1P10X-1.5185Y-2.2413 Z1. M98H40002 (1/2 R-MILL / R-MILL OUTSIDE PROFILE / Z-.74) (OPERATION #3) N1016 G0G90Z12. () N30105 IF[#902EQ1]GOTO10106 IF[#902EQ0]GOTO30106 N10106 () G0G90B90. G54.1P7X-1.5185Y-2.2413 Z1. M98H40002 (1/2 R-MILL / R-MILL OUTSIDE PROFILE / Z-.74) (OPERATION #3) N1031 G0G90Z12. () N30106 IF[#901EQ1]GOTO10107 IF[#901EQ0]GOTO30107 N10107 () G0G90B90. G54.1P4X-1.5185Y-2.2413 Z1. M98H40002 (1/2 R-MILL / R-MILL OUTSIDE PROFILE / Z-.74) (OPERATION #3) N1046 G0G90Z12. () N30107 IF[#900EQ1]GOTO10108 IF[#900EQ0]GOTO30108 N10108 () G0G90B90. G54.1P1X-1.5185Y-2.2413 G43H#51999Z1. M98H40002 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.390) (OPERATION #19) N1061 G0G90Z12. () IF[#925EQ2]GOTO10109 () N30108 IF[#900EQ1]GOTO10109 IF[#900EQ0]GOTO30109 N10109 () G0G90B0. G54.1P2X.3978Y.7071 Z1. M98H40003 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.390) (OPERATION #19) N1063 G0G90Z12. () IF[#925EQ2]GOTO10116 () N30109 IF[#901EQ1]GOTO10110 IF[#901EQ0]GOTO30110 N10110 () G0G90B0. G54.1P5X.3978Y.7071 Z1. M98H40003 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.390) (OPERATION #19) N1065 G0G90Z12. () N30110 IF[#902EQ1]GOTO10111 IF[#902EQ0]GOTO30111 N10111 () G0G90B0. G54.1P8X.3978Y.7071 Z1. M98H40003 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.390) (OPERATION #19) N1067 G0G90Z12. () N30111 IF[#903EQ1]GOTO10112 IF[#903EQ0]GOTO30112 N10112 () G0G90B0. G54.1P11X.3978Y.7071 Z1. M98H40003 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.280) (OPERATION #22) N1069 G0G90Z12. () N30112 IF[#903EQ1]GOTO10113 IF[#903EQ0]GOTO30113 N10113 () G0G90B180. G54.1P12X-.0328Y-1.3437 Z1. M98H40004 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.280) G0G90Z12. () N30113 IF[#902EQ1]GOTO10114 IF[#902EQ0]GOTO30114 N10114 () G0G90B180. G54.1P9X-.0328Y-1.3437 Z1. M98H40004 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.280) G0G90Z12. () N30114 IF[#901EQ1]GOTO10115 IF[#901EQ0]GOTO30115 N10115 () G0G90B180. G54.1P6X-.0328Y-1.3437 Z1. M98H40004 (1/2 R-MILL / R-MILL SIDE RECESS / Z-.280) G0G90Z12. () N30115 IF[#900EQ1]GOTO10116 IF[#900EQ0]GOTO30116 N10116 () G0G90B180. G54.1P3X-.0328Y-1.3437 Z1. M98H40004 (1/2 R-MILL / R-MILL EXCESS STOCK / Z+.010) (OPERATION #24) N1070 G0G90Z12. () IF[#925EQ2]GOTO30100 () N30116 IF[#900EQ1]GOTO10117 IF[#900EQ0]GOTO30117 N10117 () G0G90B270. G54.1P17X-1.3827Y-2.1882 G43H#51999Z1. M98H40005 (1/2 R-MILL / R-MILL EXCESS STOCK / Z+.010) G0G90Z12. () IF[#925EQ4]GOTO30100 () N30117 IF[#901EQ1]GOTO10118 IF[#901EQ0]GOTO30118 N10118 () G0G90B270. G54.1P18X-1.3827Y-2.1882 Z1. M98H40005 (1/2 R-MILL / R-MILL EXCESS STOCK / Z+.010) G0G90Z12. () N30118 IF[#902EQ1]GOTO10119 IF[#902EQ0]GOTO30119 N10119 () G0G90B270. G54.1P19X-1.3827Y-2.1882 Z1. M98H40005 (1/2 R-MILL / R-MILL EXCESS STOCK / Z+.010) G0G90Z12. () N30119 IF[#903EQ1]GOTO10120 IF[#903EQ0]GOTO30100 N10120 () G0G90B270. G54.1P20X-1.3827Y-2.1882 Z1. M98H40005 () N30100 () M9 M5 G0G28G91Z0. G90G10L10P#51999R0 G90G10L12P#51999R0 M01

I have NO idea what this is even doing...it's a bunch of G81 cycles with no way to relate what it's doing besides punching into a position

That'll make file management a WHOLE lot easier!

Try M98Q40001 N40001

@cncappsjames ANy chance you're aware of the setup for using internal subs on the above referenced control

What control? I know for our Mazaks the internal calls work as such M98H40001 that calls N40001 at the bottom.. You might look through the controls book and see if it calls internal subs using different headers

I remember back in the day on some older Fanucs...I would have them all after the M30.... I would make sure there was no % as that signals the end of the program, after the M30. I would edit the M30 to M99 for loading, then change it back after loading it.. The larger answer to separate subs is using the subout command....though I would have to mess with it to figure it out, perhaps someone has a concise answer

I am curious as to why you would want them as separate files as opposed to in the same file? In my own head it seems they would be easier to manage all in a single file..

Unless something has changed over the years, not that I am aware...

Yes, when you save a new tool to your library, save it as the tool number that you want it to have... When you're programming, make sure you uncheck the option to Assign tool numbers sequentiallyo

about 45, 27 HMC's, 10 VMC's, 5 MIll-Turns, 3-5AX's plus additive machine,. plus mold shop and tool room programming support We're a crew of 3

Something to think on... Instead of setting the hard values, I would lean towards pulling the values via variables...the "if" the G54 should need to change for some reason, they all update... In the case of our Mazaks...they would be as such G10 L2 P1 X-12.4016Y-23.6221Z-25.5905A0.C0. G10 L2 P2 X#5221Y#5222Z#5223A#5224C#5226 G10 L2 P3 X#5221Y#5222Z#5223A#5224C#5226 G10 L2 P4 X#5221Y#5222Z#5223A#5224C#5226 G10 L2 P5 X#5221Y#5222Z#5223A#5224C#5226 G10 L2 P6 X#5221Y#5222Z#5223A#5224C#5226 G10 L20 P1 X#70001Y#70002Z#70003A#70004C#70006 G10 L20 P2 X#70001Y#70002Z#70003A#70004C#70006 G10 L20 P3 X#70001Y#70002Z#70003A#70004C#70006 G10 L20 P4 X#70001Y#70002Z#70003A#70004C#70006 M99

Programming for a current pool of 27 HMC's.....some thoughts. With a 15k spindle, balancing is not required....once you break the 20k, different ballgame. Do not cheap out on holders, the really play an integral part in your process We use Lyndex for about 85% of our shrink fit holders, Techniks of ER for the most part. I will call a Techniks Slimfit or slimline when appropriate. 15k and a sidelocker will work but don't be surprised with some vibration.... Work holding....when I started here in 2015 every single solitary tombstone was an assembled aluminum tombstone...they had a standard pattern that each tombstone got for mounting plates. Don't get me wrong, when they started with HMC's they had no one "in house" that was really versed in getting them going and they started and propagated what a local "job shop" was using to do some of the work they farmed out to them.....it got them started and it made a great many parts. It needed though to evolve. All we use now are cast iron tombstones, the resultant difference on a single part, one aluminum tombstone and one cast iron tombstone, then some simple math cemented the move to cast iron...I worked on and created a single mounting pattern that works on our Hexagon, Square and Plus shaped tombstones. We also can mount and of the 52mm 5th Axis RockLocks we use to the same tombstones. I will say the largest majority of what we put out now goes out on the "Plus" shaped stones because of the clearance it allows us to work closer on the sides of parts, thus reducing the need for extended length holders. Work on standardizing as much as you can now....you will be surprised at how fast you can fill up your tool carousel. Make a standard tool set, with standard length out of holders and use those tool as much as possible.... I am certain I have missed at least a few things here.... Nevermind me this morning, 5 axis machine RIF...it's Monday, it's too damn early and I haven't had enough coffee yet.

I carry mine until it starts acting funny...at that point I recreate.....I think 2022 hosed the previous one and I'm still using the one I made then... To the OP, yeah, too many version jump...time to re-do it

Sadly and unexpectedly, Tim passed away several years back but his good works do live on and help others as he always tried to do.

It's illogical because the equation is illogical.... Those kinds of macro statements cause problems, as you're seeing...any macro needs to account for every possible solution or you will see strange behavior... With that I'm out

Do you really want to be using LE & GE in those conditions? Looking through your first 2 examples, you create a condition that the numbers are equal... I'm not sure exactly what condition you are checking for but if an "equal" condition is possible, it should be accounted for in the macro statement.... and if you choose to set a separate "equal" condition check, I would do that as the first check, otherwise the order of operations could still cause funky results...

Perhaps...we're supposed to be looking at some updated EOS software that address some of these factors and can predict what orientation to place the part for minimal support structure....if I've learned nothing over this past year, it is that support structure matters greatly...it helps not only support areas that require it as they build, it also facilitates heat transfer out of the parts. So the notion of minimal structure is nice in thinking and on a screen, it would also be nice to save some Ti powder but how it works in the real world, on real parts, will tell the story.

Like anything else in manufacturing, much depends on the parts and the set up....we print the parts we do out of Ti because in the use, they are thermally stable. Your part shape, settings and support structure matter greatly....I have had to learn on the fly over the past year. High temp alloys just by virtue of the printing process, heating & cooling, usually have a fair bit of stress.....one part we made had a feature that had to be printed at a 5 deg tilt to the desired final product. As these were not post processed(stress relief), when we cut them off the plate, this feature would move 5 degrees. The movement was consistent enough that the ±1/4° was able to be held. Many factors and also trial & error

That's plenty large enough to start to curl......and with a floor that thin, post processing will be a forgone conclusion....just a guesstimate but I would think that'll require about a 30 to 40° tilt,,,that's about where I would start. We have never found anyone will certify the tensile strength of printed Ti UNLESS it's post processed.

One of the hardest things to print, especially with a hightemp alloy... You will definitely NOT want to print that parallel to the printing platen....it WILL curl and have a TON of stress in it. You will want to use angles to tilt and roll.. A flat highstress area, your support structure should be VERY attached to the platen, as it cools, if it is not, it will curl away. He claims .002".....mind you it is possible on some machines but is he saying ±.002 or ±.001...that may have a difference in your ultimate desire

I cannot speak to Haas macro formatting N10 (512= num passes, 513 =stepover) N11 #601 = [#512 * #513] N12 (510 = bore size, 511 = tool size) N13 #602 = [#510-#511]/2 N14 M00 N15 IF [#601 GT #602] GOTO 5002 (5002= DISPLAY ERROR) but Fanuc Macro #512=9(Number of passes) #513=.05(Stepover) #601=[[#512]*[#513]] #510=1.00(Bore Size) #511=.375(Tool size) #602=[[#510]-[#511]/2 M00 IF[#601GT#602]GOTO5002 N5002=#3000=99(DISPLAYERROR) Haven't tested it but that's a sketch that I would use...I would probably reorder to define all variables at the top...then to math....then do checking

Just an FYI, they are UV lines....they show the "flow" direction of the underlying UV direction of the surface