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

jud125

我想一次全部输出讯息可是只想一个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 ;

jud125