Be aware on some machines you need to move the C Axis away from the Picked up Position to apply any changes to the offset and then move back to make sure they applied. I did this years ago on a Mazak Integrex in the post to output my logic as I wanted it. if drillcyc$ = 11, #C Axis Measure - Vertical B0/B90/B180 [ pdrlcommonb if babs = 180, [ pbld, n$, *strg659810, prnrefht, e$ pbld, n$, *strg659818, *cyspan, pfxout, *offupdate,[if cangtoler > 0, *cangtoler], [if drl_prm2$ > 0, *drl_prm2$], e$ pbld, n$, *strg659810, *prnrefht, e$ ] if babs = 90, [ pbld, n$, *strg659610, prorefht, e$ pbld, n$, *strg659618, *cyspan, pfxout, *offupdate, [if cangtoler > 0, *cangtoler], [if drl_prm2$ > 0, *drl_prm2$], e$ pbld, n$, *strg659610, *prorefht, e$ ] if babs = 0, [ pbld, n$, *strg659810, prnrefht, e$ pbld, n$, *strg659818, *cyspan, pfxout, *offupdate, [if cangtoler > 0, *cangtoler], [if drl_prm2$ > 0, *drl_prm2$], e$ pbld, n$, *strg659810, *prnrefht, e$ ] *sg00 ,*sg91, sg30_3, "X0", e$ *sg00, *sg90, [if workofs$ > 53, *g_wcs], [if workofs$ < 49 , "G54.1", *p_wcs],[if spindle_no$ = 0, "C20."],[if spindle_no$ = 1, "U20."],e$ *sg00, *sg90, [if spindle_no$ = 0, "C0"],[if spindle_no$ = 1, "U0"], e$ spaces$ = 0 sif,sbracketopen,spound,sm152,sgt,drl_prm1$,sbracketclose,sgoto,ngoto2, e$ spaces$ = 1 pcom_movea ] You will notice the C20. or U20. based off the Spindle I was probing. This was automatically output anytime I was probing for C0 or U0 on that machine.

Ah yea that link is no longer valid, I did report the post to update the link as I am unable to edit it. https://my.mastercam.com/Communities/3rd-Party-Developers/NET-Hook-Downloads is the correct link. Thanks for catching that. I'll see what I can do with more tool examples.

Scary stuff! Silvering lining is no one was hurt.

Thank you so much to everyone who has donated, I'm truly humbled by the love that everyone has shown my me and my wife. As crappy as it is to go through this, I'm just thankful that the results weren't worse off.

code: '//////////////////////////////////////////////////////////////////////////////// '// '// Author: Mick George [email protected] '// Date: 9/9/2003 9:59:56 AM '// File Name: move_all_linestyle_center_to_new_level.vbs '// '// Description: This script shows how to move all linestyle_center from one level to another '// '// '//////////////////////////////////////////////////////////////////////////////// ' -- Start Script Call Main() ' //////////////////// ' Sub Declaration ' //////////////////// Sub Main() Dim intLineStyle Dim dblLevelNumber Dim bOK, bRet Dim lngCount ' -- Set state Call ClearMenuAndPrompts Call UnselectAll Call FreeChains ' -- Zoom all Call RepaintScreen(True) ' -- Ask for a level number that we will use to move all entities too If Not askValue ("Type a level number to move linestyle centre entities too", 1, 255, dblLevelNumber) Then Exit Sub ' -- Select all arcs bRet = ChainAll(False,False,mcCONSTRUCTION_COLOR_CURRENT, mcCONSTRUCTION_LEVEL_CURRENT) ' -- Ok to go? If bRet Then ' -- Initialize looping flag to false bOk = False lngCount = 0 Do ' -- Check the linestyle type If GetEntityStyle = mcLINESTYLE_CENTER Then ' -- Move it Call SetEntityLevel(dblLevelNumber) ' -- Keep a running total lngCount = lngCount + 1 Else ' -- Do nothing... End If ' -- Get the next entity bRet = MoveToNextChain Loop While bRet ' -- Inform user If lngCount = 0 Then ShowString "No linestyle centre entities found" Else ShowString lngCount & " linestyle_center entities moved to level " & dblLevelNumber End If End If ' -- Zoom all Call RepaintScreen(True) End Sub