I used to do it that way long ago, but it entailed manually editing the nc code. Throughout the years I've learned that the less manual editing you do, the better. Other than the cutter comp issue that I mentioned to Roger ealier in this thread, I'm pretty much there.

Robert - that worked, with some slight modification: else, [ b9_pwcs = p_wcs - 6 if use_g10 = 1, [ n$, "G90", "G10", "L20", "P", *b9_pwcs, "(""G54.1 P",*b9_pwcs,")", *b9_tox, *b9_toy, *b9_toz, "B0.", e$ ] if use_g10 = 2, [ n$, "G90", "G10", "L20", "P", *b9_pwcs, "(""G54.1 P",*b9_pwcs,")", *b9_tox, *b9_toy, *b9_toz, *srot_label, no_spc$, "0", e$ ] ] ] ] idx9 = idx9 + 1 rc9 = 1 ] Thanks for the help.

I did...look at post #40.

Almost...if you look above at what is posting out, I'm getting: L20 P7 ( G54.1 P1 ) I need the P7 to be P1, P8 to be P2, and so forth.

Starting at the b9_pwcs line, I had to make the following changes: b9_pwcs = p_wcs + 53 if use_g10 = 1, [ n$, "G90", "G10", "L2", *p_wcs, "(""G",b9_pwcs,")", *b9_tox, *b9_toy, *b9_toz, "B0.", e$ ] if use_g10 = 2, [ n$, "G90", "G10", "L2", *p_wcs, "(""G",b9_pwcs,")", *b9_tox, *b9_toy, *b9_toz, *srot_label, no_spc$, "0", e$ ] ] else, [ b9_pwcs = p_wcs - 6 if use_g10 = 1, [ n$, "G90", "G10", "L20", *p_wcs, "(""G54.1 P",b9_pwcs,")", *b9_tox, *b9_toy, *b9_toz, "B0.", e$ ] if use_g10 = 2, [ n$, "G90", "G10", "L20", *p_wcs, "(""G54.1 P",b9_pwcs,")", *b9_tox, *b9_toy, *b9_toz, *srot_label, no_spc$, "0", e$ ] ] ] ] idx9 = idx9 + 1 rc9 = 1 ]

I've got it to this point: N130 G90 G10 L2 P1 ( G54 ) X-.495 Y-10.8676 Z7.415 B0. N140 G90 G10 L2 P2 ( G55 ) X-7.415 Y-10.8676 Z.405 B0. N150 G90 G10 L2 P3 ( G56 ) X7.415 Y-10.8676 Z.495 B0. N160 G90 G10 L2 P4 ( G57 ) X0. Y-2.9676 Z5.75 B0. N170 G90 G10 L2 P5 ( G58 ) X-.495 Y-2.0676 Z5.1875 B0. N180 G90 G10 L2 P6 ( G59 ) X-5.1875 Y-2.0676 Z.405 B0. N190 G90 G10 L20 P7 ( G54.1 P1 ) X5.1875 Y-2.0676 Z.495 B0. N200 G90 G10 L20 P8 ( G54.1 P2 ) X-5.1875 Y-11.2126 Z2.393 B0. N210 G90 G10 L20 P9 ( G54.1 P3 ) X5.1875 Y-11.2126 Z2.607 B0. N220 G90 G10 L20 P10 ( G54.1 P4 ) X0. Y-11.2126 Z0. B0. I can't figure out to change the extended offsets(L20) to match P numbers.

Made some changes, and I am getting closer.

It won't post. Screen turns white after a couple seconds and I think I got a no memory error.

That doesn't work. It crashes the system.

This is almost straight from what Roger added earlier: # -------------------------------------------------------------------------- # Buffer 9 Read / Write Routines - G10 coordinate list # -------------------------------------------------------------------------- pwritbuf9 # Write the workoffset and origins to buffer 9 - called from pwrtt$ #--------------- Initialize variables size9 = rbuf(9,0) rc9 = 1 new_x = 0 new_y = 0 new_z = 0 new_workofs = 0 while rc9 <= size9, # Determine if current workoffset/origin is unique [ b9_tox = rbuf(9,rc9) if b9_tox <> tox$, new_x = new_x + 1 if b9_toy <> toy$, new_y = new_y + 1 if b9_toz <> toz$, new_z = new_z + 1 if b9_workofs <> workofs$, new_workofs = new_workofs + 1 ] if new_x = size9 | new_y = size9 | new_z = size9 | new_workofs = size9, # If current workoffset/origin is unique, write to buffer 9 [ b9_tox = tox$ b9_toy = toy$ b9_toz = toz$ b9_workofs = workofs$ b9_tox = wbuf(9,wc9) ] preadbuf9 # Write the G10 workoffset list - called from psof #------------------------------------------------------------------ # Determine largest workofs output - b9_test = largest workofs used #------------------------------------------------------------------ #--------------- Initialize variables size9 = rbuf(9,0) rc9 = 1 wc9 = 1 b9_test = -1 while rc9 <= size9, [ b9_tox = rbuf(9,rc9) if b9_workofs > b9_test, b9_test = b9_workofs ] #------------------------------------------------------------------ # Ouptut the G10 list in order #------------------------------------------------------------------ #--------------- Initialize variables size9 = rbuf(9,0) rc9 = 1 wc9 = 1 idx9 = 0 b9_tox = 0 b9_toy = 0 b9_toz = 0 b9_workofs = 0 while idx9 <= b9_test, [ while rc9 <= size9, [ b9_tox = rbuf(9,rc9) if b9_workofs = idx9, [ p_wcs = b9_workofs + 1 if use_g10 = 1, [ n$, "G90", "G10", "L2", *p_wcs, *b9_tox, *b9_toy, *b9_toz, "B0.", e$ ] if use_g10 = 2, [ n$, "G90", "G10", "L2", *p_wcs, *b9_tox, *b9_toy, *b9_toz, *srot_label, no_spc$, "0", e$ ] ] ] idx9 = idx9 + 1 rc9 = 1 ]

What are the 6's referring to in that post? I don't have any of that in my post.

Robert - where is it reading that # from? I just tried that and it had the same # on all the offset lines. Also, I was just about to ask about extended offsets...I see some of what you have for that...what else needs to be done for that to work?

Also, is there a way to implement the work offset #'s like I have in the code above? Like where the P1 line has *(G54)* before it lists the XYZ coordinates?

Thanks Chris, they ended up e-mailing me the file.

Thanks, I have that one already.

Not exactly sure if it works the same in lathe posts as it does with mill, but in the post, look for: one_rev : 1 #Limit rotary indexing between 0 and 360? (0 = No, 1 = Yes)

Was wondering if anyone had a 3D cad file for a kurt SCD640? I can only find 2D on their website, and I had no luck on the ftp site here.

The machines handle it fine. Normally when we program originally, those will all be B0., but if they need to put a part on a different side of the tombstone, it's easier and safer to only have to change it in one spot.

Basically, something like this: (WORK OFFSETS) G90G10L2P1(G54)X-2.5034Y-13.7655Z7.68B0. G90G10L2P4(G57)X-2.5034Y-12.2655Z7.6857B0.(B0) G90G10L2P5(G58)X-7.6857Y-12.2655Z-2.5034B90.(B90) G90G10L2P6(G59)X7.6857Y-12.2655Z2.5034B270.(B270) (CUTTER COMPS) G90G10L12P90R0.(TOOL - 40) G90G10L12P92R0.(TOOL - 42) G90G10L12P93R0.(TOOL - 43) G90G10L12P97R0.(T43-.4 DIA) G90G10L12P94R0.(TOOL - 44) G90G10L12P95R.0015(TOOL - 45) G90G10L12P96R0.(TOOL - 46)

It worked very well Roger, thanks. Is there a way to implememnt it to associate with used cutter comp as well if we use G10 offsets for that purpose too?

I thought it was a bug. I've noticed the same thing.

I like the newer style. I think I've learned more about how it all processes this way. We also have multpile different types of machines, so it has been useful in that aspect as well.

Usually, whatever mastercam spits out.

Once they are set, where do we find the dates?

I might be interested in the class if it was held on the East coast. I'm not too far from Connecticut.