Hello, My boss would like me to modify the post to retract every 5 holes so we could do a check for some of our custom defined canned cycle. To do this, I need mastercam to pass to the post processor the number of holes the canned cycle wil machine. After opening the NCI, I could not find anything that contained the information for the number of holes. I did see that each hole is defined by nci gcode 100. I would like to know if there is a way for the post to count the number of Gcode 100 and put that value in a variable. How would I go by to count the number of Gcode 100 in the operation? Regards,

Hello guys. I am studying a way to configure the turning cycle G68 XZCDLMKFHSE Q. I managed to set almost the whole cycle, but the value of X and Z not yet. X and Z are the start profile. I know the generic pos mastercam calculates this, but I can not capture these values​​. Can someone give me a light on this. G0 X110. Z2.566 F.2 G68 X52.634 Z.097 C2. D.2 L.4 M.2 S10 E20 Q220 (Correctly) G68 X0. Z0. C2. D.2 L.4 M.2 S10 E20 Q220 (Wrongly) N10 X52.634 G1 Z.097 X55.297 Z-1.234 G3 X55.765 Z-1.8 R.8 G1 Z-7.372 Z-24.517 Z-32.604 Z-58.773 X63.639 Z-69.42 X97.127 Z-76.026 G3 X97.862 Z-76.32 R.8 G1 X99.723 Z-77.687 G3 X100. Z-78.137 R.8 G1 Z-104.726 N20 X110. G0 Z2.566 G0 X300. Z100. The values ​​that are coming X0 and Z0 should be X52.634 Z.097. I know that somehow these values ​​can be captured in this excerpt from post processor. But do not know how. formulate and test several already failed. prcc_setup$ #Lathe canned cycle setup #Capture values from rough sav_iprcc = c1_ipr_actv sav_feedcc = c1_fr_pos if orient$ = one|orient$ = two|orient$ = five|orient$ = 6, lccdirx = one else, lccdirx = m_one if orient$ = one|orient$ = four|orient$ = five|orient$ = 8, lccdirz = one else, lccdirz = m_one if lathecc > zero, cc_stop_fcc = one else, cc_stop_fcc = zero #G74/G75 if lathecc = three, [ lcc_xcst = vequ (copy_x) if dopeckcc = zero, [ depthcc = zero clearcc = zero ] if directcc > one, [ gcodecc = four grvspcc = stepcc grvdpcc = depthcc ] else, [ gcodecc = five grvspcc = depthcc grvdpcc = stepcc ] ] else, [ if n1_cc_pos, [ sav_xa = vequ(copy_x) #Shift for cutter comp. start position copy_x = copy_x + (lcc_move * lccdirx) copy_z = copy_z + (lcc_move * lccdirz) pcom_moveb compok = zero lcc_cc_pos = one ] else, lcc_cc_pos = zero ] sub_seq_typ$ = 0 prcc_call_st$ #Rough canned cycle start if tool_op$ <> 208, [ sav_subout = subout$ sav_omitsq = omitseq$ omitseq$ = one extprg$ = one subout$ = three ] prcc_call_end$ #Rough canned cycle end # Restore cc_1013 to the value it held prior to the rough # groove canned cycle. cc_1013 was changed in ptoolend. if tool_op$ = 208 | tool_op$ = 62, cc_1013$ = sav_cc_1013 if tool_op$ <> 208, [ omitseq$ = sav_omitsq #Close the ext file result = fclose (sbufname3$) #Open the ext file as a buffer #Use the size to determine the start and end sequence subout$ = sav_subout size3 = rbuf(three, zero) if omitseq$ = one, [ ng70s = n$ ng70e = n$ + seqinc$ ] else, [ if old_new_sw = zero, ng70s = n$ + seqinc$ else, ng70s = n$ + (seqinc$ * two) ng70e = ng70s + (seqinc$ * (size3 - one)) ] pwrite_g70 ] #Setup the stock and clearance directions g73x = vsub (lcc_xcst,lcc_xcend) if old_new_sw = zero, g73x = g73x else, g73x = g73x * dia_mult g73z = g73z xstckcc = xstckcc * dia_mult * lccdirx zstckcc = zstckcc * lccdirz clearcc = clearcc * lccdirz #Write the cycle definition sav_feed = feed sav_ipr = ipr_actv$ feed = sav_feedcc ipr_actv$ = sav_iprcc if lathecc = three, [ #Setup the previous position for inc. in G74/G75 cycle sav_xa = vequ(xabs) #Save the cycle end copy_x = vequ(lcc_xcst) #The cycle start raw pshft_map_xa pxyzcout ##The cycle start in machine terms ps_inc_calc #Recalculate incremental pe_inc_calc #Update previous at start xabs = vequ(sav_xa) #Restore the cycle end ps_inc_calc #Recalculate incremental ] if old_new_sw = zero, [ if gcodecc < three, pg71old if gcodecc = three, pg73old if gcodecc > three, pg74old ] else, [ if gcodecc < three, pg71new if gcodecc = three, pg73new if gcodecc > three, pg74new ] if lathecc = three, [ #Set the cycle end position at the original start copy_x = vequ(lcc_xcst) #The cycle start raw pshft_map_xa pxyzcout ##The cycle start in machine terms ps_inc_calc #Position at start pe_inc_calc #Update previous ps_inc_calc #Recalculate incremental ] feed = sav_feed ipr_actv$ = sav_ipr if tool_op$ <> 208, [ #Bug2 is off to prevent execution crashes with long strings bug2$ = zero #Write the cycle profile, sequence are written now rc3 = one while rc3 <= size3, [ #Write the lathe canned cycle profile string3 = rbuf (three, rc3) if rc3 = two, [ #Add the finish spindle speed to the first move speed = n1_ss pbld, *n$, *string3, e$ #*speed, ] else, [ if omitseq$ = one & rc3 = size3 + one, pbld, *n$, *string3, e$ else, pbld, n$, *string3, e$ ] ] #Close the buffer result = fclose (three) #Remove the ext file result = remove (sbufname3$) bug2$ = sav_bug2 ] pfcc_call$ #G70 recall output postblock if cc_stop_fcc = zero, [ pread_g70 if foundcc = zero, result = mprint(sfccerror) ] no_nc_out$ = zero cc_stop_fcc = zero pread_g70 #Read G70 recall buffer foundcc = zero size2 = rbuf (two, zero) wc2 = one while wc2 <= size2 & foundcc = zero, [ fcc_subid = rbuf (two, wc2) if fcc_subid = sub_op_id$, [ gcodecc = zero ng70s = fcc_ng70s ng70e = fcc_ng70e pbld, n$, *scclgcode, *ng70s, *ng70e, e$ foundcc = one ] ] pwrite_g70 #Write G70 recall buffer fcc_subid = sub_op_id$ fcc_ng70s = ng70s fcc_ng70e = ng70e fcc_subid = wbuf (two, rc2) I appreciate your cooperation in my learning.