Setting tools

[Drew]

I'm working on a duel head drill machine running camsoft pro that needs logic code to set tool length. Axis Z and A are drills in a keyless chuck. Axis X and Y move the heads(Z and A) left and right. Rotary table is axis B.
Currently have code to adjust X and Y axis to make sure drills are on center of step that holes are to be drilled.

[[ADJUSTPOSITION]]
'adjust position with handwheel procedure
DECELSTOP
RAPID \306;\307;\314;\314;0
WAITUNTIL STOP
'get current position for x and y from machine home
MACHHOMEX \308
MACHHOMEY \309
'prompt for hole adjustment in x & y
:PROMPTX
QUESTION ADJUST X & OR Y POSITION Y,N;\55;Y
LENSTR \55;\99:IF\99=0THEN GOTO :SKIP
IF\55="N" THEN GOTO :SKIP
IF\55="n" THEN GOTO :SKIP
QUESTION TURN ON HANDHWEEL AND ADJUST POSITION. CLICK OK WHEN DONE;\55;Y
LENSTR \55;\99:IF\99=0THEN GOTO:SKIP
'get new position after adjustment in x and y
MACHHOMEX \310
MACHHOMEY \311
'calculate distance
\312={\310-\308}
\313={\311-\309}
EXIT
:SKIP
'done
\327=1
\312=0
\313=0
[[SETXYOFFSET]]
'set offset if any from distance
TOOLOFFSETX \312
TOOLOFFSETY \313

I need to add adjustment for Z and A axis. It should save current position, calu change after handwheeling, then save to offsets(seperate macro).
Such as [[SETZAOFFSET]].
I've done plenty programing but this is my first with cam soft.
Me thinks this should do the math part. But lost on how to set offset.
Thanks Drew

[[ADJUSTPOSITION]]
'adjust position with handwheel procedure
DECELSTOP
RAPID \306;\307;\314;\314;0
WAITUNTIL STOP
'get current position for x and y from machine home
MACHHOMEX \308
MACHHOMEY \309
MACHHOMEZ \408
MACHHOMEA \409
'prompt for hole adjustment in x,y,z,a
:PROMPTX
QUESTION ADJUST X,Y,Z,A POSITION Y,N;\55;Y
LENSTR \55;\99:IF\99=0THEN GOTO :SKIP
IF\55="N" THEN GOTO :SKIP
IF\55="n" THEN GOTO :SKIP
QUESTION TURN ON HANDHWEEL AND ADJUST POSITION. CLICK OK WHEN DONE;\55;Y
LENSTR \55;\99:IF\99=0THEN GOTO:SKIP
'get new position after adjustment in x,y,z,a
MACHHOMEX \310
MACHHOMEY \311
MACHHOMEZ \410
MACHHOMEA \411
'calculate distance
\312={\310-\308}
\313={\311-\309}
\412={\410-\408}
\413={\411-\409}
EXIT
:SKIP
'done
\327=1
\312=0
\313=0
\412=0
\413=0

[Karl_T]

Look at the command TOOLNUMBER in search for solutions. Nice explanation there.

If I understand what you're wanting to do, use t=## to change that drill to whatevertool number you want. Save all the parameters for that drill under that tool number, you're talking about TOOLVERT. Then just change to that tool number whenver you need that offset to be applied.

Karl

[HuFlungDung]

Observation: the use of MACHHOME in the adjustment of the corrected position seems reminiscient of using the old G92 command to reset a mill datum position. In other words, the actual homed position of the machine is no longer where it was, if you overwrite with another MACHHOME command (is it?).

On my lathe retro, it was imperative that the homed position never ever change. So I used the HOME command to virtually correct the displayed position and to set a virtual home for a new part datum. This leaves the original home position intact, and I can return there with a MACHGO 0,0,0 command when necessary. So, its not as bad as the old G92 command, because I've still got my G53 zero position stored with the MACHHOME command.

I'm not saying your method won't work, I'm just pointing out why I would be hesitant to overwrite a MACHHOME that was created by a homing routine.