后处理输出问题(版主请进)

我想一次全部输出讯息可是只想一个TP输出一个同一把刀的讯息并判别该TP里最小Z和最小预留量,该如何修改呢
* define private variables:
FORMAT (COORDINATES) Zinit Clear Depth cleard depthd;
FORMAT (COORDINATES) maxz minz surftol sidestep downstep ;
*FORMAT (COORDINATES) tooldia cornerr tapera CUT_LENGTH ;
FORMAT (COORDINATES) tooldia cornerr tapera ;
*FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
*FORMAT (USER_1)      CurrSubNum ;
*FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK ;
FORMAT (character)   TP_NAME PROC_NAME CURR_NAME ;
* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;
FORMAT (COORDINATES) unit maxzo minzo sideso downso  diao rado cuto clearo partto partoffo ;
FORMAT (COORDINATES) maxzop minzop ;
FORMAT (FEED)        feedo feedi ;
FORMAT (SPINDLE_SPEED) spino ;
* define private constants:
FORMAT (USER_2)      YES NO ;

********************************************************
NON_MODAL  ALL_VAR;
MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
MODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
MODAL      CUTCOM_ON  CUTCOM_OFF Z_UP Z_DOWN;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
MODAL      sidestep surftol downstep PART_TOL SIDE_STEP DOWN_STEP ;
      
IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
         OUTPUT \J ;
********************************************************

BEGINNING OF TAPE:

*      OUTPUT $ "TPN,PRN,CMT,PRNU,MAXZ,MINZ,STOL,SIDS,DOST,TN,POS,TFEE,SPIN,DIA,R," ;
*      OUTPUT "TAPER,CUTL,CRL,PRTOF" ;
      OUTPUT $ "Toolpath Name,Procedure Name,Comment,Procedure Number,Maximum Z Height," ;
      OUTPUT "Minimum Z Height,Surface Tolerance,Sidestep,Downstep,Toolname,Holder Number," ;
      OUTPUT "Feedrate,Spindle Speed,Tool Diameter,Corner Radius,Taper Angle,Flute Length," ;
      OUTPUT "Clear Length,Part Offset" ;
      YES              = 1 ;
      NO               = 0 ;
      MCH_FEED         = 0 ;
      surftol          = 0.0 ;
      sidestep         = 0.0 ;
      downstep         = 0.0 ;
      unit             = 1.0 ;      
      

*-----Unit matrix (MUST be input in this order !!!)
*      ROT_MAT1   = 1.0 ; ROT_MAT2   = 0.0 ; ROT_MAT3   = 0.0 ;
*      ROT_MAT4   = 0.0 ; ROT_MAT5   = 1.0 ; ROT_MAT6   = 0.0 ;
*      ROT_MAT7   = 0.0 ; ROT_MAT8   = 0.0 ; ROT_MAT9   = 1.0 ;



*--For the first origin change
*   ORIGOLDI=0 ; ORIGOLDJ=0 ; ORIGOLDK=1 ;
*   flagrotmac = no ;

*******************************************************************

        print0 \j "copy " part_name "." tp_name "." post_name " " part_name "." tp_name ".csv" ;
        print0 \j "del *." post_name;
        print0 \j DBL_QUOTE "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" DBL_QUOTE "/e " part_name "." tp_name ".csv" ;
        print0 \j "del *." post_name;
        print0 \j "del *.txt" ;
        print0 \j "del print0.bat" ;

BEGINNING OF PROC:
      
      maxz = -9999.0 ;
      minz =  9999.0 ;
      feedi = 1 ;         
      IF_SET (PFM_UNITS _EQ_ "MM")
      unit = 1.0 ;
      END_IF ;
      IF_SET (PFM_UNITS _EQ_ "INCH")
      unit = 1/25.4 ;
      END_IF ;
      
     
      KEEP   PROC_NAME ;
      SET_ON MCH_COOL ;


BEGINNING OF TLPATH:
       SET_ON  LIN_MOV CIRC_MOV ;

END OF PROC:
     
**************************************************************
* Specify data ouput for each procedure type
**************************************************************

      IF_SET ( PROC_NAME _EQ_ "PROFILE" )
      FirstTool = CURR_TOOL ;
      LastTool  = CURR_TOOL ;
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzop "," minzop ",Not Applicable," sideso "," ;
      OUTPUT  downso "," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT  CON_ANG "," cuto "," clearo ",Not Applicable" ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "POCKET" )
      FirstTool = CURR_TOOL ;
      LastTool  = CURR_TOOL ;
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzop "," minzop ",Not Applicable," sideso "," ;
      OUTPUT  downso "," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT  CON_ANG "," cuto "," clearo ",Not Applicable" ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "WCUT" )
      FirstTool = CURR_TOOL ;
      LastTool  = CURR_TOOL ;
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzop "," minzo "," partto ",Not Available," ;
      OUTPUT  downso "," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT  CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "ZCUT" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzop "," minzo "," partto "," sideso "," ;
      OUTPUT  downso "," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT  CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "SURMIL" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo "," partto "," sideso ;
      OUTPUT  ",Not Applicable," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT   CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "SRFPKT" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo "," partto "," sideso ;
      OUTPUT  ",Not Applicable," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT   CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "SURCLR" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo "," partto "," sideso ;
      OUTPUT  ",Not Applicable," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT   CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "SRFPRF" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo "," partto "," sideso ;
      OUTPUT  ",Not Available," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT   CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "CURVE_MX" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo ",Not Applicable,Not Applicable" ;
      OUTPUT  ",Not Applicable," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT   CON_ANG "," cuto "," clearo ",Not Applicable" ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "RULED_MX" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo ",Not Applicable,Not Applicable" ;
      OUTPUT  ",Not Applicable," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT   CON_ANG "," cuto "," clearo ",Not Applicable" ;
      END_IF ;
      IF_SET ( PROC_NAME _EQ_ "REMACHIN" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," maxzo "," minzo "," partto "," sideso "," ;
      OUTPUT  downso "," CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado "," ;
      OUTPUT  CON_ANG "," cuto "," clearo "," partoffo ;
      END_IF ;
   
     
********************************************************
*TOOL CHANGE: FIRST:
*      SET_ON  SPIN_SPEED SPIN_DIR ;
*-----save first tool number
*      FirstTool = CURR_TOOL ;
*      LastTool  = CURR_TOOL ;
  
*TOOL CHANGE:
*      SET_ON  SPIN_SPEED SPIN_DIR ;

*TOOL CHANGE: LAST:
*      SET_ON  SPIN_SPEED SPIN_DIR ;
*-----save last tool number
*      LastTool = CURR_TOOL ;


********************************************************
FEED:
      SET_ON MCH_FEED ;

********************************************************
*LINEAR MOTION: FAST:
*
*      SET_ON SPIN_SPEED SPIN_DIR ;
*     SET_ON CIRC_MOV NURBS_MOV ;
*      Xold = X_CURPOS ;
*      Yold = Y_CURPOS ;
*      Zold = Z_CURPOS ;

LINEAR MOTION:
      SET_ON SPIN_SPEED SPIN_DIR ;
      IF_SET (maxz _LT_ Z_CURPOS)
      maxz = Z_CURPOS ;
      END_IF ;
      IF_SET (minz _GT_ Z_CURPOS)
      minz = Z_CURPOS ;
      END_IF ;
      
*      SET_ON CIRC_MOV NURBS_MOV;
*      Xold = X_CURPOS ;
*      Yold = Y_CURPOS ;
*      Zold = Z_CURPOS ;

      IF_SET (feedi _LT_ MCH_FEED)
      feedi = MCH_FEED ;
      END_IF ;

*****************************
      maxzo  = maxz*unit;
      IF_SET ( PROC_NAME _NE_ "SURMIL" )
      IF_SET ( PROC_NAME _NE_ "SRFPRF" )
      IF_SET ( PROC_NAME _NE_ "SRFPKT" )
      IF_SET ( PROC_NAME _NE_ "SURCLR" )
      IF_SET ( PROC_NAME _NE_ "CURVE_MX" )
      IF_SET ( PROC_NAME _NE_ "RULED_MX" )
      IF_SET ( PROC_NAME _NE_ "REMACHIN" )
      maxzop  = Z_UP*unit;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      minzo  = minz*unit;
      IF_SET ( PROC_NAME _NE_ "SURMIL" )
      IF_SET ( PROC_NAME _NE_ "SRFPRF" )
      IF_SET ( PROC_NAME _NE_ "SRFPKT" )
      IF_SET ( PROC_NAME _NE_ "SURCLR" )
      IF_SET ( PROC_NAME _NE_ "CURVE_MX" )
      IF_SET ( PROC_NAME _NE_ "RULED_MX" )
      IF_SET ( PROC_NAME _NE_ "REMACHIN" )
      minzop  = Z_DOWN*unit;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      IF_SET ( PROC_NAME _NE_ "POCKET" )
      IF_SET ( PROC_NAME _NE_ "PROFILE" )
      IF_SET ( PROC_NAME _NE_ "CURVE_MX" )
      partto = PART_TOL*unit;
      END_IF ;
      END_IF ;
      END_IF ;
      IF_SET ( PROC_NAME _NE_ "RULED_MX" )
      sideso = SIDE_STEP*unit;
      END_IF ;
      IF_SET ( PROC_NAME _NE_ "SURMIL" )
      IF_SET ( PROC_NAME _NE_ "SRFPRF" )
      IF_SET ( PROC_NAME _NE_ "SRFPKT" )
      IF_SET ( PROC_NAME _NE_ "SURCLR" )
      IF_SET ( PROC_NAME _NE_ "CURVE_MX" )
      IF_SET ( PROC_NAME _NE_ "RULED_MX" )
      downso = DOWN_STEP*unit;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      END_IF ;
      feedo  = feedi*unit;
      spino  = SPIN_SPEED;
      diao   = DIAMETER_*unit;
      rado   = TOOL_RAD*unit;
      cuto   = CUT_LENGTH*unit;
      clearo = CLEAR_LENG*unit;
      IF_SET ( PROC_NAME _NE_ "POCKET" )
      IF_SET ( PROC_NAME _NE_ "PROFILE" )
      partoffo = PART_OFST*unit;
      END_IF ;
      END_IF ;

********************************************************
*CIRCULAR MOTION:
*          SET_ON SPIN_SPEED SPIN_DIR ;
*
*      DXcenter = X_CENTER - Xold ;
*      DYcenter = Y_CENTER - Yold ;
*      DZcenter = Z_CENTER - Zold ;
*   
*      SET_ON LIN_MOV NURBS_MOV ;
*      Xold = X_CURPOS ;
*      Yold = Y_CURPOS ;
*      Zold = Z_CURPOS ;

********************************************************
CYCLE: ON:
*      FlagSpin = NO ;
*      IF_SET (SPIN_SPEED) FlagSpin = YES ;
*      END_IF ;
*      IF_SET (SPIN_DIR)   FlagSpin = YES ;
*      END_IF ;
*      IF_SET (FlagSpin _EQ_ YES) SET_ON SPIN_SPEED SPIN_DIR ;
*     END_IF ;

      SET_ON X_CURPOS Y_CURPOS Z_CURPOS   ;
      SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED MCH_COOL ;
      SET_ON Zinit Depth Clear ;
      Zinit    = Z_CURPOS + CYC_DZINIT ;
      Depth    = Z_CURPOS - CYC_DEPTH ;
      Clear    = Z_CURPOS + CYC_CLEAR ;

      SET_ON  LIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
*      Xold = X_CURPOS ;
*      Yold = Y_CURPOS ;
*      Zold = Z_CURPOS ;

CYCLE:
      Depth = Z_CURPOS - CYC_DEPTH ;
      Clear = Z_CURPOS + CYC_CLEAR ;
     
      SET_ON  LIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
*      Xold = X_CURPOS ;
*      Yold = Y_CURPOS ;
*      Zold = Z_CURPOS ;

      

CYCLE: OFF:
      IF_SET (PFM_UNITS _EQ_ "MM")
      unit = 1.0 ;
      END_IF ;
      IF_SET (PFM_UNITS _EQ_ "INCH")
      unit = 1/25.4;
      END_IF ;

      cleard = clear*unit;
      depthd = depth*unit;
      feedo  = feedi*unit;
      spino  = SPIN_SPEED;
      diao   = DIAMETER_*unit;
      rado   = TOOL_RAD*unit;
      cuto   = CUT_LENGTH*unit;
      clearo = CLEAR_LENG*unit;
         
      IF_SET ( PROC_NAME _EQ_ "DRILL" )
      OUTPUT $ TP_NAME "," PROC_NAME "," PROC_CMNT "," PROC_NUM "," cleard "," Depthd ;
      OUTPUT ",Not Applicable,Not Applicable,Not Applicable," ;
      OUTPUT CURR_NAME "," CURR_TOOL ","  feedo "," spino "," diao "," rado ","  ;
      OUTPUT TOOL_ANGLE "," cuto "," clearo ",Not Applicable" ;
      END_IF ;

      SET_ON  LIN_MOV CIRC_MOV MCH_FEED ;
*      Zold = Zinit ;

********************************************************
*ORIGIN CHANGE:

*-----Save the first origin data for later use
*   IF_SET (FirstOriginChange _EQ_ YES )
*         XfirstOrigin      = X_ORIGIN  ;
*         YfirstOrigin      = Y_ORIGIN  ;
*         ZfirstOrigin      = Z_ORIGIN  ;
*         FirstOriginChange = NO        ;
*   END_IF ;

*.....distance between the rotation center and the ORIGIN
*      TRANS_MATX = X_ORIGIN - XfirstOrigin - X_MACH  ;
*      TRANS_MATY = Y_ORIGIN - YfirstOrigin - Y_MACH  ;
*      TRANS_MATZ = Z_ORIGIN - ZfirstOrigin - Z_MACH  ;

*.....check for change in orientation ( 4,5 axis positioining )
*    FlagError  = NO ;
*    Flagrotmac = no ;

*   IF_SET ( I_ORIGIN _NE_ ORIGOLDI ) FLAGROTMAC = YES ; END_IF ;
*   IF_SET ( J_ORIGIN _NE_ ORIGOLDJ ) FLAGROTMAC = YES ; END_IF ;
*   IF_SET ( K_ORIGIN _NE_ ORIGOLDK ) FLAGROTMAC = YES ; END_IF ;

*   IF_SET ( FLAGROTMAC _EQ_ YES )     FlagError  = YES ; END_IF ;

*   IF_SET (FlagError _EQ_ YES)
*       PRINT  \J "Error: ucs rotation was found in:" ;
*       PRINT  \J "       TP=" TP_NAME " PROC=" PROC_NUM " (" PROC_NAME ")" ;
*       PRINT  \J "Error: Cannot post ucs rotation toolpaths" ;
*       OUTPUT \J " M00 (Error: ucs rotation was found)" ;
*       OUTPUT \J " M00 (TP=" TP_NAME " PROC=" PROC_NUM " - " PROC_NAME ")" ;
*   END_IF ;

*   ORIGOLDI = I_ORIGIN ;
*   ORIGOLDJ = J_ORIGIN ;
*   ORIGOLDK = K_ORIGIN ;

********************************************************
*AXISCHANGE:
*    FlagError  = NO ;
*    IF_SET (AXIS_NUM  _GT_ 3)         FlagError = YES ; END_IF ;

********************************************************