Add Comp Macro post?

[kennebec]

Merry Christmas to all,

I want to add a comp macro to our post so that we will not forget to enter a comp value in the register when needed, we program online so if we forget we make BIG holes or small Blocks.

the code lookes like:

 

 

 

 

N4T4M6(2" INCH COMP= RAD.)

Y_[1]=$TC_DP6[$TC_MPP6[9998,1],1]*1

IF(Y_[1]>1.01)GOTO N5555 tool radius +.01

IF(Y_[1]<.99)GOTO N5555 tool radius -.01

 

 

 

 

G49G53Z0.Y0.X-18.M9

GOTO N6666

N5555SETAL(65000)

M00;CUT COMP ERROR

N6666

 

I want this tied to G41 /G42 so it is only output on tools with comp

I believe I can Force All the code and the ±.01 , if I knew where in the post "Comp" and "Tool Radius" is?

Thanks Forum

[Grievous]

Hi there.

In your post initialize this variable in case it is not:

fmt 2 tlrad$ #tool radius format

Then at "ptlchg_com" , after your M06 add this lines:

spaces$ = 0

pbld, "CHECK_RAD(", *tlrad$, ")",e$

spaces$ = 1

On machine create this user cycle called "CHECK_RAD" :

PROC CHECK_RAD(REAL TOOL_RAD, REAL _TOL)

DEF REAL FACTOR_SCALING

DEF REAL ACTUAL_TOOL_NR

DEF REAL _TOL_UP

DEF REAL _TOL_DOWN

IF $MN_SCALING_SYSTEM_IS_METRIC==0

FACTOR_SCALING=$MN_SCALING_VALUE_INCH

ELSE

FACTOR_SCALING=1

ENDIF

ACTUAL_TOOL_NR=$TC_DP6[$TC_MPP6[9998,1],1] ;CAPTURE TOOL RAD IN SPINDLE

IF _TOL==0

_TOL=0.254/FACTOR_SCALING ;DEFAULT VALUE FOR TOLERANCE IN MM

ENDIF

_TOL_UP=TOOL_RAD+_TOL

_TOL_DOWN=TOOL_RAD-_TOL

IF (ACTUAL_TOOL_NR>_TOL_UP)OR(ACTUAL_TOOL_NR<_TOL_DOWN) GOTOF _ALLARM

_END: M17

_ALLARM:SETAL(65000)

M00 ;CUTTER COMP ERROR

M30

What will happen:

after each tool change your post will add a line

CHECK_RAD(tool_rad) where tool_rad= your active tool radius

the cycle wich I made 4U will check that your posted value for that tool and the value of the actual tool in spindle differ with a default value(0.254mm /see the custom cycle.)

Also you can manually modify the tolerance value by adding the new value after the tool rad like this

CHECK_RAD(1,0.02)

1=tool rad to be checked

0.02= new tolerance/in current measuring system /in or mm G700 OR G710

Let me know if U have some difficulties

Edited December 6, 2012 by Griveous74

[kennebec]

Thanks Greveous74

This is going to take me a bit to digest, but it looks great...