PDA

View Full Version : Heidenhain TNC 530

Matth3w
06-13-2010, 06:06 AM
I have started writting a post for the 530 Heidenhain. So far I have this.

A linear move in .h format is as follows.

L X15 R0

R0 means no compensation.

@line

{nb,'L'}

{[' X'xpos] [' Y'ypos] [' Z'zpos]}
if m_feed_flag eq 1
m_feed_flag = 0
{ ' F'feed}
else
{ [' F'feed]}
endif

;-------------------
endp

A arc is defined by declaring a circle centre, then you define the end point , direction and compensation.

CC X0 Y0
C X-15 Y0 DR- R0 F500

Solidcam seems to split the circle if it is greater than 180 degrees, this makes
writing the post easy.

@arc

{nb,'CC'}
{' X'xcenter ' Y'ycenter}
{nb,'C'}
{' X'xpos ' Y'ypos}

if arc_direction eq cw then
{' DR- '}
else
{' DR+ '}
endif
{'R0'}

if m_feed_flag eq 1
m_feed_flag = 0
{ ' F'feed}
else
{ [' F'feed]}
endif

endp

Tool change is defined as follows.

TOOL CALL 7 Z S5000

@change_tool

{nb, 'TOOL CALL 'tool_number,' Z S'spin:integer_def_f, ''}
if colent eq 0
{nb, 'M08'}
endif
{nb,'M03'}

endp