PRM_XFORM clear variable

[bd41612]

Hi guys,

       So I'm trying to read parameter #15557, which is successful on the first read, but does not refresh.  For instance if I have a transform rotate operation, the variable xformtype will change from 0 to 13.  After the transform tool path it does not revert back to 0 and remains with a value of 13 through all subsequent operations.  I tried setting the value back to 0 at the tool change but that does not work.   The control definition is set to read parameters from transform and source parameters.  I'm assuming that since there is no parameter 15557 on subsequent operations that the pparameter$ post block does not read it.  Is there a way to clear this variable on the fly?

 

ltlchg$          #Toolchange, lathe
      xformtype = 0

 

 

pparameter$      #Information from parameters
      #"pwrttparam", ~prmcode$, ~sparameter$, e$
      if prmcode$ = 15145, metvals   = rpar(sparameter$,1)
      if prmcode$ = 15346, comp_type = rpar(sparameter$,1)
      if prmcode$ = 20103, stinsert2 = sparameter$
      if prmcode$ = 20110, stholder2 = sparameter$
      if prmcode$ = 10124, g71type = rpar(sparameter$,1)
      result = fprm (abs(lathecc))
     
      if prmcode$ = 20102, tool_orien = rparsngl(sparameter$, 1)
      if prmcode$ = 20102, tool_width = rparsngl(sparameter$, 4)
      if prmcode$ = 20108, tooltyp = rparsngl(sparameter$, 1)
      if prmcode$ = 20108, shank_dia = rparsngl(sparameter$, 3)
      if prmcode$ = 20108, tip_angle = rparsngl(sparameter$, 4)
      if prmcode$ = 20108, feed3 = rparsngl(sparameter$, 13)
      if prmcode$ = 20004, feed3 = rparsngl(sparameter$, 7)
      if prmcode$ = 10519, zstr = rpar(sparameter$, 1)
      if prmcode$ = 20100, bore_ident = rparsngl(sparameter$, 2)
      if prmcode$ = 20002, stinsert3 = sparameter$
      if prmcode$ = 20004, tooltyp = rparsngl(sparameter$, 2)
      if prmcode$ = 20007, shank_dia = rparsngl(sparameter$, 5)
      if prmcode$ = 20004, tip_angle = rparsngl(sparameter$, 8)
      if prmcode$ = 20001, stoname1 = sparameter$
      if prmcode$ = 20103, stoname1 = sparameter$
      if prmcode$ = 20100, scustootyp = rparsngl(sparameter$, 2)
      if prmcode$ = 20004, th_pitch = rparsngl(sparameter$, 7)
      if prmcode$ = 20004, cor_rad = rparsngl(sparameter$, 6)
      if prmcode$ = 20007, fl_len = rparsngl(sparameter$, 2)
      if prmcode$ = 15042, broachrep = rpar(sparameter$, 1)
      if prmcode$ = 15240, sOpSeqNo = sparameter$
      if prmcode$ = 15240, OpSeqNo = rpar(sparameter$, 1)
      if prmcode$ = 15387, leadin = rpar(sparameter$, 1)
      if prmcode$ = 10119, leadout = rpar(sparameter$, 1)
      if prmcode$ = 15351, axsub = rpar(sparameter$, 1)
      if prmcode$ = 20108, tldia = rparsngl(sparameter$, 2)
      if prmcode$ = 10020, clpln = rpar(sparameter$, 1)
      if prmcode$ = 15346, comptype = rpar(sparameter$, 1)
      if prmcode$ = 20108, ldia = rparsngl(sparameter$, 2)
      if prmcode$ = 15557, xformtype = rpar(sparameter$, 1)

 

 

Thanks in advance