I'm in for a Saturday afternoon.

So I will basically have to do a lathe point op to trick the previous op into thinking that the next op is a toolchange 

because if I don't create a fake TC then the previous op won't go into retract.

I guess I should of also said that this is from a MPLFAN post that I have modified to work for Doosan turning centers

with y-axis. I think this is a good start for pickoff cutoff ops but it needs a little work to be bulletproof. It also needs a few

more misc. int. to control things like spindle sync, dwell time, and feedrates. This also needs a misc. int. for indexing both

spindles in case of indexed geometry that needs to line up from one spindle to the next. This logic does not currently support

indexing of the spindles  but could easily be added with a misc. int. Any help to iron this out would be much appreciated as I am

trying to avoid using a macro for transfer stuff when I can simply output it at the pc.

Ok so below is the logic I have created in pchuck$ postblock for POCO.
It all works well with the wcs pickup on the face of the part only based on this logic.
My current problem is that I am trying to use the pickoff cutoff to do a bar pull with
the sub chuck but I want to pull the bar and then do a partial cutoff to relieve springing
in the part. I am going from a rough face op to a rough OD turning op and then a sub chuck
bar pull proceeded by partial cutoff. Well the problem is when you go from a rough OD turn
to the sub chuck bar pull it treats the chuck op as a null toolchange and there is no retract
in my previous OD turning op. How do I force a toolchange in a chucking op when there is no 
option to do that. I would rather keep the cutoff after the bar pull as the part has little
to no tolerance and I dont want to distort the part while grabbing it with the sub. I am
only leaving about .06" with the partial cutoff. What logic would I have to use in pchuck$
in order to apply a forced toolchange but only when I go from a turning op to a chucking op.



pchuck$							#NCI CODE = 903

#AVAILABLE VARIABLES:		#DEFINITIONS
	  
#clmp_spindle$, e$		#ACTIVE SPINDLE FOR CLAMP/UNCLAMP:
	  			#(0=LEFT SPINDLE, 1=RIGHT SPINDLE)
								
#clmp_op$, e$			#SELECTED OPERATION MODE:
	  			#(0=CLAMP, 1=UN-CLAMP, 2=RE-POSITION, 3=EJECT)
							
#stck_chuk_st_z$, e$		#INITIAL Z AXIS CHUCK POSITION
#stck_chuk_st_x$, e$		#INITIAL X AXIS CHUCK POSITION
#stck_chuk_end_z$, e$		#FINAL Z AXIS CHUCK POSITION
#stck_chuk_end_x$, e$		#FINAL X AXIS CHUCK POSITION
	       
pheader$
	  
      if stck_chuk_st_z$ <> stck_chuk_end_z$,                         		#IF CHUCK START POSITION "IS NOT" CHUCK END POSITION
        [
        if toolchng <> two,
        #ptoolend$
        toolend_flg = one                    					#DO NOT EXECUTE ptoolend AGAIN AFTER TRANSFER
        ]
      else,
      toolend_flg = one                         				#DO NOT EXECUTE ptoolend AGAIN AFTER TRANSFER
	  
      !spaces$
      spaces$ = one
	  
      if stck_spindle$ = 0,							#MAIN SPINDLE- PICKOFF/CUTOFF OP (SYNCED)
        [
	if clmp_spindle$ = 1 & clmp_op$ = 1 | clmp_op$ = 3,			#SUB SPINDLE- UNCLAMP OR EJECT OP
	  [
	  pbld, n$, "M131", e$							#INTERLOCK BY-PASS FOR SUB CHUCK
	  pbld, n$, "M203", e$							#SPINDLE FORWARD SPEED SYNC ON
	  if clmp_op$ >= one,							#SUB CHUCK- UNCLAMP
      	  pchuck_unclamp
	  ]	  
	    
        if clmp_spindle$ = 1 & clmp_op$ = 2,					#SUB SPINDLE- REPOSITION (FEED) OPS
	  [
          if stck_chuk_st_z$ > 0 & stck_chuk_end_z$ > 0,			#SUB SPINDLE- APPROACH (B-AXIS)
            [
	    gcode$ = 0
	    pbld, n$, *sgcode, *stck_chuk_end_z$, e$								
	    ]
		  
	  if stck_chuk_st_z$ > 0 & stck_chuk_end_z$ < 0,			#SUB SPINDLE- PICK-OFF/FEED ON (B-AXIS)
	    [
	    sav_gcode = gcode$
	    gcode$ = 1
	    ipr_actv$ = 0
	    pbld, n$, "M86", "(TORQUE SKIP ON)", e$				#TORQUE SKIP ON
	    pbld, n$, sgcode, sgfeed, *stck_chuk_end_z$, miscops_mr2$, e$       #FEED ON MOVE (MR2- FEED ADJUST)
	    pbld, n$, "M87", "(TORQUE SKIP OFF)", e$				#TORQUE SKIP OFF
	    gcode$ = sav_gcode
	    ]
			
	  if stck_chuk_st_z$ < 0 & stck_chuk_end_z$ < 6,			#SUB SPINDLE- PULL STOCK (B-AXIS)
	    [
	    gcode$ = 1
	    ipr_actv$ = 0
	    pbld, n$, sgcode, sgfeed, *stck_chuk_end_z$, miscops_mr2$, e$
	    ]
	  ]
	      
	if clmp_spindle$ = 1 & clmp_op$ = 0,					#SUB SPINDLE- CLAMP
	  [
	  if clmp_op$ = zero | clmp_op$ = two,
      	  pchuck_clamp
	  pbld, n$, "G4", "X.5", *scoolantx, e$				        #DWELL, COOLANT ON
	  ]
			
	if clmp_spindle$ = 0 & clmp_op$ = 1,				        #MAIN CHUCK- UNCLAMP
	  [
	  pbld, n$, "M31", e$						        #INTERLOCK BY-PASS FOR MAIN CHUCK
	  pchuck_unclamp
	  ]
			
	if clmp_spindle$ = 0 & clmp_op$ = 0,				        #MAIN CHUCK- CLAMP
	  pchuck_clamp
		  
	if stck_chuk_st_z$ < 0 & stck_chuk_end_z$ > 8,			        #RETRACT
	  [
	  gcode$ = 0
	  pbld, n$, sgcode, *stck_chuk_end_z$, sall_cool_off, e$								
	  pbld, n$, "M206", e$						        #SPINDLE FORWARD SPEED SYNC OFF
	  pbld, n$, "M5", "P11", e$											
	  pbld, n$, "M5", "P13", e$											
          pbld, n$, *sg28ref, "U0.", "W0.", "B#5004", e$						
	  ]
	]
	  
	spaces$ = prv_spaces$