This may help ? These X8 routines store the min max of each tool into a buffer. Will work for older versions.

See the subroutine headers where to place the text below.

I hope I haven't forgoten anything. I don't check the forum often.

output_z : yes$  #Output Z Min and Z Max values (yes or no)


tool_info    : 3     #Output tooltable information?
                     #0 = Off - Do not output any tool comments or tooltable
                     #1 = Tool comments only
                     #2 = Tooltable in header - no tool comments at T/C
                     #3 = Tooltable in header - with tool comments at T/C




# --------------------------------------------------------------------------
# Buffer 1 Files for NEW Sequence Number routine
# --------------------------------------------------------------------------
#      "Nxxyy    xx = tool number   yy = repeat counter"
rc1          : 1
wc1          : 1
tlcount      : 0
fbuf 1 0 1 0 0
tlusage      : 0
fmt N 7 tlusage

# --------------------------------------------------------------------------
# Buffer 4 - Holds the variable 't' for each toolpath segment
# ------------------------------------------------------------------------
rc4 : 1                                                            #  
wc4 : 1                                                            #  
fbuf 4 0 1 0 0  # Buffer 4                                         #  
# ------------------------------------------------------------------------
# Buffer 5 - Min / Max                                             #  
# ------------------------------------------------------------------------
b5_gcode : 0                                                       #  
b5_zmin  : 0                                                       #  
b5_zmax  : 0                                                       #  
rc5      : 2                                                       #  
wc5      : 1                                                       #  
size5    : 0                                                       #  
fbuf 5 0 3 0 0          #Min / Max                                 #  


# ------------------------------------------------------------------------
fmt  "X" 2  x_tmin      #Total x_min                               #
fmt  "X" 2  x_tmax      #Total x_max                               #
fmt  "Y" 2  y_tmin      #Total y_min                               #
fmt  "Y" 2  y_tmax      #Total y_max                               #
fmt  "Z" 2  z_tmin      #Total z_min                               #
fmt  "Z" 2  z_tmax      #Total z_max                               #
fmt  "Z" 2  min_depth   #Tool z_min                                #
fmt  "Z" 2  max_depth   #Tool z_max                                #
#-------------------------------------------------------------------------

#Call this in pwrtt$
pinittlcount  #Initialize tool count
     if t$ > 0,
       [
       wc1 = t$
       tlcount = wbuf(1, wc1) #Write tool usage counter to buffer file. Initial counter is zero.
       ]

#Call in tool change post block and start of file post block if it is mill 4 axis post
ptoolcounter  #Buffer tool usage count
       rc1 = t$
       tlcount = rbuf(1, rc1)  #Read tool usage counter for current tool
       tlcount = tlcount + 1   #Tool usage counter
       wc1 = t$
       tlcount = wbuf(1, wc1)  #Save tool usage counter to buffer file

ptlusageout #Output tool usage
       tlusage = t$ * 100 + tlcount
       tlusage




# --------------------------------------------------------------------------
ptoolcomment    #Comment for tool
      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
      if tool_info = 1 | tool_info = 3,
           sopen_prn, ~t$, "= ",pstrtool,  sclose_prn, e$
# --------------------------------------------------------------------------




psof$            #Place this in psof . Start of file for non-zero tool number             
      ptoolcounter  #Calculate tool usage counter
#----------------------------------------------------------------------
      ptravel                                                   #  
      pwritbuf5                                                 #  
      if output_z = yes$ & tcnt > 0,                            #  
        [                                                       #  
        sav_spc = spaces$                                       #  
        spaces$ = 0                                             #  
        "(", "OVERALL MAX = ", *z_tmax, ")", e$                 #  
        "(", "OVERALL MIN = ", *z_tmin, ")", e$                 #  
        spaces$ = sav_spc                                       #          
        ]                                                       #  
#----------------------------------------------------------------------





psof$            #Place this in Psof and Tool Change
ptlchg$          #Tool change
#-----------------------------------------------------------------------      
      if output_z = yes$,                                        #  
        [                                                        #  
        preadbuf5                                                #  
        if (opcode$ > 0 & opcode$ < 16) | opcode$ = 19,          #  
          [                                                      #  
          #sav_spc = spaces$                                     #  
          spaces$ = 0                                            #  
          "(", "MAX = ", *max_depth, ")", e$                     #  
          "(", "MIN = ", *min_depth, ")", e$                     #  
          spaces$ = sav_spc                                      #  
          ]                                                      #  
        ]                                                        #  
#-----------------------------------------------------------------------




#-------------------------------------------------------------------------
ptravel    # Tool travel limit calculation                         #
           if x_min$ < x_tmin, x_tmin = x_min$                     #
           if x_max$ > x_tmax, x_tmax = x_max$                     #
           if y_min$ < y_tmin, y_tmin = y_min$                     #
           if y_max$ > y_tmax, y_tmax = y_max$                     #
           if z_min$ < z_tmin, z_tmin = z_min$                     #
           if z_max$ > z_tmax, z_tmax = z_max$                     #

# ------------------------------------------------------------------------
# Buffer 5  Read / Write Routines                               
# ------------------------------------------------------------------------
pwritbuf5   # Write Buffer 5                                       #
            b5_gcode = gcode$                                      #
            b5_zmin = z_min$                                       #
            b5_zmax = z_max$                                       #
            b5_gcode = wbuf(5, wc5)                                #
# ------------------------------------------------------------------------
preadbuf5   # Read Buffer 5                                        #
            size5 = rbuf(5,0)                                      #
            b5_gcode = 1000                                        #
            min_depth = 99999                                      #
            max_depth = -99999                                     #
            while rc5 <= size5 & b5_gcode = 1000,                  #
              [                                                    #
              if rc5 <= size5, b5_gcode = rbuf(5,rc5)              #
              if b5_zmin < min_depth, min_depth = b5_zmin          #
              if b5_zmax > max_depth, max_depth = b5_zmax          #
              ]                                                    #
# ------------------------------------------------------------------------
pwrtt$          #Pre-read NCI file
      if tool_info > 1 & t$ > 0 & gcode$ <> 1003, ptooltable
      pinittlcount                                            #Initialize tool usage counter
      if t$ > 0, tcnt=tcnt+1                                  #
      ptravel                                                 #
      pwritbuf5                                               #
      #if t$ <> prv_t$ & t$ > 0, pwritebuf7                    #Buffer 7
# ------------------------------------------------------------------------


 

Hello.

I am the Mastercam Re-seller that sold this operator's company the V9 Upgrade.

With the order, I said I would tailor the Post for their old Agie W/C machines. Over a period of several weeks, I spent over 1.5 weeks of my time at NO COST to alter the Post to the W/C Operators satisfaction. They did not pay the account until this was signed off. (It had to output exactly like the Lama system in every detail.)

With the new Agie, I was told this was not an issue, as it was supplied with an ISO converter, that would automatically convert into it's new format.

After a couple of months, there emerged 2 bugs, one starting on arcs, which I set another post as a work around, and the other bug was not outputting all D or T registers when changed. All other aspects of the Post including multiple cavities, multiple angles, etc are working fine.

Yes, I have had another large project on that I could not leave, and I have not been back.

Perhaps a work order would be a good incentive!

If work is required to setup the new machine, this is a new matter.

Sometimes when you give time (with results) away, it is definitely not appreciated.

Alfred Salzmann