pz #输出直线运动的NC指令 - 进给 Z only pncoutput
pmx #输出NCI向量的NC指令 pncoutput
pcir #输出圆弧插补的NC指令 pncoutput
#
--------------------------------------------------------------------------
# Motion output components 运动输出组成 #
--------------------------------------------------------------------------
pbld #Canned text - 单节删除 if bld, '/'
pfbld #强制 - 单节删除 \
pccdia #切削补偿 #Force Dxx#
if prv_cc_pos <> cc_pos & cc_pos, prv_tloffno = c9k sccomp
if cc_pos, tloffno
pfxout #Force X axis output if absinc = zero, *xabs, !xinc else, *xinc, !xabs
pxout #X output
if absinc = zero, xabs, !xinc else, xinc, !xabs
pfyout #Force Y axis output if absinc = zero, *yabs, !yinc else, *yinc, !yabs
pyout #Y output
if absinc = zero, yabs, !yinc else, yinc, !yabs
pfzout #Force Z axis output if absinc = zero, *zabs, !zinc else, *zinc, !zabs
pzout #Z output
if absinc = zero, zabs, !zinc else, zinc, !zabs
parc #选择圆弧输出格式 if arcoutput = zero, [
#圆弧输出为 IJK i, j, k ] else, [
#圆弧输出为 R
if abs(sweep)<=180 | arcoutput=one, result = nwadrs(srad, arcrad)
else, result = nwadrs(srminus, arcrad) *arcrad ]
#
--------------------------------------------------------------------------
# Drilling 钻孔 #
--------------------------------------------------------------------------
pdrlcommonb #Canned Drill Cycle common call, before if gcode = 81, [
result = newfs (two, zinc)
if drillcyc = three, drlgsel = fsg1(-ss) + drillcyc * two else, drlgsel = fsg2(dwell) + drillcyc * two if initht <> refht, drillref = zero else, drillref = one prv_refht_a = c9k prv_refht_i = c9k ] z = depth
prv_zia = initht feed = fr_pos prv_dwell = zero @dwell
pcom_moveb comment pcan
prdrlout #R drill position refht_a = refht
refht_i = refht - initht
if absinc = zero, refht_a, !refht_i else, refht_i, !refht_a
pdrill #钻孔固定循环 pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, dwell, *feed, strcantext, e pcom_movea
ppeck #啄式钻孔固定循环 pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, *peck1, *feed, strcantext, e pcom_movea
pchpbrk #断屑固定循环 pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, *peck1, *feed, strcantext, e pcom_movea
ptap #攻螺纹固定循环 pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, *feed, strcantext, e pcom_movea
pbore1 #镗孔固定循环 #1 pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, dwell, *feed, strcantext, e pcom_movea
pbore2 #镗孔固定循环 #2 pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, *feed, strcantext, e pcom_movea
pmisc1 #Canned Misc #1 Cycle pdrlcommonb
pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, prdrlout, shftdrl, dwell, *feed, strcantext, e pcom_movea
pmisc2 #Canned Misc #2 Cycle (User Option) pdrill
pdrill_2 #Canned Drill Cycle, additional points pdrlcommonb
pcan1, pbld, n, pxout, pyout, pzout, prdrlout, dwell, feed, strcantext, e pcom_movea
ppeck_2 #Canned Peck Drill Cycle pdrill_2
pchpbrk_2 #Canned Chip Break Cycle pdrill_2
ptap_2 #Canned Tap Cycle pdrill_2
pbore1_2 #Canned Bore #1 Cycle pdrill_2
pbore2_2 #Canned Bore #2 Cycle pdrill_2
pmisc1_2 #Canned Misc #1 Cycle pdrill_2
pmisc2_2 #Canned Misc #2 Cycle pdrill_2
pdrlcst #自定义钻孔循环 8 - 19 (user option)
#Use this postblock to customize drilling cycles 8 - 19
pdrlcommonb
\ pcom_movea
pdrlcst_2 #自定义钻孔循环 8 - 19, additional points (user option) #Use this postblock to customize drilling cycles 8 - 19 pdrlcommonb
\ pcom_movea
pcanceldc #Cancel canned drill cycle result = newfs (three, zinc) z = initht
prv_zia = initht pxyzcout !zabs, !zinc prv_gcode = zero pbld, n, \ #
--------------------------------------------------------------------------
# Canned Text #
--------------------------------------------------------------------------
pcan #Canned text - before output call strcantext = sblank if cant_no > zero, [
if cant_pos1 = zero, pcant_1 if cant_pos2 = zero, pcant_2 if cant_pos3 = zero, pcant_3 if cant_pos4 = zero, pcant_4 if cant_pos5 = zero, pcant_5 if cant_pos6 = zero, pcant_6 if cant_pos7 = zero, pcant_7 if cant_pos8 = zero, pcant_8 if cant_pos9 = zero, pcant_9 if cant_pos10 = zero, pcant_10 pbld, n, strcantext, e strcantext = sblank ]