Jeff,
Here's the post I generally use for machines with tool changers. Maybe you can extract the stuff you want from it? Hopefully I'm not defying any rules by posting something this long.
$$
$$ *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
$$
$$ Author : Kenneth J. Farley
$$ Date : 13 November 2013
$$
$$ Handling routines for various APT code that is not done in the
$$ proper fashion by the default routines.
$$
$$ *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
$$
PRINT/ OFF, IN $$ debug: ON production: OFF, IN
DMY = POSTF ( 24, 0 ) $$ : ( 24, 1 ) : ( 24, 0 )
$$
$$ ===================[ Global Variable Declarations ]==================
$$
REDEF/ ON
A=1 ; B=2 ; C=3 ; D=4 ; E=5 ; F=6 ; G=7 ; H=8 ; I=9 ; J=10
K=11 ; L=12 ; M=13 ; N=14 ; O=15 ; P=16 ; Q=17 ; R=18 ; S=19 ; T=20
U=21 ; V=22 ; W=23 ; X=24 ; Y=25 ; Z=26
CURREG = 0 $$ Current offset register in use
CHTOOL = 0 $$ Boolean indicator of tool change
CUTOOL = 0 $$ Current tool number in use
TXTVAL = TEXT/ ' ' $$ Generic text variable 'returned' by macros
CMTLST = TEXT/ ' ' $$ Last PPRINT comment processed
MAXTLS = 50 $$ Maximum number of tools used
LSTTIM = 0.0 $$ Initial cycle time
CYCDEP = 0.0 $$ Depth of drilling in current cycle
CYCPCK = 0.0 $$ Drilling cycle peck depth
CYCCLR = 0.0 $$ Drilling cycle clearance
RESERV/ MONNAM, 12 $$ Array of names for the months
MONNAM ( 1 ) = TEXT/ 'J', ( TEXT/ LOW, ( TEXT/ 'anuary' ) )
MONNAM ( 2 ) = TEXT/ 'F', ( TEXT/ LOW, ( TEXT/ 'ebruary' ) )
MONNAM ( 3 ) = TEXT/ 'M', ( TEXT/ LOW, ( TEXT/ 'arch' ) )
MONNAM ( 4 ) = TEXT/ 'A', ( TEXT/ LOW, ( TEXT/ 'pril' ) )
MONNAM ( 5 ) = TEXT/ 'M', ( TEXT/ LOW, ( TEXT/ 'ay' ) )
MONNAM ( 6 ) = TEXT/ 'J', ( TEXT/ LOW, ( TEXT/ 'une' ) )
MONNAM ( 7 ) = TEXT/ 'J', ( TEXT/ LOW, ( TEXT/ 'uly' ) )
MONNAM ( 8 ) = TEXT/ 'A', ( TEXT/ LOW, ( TEXT/ 'ugust' ) )
MONNAM ( 9 ) = TEXT/ 'S', ( TEXT/ LOW, ( TEXT/ 'eptember' ) )
MONNAM ( 10 ) = TEXT/ 'O', ( TEXT/ LOW, ( TEXT/ 'ctober' ) )
MONNAM ( 11 ) = TEXT/ 'N', ( TEXT/ LOW, ( TEXT/ 'ovember' ) )
MONNAM ( 12 ) = TEXT/ 'D', ( TEXT/ LOW, ( TEXT/ 'ecember' ) )
RESERV/ TLUSED, MAXTLS $$ Array of boolean tool usage flags
RESERV/ TLCOMT, MAXTLS $$ Array of tool comments
DO/ DOTLS, INDEX = 1, MAXTLS, 1
TLUSED ( INDEX ) = 0
TLCOMT ( INDEX ) = TEXT/ '* X.XXXX DIA'
DOTLS) CONTIN
$$
$$ ========================[ Macro Declarations ]=======================
$$
$$
$$ --[ Macro : IN2TXT ]-------------------------------------------------
$$
$$ Converts an integer value to a text string, with the desired
$$ number of characters. If necessary, the number is padded with
$$ leading zeroes to achieve the desired width.
$$
$$ Parameters
$$ INTVAL : the value that is to be processed
$$ NUMDIG : the number of characters the number is to fill
$$
$$ Global variables
$$ TXTVAL : the resultant number as a text string
$$
IN2TXT = MACRO/ INTVAL, NUMDIG
WRKVAL = INTF ( INTVAL )
DIGSOK = 1 + INTF ( LOGF ( WRKVAL ) / LOGF ( 10.0 ) )
NUMZED = NUMDIG - DIGSOK
IF ( NUMZED .GT. 0 ) THEN
TXTVAL = TEXT/ REPEAT, NUMZED, '0', CONVI, WRKVAL, DIGSOK
ELSE
TXTVAL = TEXT/ CONVI, WRKVAL, NUMDIG
ENDIF
TERMAC
$$
$$ --[ Macro : RL2TXT ]-------------------------------------------------
$$
$$ Converts a real number to a string. The resultant number is
$$ padded with spaces to the right in order to obtain a final res-
$$ ult with the same width as '-XX.XXXX '.
$$
$$ Parameters
$$ RLVALU : the value that is to be processed
$$ NUMDIG : the number of characters the number is to fill
$$
$$ Global variables
$$ TXTVAL : the resultant number as a text string
$$
RL2TXT = MACRO/ RLVALU, NUMDIG
$$
$$ Calculate the number of spaces that need to be added. The end
$$ result desired is any of the following:
$$ '-XX.XXXX' -> no space padding needed
$$ '-X.XXXX ' or 'XX.XXXX ' -> one trailing space
$$ 'X.XXXX ' -> two trailing spaces
$$
NUMSPC = 1
IF ( RLVALU .GT. 0 ) THEN
NUMSPC = NUMSPC + 1
ENDIF
IF ( ABSF ( RLVALU ) .LT. 10 ) THEN
NUMSPC = NUMSPC + 1
ENDIF
$$
$$ Generate the text string including the label, sign, value,
$$ and necessary number of spaces.
$$
IF ( ABSF ( RLVALU ) .LT. 1 ) THEN
TXTNUM = TEXT/ CONVF, ABSF ( RLVALU ), NUMDIG, 4, 0, 0, 3
IF ( RLVALU .LT. 0 ) THEN
TXTVAL = TEXT/ '-0', TXTNUM, REPEAT, NUMSPC, ' '
ELSE
TXTVAL = TEXT/ '0', TXTNUM, REPEAT, NUMSPC, ' '
ENDIF
ELSE
TXTNUM = TEXT/ CONVF, RLVALU, NUMDIG, 4, 0, 0, 3
TXTVAL = TEXT/ TXTNUM, REPEAT, NUMSPC, ' '
ENDIF
TERMAC
$$
$$ --[ Macro : BLDTLL ]-------------------------------------------------
$$
$$ Build and then output a list of the tools used in the program.
$$ This is done by the following algorithm:
$$
$$ (1) Save the restart CL record position.
$$ (2) Parse through the remainder of the CL file, storing any occur-
$$ ences of tool changes as you go.
$$ (3) Reset the CL file to the restart position.
$$
BLDTLL = MACRO/
CIMPOS = POSTF ( 7, 1 ) + 1 $$ Set the return CL position
DO/ DOCMD, INDEX = 0, 10, 1
RESULT = POSTF ( 14 )
CMDTYP = POSTF ( 7, 2 )
CMDSUB = POSTF ( 7, 3 )
IF ( CMDTYP .EQ. 14000 ) THEN
RESULT = POSTF ( 15, CIMPOS )
INDEX = 11
ELSE
INDEX = 2
ENDIF
TARGET = ICODEF ( PPRINT )
IF ( CMDTYP .EQ. 2000 .AND. CMDSUB .EQ. TARGET ) THEN
CMTLST = TEXT/ OMIT, (TEXT/ CLW), 1
CMTLST = TEXT/ MODIFY, CMTLST, (TEXT/ '/'), (TEXT/ '*'), 1
CMTLST = TEXT/ OMIT, CMTLST, 2
ENDIF
TARGET = ICODEF ( LOADTL )
IF ( CMDTYP .EQ. 2000 .AND. CMDSUB .EQ. TARGET ) THEN
TLNUM = POSTF ( 7, 4 )
TLUSED ( TLNUM ) = 1
TLCOMT ( TLNUM ) = TEXT/ CMTLST
ENDIF
DOCMD) CONTIN
CALL/ WRTTLS
TERMAC
$$
$$ --[ Macro : WRTTLS ]------------------------------------------------
$$
$$ Writes out a list of the tools used in the current CL file
$$
$$ Global variables
$$ TLUSED : array of flags indicating if the tool is used
$$ TLCOMT : the comment string for a the tool
$$
WRTTLS = MACRO/
LINCNT = 0
DO/ DOTLS, INDEX = 1, MAXTLS, 1
IF ( TLUSED ( INDEX ) .GT. 0 ) THEN
CALL/ IN2TXT, INTVAL = INDEX, NUMDIG = 2
IF ( LINCNT .GT. 0 ) THEN
TXTPRE = TEXT/ '( '
ELSE
TXTPRE = TEXT/ '( T', (TEXT/LOW, (TEXT/ 'ools : '))
ENDIF
INSERT/ TXTPRE, TXTVAL, ' ', TLCOMT ( INDEX )
INSERT/ ' )$'
LINCNT = LINCNT + 1
ENDIF
DOTLS) CONTIN
TERMAC
$$
$$ --[ Macro : WRTTIM ]-------------------------------------------------
$$
$$ Obtains and outputs a runtime value, depending on the argument passed
$$ to the macro:
$$ CODTIM = 0 -> Output the elapsed runtime since the last tool change.
$$ CODTIM = 1 -> Output the total runtime at present
$$ The runtime is output as a properly formatted comment. The macro
$$ utilizes the always-obscure and cryptic POSTF function to read the
$$ correct common variable.
$$
WRTTIM = MACRO/ CODTIM
CURTIM = POSTF ( 1, 3, 0495 ) $$ Get the total runtime
IF ( CODTIM .GT. 0 ) THEN
RAWTIM = CURTIM
ELSE
RAWTIM = CURTIM - LSTTIM
ENDIF
$$
$$ The runtime is given in minutes. Convert the provided number to
$$ hours, minutes, and seconds. If the CODTIM parameter is non-zero
$$ the minutes portion of the time will be rounded up one minute if the
$$ seconds portion is at least 30 or greater.
$$
HRTIME = INTF ( RAWTIM / 60.0 )
MNTIME = INTF ( RAWTIM - ( HRTIME * 60.0 ) )
SETIME = INTF ( ( RAWTIM - INTF ( RAWTIM ) ) * 60.0 )
IF ( CODTIM .GT. 0 ) THEN
MNTIME = MNTIME + INTF ( ( SETIME + 31.0 ) / 60.0 )
ENDIF
CALL/ IN2TXT, INTVAL = HRTIME, NUMDIG = 2
HRTEXT = TEXT/ TXTVAL
CALL/ IN2TXT, INTVAL = MNTIME, NUMDIG = 2
MNTEXT = TEXT/ TXTVAL
CALL/ IN2TXT, INTVAL = SETIME, NUMDIG = 2
SETEXT = TEXT/ TXTVAL
$$
$$ The label for the time depends on whether this is a call for the
$$ overall program time or a tool.
$$
IF ( CODTIM .GT. 0 ) THEN
TXTLAB = TEXT/ '( E', ( TEXT/ LOW, ( TEXT/ 'st ' ) ), 'T'
TXTLAB = TEXT/ TXTLAB, ( TEXT/ LOW, ( TEXT/ 'ime : '))
ELSE
TXTLAB = TEXT/ '( T', ( TEXT/ LOW, ( TEXT/ 'ool ' ) ), 'T'
TXTLAB = TEXT/ TXTLAB, ( TEXT/ LOW, ( TEXT/ 'ime : '))
ENDIF
TXTHRS = TEXT/ ' H', ( TEXT/ LOW, ( TEXT/ 'ours '))
TXTMNS = TEXT/ ' M', ( TEXT/ LOW, ( TEXT/ 'inutes '))
TXTSEC = TEXT/ ' S', ( TEXT/ LOW, ( TEXT/ 'econds' ) )
$$
$$ Output the time only if the time is greater than 1 second. If a tool
$$ time is being output, include the seconds value.
$$
IF ( SETIME .GE. 1.0 ) THEN
IF ( CODTIM .GT. 0 ) THEN
INSERT/ TXTLAB, HRTEXT, TXTHRS, MNTEXT, TXTMNS
INSERT/ ' )$'
ELSE
INSERT/ TXTLAB,HRTEXT,TXTHRS,MNTEXT,TXTMNS,SETEXT,TXTSEC, ' )$'
ENDIF
ENDIF
LSTTIM = CURTIM
TERMAC
$$
$$ --[ Macro : CLCDTC ]-------------------------------------------------
$$
$$ Cycle time calculations are not accurate when the deep drilling cycle
$$ is used. Therefore, this routine calculates an additional time need-
$$ ed for the currently active cycle, based upon the currently set depth
$$ values, feedrate, etc.
$$
$$ Global variables:
$$ CYCSTP : the number of steps that are needed to drill each hole
$$ CYCPCK : the Z increment or peck depth for the cycle
$$
CLCDTC = MACRO/
DEPCOD = POSTF ( 1, 1, 0472 ) $$ The G code for a DEEP cycle
OFFCOD = POSTF ( 1, 1, 0500 ) $$ The G code for cycle state OFF
CYCNOW = POSTF ( 1, 1, 0539 ) $$ The current active cycle G code
IF ( ( CYCNOW .NE. OFFCOD ) .AND. ( CYCNOW .EQ. DEPCOD ) ) THEN
DZCLR = 0.040 $$ Rapid clearance between pecks
FEDDRL = POSTF ( 1, 3, 0102 ) $$ Cycle feedrate in IPM
FEDRAP = POSTF ( 1, 3, 0109 ) $$ Rapid feedrate in Z direction
NUMSTP = INTF ( ( CYCDEP + CYCCLR ) / CYCPCK )
TIMADD = 0.0
IF ( FEDDRL .GT. 0.0 ) THEN
TIMADD = ( DZCLR * NUMSTP ) / FEDDRL
ENDIF
IF ( FEDRAP .LE. 0.0 ) THEN
FEDRAP = 100.0
ENDIF
NUMRAP = NUMSTP * ( NUMSTP + 1 ) / 2 - 1
TIMADD = TIMADD + ( NUMRAP * CYCPCK ) / FEDRAP
RESULT = POSTF ( 2, 3, 0495, ( POSTF ( 1, 3, 0495 ) + TIMADD ) )
ENDIF
TERMAC
$$
$$ =======================[ CIMFIL Declarations ]=======================
$$
$$
$$ --[ SET ]------------------------------------------------------------
$$
$$ None of the processors seem to handle the offset register indicated
$$ by the programmer, so this code will output it as the appropriate
$$ G-code. Note that it is only output once per program or tool change,
$$ to avoid redundant calls from every NC sequence, which can cause
$$ troubles on some machines.
$$
CIMFIL/ ON, SET, OFSETL
OFSTYP = POSTF ( 6, 5 )
OFSREG = POSTF ( 7, 5 )
IF ( OFSTYP .EQ. 1 ) THEN
IF ( OFSREG.GE.54.AND.OFSREG.LE.59.AND.CURREG.NE.OFSREG ) THEN
CURREG = OFSREG
OFSCMD = TEXT/ 'G', CONVI, OFSREG, 2, '$'
INSERT/ OFSCMD
ENDIF
ENDIF
CIMFIL/ OFF
$$
$$ --[ MACHIN ]---------------------------------------------------------
$$
$$ The MACHIN designation is useless, but can be used as a marker for
$$ the beginning of the file. Use it as the trigger to write the header
$$ comments and setup commands. Note that some of the lines are broken
$$ up into two pieces because it seems to be impossible to output them
$$ properly in one.
$$
CIMFIL/ ON, MACHIN
RESULT = POSTF ( 13 )
TXTTIM = TEXT/ TIMES
TXTMON = TEXT/ RANGE, TXTTIM, 1, 2
TXTDAY = TEXT/ RANGE, TXTTIM, 4, 5
TXTYR = TEXT/ RANGE, TXTTIM, 7, 8
NUMMON = SCALF ( TXTMON )
INSERT/ ' $'
TXTPRE = TEXT/ '( D', (TEXT/LOW, (TEXT/ 'ate : '))
INSERT/ TXTPRE, TXTDAY, ' ', MONNAM(NUMMON),' 20', TXTYR
INSERT/ ' )$'
TXTPRE = TEXT/ '( A', (TEXT/LOW, (TEXT/ 'uthor :'))
TXTPRE = TEXT/ TXTPRE, ' K', (TEXT/LOW, (TEXT/ 'enneth '))
TXTPRE = TEXT/ TXTPRE, 'J. F', (TEXT/LOW, (TEXT/ 'arley'))
INSERT/ TXTPRE
INSERT/ ' )$'
TXTPRE = TEXT/ '( D', (TEXT/LOW, (TEXT/ 'escription :'))
INSERT/ TXTPRE
INSERT/ ' )$'
CALL/ BLDTLL
INSERT/ ' $'
INSERT/ 'G17 G40 G80 G90$'
CIMFIL/ OFF
$$
$$ --[ CYCLE ]----------------------------------------------------------
$$
$$ Process a drilling cycle. The reason for any special handling here is
$$ not to change the output to the NC file, but to correct the time est-
$$ imate for the cycle.
$$
$$ The calculation methodology is as follows:
$$ (1) Tell the post-processor to generate the CYCLE NC code normally.
$$ (2) If the type of cycle is DEEP, set the global cycle parameters.
$$ (3) Call for the calculation of the time.
$$
CIMFIL/ ON, CYCLE
RESULT = POSTF ( 13 )
CMDSUB = POSTF ( 7, 4 )
TARGET = ICODEF ( DEEP )
IF ( CMDSUB .EQ. TARGET ) THEN
CYCDEP = POSTF ( 7, 6 ) $$ The depth of the hole
CYCPCK = POSTF ( 7, 8 ) $$ The incremental steps to be drilled
CYCCLR = POSTF ( 7, 12 ) $$ The clearance distance
CALL / CLCDTC
ENDIF
CIMFIL/ OFF
$$
$$ --[ LOADTL ]---------------------------------------------------------
$$
$$ Handle a tool change to ensure that the machine is moved to the home
$$ position, that the outputs are in the desired format, etc.
$$
CIMFIL/ ON, LOADTL
$$
$$ Obtain the tool number requested from the current line. Also,
$$ reset the current offset register value. If the tool number
$$ called for is different from the current tool, process it in
$$ the appropriate fashion. Otherwise, ignore it.
$$
CURREG = 0
TLNUM = POSTF ( 7, 4 )
CALL/ WRTTIM, CODTIM = 0
IF ( TLNUM .NE. CUTOOL ) THEN
CHTOOL = 1
CUTOOL = TLNUM
$$
$$ Write preparatory lines. Some of the machines need to be
$$ in the home position to properly load tools, so we might as
$$ well default to moving there.
$$
INSERT/ 'G00$'
INSERT/ 'G49 G28', REPEAT, 17, ' ', 'Z0.0000$'
INSERT/ 'G91$'
INSERT/ 'G28 X0.0000 Y0.0000$'
INSERT/ 'G90$'
$$
$$ Output the tool change, a comment about the tool being loaded, and
$$ an optional stop.
$$
CALL/ IN2TXT, INTVAL = TLNUM, NUMDIG = 2
INSERT/ 'M06 T', TXTVAL, '$'
INSERT/ '( ', TLCOMT ( TLNUM ), ' * )$'
INSERT/ 'M01$'
ENDIF
CIMFIL/ OFF
$$
$$ --[ CUTCOM ]---------------------------------------------------------
$$
$$ Process a cutter compensation command, but only if it meets the
$$ proper requirements.
$$
CIMFIL/ ON, CUTCOM
SETV = POSTF ( 7, 4 )
SETT = POSTF ( 6, 4 )
NBEL = POSTF ( 5 )
IF ( SETT .EQ. 0 ) THEN
IF ( SETV .NE. ( ICODEF ( OFF ) ) .AND. NBEL .EQ. 4 ) THEN
DMY = POSTF ( 10, 5, ( POSTF ( 1, 3, 497 ) ) )
DMY = POSTF ( 12, 5 )
ENDIF
ENDIF
DMY = POSTF ( 13 )
CIMFIL/ OFF
$$
$$ --[ GOTO ]-----------------------------------------------------------
$$
$$ The most prevalent command in the file. If there was just a tool
$$ change, output a move to the indicated first position in the tool's
$$ motion, then set the tool length offset.
$$
$$ If the provided position is part of a drilling cycle, calculate the
$$ necessary time delta and add it to the accumulated program time.
$$
CIMFIL/ ON, GOTO
XPOS = POSTF ( 7, 6 )
YPOS = POSTF ( 7, 7 )
ZPOS = POSTF ( 7, 8 )
$$
$$ Convert the given positions to a properly formatted text string.
$$
CALL/ RL2TXT, RLVALU = XPOS, NUMDIG = 8
XTEXT = TEXT/ 'X', TXTVAL
CALL/ RL2TXT, RLVALU = YPOS, NUMDIG = 8
YTEXT = TEXT/ 'Y', TXTVAL
CALL/ RL2TXT, RLVALU = ZPOS, NUMDIG = 8
ZTEXT = TEXT/ 'Z', TXTVAL
$$
$$ If a tool change was processed previously, now is the time to
$$ take care of setting the offset.
$$
IF ( CHTOOL.GT.0 ) THEN
CHTOOL = 0
INSERT/ 'G00 ', XTEXT, YTEXT, '$'
CALL/ IN2TXT, INTVAL = CUTOOL, NUMDIG = 2
INSERT/ 'G43 H', TXTVAL, REPEAT, 17, ' ', ZTEXT, '$'
ELSE
DMY = POSTF ( 13 )
ENDIF
CALL / CLCDTC
CIMFIL/ OFF
$$
$$ --[ PPRINT ]---------------------------------------------------------
$$
$$ Processes the printing commands, which, for this post-processor, means
$$ ignoring them.
$$
CIMFIL/ ON, PPRINT
CIMFIL/ OFF
$$
$$ --[ FINI ]-----------------------------------------------------------
$$
$$ At the end of the program, add code that will move the machine to the
$$ home position.
$$
CIMFIL/ ON, 14
DMY = POSTF ( 20 )
CALL/ WRTTIM, CODTIM = 0
CALL/ WRTTIM, CODTIM = 1
INSERT/ 'G00$'
INSERT/ 'G49 G28', REPEAT, 17, ' ', 'Z0.0000$'
INSERT/ 'G91$'
INSERT/ 'G28 X0.0000 Y0.0000$'
INSERT/ 'G90$'
AUXFUN/ 30
DMY = POSTF ( 21 )
DMY = POSTF ( 13 )
CIMFIL/ OFF
FINI
