坐标设置

duolzw

ptlchg1002$      #Call at actual toolchange, end last path here                        
      if op_id$ <> prv_op_id$, pset_mach   #Read machine def parameters
3 b& m% k% Q; P) j; ^      pspindle
      whatline$ = four #Required for vector toolpaths
      if gcode$ = 1000,
        [
        #Null toolchange
( c  b9 z6 V8 H* x; e) m        ]
7 f. o/ {# p$ d6 f9 j' o2 t      else,
4 f8 [% @$ Y* b& X6 |( \  j        [
        #Toolchange and Start of file
        if gcode$ = 1002,
, p: Y# R6 t+ G# k% \7 f  y          [
% H& h; ~9 }* R3 P4 J( X          #Actual toolchange
1 L' F% A7 f1 q          pretract
          ]
. z5 f4 A1 F" A# m& E& @  l6 _        if stagetool = one, prv_next_tool$ = m_one
        prv_xia = vequ(xh$)
        prv_feed = c9k
2 I% ], c2 A8 c        ]
& F* T' a1 }# B' K% g! X" I      !op_id$

" g* K) K* t+ I( s: A3 E: [1 w# --------------------------------------------------------------------------
. ]5 `+ K  o, t# Motion NC output
) @; S! c- r4 @# y) O8 d# --------------------------------------------------------------------------
#The variables for absolute output are xabs, yabs, zabs.
#The variables for incremental output are xinc, yinc, zinc.
  Q0 ?  D2 ?- ~3 n# --------------------------------------------------------------------------
prapidout       #Output to NC of linear movement - rapid               
+ e1 @1 p5 `' W' @! c* K      pcan1, pbld, n$, sgplane, `sgcode, sgabsinc, pccdia,
: g; i5 D1 Q( g$ c  Q% X        pxout, pyout, pzout, strcantext, scoolant, e$
! O! s# R6 {2 V% A% N/ K6 P! s      #Modify following line to customize output for high-speed toolpath
3 x2 P8 w: j( O, n6 M      #tool inspection/change points
' t) v+ f0 P4 f      if rpd_typ$ = 7, pbld, n$, "M00", "(TOOL INSPECTION POINT - POST CUSTOMIZATION REQUIRED)", e$
6 W: v, U1 }) `7 {- ]0 T7 M9 w
plinout         #Output to NC of linear movement - feed                    
      pcan1, pbld, n$, sgplane, `sgcode, sgabsinc, pccdia,
0 v  q' K; m) }- w, \! V        pxout, pyout, pzout, feed, strcantext, scoolant, e$
      #Modify following line to customize output for high-speed toolpath
  m; [8 v* r1 C, k2 Y      #tool inspection/change points
      if rpd_typ$ = 7, pbld, n$, "M00", "(TOOL INSPECTION POINT - POST CUSTOMIZATION REQUIRED)", e$
5 ]( q: R6 R- X9 }
1 B& s3 `" K, Y9 J, U$ C& npcirout         #Output to NC of circular interpolation
1 X/ R9 u9 x2 l$ ~      pcan1, pbld, n$, sgplane, sgcode, sgabsinc, pccdia,
: X3 `' g0 Y7 x! b9 W        pxout, pyout, pzout, parc, feed, strcantext, scoolant, e$
9 @: h) g5 b1 }3 l3 v, L. e
3 H  u7 r2 [8 G0 ]( dpcom_moveb      #Common motion preparation routines, before
      pxyzcout
      ps_inc_calc
% P0 M, G. ^0 f/ ?' b
pncoutput       #Movement output
' g3 ^3 ]" u' h/ S* k      pcom_moveb
1 Q5 p9 }5 S. l% I$ @* m      comment$
      pcan
      if gcode$ = zero, prapidout
      if gcode$ = one, plinout
      if gcode$ > one & gcode$ < four, pcirout
# d* s# m5 V& Z: ^1 L3 `8 x      if mr_rt_actv, #Restore absolute/incremental for G51/G68
        [
        absinc$ = sav_absinc
        mr_rt_actv = zero
        ]
      pcom_movea

pcom_movea      #Common motion preparation routines, after
5 H& J: n1 f, n! |6 S' p0 S      pcan2
      pe_inc_calc

pdwl_spd$        #Call from NCI gcode 4
      pspindle
      comment$
- K; U5 I4 Y, O, h/ i      pspindchng
8 v9 ?5 x2 c& S6 {4 }% I9 f      pcan
7 E) N$ U* L* z2 D, O' F      if fmtrnd(dwell$), pcan1, pbld, n$, *sgcode, *dwell$, strcantext, e$
8 m6 V+ s' E9 J2 d      else, pcan1, pbld, n$, strcantext, e$
      pcan2

prapid$          #Output to NC of linear movement - rapid               
# h# F" o, r' W  Z/ G, a0 \      pncoutput
" e+ ^  d; @) c, q% i
pzrapid$         #Output to NC of linear movement - rapid Z only   
      pncoutput
5 i# l5 f. [# x' d% L- K9 ~
plin$            #Output to NC of linear movement - feed                    
6 W, Y6 v/ \7 F" ]      pncoutput

3 t8 c0 j3 w! X& m% cpz$              #Output to NC of linear movement - feed Z only         
! e% ^* ?  U) A2 Z      pncoutput

pmx$             #Output to NC of vector NCI         
* r7 ]& j4 [3 u# e      pncoutput
- y" X( D3 e5 V( C  x3 Y
  V* ~7 x$ B5 K2 spcir$            #Output to NC of circular interpolation                                
      pncoutput

duolzw

# --------------------------------------------------------------------------
1 K" G$ m: _8 @- F/ i8 r# Motion output components
# --------------------------------------------------------------------------
. ^- M/ |" I  Y( F5 g4 Wpbld            #Canned text - block delete
      if bld, '/'

pfbld           #Force - block delete
" b1 B/ b% s0 }6 N" d& ]      "/"
/ t6 o1 a* U% D0 d+ V. r# N
pccdia          #Cutter Compensation
      #Force Dxx#   
      if prv_cc_pos$ <> cc_pos$ & cc_pos$, prv_tloffno$ = c9k
: W2 |( D% h6 R2 Y3 L      sccomp
      if cc_pos$, tloffno$

0 x2 m3 @* L2 d2 w, g/ Spfxout          #Force X axis output
1 V; R4 r( `3 d3 a# c      if absinc$ = zero, *xabs, !xinc
      else, *xinc, !xabs
7 P. }  |! T5 m) K$ A
pxout           #X output
  q- s& O+ R2 i8 L      if absinc$ = zero, xabs, !xinc
      else, xinc, !xabs
4 Z! d4 u' O" m4 g2 k4 x9 Z
pfyout          #Force Y axis output
      if absinc$ = zero, *yabs, !yinc
) O$ A4 o4 X( ~& {- [3 a      else, *yinc, !yabs
+ d6 Q- c! D/ b# R& x0 z+ C0 E( R
2 d: T9 A0 c' g. c1 ~+ _: P" Cpyout           #Y output
8 y0 A: M& J7 {      if absinc$ = zero, yabs, !yinc
/ ~# [& V( U6 L9 ~' b$ W) N      else, yinc, !yabs
/ G- D* T" @5 Q2 P3 A$ {; r
pfzout          #Force Z axis output
6 y- D* G2 G) b5 K6 `      if absinc$ = zero, *zabs, !zinc
      else, *zinc, !zabs
: ?* }7 ~6 ~( I4 s2 C( o5 H7 q
pzout           #Z output
  w# s, w+ G& ?5 Z) B' l$ ~      if absinc$ = zero, zabs, !zinc
      else, zinc, !zabs

0 {! G" T2 r# H6 _0 oparc            #Select the arc output
# _7 Z. R6 Q1 {1 P      if (plane$ = zero & (arctype$ = one | arctype$ = four)) |   #XY Plane
        (plane$ = one & (arctypeyz$ = one | arctypeyz$ = four)) | #YZ Plane
0 x5 J9 m% `! F4 {  @) N! }$ `        (plane$ = two & (arctypexz$ = one | arctypexz$ = four)),  #XZ Plane
; J6 T* b3 y0 v9 m0 F        [
        result = newfs(two, iout)
1 F1 P5 x1 o* ?& s4 v! G        result = newfs(two, jout)
        result = newfs(two, kout)
4 M3 C% R0 c" Q5 q& d8 Z/ b        ]
      else,
" h9 I5 k$ Y) v9 l; w$ x9 n        [
        result = newfs(three, iout)
        result = newfs(three, jout)
& l8 T! Z3 O  e, S/ t- H3 L        result = newfs(three, kout)
1 Y" |( e  T+ ^$ ]  ^! Y- W        ]
      if (plane$ = 0 & arctype$ < five) | (plane$ = 1 & arctypeyz$ < five) |
        (plane$ = 2 & arctypexz$ < five) | full_arc_flg$ | arc_pitch$,
        [
        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
        # remove the "*" asterisks on the *i, *j, *k 's below...
5 Z, X6 u' Q$ n% t3 D, t0 f. p& L        if plane$ = zero, *iout, *jout, kout #XY plane code - G17
9 c5 [" E: x( w) n        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
3 S6 c1 @! |) _( a2 `3 g        !i$, !j$, !k$
        ]
      else,
$ D9 [8 \1 D6 j' m* F" Z( C5 P        [
) w# q% G5 L0 H" t/ B        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]

duolzw

# --------------------------------------------------------------------------
# Drilling
# --------------------------------------------------------------------------
pdrlcommonb     #Canned Drill Cycle common call, before
      if initht$ <> refht$, drillref = zero
      else, drillref = one
( n5 [7 U' N% V0 @6 R, L      if gcode$ = 81,
        [
( L, J4 e1 w+ _7 g, F1 @3 x% `        result = newfs(two, zinc)
( _3 \! E# k2 C, S0 N        if drillcyc$ = three | drillcyc$ = 7, drlgsel = fsg1(-ss$) + drillcyc$ * two
        else, drlgsel = fsg2(dwell$) + drillcyc$ * two
        prv_refht_a = c9k
        prv_refht_i = c9k
        prv_dwell$ = zero
  f3 k! v8 c9 ~/ h        prv_shftdrl$ = zero
+ l, [" Q! ^# u( A0 ~        ]
5 A; d/ z* p' s+ P; {5 ~  L      z$ = depth$
1 `3 U. g. N5 C) S# q      prv_zia = initht$
      pcom_moveb
' W5 i1 H* Q; J  s. `6 E      feed = fr_pos$
  ]( ?9 e" |' \9 x      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
5 a/ o8 y! {! k" Q2 Z
: n/ n2 v! B9 F" b) Npdrill$          #Canned Drill Cycle
      pdrlcommonb
# q  J+ U+ k5 u, O      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, dwell$, *feed, strcantext, e$
      pcom_movea
. \% [3 b4 Q8 F! _( V
- i7 g. {6 ]- n# ]* z% S% {1 V0 Sppeck$           #Canned Peck Drill Cycle
4 _# G2 B! q$ _1 C9 d& T      pdrlcommonb
$ R* L' E5 n* c; P* g3 Q' [      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
2 X) x( A: B0 L        prdrlout, *peck1$, *feed, strcantext, e$
  S; k$ V7 b1 {      pcom_movea
0 M: a- x0 Q- W, \2 T
& [; B3 U3 o: c0 vpchpbrk$         #Canned Chip Break Cycle
4 f# A& F# o) v+ [5 D      pdrlcommonb
& d$ d# q; g4 A      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
' J/ I4 x% n* x        prdrlout, *peck1$, *feed, strcantext, e$
6 ?$ u: G  y2 B4 A7 l      pcom_movea

ptap$            #Canned Tap Cycle
& j6 w  F9 j2 I3 T; s# d      pdrlcommonb
- b( x$ ^- H3 O3 A7 s0 b      result = newfs(17, feed)  # Set for tapping Feedrate format
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
# q5 N1 h7 R1 P" k4 V7 {* S" @        prdrlout, *feed, strcantext, e$
+ }! b1 G+ w$ d: _      pcom_movea

4 {; P. \! Z# G7 c  L& d& ypbore1$          #Canned Bore #1 Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
% C: o% }. Z2 z, k1 U        prdrlout, dwell$, *feed, strcantext, e$
      pcom_movea
# ~! v. m& r. }5 G
! `7 `* @8 ~' Z, ypbore2$          #Canned Bore #2 Cycle
: }' {! L% w/ C6 F: \      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
1 p- C+ r# x8 @" B9 ?% U        prdrlout, *feed, strcantext, e$
      pcom_movea

pmisc1$          #Canned Fine Bore (shift) Cycle
7 R+ _' l* @0 H  ~6 b9 ]      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
& N% o" d0 m8 s  f      pcom_movea

pmisc2$          #Canned Rigid Tapping Cycle
# O5 `# k! \# i" @) e      pdrlcommonb
      #RH/LH based on spindle direction
7 y' v6 q2 E0 |7 v7 a/ |! j8 x      pbld, n$, sg95, e$
      pbld, n$, sm29, *speed, e$
      if met_tool$, pitch = n_tap_thds$  #Tap pitch (mm  per thread)
4 y/ B, P5 V3 u6 ~2 K      else, pitch = 1/n_tap_thds$        #Tap pitch (inches per thread)
1 \2 a$ E5 o1 l2 x2 i$ d: Q) s      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, *pitch, !feed, strcantext, e$
8 d! }7 t) O/ N: E# m2 X- r      pcom_movea
& Y6 T% D! m) J& S
pdrlcst$         #Custom drill cycles 8 - 19 (user option)
7 Y; L2 N0 O$ Y) x* Z/ C      #Use this postblock to customize drilling cycles 8 - 19
1 h3 R( H' c) _4 N      if drillcyc$ = 8, pdrlcst8
( @% K$ ]  P/ i" T      else,
        [
        pdrlcommonb
        sopen_prn, "CUSTOMIZABLE DRILL CYCLE - NOT CONFIGURED - FIRST HOLE", sclose_prn, e$
        pcom_movea
: q" ^; Q8 M8 Z( s3 m        ]
1 C' C7 m# T# ~3 T2 s- t/ l
# y  p+ |# T& kpdrlcst8         #Custom drill cycle 8 - example custom cycle
+ K  y* O9 A% v) {      pdrlcommonb
: @7 z% k" P! r- s      sopen_prn, "CUSTOMIZABLE DRILL CYCLE EXAMPLE - FIRST HOLE", sclose_prn, e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
+ f7 I" {, ?6 l4 B        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
      pcom_movea
6 @6 c) A, ^* H/ q( D( l
2 X/ U' W! x6 r- }; t& Q9 |# Additional Holes
4 J7 _8 x$ D# x1 C' n- Z& kpdrill_2$        #Canned Drill Cycle, additional points
      pdrlcommonb
      pcan1, pbld, n$, pxout, pyout, pzout, prdrlout, feed, strcantext, e$
0 O5 B/ _/ a6 F9 N3 o# K" K      pcom_movea

ppeck_2$         #Canned Peck Drill Cycle
3 z/ M2 l/ ?/ V/ h2 X      pdrill_2$

pchpbrk_2$       #Canned Chip Break Cycle
5 A) S! c+ a6 A      pdrill_2$

ptap_2$          #Canned Tap Cycle
0 @8 o; @+ _4 B) n2 P& O; N9 x  e      pdrill_2$

pbore1_2$        #Canned Bore #1 Cycle
      pdrill_2$

pbore2_2$        #Canned Bore #2 Cycle
& [' F$ U) ?# `& G& {      pdrill_2$

pmisc1_2$        #Canned Fine Bore (shift) Cycle
      pdrill_2$
6 `% ]5 z, w# @6 W* e
pmisc2_2$        #Canned Rigid Tapping Cycle
2 e- h1 C  J- |% ~: D) C      pdrlcommonb
" H/ D5 \* L9 [, V: ^      pcan1, pbld, n$, pxout, pyout, pzout, prdrlout, strcantext, e$
$ i2 w" h, ]3 u  ?" l( H      pcom_movea
$ M( V* Q. B/ W8 y& }6 e1 C& r
pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)     
' {4 Q$ r! H( {& L      #Use this postblock to customize drilling cycles 8 - 19
- B2 H9 @0 ]9 u" H3 n* x, R6 {      if drillcyc$ = 8, pdrlcst8_2
      else,
' r. n2 G# F% k) l, X2 T        [
" d3 j- G% i% ^4 z        sopen_prn, "CUSTOMIZABLE DRILL CYCLE - NOT CONFIGURED - NEXT HOLE", sclose_prn, e$
        pdrill_2$
* Q9 m8 ]: R8 c  [8 z0 S. F        ]

pdrlcst8_2       #Custom drill cycle 8 - example custom cycle
7 w9 X9 o5 R# j+ z: ~! ?      sopen_prn, "CUSTOMIZABLE DRILL CYCLE EXAMPLE - NEXT HOLE", sclose_prn, e$
      pdrill_2$
& B9 ?* z! t( H+ @# F; ~4 I/ g
4 m  C( i% K$ L/ d( T% fpcanceldc$       #Cancel canned drill cycle
      result = newfs(three, zinc)
2 s; ~+ F% h. [; T" D      z$ = initht$
* O! N2 B+ j. }3 v" ~4 h      prv_zia = initht$
      pxyzcout
3 b7 a8 [4 m; a# |      !zabs, !zinc
      prv_gcode$ = zero
      pcan
      pcan1, pbld, n$, sg80, strcantext, e$
$ i* _3 y3 p3 {- G$ o' Q& M# q      if drillcyc$ = 7, pbld, n$, sg94, e$
2 q6 f: q  f4 U% d      pcan2

duolzw

# --------------------------------------------------------------------------
#Subprogram postblocks
#sub_trnstyp - 0=mirror, 1=rotate, 2=scale, 3=translate
#sub_trnmthd (mirror) - 0=X axis, 1=Y axis, 2=line
% w5 X6 r, n# p, P#sub_trnmthd (rotate) - 0=tplane, 1=tplane origin only, 2=coordinates
3 s: N$ u& Z" e, k% ?, \# --------------------------------------------------------------------------
psub_call_m$     #Call to main level, single tool
: g) c, {* [9 s- p" X      psub_call_trans

psub_call_mm$    #Call to main level, multiple tools
% e" u* g( Q8 w; k) d3 X5 `. X      psub_call_trans
1 l; D! A' _4 o" Q0 V9 Y
% W1 F0 Z, d* ?2 n% bpsub_call_trans #Translate level calls from toolchange, user
% k, B5 M2 g/ C; M      if mi1$ <= one, result = mprint(shomeserror)
$ m1 Q0 R9 i  G1 g* u/ [      sav_absinc = absinc$
) e9 D; @. P; b3 v      #Mirror or Rotate Coord's
      if sub_trnstyp$ = zero | (sub_trnstyp$ = one & mr_rt_actv),
        [
        #The original pattern is not mirrored or rotated
9 G% v# u$ t) n0 c        if sub_sec_no$,
          [
, \! d3 I2 {& f& n          absinc$ = zero
          if sub_trnstyp$, psub_rotate
. O2 U. V" `3 v3 s0 t          else, psub_mirror
          ]
6 ]2 G: c5 f3 l3 ^- r        mr_rt_actv = three
        ]
      else, #Translate
        [
        if sub_mny_t$,
' A! }" Y1 \1 v1 B6 C4 ~          [
1 l1 b- O: [: J) p2 i$ j8 F9 s          if mi1$ > one, absinc$ = zero
, ]) F) U0 u) w$ w. t          pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
9 Z7 s( a! o: r7 t1 N          pe_inc_calc
          ps_inc_calc
          ]
        ]
      absinc$ = sav_absinc
! A) v$ D9 N/ f+ c: U7 c6 c8 ^      result = nwadrs(strp, main_prg_no$)
" G  J- m0 U# m& Z      if progno$ = main_prg_no$, result = mprint(sprgnerror)
6 _; [1 g* j& |& w+ X- p" b      pbld, n$, "M98", *main_prg_no$, e$
. B( A7 A$ A6 g! T. W* t      prv_feed = c9k #Force feed in sub

psub_mirror     #Mirror start code, user
      #Mirror Y axis
1 T8 J& p& e) s0 P4 M! G      if sub_trnmthd$, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsx$, e$
7 \; i/ q4 [8 q: R      #Mirror X axis
( h- s$ b2 K" z, r' v      else, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsy$, e$
8 S" w9 a4 }: c: v6 E5 _$ F, n
0 Q% j6 R) ]0 O' |. y. p" m5 Vpsub_rotate     #Rotate start code, user
1 o. J- F' K- j) B# Q4 b& r      pbld, n$, *sgcode, *sgabsinc, strns_rot_on, *sub_trnsx$, *sub_trnsy$,
        [absinc$ = one], *sgabsinc, e$
2 @2 q5 }3 Q6 x1 l  @- D1 }# r
. n- s/ {1 r/ J) B* j2 |psub_st_m$       #Header in main level
& A; D5 v/ s4 |" u; A1 ]3 P      result = nwadrs(stro, main_prg_no$)
      " ", e$
      *main_prg_no$, e$
) r1 R3 H/ M& E5 _      #G51/G68 requires absolute position on first move
      if mr_rt_actv & absinc$ = one,
/ z% t% _- K: Y3 N# V# {: Z        [
        sav_absinc = absinc$
        absinc$ = zero
7 g9 r: ?, S1 l0 ~) n        prv_absinc$ = m_one
) L6 }4 h, \6 I, t( @" q/ a        prv_xabs = m_one
        prv_yabs = m_one
4 V# _# z6 ^0 Q; o        ]
+ J. Z! V) _4 \0 e' j      else, pbld, n$, sgabsinc, e$

psub_end_m$      #End in main level
; Z+ Y7 p5 `* x) i% O      n$, "M99", e$
, k4 j7 z" y$ H% k      prv_absinc$ = -1
      #Reset update variables for subs at main level
      #Mirror or Rotate cancel, output is forced
& m; Y' a5 a* {! E3 P      if (sub_trnstyp$ = zero & esub_sec_no$ > zero)
: e1 G* l) a- }8 D3 z$ u        | (sub_trnstyp$ = one & esub_sec_no$ = esub_totl_no$-one
        & sub_trnmthd$ = two),
. B5 l( R# [1 }8 L; H        [
3 G) F' @; i: t        subout$ = zero
        no_nc_out$ = m_one
        sav_absinc = absinc$
        #Mirror cancel
# o0 C: C! a! A        if sub_trnstyp$ = zero,
% L/ n* Q  J* |6 s/ ^4 R7 c8 J          [
" Q4 D" _+ L/ k$ i          absinc$ = zero
          pbld, n$, *sgabsinc, strns_mir_off, *sub_trnsx$, *sub_trnsy$, e$
( ?! s5 M$ k, |! Z5 q          ]
        else, #Rotate cancel
          [
) T; _) ]% O# S* |' n" ^          pbld, n$, strns_rot_off, e$
7 a1 Y- ?: X2 K' O, ^* M          ]
        absinc$ = sav_absinc
0 ?4 A5 t6 e6 L, M* t. \; ?1 U4 ?* T        no_nc_out$ = zero
/ b" J- y9 i1 ]* ^) x' ~        ]
, h& I2 X& _7 c      end_sub_mny = sub_mny_t$
" |* Z8 @5 `9 x8 f1 d; P) c0 z4 e
: ]7 `  u; B5 q- }psub_end_mny    #End in main level for many tools sub, user
      #Check for coming out of xform with stage tool.
3 A+ D0 l' I* A2 {6 K1 X      if end_sub_mny & stagetool = one,
/ ?) B3 k. f7 B4 F- s        [
        *t$
0 V% H% m" S* p' }7 U        end_sub_mny = zero
3 Y6 J/ s# a( ~3 A, u        ]
+ J; P; _; ]# U3 y* a
. F& a2 Y; p8 Epsub_call_s$     #Call to sub level
      result = nwadrs(strp, sub_prg_no$)
      sub_prg_no$ = sub_prg_no$ + 1000 #Add sub number offset
      if progno$ = sub_prg_no$, result = mprint(sprgnerror)
- [6 C# }7 y2 i( G; _% x      pbld, n$, "M98", *sub_prg_no$, e$

$ j3 H, l7 B# vpsub_st_s$       #Header in sub leveln
. Y1 b, x# p/ R      result = nwadrs(stro, sub_prg_no$)
6 K/ N/ m5 [+ n: `- ~- h) N      " ", e$
) B% W) U# Y; b- v9 S8 x( ~- _      *sub_prg_no$, e$
      pbld, n$, sgabsinc, e$

& ]0 M/ P7 u; X! fpsub_end_s$      #End in sub level
& w' x* i5 j5 O' b5 q1 c      n$, "M99", e$
1 D4 d/ o! f" t2 g      prv_absinc$ = -

duolzw

# --------------------------------------------------------------------------
6 H7 U) c* q5 s# {# s" I# Canned Text
, A0 c( I% I' b3 C; L7 }* ^# --------------------------------------------------------------------------
% {. d! l8 y, o1 gpcan            #Canned text - before output call
, ?1 k0 L4 g" |$ [1 |: Y6 c, n      strcantext = sblank
3 u$ L  e# @! m$ B      if cant_no$ > zero,
        [
# ]+ ^5 a+ C6 b0 q) H# [+ S: y        if cant_pos1$ = zero | cant_pos1$ = three, pcant_1
3 r# ?" r: w0 `3 C- t4 t        if cant_pos2$ = zero | cant_pos2$ = three, pcant_2
6 F) ?- d" e; N! d  y, p% s2 m' \        if cant_pos3$ = zero | cant_pos3$ = three, pcant_3
! r9 R! O% c9 p$ W- O+ A# o. g+ K        if cant_pos4$ = zero | cant_pos4$ = three, pcant_4
        if cant_pos5$ = zero | cant_pos5$ = three, pcant_5
4 i8 c; n; ~5 A" |        if cant_pos6$ = zero | cant_pos6$ = three, pcant_6
! c: I8 e* z& B1 U# |1 A" |        if cant_pos7$ = zero | cant_pos7$ = three, pcant_7
( N) H- I9 X+ E" r, ~1 J        if cant_pos8$ = zero | cant_pos8$ = three, pcant_8
; ~/ \8 p' v$ f# @! i; p- ^8 T        if cant_pos9$ = zero | cant_pos9$ = three, pcant_9
. y, ^7 r* g( E- |+ F& q7 F        if cant_pos10$ = zero | cant_pos10$ = three, pcant_10
        if cant_pos11$ = zero | cant_pos11$ = three, pcant_11
; b* G' c. Q! R+ Q  _# _        if cant_pos12$ = zero | cant_pos12$ = three, pcant_12
        if cant_pos13$ = zero | cant_pos13$ = three, pcant_13
        if cant_pos14$ = zero | cant_pos14$ = three, pcant_14
! x$ I8 ?( z! g" p+ i1 r; [5 @        if cant_pos15$ = zero | cant_pos15$ = three, pcant_15
& T* W8 C# f0 @" B0 l9 G        if cant_pos16$ = zero | cant_pos16$ = three, pcant_16
        if cant_pos17$ = zero | cant_pos17$ = three, pcant_17
; v: G: \  A6 Q# X# {        if cant_pos18$ = zero | cant_pos18$ = three, pcant_18
        if cant_pos19$ = zero | cant_pos19$ = three, pcant_19
        if cant_pos20$ = zero | cant_pos20$ = three, pcant_20
        pbld, n$, strcantext, e$
        strcantext = sblank
        ]

pcan1           #Canned text - with move
      strcantext = sblank
      if cant_no$ > zero,
        [
        if cant_pos1$ = one | cant_pos1$ = four, pcant_1
        if cant_pos2$ = one | cant_pos2$ = four, pcant_2
5 N2 Q  D4 W% C, C        if cant_pos3$ = one | cant_pos3$ = four, pcant_3
        if cant_pos4$ = one | cant_pos4$ = four, pcant_4
3 k. x! P7 i8 F( D( Y! W6 }- f        if cant_pos5$ = one | cant_pos5$ = four, pcant_5
; w2 _# r: l! J. F7 R* |        if cant_pos6$ = one | cant_pos6$ = four, pcant_6
        if cant_pos7$ = one | cant_pos7$ = four, pcant_7
: g, M1 z% A% q- |5 ^6 C        if cant_pos8$ = one | cant_pos8$ = four, pcant_8
5 V# `4 |4 ~- u# i. h        if cant_pos9$ = one | cant_pos9$ = four, pcant_9
/ y- H, }/ B; i        if cant_pos10$ = one | cant_pos10$ = four, pcant_10
        if cant_pos11$ = one | cant_pos11$ = four, pcant_11
0 B$ d9 ~4 U& o, Z) X; C        if cant_pos12$ = one | cant_pos12$ = four, pcant_12
; @: m8 ^' r4 ^3 l  J        if cant_pos13$ = one | cant_pos13$ = four, pcant_13
        if cant_pos14$ = one | cant_pos14$ = four, pcant_14
5 F( r5 c( r5 T+ N        if cant_pos15$ = one | cant_pos15$ = four, pcant_15
        if cant_pos16$ = one | cant_pos16$ = four, pcant_16
        if cant_pos17$ = one | cant_pos17$ = four, pcant_17
        if cant_pos18$ = one | cant_pos18$ = four, pcant_18
        if cant_pos19$ = one | cant_pos19$ = four, pcant_19
0 ^7 C+ [2 g1 R1 q        if cant_pos20$ = one | cant_pos20$ = four, pcant_20
+ Z. \1 j8 z: m( D        ]
+ W/ J+ o8 \% I% x1 s0 L/ N      if cstop$, strcantext = strcantext + sm00
      if cgstop$, strcantext = strcantext + sm01
9 v7 k% i- G, D2 }      #Output of strcantext occurs at the end of the output line

: \* t4 m3 U5 u, C. d) |pcan2           #Canned text - after output call
      strcantext = sblank
5 F' ~3 \: [5 i4 N      if cant_no$ > zero,
        [
        if cant_pos1$ = two | cant_pos1$ = five, pcant_1
! ]; ]3 d! L! m" b: b# t2 P* g/ i        if cant_pos2$ = two | cant_pos2$ = five, pcant_2
; Y0 K8 Q* t4 V( b3 A2 k        if cant_pos3$ = two | cant_pos3$ = five, pcant_3
        if cant_pos4$ = two | cant_pos4$ = five, pcant_4
        if cant_pos5$ = two | cant_pos5$ = five, pcant_5
        if cant_pos6$ = two | cant_pos6$ = five, pcant_6
: ~& h/ N% o% H1 p        if cant_pos7$ = two | cant_pos7$ = five, pcant_7
- a7 V/ k- B0 a& u. i        if cant_pos8$ = two | cant_pos8$ = five, pcant_8
  K. ?4 {# {) x: J- G2 D; `. j& C        if cant_pos9$ = two | cant_pos9$ = five, pcant_9
        if cant_pos10$ = two | cant_pos10$ = five, pcant_10
        if cant_pos11$ = two | cant_pos11$ = five, pcant_11
        if cant_pos12$ = two | cant_pos12$ = five, pcant_12
* J7 x9 f  |0 M+ Q        if cant_pos13$ = two | cant_pos13$ = five, pcant_13
        if cant_pos14$ = two | cant_pos14$ = five, pcant_14
        if cant_pos15$ = two | cant_pos15$ = five, pcant_15
; e* a- }: `8 A6 A) W4 r+ B        if cant_pos16$ = two | cant_pos16$ = five, pcant_16
        if cant_pos17$ = two | cant_pos17$ = five, pcant_17
/ g$ y% S# [2 i1 {        if cant_pos18$ = two | cant_pos18$ = five, pcant_18
        if cant_pos19$ = two | cant_pos19$ = five, pcant_19
        if cant_pos20$ = two | cant_pos20$ = five, pcant_20
( q  e9 m0 A, Z/ q: s        pbld, n$, strcantext, e$
        strcantext = sblank
        ]
, _7 ^* Y; f& z- k
2 M: D+ t% Y7 S0 Q1 L2 qpcant_1         #Canned text - output call
8 N" i8 G, Y6 b, ^4 k      cant_pos = cant_pos1$
: a( L+ T! o! a      cantext$ = cant_val1$
      pcant_out
0 `" o+ l4 o! o; r+ G
9 ?% H& m" S$ Q* @% V/ \6 v  H; Zpcant_2         #Canned text - output call
      cant_pos = cant_pos2$
      cantext$ = cant_val2$
, \( K5 O. c" [3 K$ y# `      pcant_out

+ \& K8 \' L5 r8 Upcant_3         #Canned text - output call
      cant_pos = cant_pos3$
      cantext$ = cant_val3$
0 X# D9 {0 [1 `7 x, \& K      pcant_out
6 |. U1 K: a' Y  T# t2 v
pcant_4         #Canned text - output call
      cant_pos = cant_pos4$
      cantext$ = cant_val4$
      pcant_out
' r) m3 \, }4 L) t8 m- Q
3 y! E; ~  P6 H) Y7 `) |# lpcant_5         #Canned text - output call
: r% k. t7 T7 |0 t6 {5 F" s      cant_pos = cant_pos5$
      cantext$ = cant_val5$
      pcant_out

4 B: R; Z9 t0 Q6 npcant_6         #Canned text - output call
+ \2 d* M, x; g& d$ E: m$ W      cant_pos = cant_pos6$
      cantext$ = cant_val6$
5 Q3 G8 @1 u" q+ P$ j$ Z      pcant_out
; R0 C$ ~  z9 F% V. e  E2 I8 F
pcant_7         #Canned text - output call
      cant_pos = cant_pos7$
$ y' X; D8 w8 N# O* j, v      cantext$ = cant_val7$
      pcant_out
4 e7 \; n/ q# }7 T/ ]& y- V
pcant_8         #Canned text - output call
: _. v' M% f# A      cant_pos = cant_pos8$
      cantext$ = cant_val8$
      pcant_out

% }5 n: J' |$ F9 S! d# n; `4 Apcant_9         #Canned text - output call
2 k# f5 F& R+ ^/ t: @0 ]      cant_pos = cant_pos9$
      cantext$ = cant_val9$
      pcant_out
6 I2 V+ h3 e! Y7 O- _
pcant_10        #Canned text - output call
5 t) x$ x# F% I      cant_pos = cant_pos10$
      cantext$ = cant_val10$
% B1 W, I8 R6 a: A: a* l      pcant_out
( w* O* X6 t/ i' Z
$ B. Q6 w5 ]6 u" @, v% b9 Lpcant_11        #Canned text - output call
      cant_pos = cant_pos11$
      cantext$ = cant_val11$
0 O! E! q% x4 {4 @7 F+ D1 g& N      pcant_out

5 ^9 N, w6 P# S+ `/ K1 Apcant_12        #Canned text - output call
7 D* P2 I( p- A, s      cant_pos = cant_pos12$
      cantext$ = cant_val12$
$ \/ i. N6 f+ F; w      pcant_out
  g4 k6 @  K( I7 B# a' g. Q
pcant_13        #Canned text - output call
      cant_pos = cant_pos13$
. M5 o% a( w% Z9 f8 p" r      cantext$ = cant_val13$
      pcant_out
3 w& L9 b3 g! }! p, N
pcant_14        #Canned text - output call
6 h$ |" p! W4 i% \6 @      cant_pos = cant_pos14$
6 b9 i) Q5 d) E* ^1 o) H( M# e      cantext$ = cant_val14$
      pcant_out

pcant_15        #Canned text - output call
      cant_pos = cant_pos15$
      cantext$ = cant_val15$
3 z& {2 ^! S; K      pcant_out

: z# X" t/ v' p6 L' rpcant_16        #Canned text - output call
      cant_pos = cant_pos16$
1 C) Q4 ^! o$ e' r0 z% v      cantext$ = cant_val16$
  d" D( t$ G5 t7 Y: E. ?7 }. d      pcant_out
7 w4 x+ A& w8 e/ W) Y+ C0 b3 s
; W# v" r' H) v1 Jpcant_17        #Canned text - output call
      cant_pos = cant_pos17$
6 w4 ]# {2 o  U2 T      cantext$ = cant_val17$
$ D6 O& R) T! u# l, I. S      pcant_out

- J0 Q0 i6 P! F# `pcant_18        #Canned text - output call
      cant_pos = cant_pos18$
      cantext$ = cant_val18$
6 M; I; f2 u1 Z5 l3 \! T      pcant_out

pcant_19        #Canned text - output call
      cant_pos = cant_pos19$
      cantext$ = cant_val19$
7 U5 A, g! S0 ~4 {' A6 P      pcant_out

6 U: H$ ~$ U3 }! S/ opcant_20        #Canned text - output call
      cant_pos = cant_pos20$
# s9 d8 |6 o% y      cantext$ = cant_val20$
      pcant_out
4 }/ U8 N2 \& N2 t" r  L7 Y
% k0 v- c2 V7 Z9 Apcant_out       #Canned text - build the string for output
% J9 f$ ^9 \, X+ s      #Assign string select type outputs
2 V3 f) {9 ]; ~5 p5 w      if cant_pos < three, #cant_pos indicates canned text output
( q* V" b8 D9 ~! z' l+ j% i        [
# d5 W0 T: b8 X; A9 m+ W+ E- s        if cantext$ = three, bld = one
        if cantext$ = four, bld = zero
+ Y' }$ C3 B; O& I        #Build the cantext string
        if cantext$ = one, strcantext = strcantext + sm00
        if cantext$ = two, strcantext = strcantext + sm01
        if cantext$ > four,
          [
; E5 ]  s. L/ l* @7 d          strtextno = no2str(cantext$)
          strcantext = strcantext + strm + strtextno
6 S" U# ]2 z  g, _, p          ]
! t4 G9 m( t+ \# A1 S, N5 h8 A        ]
      else, #cant_pos indicates coolant output
        [
        coolant_bin = flook (two, cantext$) #Create binary value for each coolant using lookup table
        if frac(cantext$/two),
% G* F& j% r! l2 z0 f' y5 Y          [
" w2 L6 j& K; Q3 V          if all_cool_off,
            [
            if coolant_on, pbld, n$, *sall_cool_off, e$
            coolant_on = zero
            ]
. e4 n) v: j% i6 K/ e3 ~          else, coolant_on = coolant_on - coolant_bin/2 #Odd = off command, subtract appropriate binary value.
  L1 Z& \6 w5 O0 L% c% ^8 c# u          ]
        else,                                         #Even = on command
          [   #Determine if this coolant is already on
          local_int = zero
% O  v- M/ M+ ?* }3 R: z2 R6 h) K          coolantx = zero
          while local_int < 20,
5 w0 P$ U$ o* D- ^8 Q5 ~) k( k            [
( \) w0 ]5 C' U( Z2 {            result2 = and(2^local_int, coolant_on)
! }4 b$ }5 e7 P3 Z. x! l; ]4 D            local_int = local_int + one
            if result2 = coolant_bin, suppress = one
            ]
          ]
        if suppress <> 1, #Don't output an on code for a coolant that is already on
9 {9 e  _/ U$ A/ ?! T: m  {! y          [
' V7 P, }/ d$ J7 @' X5 y          if not(frac(cantext$/two)), coolant_on = coolant_on + coolant_bin #Maintain binary sum of all coolants currently on
          coolantx = cantext$ - 50                                          #Create a coolantx value for string select
          pbld, n$, *scoolantx, e$
          ]
: E1 Z5 @+ O  G  `% e$ h        suppress = zero
        ]

duolzw

# --------------------------------------------------------------------------
$ s' B, L& m- E2 z6 C3 v# Position calculations, generally these do not need to be modified
# --------------------------------------------------------------------------
pmiscint$        #Capture the top level absinc for subprograms
      if sub_level$ <= zero, absinc$ = mi2$

pcheckaxis      #Check for valid rotary axis
      #If selected axis combination has more than 0 rotary axes and toolpath has rotation
% [, J1 ]/ k3 w9 e9 Y& ~      if (mill5$ | rotary_type$ = 1 | rotary_type$ = 2) & rotaxerror = 1, [if mprint(srotaxerror, 2) = 2, exitpost$]
/ k" ?! l% X( n3 x
/ M0 W' z5 `6 {6 I% X; Qpxyzcout        #Map coordinates
& H4 j- \& e' _% D! i      xabs = vequ(x$)    #Retrieve X,Y,Z positions into xabs,yabs,zabs
      iout = vequ(i$)
+ W: C9 N9 L$ |) W8 w. S      feed = fr_pos$
% |* c4 I6 \, `      if feed > maxfeedpm, feed = maxfeedpm
6 p: S9 M+ F6 C6 _2 I
7 a8 D, J- l; K4 a#Incremental calculations
" H/ q9 `- v6 l$ X, ^1 P5 j: xps_inc_calc     #Incremental calculations, start
# R& U! ~; b1 s* k: |* n) S+ Q( B      xia = fmtrnd(xabs)
      yia = fmtrnd(yabs)
      zia = fmtrnd(zabs)
( q* ?  W0 O9 y; L  g. I      xinc = vsub (xia, prv_xia)
( b6 y2 k( A! C; Q: u8 E
% b8 s. e1 O- k! d1 epe_inc_calc     #Incremental calculations, end
+ ^7 G, n2 H: `6 I      !xia, !yia, !zia
      !x$, !y$, !z$, !cc_pos$
* t3 T+ r/ E% M  t
# --------------------------------------------------------------------------
# Parameter read postblocks:
  K) n* m& l8 }- t6 {$ I# --------------------------------------------------------------------------
pprep$          #Pre-process postblock - Allows post instructions after the post is parsed but before the NC and NCI file are opened.
#DO NOT ATTEMPT TO OUTPUT TO THE NC FILE IN THIS POSTBLOCK (OR ANY POSTBLOCKS YOU MAY CALL FROM HERE) BECAUSE THE NC OUTPUT FILE IS NOT YET OPENED!
      rd_cd$       #Read CD Parameters
      rd_mch_ent_no$ = 0  #Read only the machine base parameters (use to collect common parameters from CNC_MACHINE_TYPE)
3 V0 F" R6 q$ R! Y/ s% R" t1 I" L      rd_md$       #Read machine definition parameters

pwrtt$          #Pre-read NCI file
      if tool_info > 1 & t$ > 0 & gcode$ <> 1003, ptooltable
      if ra_type$, ra_error = 1  #Aggregates NOT supported in this post

7 h, t$ T5 W! w* J+ ^1 T( mpwrttparam$     #Pre-read parameter data
3 [% z& y7 m2 {9 l. ~- Z; B      #"pwrttparam", ~prmcode$, ~sparameter$, e$
      if prmcode$ = 15346, comp_type = rpar(sparameter$, 1) #Cutter compensation type - 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
3 ~9 |+ r0 ^  U' H) n# \! S      if prmcode$ = 10010, xy_stock = rpar(sparameter$, 1)  #Capture stock to leave (XY)
* _5 H$ h. k" H) J' l( b) J) [4 t      if prmcode$ = 10068, z_stock = rpar(sparameter$, 1)   #Capture stock to leave (Z)

pparameter$     #Read operation parameters
1 p5 F5 O9 r- O; c      #rd_params is used to call pparameter postblock and read the parameters of the operation specified in rd_param_op_no
      #"pparameter", ~prmcode$, ~sparameter$, e$
% D  L, i0 h- O2 T: h& K
9 F8 w: i' Y1 Y6 M8 v& y# --------------------------------------------------------------------------
1 q: m0 q1 U4 [$ u' |# Parameter lookup tables - You must adjust the size value if you add or remove any parameters to/from these tables!
# --------------------------------------------------------------------------
# Machine Definition Parameters
fprmtbl 17000   4    #Table Number, Size
#       Param   Variable to load value into
        17605   min_speed    #Minimum spindle speed
5 {: e- F3 c' ]        17055   maxfeedpm    #Limit for feed in inch/min
  m5 w% \- q) \) u        17063   maxfeedpm_m  #Limit for feed in mm/min
# `% m+ ^) U7 W5 p% G: ~' C        17101   all_cool_off #First coolant off command shuts off ALL coolant options

1 y9 s9 i, J$ J1 S# Control Definition Parameters
$ H% p4 h* h% Z! P7 u% [2 ]fprmtbl 18000   0    #Table Number, Size
0 F: @8 ?4 m0 _: M6 ]$ P; y#       Param   Variable to load value into
) s( d5 G7 s9 C5 b3 d2 ~5 `" @
5 L  x1 J$ H9 j# Toolpath Group Parameters
fprmtbl 19000   0    #Table Number, Size
) R6 k6 W( [$ W; A' M) |#       Param   Variable to load value into
) Q3 v. u5 M7 D+ K
# --------------------------------------------------------------------------
" R, ?* ]- S& E/ J& e) X5 Mpset_mach       #Set post switches by reading machine def parameters
9 _. b0 Z& o$ J4 f6 T$ ~, m      rot_ax_cnt = 0
      rotaxerror = 0
. F6 H2 N# L6 c( f: y; @      #maxfeedpm = 999999       #Uncomment these variables to force use of machine def values as initial lowest max feedrate value
      #maxfeedpm_m = 9999999    #Otherwise the default (post) initialization setting is used as initial value
      !maxfeedpm, !maxfeedpm_m
& s; b$ X7 N8 u7 F
      rd_mch_ent_no$ = syncaxis$  #Retrieve machine parameters based on current axis combination - read from .nci G950 line
      rd_md$       #Read machine definition parameters - calls pmachineinfo$

# V+ J4 r0 m) `; D% M      #We only need this set at toolchange (and start of file).  No need to set them each time a user may call rd_md
      if met_tool$ = 1, maxfeedpm = maxfeedpm_m         #Set limit for feed in mm/min

# --------------------------------------------------------------------------
+ I( [5 u0 V4 k* S# Machine definition and control definition parameter capture:
! q1 P. N9 Z. K# f# --------------------------------------------------------------------------
6 x+ \' q+ I# \8 {pmachineinfo$   #Machine information parameters postblock
2 r8 E% j0 P( [' ]2 B  G      #rd_md is used to call pmachineinfo postblock and read the parameters of the selected axis
8 u) {7 v( i2 D/ O3 a      #combination machine entity set in rd_mch_ent_no.
4 D- K0 N# e/ K* ?      #rd_cd is used to call pmachineinfo postblock and read the active control definition parameters
  u) ]# P8 j/ F; I0 q- q      #rd_tlpathgrp is used to call pmachineinfo postblock and read the active toolpath group parameters
# K7 v$ @" [  |" p- m      #"-->pmachineinfo", ~prmcode$, "  ", ~sparameter$, e$  #Do not uncomment if being called from pprep$ - see pprep comment

      #Read parameter lookup tables -
. [2 g" {$ L& K: B      if prmcode$ >= 17000 & prmcode$ < 18000, result = fprm(17000) #Run the parameter table for Machine Definition Parameters
! z6 n" J) h* n0 ?8 E: o# V2 \* e      #Leave lines below commented until you enter values in related lookup tables
      #if prmcode$ >= 18000 & prmcode$ < 19000, result = fprm(18000) #Run the parameter table for Control Definition Parameters
      #if prmcode$ >= 19000 & prmcode$ < 19900, result = fprm(19000) #Run the parameter table for Toolpath Group Parameters
) }% V& X# g, Z7 `, [7 K( _
      #Count rotary axis and output error message if one is found in the active axis combination
      if prmcode$ = 19958,
. @/ |3 N3 f; R& h" d& I        [
$ B* }6 k. v0 Z& d0 f' v' ]2 t( F        component_type = rpar(sparameter$, 1)  #Component type
        if component_type = 5,
          [
          rot_ax_cnt = rot_ax_cnt + 1  #Rotary component
3 X$ j+ e8 d. O* v! A& H2 O          if rot_ax_cnt = 1, rotaxerror = rotaxerror + 1   #Post only supports 1 rotary per axis combination
          ]
) i" Z. k# U( L; A; R        ]
. h6 y2 s/ S; v4 w+ V
      #Read Linear Axis parameters - capture lowest feedrate value of all linear axis
      if maxfeedpm > prv_maxfeedpm, maxfeedpm = prv_maxfeedpm
      if maxfeedpm_m > prv_maxfeedpm_m, maxfeedpm_m = prv_maxfeedpm_m
7 c' @# r& z* a# a9 u9 o: m      !maxfeedpm, !maxfeedpm_m

duolzw

# --------------------------------------------------------------------------
8 r" i$ J4 O( n2 D+ p! L( j# POST TEXT
% _! @6 Y8 D3 x$ y, Z2 {# --------------------------------------------------------------------------
[CTRL_MILL|DEFAULT]
[misc integers]
1. "Work Coordinates [0-1=G92, 2=G54's]"//2
2. "Absolute/Incremental, top level [0=ABS, 1=INC]"
9 [( B: Z1 e% K* ]7 s2 {0 t# a* @3. "Reference Return [0=G28, 1=G30]"
[simple drill]
- U' @/ E6 n$ g. M. w1. "Drill/Counterbore"
7. ""
8. ""
* X( T4 M7 \7 D4 b+ i) H% h2 b9. ""
: T# g# ?& D- [( u0 U0 {10. ""
# d, C+ F4 w  A0 x. X% L5 P11. ""
* Y; A5 z1 s9 p* y[peck drill]
6 `+ C7 |  N- Z, F  S3 S3. ""
7. "Peck"
8. ""
9. ""
10. ""
' U" G* k, }: f: |11. ""
% ~0 z0 p& b8 \% q7 J/ a) `' i4 U[chip break]
3. ""
1 J" D! ^4 U( K7. "Peck"
8. ""
$ w) R  d* J7 y4 w9. ""
" P/ i9 f/ t+ G8 T, H10. ""
/ n5 r7 {+ S: ?7 |4 n11. ""
) U2 r7 K8 h% W3 @3 p8 u4 Q$ q[tap]
. ~0 I. D: X. D7 J$ B3. ""
7. ""
8. ""
9. ""
5 N9 w" k: y6 [6 O$ o10. ""
* K& Z( A2 Y3 {7 V11. ""
[bore1]
3 D$ D$ {) k# l' N6 r1. "Bore #1 (feed-out)"
7. ""
8. ""
9. ""
10. ""
+ s5 k/ k5 u+ W4 I  |! K11. ""
[bore2]
1. "Bore #2 (stop spindle, rapid out)"
! n: [/ q, Z0 K4 y/ G3. ""
! Y  b( J3 k1 H9 {% T5 l/ c7. ""
7 Z" m& B' G# k" q8. ""
0 p/ a' s9 L' N+ d4 y9. ""
! q* O7 ~! w3 J" {! O5 u10. ""
11. ""
" @. g5 Q+ c+ L5 \" q[misc1]
1. "Fine Bore (shift)"
1 ~  z2 @/ M% g4 V$ f7. ""
2 ~2 }7 b& E3 M8 U$ ~1 W& y0 p8. ""
. W" D  `2 z- x1 @9. ""
10. ""
[misc2]
1. "Rigid Tapping Cycle"
3 m& {! j1 A& ]3. ""
7. ""
8. ""
. p% t+ H& d! u; I) ], t9. ""
10. ""
11. ""
" R& ?2 i9 v: U4 W2 w4 m8 u[drill cycle descriptions]
: C0 H6 \; F) E5 v8 w7 i7. "Fine bore (shift)"
6 T" _- v- F  n* s! ~6 l8. "Rigid Tapping Cycle"
8 Q$ i* g0 D7 q+ S- M[canned text]
1. "Stop"
2. "Ostop"
3. "Bld on"
4. "bLd off"
5. "M5"
8 {1 f- [! C7 J4 h8 Y$ V; [' O6. "M6"
) k) k0 [% H$ e6 _6 t- o1 j7. "M7"
8. "M8"
9. "M9"
10. "M10"
[CTRL_MILL|GENERIC FANUC 3X MILL]
[misc integers]
1. "Work Coordinates [0-1=G92, 2=G54's]"//2
2. "Absolute/Incremental, top level [0=ABS, 1=INC]"
3. "Reference Return [0=G28, 1=G30]"
[simple drill]
) _. K% D+ C  I! v6 L1. "Drill/Counterbore"
3 d% e, D4 p7 G" e$ H" P) ^* X7. ""
. z" C$ F- r7 R' r  T, H8. ""
9. ""
) T( F5 M: v+ B3 F" J10. ""
; a3 O% l/ p# X  l* Q11. ""
[peck drill]
3. ""
7. "Peck"
4 b" y* u3 [6 k( i4 c4 Q  z8. ""
9. ""
" v: L; A7 C# {  f5 r$ v1 L: w; }10. ""
; @! C+ l+ E  T, g6 G" ]  K11. ""
* G* a# [$ X( f- b$ u[chip break]
6 W1 V& [1 V$ g3. ""
7. "Peck"
8. ""
( Z8 }9 D6 ?1 g' G6 z/ S9. ""
10. ""
11. ""
! ~9 h' n8 a# M[tap]
3. ""
7. ""
$ z3 v( E/ R2 u2 w1 s3 n8. ""
9. ""
10. ""
- K7 [% j( q- v5 ]* F0 E11. ""
[bore1]
1. "Bore #1 (feed-out)"
7. ""
: S9 b! l/ n/ x; s, c. O8. ""
9. ""
; m: o6 G$ m# O$ L. y10. ""
/ n$ e/ U" P5 I! I: D% C11. ""
# M1 Q6 N2 |; p* e[bore2]
1. "Bore #2 (stop spindle, rapid out)"
3. ""
7. ""
8. ""
& c; H/ ?' S3 S- w$ G9. ""
10. ""
/ G# Q$ I9 d7 ^1 M5 y; @11. ""
[misc1]
1. "Fine Bore (shift)"
7. ""
" ]- L9 b) Q% v) [- s9 h- b8. ""
3 M- X4 D: G. A1 {% `! @9. ""
10. ""
[misc2]
1. "Rigid Tapping Cycle"
3. ""
5 p4 c3 E" h+ J: I# F7. ""
8. ""
9. ""
) s( C7 N8 _$ ~( G10. ""
/ \7 D9 i" D# M; M11. ""
( x; k, m( I1 L6 V[drill cycle descriptions]
7. "Fine bore (shift)"
4 J8 V: Y2 }- \% ?8 ^7 R8. "Rigid Tapping Cycle"
/ U, Y3 @. |: {8 C* f* c( }[canned text]
1. "Stop"
4 i, X# K+ i8 j2. "Ostop"
) V" L) W) P' o3. "Bld on"
4 V0 E, _3 T- c/ L8 M4. "bLd off"
5. "M5"
; ~$ ~  F3 w, k- r5 W0 I6. "M6"
4 h9 B) v7 l( Z* \$ R. N7. "M7"
8. "M8"
1 o2 e0 G) m+ v' x9. "M9"
10. "M10"
6 O# j8 {/ s6 V8 f+ B7 u+ v[CTRL_TEXT_END]

duolzw

我把一篇都发过去了。很长，，麻烦你了。

jacky028

太深奥了，，看不懂。。哈哈

ya574544187

看了下  很好的学习资料  谢谢大师分享