坐标设置

duolzw

ptlchg1002$      #Call at actual toolchange, end last path here                        
3 c9 W* t7 r9 O/ n+ [      if op_id$ <> prv_op_id$, pset_mach   #Read machine def parameters
      pspindle
      whatline$ = four #Required for vector toolpaths
      if gcode$ = 1000,
        [
        #Null toolchange
        ]
      else,
        [
        #Toolchange and Start of file
3 C& d/ E; ]) ^! a" F        if gcode$ = 1002,
' P! Y7 P5 }4 T% l2 E" L- \- r          [
          #Actual toolchange
          pretract
5 z% j% ^$ @0 S/ p* m$ \" i+ v          ]
        if stagetool = one, prv_next_tool$ = m_one
        prv_xia = vequ(xh$)
        prv_feed = c9k
( {! A& g2 u1 v9 w! v7 }        ]
      !op_id$

+ l9 t  Q: A. A# --------------------------------------------------------------------------
# Motion NC output
4 v4 J  _  W5 [+ Y# --------------------------------------------------------------------------
, P4 Q$ X+ a# x" h#The variables for absolute output are xabs, yabs, zabs.
, w1 v$ P7 M' ~, M7 M( i* p, u- G#The variables for incremental output are xinc, yinc, zinc.
$ b  N: Z' }+ R8 [( ~) T# --------------------------------------------------------------------------
prapidout       #Output to NC of linear movement - rapid               
      pcan1, pbld, n$, sgplane, `sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, strcantext, scoolant, e$
      #Modify following line to customize output for high-speed toolpath
      #tool inspection/change points
* H+ B0 x' K- s2 o8 \) I4 B& t      if rpd_typ$ = 7, pbld, n$, "M00", "(TOOL INSPECTION POINT - POST CUSTOMIZATION REQUIRED)", e$
4 o. n' c1 z' d( q
plinout         #Output to NC of linear movement - feed                    
3 Q4 T5 {1 d5 Q+ q. B8 G& k$ M: C- v      pcan1, pbld, n$, sgplane, `sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, feed, strcantext, scoolant, e$
      #Modify following line to customize output for high-speed toolpath
      #tool inspection/change points
- Y. X7 m9 ~1 J) ]* j) l      if rpd_typ$ = 7, pbld, n$, "M00", "(TOOL INSPECTION POINT - POST CUSTOMIZATION REQUIRED)", e$

pcirout         #Output to NC of circular interpolation
' F, ?$ O# n  e3 \1 A      pcan1, pbld, n$, sgplane, sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, parc, feed, strcantext, scoolant, e$

pcom_moveb      #Common motion preparation routines, before
. y; |* F1 M2 K( S% {      pxyzcout
      ps_inc_calc
7 v- L  K* v4 H8 G5 |9 s( Y
pncoutput       #Movement output
8 u2 d4 \! O& E8 A      pcom_moveb
) K7 e1 ?2 X0 @2 c      comment$
( ?  J. x4 ?) P) k- V$ V3 E      pcan
! [" J0 v5 C& v0 s- ~; f      if gcode$ = zero, prapidout
      if gcode$ = one, plinout
+ L8 @3 F# l$ q2 j" A2 r, Z! x/ P      if gcode$ > one & gcode$ < four, pcirout
      if mr_rt_actv, #Restore absolute/incremental for G51/G68
        [
% R) x7 @% Q5 I        absinc$ = sav_absinc
1 O; I/ l8 o, D& ~; y9 u! {        mr_rt_actv = zero
- _1 Q9 d7 j" k- R1 v* E        ]
      pcom_movea

pcom_movea      #Common motion preparation routines, after
0 G7 ^( f! J; v: a  Q      pcan2
2 X, K" g+ @  F. T% X. T+ n3 O3 r: K' m      pe_inc_calc

pdwl_spd$        #Call from NCI gcode 4
$ r0 V) n& {8 t* m# M1 \      pspindle
      comment$
      pspindchng
/ d$ s4 \  R% P  Z      pcan
      if fmtrnd(dwell$), pcan1, pbld, n$, *sgcode, *dwell$, strcantext, e$
      else, pcan1, pbld, n$, strcantext, e$
; X- p1 j8 F3 i+ V- E: V" o" f      pcan2

prapid$          #Output to NC of linear movement - rapid               
% j4 V2 K/ ?: r      pncoutput

pzrapid$         #Output to NC of linear movement - rapid Z only   
      pncoutput

plin$            #Output to NC of linear movement - feed                    
3 }/ A1 x4 t0 ~1 `# p      pncoutput

: G4 P8 S, I$ U4 i+ dpz$              #Output to NC of linear movement - feed Z only         
' u/ Q& o+ N, n+ W      pncoutput
7 K. |6 M( H) M; s7 s. T: j
pmx$             #Output to NC of vector NCI         
' v7 W( h) H* ]( ?% J9 s+ a- o      pncoutput
' M: Z4 l% H% v* k. @0 Z
$ H. G% {  a' r: Npcir$            #Output to NC of circular interpolation                                
      pncoutput

duolzw

# --------------------------------------------------------------------------
# Motion output components
5 E- X0 l; t' M# --------------------------------------------------------------------------
pbld            #Canned text - block delete
      if bld, '/'

pfbld           #Force - block delete
  I- H! u1 h1 V      "/"

" `* Z7 X) c3 P- Z% G* i% F" Rpccdia          #Cutter Compensation
      #Force Dxx#   
      if prv_cc_pos$ <> cc_pos$ & cc_pos$, prv_tloffno$ = c9k
      sccomp
) Y9 R; K$ n$ A. e* Z- X- \0 i# p      if cc_pos$, tloffno$

  C' j) A0 C' v( R! l' {! @pfxout          #Force X axis output
6 I0 M; C/ e; A. a      if absinc$ = zero, *xabs, !xinc
      else, *xinc, !xabs

, g- L* i; u6 _1 x1 i3 cpxout           #X output
, g% Q; k  @) I( u% T# O      if absinc$ = zero, xabs, !xinc
' r+ f+ k* r, M5 t! d      else, xinc, !xabs

4 U( V) Y' m2 ]* f& _6 a: Q* Zpfyout          #Force Y axis output
  E$ o6 M: d, K1 T- Z" ^      if absinc$ = zero, *yabs, !yinc
; N/ R1 q; F( `- \- @' w/ `6 Z, e      else, *yinc, !yabs

, z- y( P, F- O" U6 Dpyout           #Y output
; V5 h. X9 B4 Q$ v- g( ?. V      if absinc$ = zero, yabs, !yinc
5 @3 n# g( \9 ]0 Z      else, yinc, !yabs

pfzout          #Force Z axis output
% s0 |5 x% V1 P9 |. U, _      if absinc$ = zero, *zabs, !zinc
& ]" e. h7 w  J2 ~' h$ m- t. o      else, *zinc, !zabs
3 u: v( k/ [5 o6 h2 J$ T/ X* f# I: ?
7 Z& U+ B3 Q! y; Y0 v6 |+ Ypzout           #Z output
4 L, \1 n! ~2 a8 F& D! V& Z% T      if absinc$ = zero, zabs, !zinc
      else, zinc, !zabs

* J1 s4 ^  l# I! M8 @parc            #Select the arc output
' l7 E0 y$ m# @9 S$ q      if (plane$ = zero & (arctype$ = one | arctype$ = four)) |   #XY Plane
+ f) D8 R. I6 x# z' _        (plane$ = one & (arctypeyz$ = one | arctypeyz$ = four)) | #YZ Plane
        (plane$ = two & (arctypexz$ = one | arctypexz$ = four)),  #XZ Plane
6 z9 c# Q/ L3 K2 h2 r! ?  u  R        [
        result = newfs(two, iout)
7 J4 M% p  J% {/ o- s/ F0 Q9 v        result = newfs(two, jout)
/ ?( D2 g+ E) v. {$ W3 m        result = newfs(two, kout)
        ]
; s! G' S! r4 R% h      else,
        [
* x0 |$ a7 r& M! [( Z1 @5 J. D        result = newfs(three, iout)
/ Z; K! c" M/ J" J, O        result = newfs(three, jout)
        result = newfs(three, kout)
$ T6 `( S7 [7 l, F1 I        ]
% K1 W5 F+ ~- J3 Y7 Y- V) t0 M' c: c      if (plane$ = 0 & arctype$ < five) | (plane$ = 1 & arctypeyz$ < five) |
        (plane$ = 2 & arctypexz$ < five) | full_arc_flg$ | arc_pitch$,
        [
  m8 B$ I% J& R5 x- _5 U        #Arc output for IJK
, A) E' P" _$ Z8 s; V, @; `' C7 w        # If you do NOT want to force out the I,J,K values,
        # remove the "*" asterisks on the *i, *j, *k 's below...
" }: L9 l9 h3 p        if plane$ = zero, *iout, *jout, kout #XY plane code - G17
. |8 P: _. B' ?9 r0 I; R        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
. I1 A' Z4 s/ j8 n: D+ c        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
$ m8 H0 a1 `  k/ ^9 }        !i$, !j$, !k$
0 y% z1 l5 R) k        ]
' @& z$ Q3 k$ ]  \+ t  k      else,
        [
4 b  y9 Y3 j3 C* [  h        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
- h# m$ u+ N/ b* q  n        else, result = nwadrs(srminus, arcrad$)
2 [' O8 e6 e; [! \( d" M        *arcrad$
9 f5 I+ r4 {7 I* K0 k  k8 m        ]

duolzw

# --------------------------------------------------------------------------
; ~+ ]2 y! D; \# c  D# Drilling
. B  U* Y% @2 c0 Q# --------------------------------------------------------------------------
pdrlcommonb     #Canned Drill Cycle common call, before
      if initht$ <> refht$, drillref = zero
9 Z, j% ^& g/ W! {      else, drillref = one
      if gcode$ = 81,
        [
3 ]! ?) O: U. l! F. P! }- U+ h        result = newfs(two, zinc)
; u4 z* _0 h! E& ^+ ?        if drillcyc$ = three | drillcyc$ = 7, drlgsel = fsg1(-ss$) + drillcyc$ * two
        else, drlgsel = fsg2(dwell$) + drillcyc$ * two
        prv_refht_a = c9k
0 [8 V) Z% q) L        prv_refht_i = c9k
        prv_dwell$ = zero
        prv_shftdrl$ = zero
6 x+ w8 _% D& l2 q+ h7 z        ]
( e8 e6 Q: S% l% a4 z      z$ = depth$
      prv_zia = initht$
      pcom_moveb
      feed = fr_pos$
( e% g) k* i: x4 w; ?      comment$
      pcan
1 S1 w; `9 C; n
" P. `) N9 `, E, Dprdrlout        #R drill position
; d  {8 C: d- ^; V4 b) [      refht_a = refht$
      refht_i = refht$ - initht$
      if absinc$ = zero, refht_a, !refht_i
      else, refht_i, !refht_a

pdrill$          #Canned Drill Cycle
      pdrlcommonb
* }- Q& P1 Z9 s4 R1 f7 r      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, dwell$, *feed, strcantext, e$
! b# X7 x/ A% J- h' G0 }      pcom_movea

ppeck$           #Canned Peck Drill Cycle
      pdrlcommonb
8 l0 b1 W: H" y2 `3 I      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
7 y4 e: h+ P; |& A  u! L4 y        prdrlout, *peck1$, *feed, strcantext, e$
      pcom_movea

pchpbrk$         #Canned Chip Break Cycle
. ]7 X2 D; {+ j$ |; U3 O' d      pdrlcommonb
0 V- ~& [4 m1 P      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
* K  b. s' d0 e  _3 {: A        prdrlout, *peck1$, *feed, strcantext, e$
      pcom_movea

. S/ Z7 o: |0 g& Rptap$            #Canned Tap Cycle
      pdrlcommonb
      result = newfs(17, feed)  # Set for tapping Feedrate format
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, *feed, strcantext, e$
      pcom_movea
! {' Q, |/ g% Z) I3 D2 P
6 W$ r% e7 K$ O1 R$ o4 a* g$ upbore1$          #Canned Bore #1 Cycle
      pdrlcommonb
1 N4 w) p. n- k. S5 Q      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
5 r/ y" x( L3 r- X7 p/ Y        prdrlout, dwell$, *feed, strcantext, e$
5 ?- K- Y, A; o# D/ w: l      pcom_movea

pbore2$          #Canned Bore #2 Cycle
      pdrlcommonb
  w3 @) B- Q( f% B; B# G8 D$ T  [2 b( ]      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
! `/ d  ^6 f4 ~3 ^  [$ O1 B8 d        prdrlout, *feed, strcantext, e$
      pcom_movea
  u" T  O1 Y6 B  a& l& `
6 E0 g1 V" f) n$ `  kpmisc1$          #Canned Fine Bore (shift) Cycle
& X% R, b( s6 A1 _5 S+ t      pdrlcommonb
% {. S* U7 a! T9 ]; U. R      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
      pcom_movea

7 D$ J2 p+ }, z: Jpmisc2$          #Canned Rigid Tapping Cycle
+ o" ~6 k$ c1 G7 e% g      pdrlcommonb
0 K0 K' J+ @; a; c' {- q$ U6 B+ `5 d      #RH/LH based on spindle direction
      pbld, n$, sg95, e$
      pbld, n$, sm29, *speed, e$
      if met_tool$, pitch = n_tap_thds$  #Tap pitch (mm  per thread)
; k8 I3 _3 l1 I3 ]/ x- t9 s! G      else, pitch = 1/n_tap_thds$        #Tap pitch (inches per thread)
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
6 c8 g  x' G4 G/ r        prdrlout, *pitch, !feed, strcantext, e$
      pcom_movea

pdrlcst$         #Custom drill cycles 8 - 19 (user option)
3 E, z5 q- T8 o* E      #Use this postblock to customize drilling cycles 8 - 19
7 R' c& T. y: E( f' Q2 e' U      if drillcyc$ = 8, pdrlcst8
      else,
        [
        pdrlcommonb
        sopen_prn, "CUSTOMIZABLE DRILL CYCLE - NOT CONFIGURED - FIRST HOLE", sclose_prn, e$
+ s2 O, o# `6 u. e" S% v" G% x! X        pcom_movea
        ]
# w' ?2 h/ z6 |6 h/ ]7 _; L# O2 H
pdrlcst8         #Custom drill cycle 8 - example custom cycle
1 @# K: U' G3 C& a5 [7 N      pdrlcommonb
      sopen_prn, "CUSTOMIZABLE DRILL CYCLE EXAMPLE - FIRST HOLE", sclose_prn, e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
0 V6 C5 C5 M4 ]$ e; X$ p# \        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
. d7 H( Y5 U3 H5 T, b: M/ ]5 Q      pcom_movea
% W  q  t# n4 c1 p* L
# Additional Holes
pdrill_2$        #Canned Drill Cycle, additional points
/ @) P0 u1 j5 E" Z, ~+ Y% p      pdrlcommonb
: h  z% s  R7 Y* o. ]+ h      pcan1, pbld, n$, pxout, pyout, pzout, prdrlout, feed, strcantext, e$
      pcom_movea

& l7 B9 w, [- d/ n; Vppeck_2$         #Canned Peck Drill Cycle
, X" [* q2 V; Z; Y* Q      pdrill_2$

' N/ k# z# k9 A9 c; B/ Vpchpbrk_2$       #Canned Chip Break Cycle
      pdrill_2$

( E; w3 y% {, Z, h) K' d: ~ptap_2$          #Canned Tap Cycle
% A6 C- c1 g! t1 r. C9 u9 A& c+ M      pdrill_2$
" j. v5 e" b1 c+ M2 T7 J
* I0 O! y4 k/ X+ z1 T% kpbore1_2$        #Canned Bore #1 Cycle
      pdrill_2$
8 A% u; \# a' |; V! o
pbore2_2$        #Canned Bore #2 Cycle
, E2 _4 `, E9 A0 _' A      pdrill_2$
# S" k. x8 ?0 ?) K
pmisc1_2$        #Canned Fine Bore (shift) Cycle
- k6 }+ {6 L' ]: _2 ?* c      pdrill_2$
3 w4 a0 r- I% I' h. X+ A" L
5 U8 f2 Z% S0 @6 ?3 d+ u2 `- rpmisc2_2$        #Canned Rigid Tapping Cycle
4 v# [0 @( r& _1 H      pdrlcommonb
      pcan1, pbld, n$, pxout, pyout, pzout, prdrlout, strcantext, e$
8 u2 e7 k' M7 h      pcom_movea

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)     
      #Use this postblock to customize drilling cycles 8 - 19
+ b  Y5 r& |, G5 t      if drillcyc$ = 8, pdrlcst8_2
      else,
* c& ~6 Q( [( d2 v: [7 Q, y9 s5 W        [
        sopen_prn, "CUSTOMIZABLE DRILL CYCLE - NOT CONFIGURED - NEXT HOLE", sclose_prn, e$
( E) g8 I, X# F$ _: H8 @4 o        pdrill_2$
8 q, c' d+ ]; e1 [6 x, b/ G        ]
7 b* l4 ?( F) `  B/ [1 [5 @* u
pdrlcst8_2       #Custom drill cycle 8 - example custom cycle
      sopen_prn, "CUSTOMIZABLE DRILL CYCLE EXAMPLE - NEXT HOLE", sclose_prn, e$
; _5 F/ ?6 O% {1 j2 y5 G      pdrill_2$
0 [0 \" N# ]! }4 Q7 r* f& a
pcanceldc$       #Cancel canned drill cycle
      result = newfs(three, zinc)
* F/ K+ ^" K6 O+ W( s      z$ = initht$
1 I1 r( C3 k! m7 B# s6 Y      prv_zia = initht$
/ C( k; D' e- Y5 Y7 E$ q* O      pxyzcout
      !zabs, !zinc
" T/ V/ z* R/ E' ?  u5 h      prv_gcode$ = zero
1 q& r" t" t8 P      pcan
      pcan1, pbld, n$, sg80, strcantext, e$
      if drillcyc$ = 7, pbld, n$, sg94, e$
2 x9 Y' w+ ^/ P( B' h$ Q      pcan2

duolzw

# --------------------------------------------------------------------------
#Subprogram postblocks
+ d& J, ~! l4 N" G) q#sub_trnstyp - 0=mirror, 1=rotate, 2=scale, 3=translate
" ^$ _0 D  u/ p- c3 J#sub_trnmthd (mirror) - 0=X axis, 1=Y axis, 2=line
#sub_trnmthd (rotate) - 0=tplane, 1=tplane origin only, 2=coordinates
# --------------------------------------------------------------------------
psub_call_m$     #Call to main level, single tool
      psub_call_trans
2 }& i3 o- U8 S& o" Q" B, s
psub_call_mm$    #Call to main level, multiple tools
: s. |8 \. b. ^7 i; g  w      psub_call_trans
2 k) r6 W% t8 B. M4 C) i0 m
9 J( ?" A4 D6 S- Qpsub_call_trans #Translate level calls from toolchange, user
8 l- K7 S: \+ v! N# Z6 H      if mi1$ <= one, result = mprint(shomeserror)
      sav_absinc = absinc$
      #Mirror or Rotate Coord's
      if sub_trnstyp$ = zero | (sub_trnstyp$ = one & mr_rt_actv),
        [
! W, U) |% Q4 W7 u9 f2 x        #The original pattern is not mirrored or rotated
) G4 W  K; ?) u8 P7 D        if sub_sec_no$,
  |( y4 S5 v! H4 H. I/ Y1 N1 K) e          [
          absinc$ = zero
          if sub_trnstyp$, psub_rotate
, H. a$ s- a9 N  A8 a          else, psub_mirror
          ]
3 C" U6 z4 i* G% I7 x( t6 y        mr_rt_actv = three
        ]
      else, #Translate
        [
7 C9 D9 }, s- X* g# X7 h        if sub_mny_t$,
5 a6 j; t$ ]; B* N* I( I          [
, s# w- @7 k4 q0 ]- G% x- i          if mi1$ > one, absinc$ = zero
! f' s8 E* `9 J          pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
          pe_inc_calc
          ps_inc_calc
          ]
        ]
( F1 O7 l, R: P1 n4 W% ]      absinc$ = sav_absinc
      result = nwadrs(strp, main_prg_no$)
3 V" I! {0 w6 G! G+ |      if progno$ = main_prg_no$, result = mprint(sprgnerror)
      pbld, n$, "M98", *main_prg_no$, e$
      prv_feed = c9k #Force feed in sub

2 s' j& j6 B, k. w$ ?: {psub_mirror     #Mirror start code, user
      #Mirror Y axis
7 n: P% k& T& x3 F      if sub_trnmthd$, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsx$, e$
' @2 n1 V6 K$ Y  c! O7 |, ^      #Mirror X axis
      else, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsy$, e$

+ K! z, X; v7 f+ V3 p. O+ opsub_rotate     #Rotate start code, user
6 i( c! ^2 }% K& I+ P) R      pbld, n$, *sgcode, *sgabsinc, strns_rot_on, *sub_trnsx$, *sub_trnsy$,
        [absinc$ = one], *sgabsinc, e$
7 K- `5 X! t% C* g/ S$ Z0 ~8 I
psub_st_m$       #Header in main level
  ~4 C; j5 k# M5 Z7 k; I! `      result = nwadrs(stro, main_prg_no$)
1 ?0 Y0 f9 J, y      " ", e$
4 P- Y2 i" Y7 h$ i0 k; u. d* N      *main_prg_no$, e$
      #G51/G68 requires absolute position on first move
0 t6 l) ]6 {  Q( D. `) Q  j& `      if mr_rt_actv & absinc$ = one,
        [
, T2 m, R7 z7 l        sav_absinc = absinc$
        absinc$ = zero
        prv_absinc$ = m_one
4 P: Y- T. Z+ z( Q% Z; C) I- N        prv_xabs = m_one
/ @' E  }, t8 o* j        prv_yabs = m_one
  O* f# H. E8 P. A        ]
      else, pbld, n$, sgabsinc, e$

3 U) w' Q* h7 j; Mpsub_end_m$      #End in main level
      n$, "M99", e$
      prv_absinc$ = -1
* f+ a) a& V9 G# P5 H: Y+ |      #Reset update variables for subs at main level
      #Mirror or Rotate cancel, output is forced
- m  o6 a, F! P1 a% y) Y4 m+ @      if (sub_trnstyp$ = zero & esub_sec_no$ > zero)
        | (sub_trnstyp$ = one & esub_sec_no$ = esub_totl_no$-one
        & sub_trnmthd$ = two),
7 O9 h8 W, U' y  r2 G* f7 E! ]( J) a        [
        subout$ = zero
        no_nc_out$ = m_one
        sav_absinc = absinc$
        #Mirror cancel
/ g/ }9 V) f- U  P- V' n8 _        if sub_trnstyp$ = zero,
          [
7 _. p( d+ r' ]: Q( {3 P& N          absinc$ = zero
          pbld, n$, *sgabsinc, strns_mir_off, *sub_trnsx$, *sub_trnsy$, e$
+ J# c: i  S- t5 t# u$ D6 O          ]
        else, #Rotate cancel
          [
          pbld, n$, strns_rot_off, e$
( b/ e: q. l1 M& y6 }          ]
        absinc$ = sav_absinc
, u. T; F+ U  s7 A/ R+ H5 w        no_nc_out$ = zero
        ]
      end_sub_mny = sub_mny_t$
' T9 h3 t$ o7 i' N
psub_end_mny    #End in main level for many tools sub, user
      #Check for coming out of xform with stage tool.
      if end_sub_mny & stagetool = one,
# d) c$ U% G9 Y0 ^7 }3 R2 _% N        [
        *t$
) X7 l1 ?/ x* ^( c# k9 f        end_sub_mny = zero
! P% p9 }# X$ y  M        ]

0 a+ `8 T/ T+ D) a% P+ p1 a% fpsub_call_s$     #Call to sub level
      result = nwadrs(strp, sub_prg_no$)
/ q2 C3 U& a7 i& b* i      sub_prg_no$ = sub_prg_no$ + 1000 #Add sub number offset
      if progno$ = sub_prg_no$, result = mprint(sprgnerror)
) D2 q8 u* d) N      pbld, n$, "M98", *sub_prg_no$, e$

, V/ T: Y6 A& u1 n( |* Zpsub_st_s$       #Header in sub leveln
      result = nwadrs(stro, sub_prg_no$)
1 A/ d2 W/ p6 E4 i* T2 A      " ", e$
      *sub_prg_no$, e$
) c9 l3 g5 a+ c- I8 p: L& a      pbld, n$, sgabsinc, e$

# X% I5 G4 Y3 k/ A+ @2 m1 i, i* ^2 cpsub_end_s$      #End in sub level
  N9 V+ k% S5 x! q6 K3 _% i( J      n$, "M99", e$
; q& E( Y& `. T1 q* z- Y3 A  N* `* o      prv_absinc$ = -

duolzw

# --------------------------------------------------------------------------
, N0 d8 X0 T: x6 i* q& s# Canned Text
8 b1 _: `1 R/ w, t# --------------------------------------------------------------------------
pcan            #Canned text - before output call
      strcantext = sblank
      if cant_no$ > zero,
7 Y8 F  F! g2 r, ^- Y4 n0 Z, G) J        [
        if cant_pos1$ = zero | cant_pos1$ = three, pcant_1
( ?2 N& |2 P& y2 c        if cant_pos2$ = zero | cant_pos2$ = three, pcant_2
: W* {/ a% p$ }6 p7 M* f        if cant_pos3$ = zero | cant_pos3$ = three, pcant_3
0 I3 O# D" h( O2 {        if cant_pos4$ = zero | cant_pos4$ = three, pcant_4
/ L7 j" N8 G. z& e0 @6 w7 f        if cant_pos5$ = zero | cant_pos5$ = three, pcant_5
& {5 M) H* _& y$ m* K        if cant_pos6$ = zero | cant_pos6$ = three, pcant_6
        if cant_pos7$ = zero | cant_pos7$ = three, pcant_7
        if cant_pos8$ = zero | cant_pos8$ = three, pcant_8
) m- n5 A0 U  o" S0 D+ ^0 ~! B        if cant_pos9$ = zero | cant_pos9$ = three, pcant_9
' Q. p7 j+ w) v& p/ b+ U        if cant_pos10$ = zero | cant_pos10$ = three, pcant_10
        if cant_pos11$ = zero | cant_pos11$ = three, pcant_11
( L& r' F( q: u5 c7 y2 Q+ Y        if cant_pos12$ = zero | cant_pos12$ = three, pcant_12
        if cant_pos13$ = zero | cant_pos13$ = three, pcant_13
' z& p( ]7 \( K        if cant_pos14$ = zero | cant_pos14$ = three, pcant_14
        if cant_pos15$ = zero | cant_pos15$ = three, pcant_15
        if cant_pos16$ = zero | cant_pos16$ = three, pcant_16
        if cant_pos17$ = zero | cant_pos17$ = three, pcant_17
( b. e2 E& o: @  a, S) z+ {        if cant_pos18$ = zero | cant_pos18$ = three, pcant_18
* v% ^5 F7 g. |# H' a; R7 x8 I        if cant_pos19$ = zero | cant_pos19$ = three, pcant_19
        if cant_pos20$ = zero | cant_pos20$ = three, pcant_20
        pbld, n$, strcantext, e$
# t$ i2 K3 G, R: }        strcantext = sblank
        ]
# M! v8 }# ~5 l3 B7 A
pcan1           #Canned text - with move
      strcantext = sblank
% {  B) [2 _9 S      if cant_no$ > zero,
& g5 P7 G8 g; a- h1 i. |7 `        [
0 P5 S" q+ z! k        if cant_pos1$ = one | cant_pos1$ = four, pcant_1
1 J- d' o! r( ]: D0 F" H9 A        if cant_pos2$ = one | cant_pos2$ = four, pcant_2
        if cant_pos3$ = one | cant_pos3$ = four, pcant_3
        if cant_pos4$ = one | cant_pos4$ = four, pcant_4
( W+ J) B3 N( o  B* Z- i" u        if cant_pos5$ = one | cant_pos5$ = four, pcant_5
        if cant_pos6$ = one | cant_pos6$ = four, pcant_6
        if cant_pos7$ = one | cant_pos7$ = four, pcant_7
5 u. m  o1 \" ^8 A% @/ ^8 Z        if cant_pos8$ = one | cant_pos8$ = four, pcant_8
        if cant_pos9$ = one | cant_pos9$ = four, pcant_9
" }. t! u$ i' P% K$ G& a        if cant_pos10$ = one | cant_pos10$ = four, pcant_10
+ s! d1 E1 F6 C" O/ k5 J# u7 Q        if cant_pos11$ = one | cant_pos11$ = four, pcant_11
( K1 N2 E8 U- f" Q4 x        if cant_pos12$ = one | cant_pos12$ = four, pcant_12
1 v* e! a5 P4 ]$ t/ t        if cant_pos13$ = one | cant_pos13$ = four, pcant_13
& ~# v. m% Z6 E* C" Z4 a# ?+ {1 I% p        if cant_pos14$ = one | cant_pos14$ = four, pcant_14
        if cant_pos15$ = one | cant_pos15$ = four, pcant_15
        if cant_pos16$ = one | cant_pos16$ = four, pcant_16
5 L" Y' N, s% g% S* A        if cant_pos17$ = one | cant_pos17$ = four, pcant_17
: ?+ L% r5 v! q8 _5 C& x        if cant_pos18$ = one | cant_pos18$ = four, pcant_18
6 V- b+ |+ }0 o' h        if cant_pos19$ = one | cant_pos19$ = four, pcant_19
3 }8 Q% ~7 m1 E2 D' s, I- o' h  w        if cant_pos20$ = one | cant_pos20$ = four, pcant_20
* W  ?! `0 M; P$ ^        ]
( s! y- ]2 z+ M4 R. }  A: N      if cstop$, strcantext = strcantext + sm00
      if cgstop$, strcantext = strcantext + sm01
      #Output of strcantext occurs at the end of the output line
4 G7 h/ v1 _0 F! e! H$ Q* k
pcan2           #Canned text - after output call
      strcantext = sblank
      if cant_no$ > zero,
& Q! R+ e( M  a2 P* W        [
1 F+ j; [. P* g        if cant_pos1$ = two | cant_pos1$ = five, pcant_1
        if cant_pos2$ = two | cant_pos2$ = five, pcant_2
  C* g/ I( R6 b0 J6 d        if cant_pos3$ = two | cant_pos3$ = five, pcant_3
( M! \! p. I0 y, f" y        if cant_pos4$ = two | cant_pos4$ = five, pcant_4
        if cant_pos5$ = two | cant_pos5$ = five, pcant_5
. a+ |" x$ Y* _- X& A% D7 |9 j        if cant_pos6$ = two | cant_pos6$ = five, pcant_6
        if cant_pos7$ = two | cant_pos7$ = five, pcant_7
        if cant_pos8$ = two | cant_pos8$ = five, pcant_8
+ I, Z- y7 c+ F' `+ D! z& R& ^        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
4 @+ h( O: Q6 P0 ~        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
        if cant_pos16$ = two | cant_pos16$ = five, pcant_16
) H! Z7 |: u1 O- H3 q, S; k9 |5 L        if cant_pos17$ = two | cant_pos17$ = five, pcant_17
        if cant_pos18$ = two | cant_pos18$ = five, pcant_18
; M8 C/ T; z% g0 u: y4 J7 i, ^1 h        if cant_pos19$ = two | cant_pos19$ = five, pcant_19
) b6 Y' y/ F0 O3 T4 O        if cant_pos20$ = two | cant_pos20$ = five, pcant_20
7 z0 K. {1 b# z' Q  g        pbld, n$, strcantext, e$
2 v( x1 _6 Z. q$ t; j& o8 K        strcantext = sblank
        ]
3 {+ k. x! v( }/ h3 H
2 E! s4 x* L7 H* Apcant_1         #Canned text - output call
& G$ W9 Y" Z% O3 X5 {      cant_pos = cant_pos1$
      cantext$ = cant_val1$
      pcant_out
* |; Z$ Y* m8 F% |) s+ S( G
pcant_2         #Canned text - output call
: h. O: a9 h" _, G$ Y$ A      cant_pos = cant_pos2$
# x- ?1 Q" D9 Z2 |      cantext$ = cant_val2$
$ C" [. ^2 T& v+ c4 q0 g, x      pcant_out

: {; K3 Z9 A  x& Vpcant_3         #Canned text - output call
- r9 I. }+ n' s4 C      cant_pos = cant_pos3$
      cantext$ = cant_val3$
      pcant_out
: G' }# b) L7 z, M  `
pcant_4         #Canned text - output call
      cant_pos = cant_pos4$
2 G0 y) [% ?- K      cantext$ = cant_val4$
      pcant_out

( P1 T- G6 w- |! ~. M' P0 X. P! Hpcant_5         #Canned text - output call
      cant_pos = cant_pos5$
      cantext$ = cant_val5$
# i& C3 t0 ]: J! H5 b      pcant_out
) [% d6 f4 b  P$ e9 i
3 z9 i6 t) L  y' Z- O, x* Hpcant_6         #Canned text - output call
      cant_pos = cant_pos6$
$ U% q# ^  N$ g. E8 _+ Y8 ~6 ^      cantext$ = cant_val6$
      pcant_out
5 k  s" x; n- a: q/ A( d
4 b9 W% Q8 L7 n2 r  cpcant_7         #Canned text - output call
- F2 i6 |7 v: N& B3 m# Q* u      cant_pos = cant_pos7$
      cantext$ = cant_val7$
' r/ Q: K- V6 N1 }; Q      pcant_out
9 b) G$ p7 U/ g; N3 F" y
: t! K; ^2 N; S5 R  lpcant_8         #Canned text - output call
. i9 h& A0 L- n9 [- e  z9 m/ d7 ~      cant_pos = cant_pos8$
      cantext$ = cant_val8$
      pcant_out

pcant_9         #Canned text - output call
0 r" N& B" i3 W$ d: t1 Y( d      cant_pos = cant_pos9$
- P) A- o' q/ ~5 x# |  r      cantext$ = cant_val9$
      pcant_out

pcant_10        #Canned text - output call
6 ?1 u. A9 U. `! [3 q+ z+ I* R      cant_pos = cant_pos10$
      cantext$ = cant_val10$
1 a% c7 T2 Z  D( v4 q: f8 ]      pcant_out
# w* Y. `* A3 ~/ `( g
/ |; X+ a! M- cpcant_11        #Canned text - output call
      cant_pos = cant_pos11$
      cantext$ = cant_val11$
  N3 Q" L! X$ [4 K      pcant_out
2 M0 F% i! \% p  j6 n# H
pcant_12        #Canned text - output call
9 d# K$ |. |" O: B      cant_pos = cant_pos12$
' M2 Q& Y: z! Z; }! E      cantext$ = cant_val12$
% \- Y0 }& ^* m9 ^, r) n% C6 E      pcant_out
7 R* u1 O1 y# l# O% x
8 Z+ W0 p3 a9 [/ Y0 @1 fpcant_13        #Canned text - output call
7 U$ W' l4 V: h% E8 G; I3 W& ~/ b      cant_pos = cant_pos13$
9 A. r5 d4 x% V4 u% z      cantext$ = cant_val13$
7 g- l* a: ~( `' P8 B* _+ t      pcant_out

pcant_14        #Canned text - output call
      cant_pos = cant_pos14$
4 r: H( V7 m" D3 X      cantext$ = cant_val14$
2 N+ j- @% T$ x7 y  K6 E/ ^      pcant_out

pcant_15        #Canned text - output call
: M9 B! L: J: M# _3 u      cant_pos = cant_pos15$
, b1 C( K: n* F6 |8 L, a      cantext$ = cant_val15$
      pcant_out

pcant_16        #Canned text - output call
% }# e7 T$ Q5 u- ?. e+ T2 U1 k- N      cant_pos = cant_pos16$
- B6 @" l4 M! Q4 y& _$ T      cantext$ = cant_val16$
      pcant_out

pcant_17        #Canned text - output call
, y. e, Q2 \! F2 Q7 X      cant_pos = cant_pos17$
0 t8 ]# O. P: t/ u6 G* A& C1 N      cantext$ = cant_val17$
      pcant_out
7 M0 t$ O! L( _, I) }
6 }* X9 y7 u+ y5 ]& Gpcant_18        #Canned text - output call
$ B1 u2 }2 Z( w4 g      cant_pos = cant_pos18$
      cantext$ = cant_val18$
      pcant_out

  E% A7 j# n3 A' Jpcant_19        #Canned text - output call
$ S: H. a  O! l' \, k) N' c      cant_pos = cant_pos19$
3 N+ I- I2 x5 p+ w      cantext$ = cant_val19$
3 r) Y+ u9 Z- ~) H/ H& ^6 j$ U* F' [      pcant_out
2 i7 i9 Q$ d' p8 N( l* O
8 H4 M4 x1 k* J' e" ], v. y1 B7 zpcant_20        #Canned text - output call
      cant_pos = cant_pos20$
      cantext$ = cant_val20$
      pcant_out
: Y3 P0 u. T/ ^! ?2 @. L
5 i1 o+ G& ]! K4 z& P8 Kpcant_out       #Canned text - build the string for output
" W# b$ a4 g3 q9 X* T7 z: Q& |: G      #Assign string select type outputs
      if cant_pos < three, #cant_pos indicates canned text output
6 L# H- x( N. w" o        [
/ ^- B" G; P1 A1 A& }        if cantext$ = three, bld = one
6 q1 x, Q# _  T7 \! H" s5 W3 f        if cantext$ = four, bld = zero
  v% O  j- u% `# n        #Build the cantext string
        if cantext$ = one, strcantext = strcantext + sm00
        if cantext$ = two, strcantext = strcantext + sm01
        if cantext$ > four,
, [$ |" M3 |$ B/ g$ o  F% v          [
          strtextno = no2str(cantext$)
          strcantext = strcantext + strm + strtextno
0 [- @4 z! _$ H" h2 f  Z3 r          ]
# \( W+ W$ W" l9 p8 O/ e7 c7 P2 ~. Y        ]
& |  T  |6 x$ B) m, \! ]      else, #cant_pos indicates coolant output
  m5 w0 T) }8 z* E: a# q        [
        coolant_bin = flook (two, cantext$) #Create binary value for each coolant using lookup table
' Y% x7 h; g! O; E- ]4 O        if frac(cantext$/two),
; Q+ M! A" z0 j+ |( p# r1 F8 q          [
' ?  n5 `! u  q: ^: ^/ K6 G9 v          if all_cool_off,
            [
, ?4 @/ h! D& E7 [/ m/ O  M) g            if coolant_on, pbld, n$, *sall_cool_off, e$
            coolant_on = zero
8 p$ h& o+ s) @% C" i8 [            ]
          else, coolant_on = coolant_on - coolant_bin/2 #Odd = off command, subtract appropriate binary value.
% {# A$ _' i/ Z) [$ {          ]
        else,                                         #Even = on command
          [   #Determine if this coolant is already on
          local_int = zero
          coolantx = zero
          while local_int < 20,
            [
" p5 ~/ k* ?: g            result2 = and(2^local_int, coolant_on)
* v- V) q0 s) m2 k& \            local_int = local_int + one
$ x: U0 s/ q: Q! n3 k* C. m            if result2 = coolant_bin, suppress = one
            ]
$ i. {, J7 ~% y$ p          ]
        if suppress <> 1, #Don't output an on code for a coolant that is already on
8 h- }/ ]( N" j1 Z2 {5 W  ^/ W          [
9 A" l6 x5 C8 d- Y' f5 X          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
1 R) F/ b# x$ Y8 t0 h  y2 Y. ]- X          pbld, n$, *scoolantx, e$
          ]
# K. f! \: ~3 z( v        suppress = zero
        ]

duolzw

# --------------------------------------------------------------------------
# Position calculations, generally these do not need to be modified
/ \4 W$ N2 V9 Y+ M% \. `# --------------------------------------------------------------------------
pmiscint$        #Capture the top level absinc for subprograms
      if sub_level$ <= zero, absinc$ = mi2$

pcheckaxis      #Check for valid rotary axis
7 ~. w# r7 M* ~! \      #If selected axis combination has more than 0 rotary axes and toolpath has rotation
      if (mill5$ | rotary_type$ = 1 | rotary_type$ = 2) & rotaxerror = 1, [if mprint(srotaxerror, 2) = 2, exitpost$]
6 T1 h1 o0 l8 S. @/ X
pxyzcout        #Map coordinates
      xabs = vequ(x$)    #Retrieve X,Y,Z positions into xabs,yabs,zabs
0 ]" d3 h  n, J6 W9 x- `      iout = vequ(i$)
      feed = fr_pos$
      if feed > maxfeedpm, feed = maxfeedpm
2 C6 `6 V! N; i( `
#Incremental calculations
0 o/ Z1 Z( ~" }; q" Tps_inc_calc     #Incremental calculations, start
( b6 }; M. O* w- T1 h* i( P1 T' f      xia = fmtrnd(xabs)
      yia = fmtrnd(yabs)
% j4 P2 i  R# R# ]6 K      zia = fmtrnd(zabs)
6 P& h, v$ W/ z/ C1 A% i7 h      xinc = vsub (xia, prv_xia)
4 r% @# O1 [1 q
4 ?8 c5 \: F) Ppe_inc_calc     #Incremental calculations, end
, @; L1 Q2 @. u+ v      !xia, !yia, !zia
. {! u. J, J& t! k! ]6 }      !x$, !y$, !z$, !cc_pos$
& K" _* @) v8 T* n
# --------------------------------------------------------------------------
# Parameter read postblocks:
# --------------------------------------------------------------------------
pprep$          #Pre-process postblock - Allows post instructions after the post is parsed but before the NC and NCI file are opened.
! _$ O8 h5 h5 Q+ B; J#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)
; n: s5 J& l# e% N7 f* k      rd_md$       #Read machine definition parameters

+ n5 U8 u9 O/ t+ K4 n: Mpwrtt$          #Pre-read NCI file
* S7 o+ |& m7 z( u" }% L$ x6 K6 p2 y      if tool_info > 1 & t$ > 0 & gcode$ <> 1003, ptooltable
      if ra_type$, ra_error = 1  #Aggregates NOT supported in this post

8 M6 q9 T; [6 d$ [$ w4 ^( p3 hpwrttparam$     #Pre-read parameter data
! o% j, w; A. G9 Y: x      #"pwrttparam", ~prmcode$, ~sparameter$, e$
" C: \% d  i8 m; w" W1 d      if prmcode$ = 15346, comp_type = rpar(sparameter$, 1) #Cutter compensation type - 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
      if prmcode$ = 10010, xy_stock = rpar(sparameter$, 1)  #Capture stock to leave (XY)
+ f6 j$ C0 c- M# r      if prmcode$ = 10068, z_stock = rpar(sparameter$, 1)   #Capture stock to leave (Z)
$ {' n6 N) A+ p& w: B7 i# V: n
pparameter$     #Read operation parameters
3 K( M5 L! M$ {+ n8 u9 K) U4 ~      #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$

) |- R  y8 ~& i' c* }- y% P& Z2 A# --------------------------------------------------------------------------
# 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
; ], T% x- r: ~$ M8 ]#       Param   Variable to load value into
8 D1 J, L0 m$ F9 b$ J6 Q        17605   min_speed    #Minimum spindle speed
        17055   maxfeedpm    #Limit for feed in inch/min
        17063   maxfeedpm_m  #Limit for feed in mm/min
0 ]% _- [+ b4 `" m# u        17101   all_cool_off #First coolant off command shuts off ALL coolant options

( [1 T2 Z! c" f! U9 p# Control Definition Parameters
4 q* z  J  }+ }/ h2 bfprmtbl 18000   0    #Table Number, Size
#       Param   Variable to load value into
# u$ `1 Q  @$ e1 \
5 p# c/ K' @/ X6 e- {6 D6 X; @9 g/ x( P# Toolpath Group Parameters
1 [& x. G" d3 _5 I% kfprmtbl 19000   0    #Table Number, Size
#       Param   Variable to load value into
% g8 u: D% k- C7 I; X" @0 B/ ~
# --------------------------------------------------------------------------
3 I5 V: U4 w3 w' ]" q( opset_mach       #Set post switches by reading machine def parameters
' Z) Y2 b* v, F) m      rot_ax_cnt = 0
      rotaxerror = 0
, Z! b; H; z) c& K. s9 c9 F      #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
6 {6 f* w0 m' I* `# a      !maxfeedpm, !maxfeedpm_m
& `  c! ~- u, H) Z, E
- W$ y& e+ e2 l% ^      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$

/ r8 H5 X# X: ?      #We only need this set at toolchange (and start of file).  No need to set them each time a user may call rd_md
# c" v" P! x" z8 s      if met_tool$ = 1, maxfeedpm = maxfeedpm_m         #Set limit for feed in mm/min

$ X* w6 O) n$ D" z# --------------------------------------------------------------------------
# Machine definition and control definition parameter capture:
/ h# i. f) i' E# --------------------------------------------------------------------------
pmachineinfo$   #Machine information parameters postblock
5 u9 R% x8 E# z, k$ |9 `, Y      #rd_md is used to call pmachineinfo postblock and read the parameters of the selected axis
      #combination machine entity set in rd_mch_ent_no.
      #rd_cd is used to call pmachineinfo postblock and read the active control definition parameters
      #rd_tlpathgrp is used to call pmachineinfo postblock and read the active toolpath group parameters
. D4 |& P/ k. p( Y. u- M% ?- D      #"-->pmachineinfo", ~prmcode$, "  ", ~sparameter$, e$  #Do not uncomment if being called from pprep$ - see pprep comment
' D- i5 V7 \0 f1 i) D
* L9 ~, c" V7 ~' N      #Read parameter lookup tables -
$ }! ^- v0 D7 y      if prmcode$ >= 17000 & prmcode$ < 18000, result = fprm(17000) #Run the parameter table for Machine Definition Parameters
      #Leave lines below commented until you enter values in related lookup tables
/ y. f0 |0 E* T7 S: J4 ?, \3 a$ c      #if prmcode$ >= 18000 & prmcode$ < 19000, result = fprm(18000) #Run the parameter table for Control Definition Parameters
5 o9 H9 l; d) b      #if prmcode$ >= 19000 & prmcode$ < 19900, result = fprm(19000) #Run the parameter table for Toolpath Group Parameters
/ x. z3 w) m0 B5 P7 d& x! e
      #Count rotary axis and output error message if one is found in the active axis combination
* b' E3 C" b! h1 f: _# K6 T      if prmcode$ = 19958,
3 d2 P) x" T  e0 g$ a$ n        [
. ~# q/ E: _! Z! ~' N        component_type = rpar(sparameter$, 1)  #Component type
' [) X, i! v8 v9 p: p+ H7 G$ [        if component_type = 5,
; S" ^, ^5 e: m( \          [
          rot_ax_cnt = rot_ax_cnt + 1  #Rotary component
          if rot_ax_cnt = 1, rotaxerror = rotaxerror + 1   #Post only supports 1 rotary per axis combination
' \6 V5 M) ?5 Z3 {8 k5 L& }" x7 Z          ]
* r/ t, Y& H/ y( C        ]

      #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
: b3 v8 I& O* c% }      !maxfeedpm, !maxfeedpm_m

duolzw

# --------------------------------------------------------------------------
; u3 l: s+ @0 }# POST TEXT
# --------------------------------------------------------------------------
[CTRL_MILL|DEFAULT]
[misc integers]
1. "Work Coordinates [0-1=G92, 2=G54's]"//2
8 q) \! ^: V! W& F, M7 `2. "Absolute/Incremental, top level [0=ABS, 1=INC]"
3. "Reference Return [0=G28, 1=G30]"
[simple drill]
' A' g' g, ^/ ^! t4 E$ F1. "Drill/Counterbore"
7. ""
8. ""
: E; g& c2 ]; c4 s4 y9 o( n, E! O7 T9. ""
! i! u+ z6 W- A) h! }  L% P$ Q! _10. ""
11. ""
- P/ m% |, w9 i5 h/ d[peck drill]
3. ""
5 x: L/ L) W! i" y; E/ g2 g, {7. "Peck"
2 u' G: d0 c1 o* ?2 w/ M. b8. ""
9. ""
10. ""
11. ""
[chip break]
3. ""
7. "Peck"
8. ""
9. ""
2 Y2 o+ \4 m4 H8 x% ^10. ""
# B, o8 }. \! S) M* ]11. ""
+ U& U1 L* A8 x+ n: A3 s2 F! y[tap]
" n& t5 ~" i5 k" U3. ""
" N0 d* Y4 R4 j, E7. ""
8. ""
9. ""
! d6 ?1 t* @7 ?8 C( k! A10. ""
% m) |' ?; c( c0 m: b0 q11. ""
' l/ K. f( }# }+ z[bore1]
1. "Bore #1 (feed-out)"
' G0 s& i2 v% O9 ~4 ]% |( [+ }' `7. ""
8. ""
9. ""
( q1 l3 T2 q) p. p6 X% G10. ""
11. ""
[bore2]
1. "Bore #2 (stop spindle, rapid out)"
3. ""
1 X% s! ?. o+ C5 O# X7. ""
8. ""
9. ""
10. ""
4 l) R8 w) k. y. |- @  O# Z11. ""
[misc1]
1. "Fine Bore (shift)"
7. ""
8. ""
' k8 ~: i" F; y) }, a9. ""
2 O# k9 J9 F4 S% c10. ""
& k. a1 x  K  o$ e[misc2]
1 ^+ |: @% l5 G% R/ `- H2 |1. "Rigid Tapping Cycle"
3. ""
1 h# g  l2 m, H$ w7. ""
8. ""
4 q" R! I" h) G9. ""
- ~3 z0 u! I6 N8 q+ Y10. ""
11. ""
, }: N2 R4 K* c& ]% O3 B: B5 O  J[drill cycle descriptions]
7. "Fine bore (shift)"
+ T, A) @  f. x( a/ Z: @8. "Rigid Tapping Cycle"
[canned text]
/ f: a8 D5 Y5 N4 n/ l+ \  F1. "Stop"
) F- W6 T: A7 r7 g2 X2. "Ostop"
1 ^: [% A7 E1 \" B3 a! I3. "Bld on"
9 o% y' w& J! o8 d5 O. h; R4. "bLd off"
5. "M5"
. A( g6 p" K( n; Z6. "M6"
, E. K' T9 E5 K1 o8 t0 g0 Y, j' a7. "M7"
2 ?, t' k$ F0 k5 J" R4 c. C! B. B8. "M8"
/ K( s  H: _' S8 s, w3 r9. "M9"
10. "M10"
: U" x/ r5 n( w3 W5 f. S[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]"
! C" P4 P* ~1 z3. "Reference Return [0=G28, 1=G30]"
[simple drill]
2 H5 z# G7 g- F# i2 Y% z3 y4 z+ F( f1. "Drill/Counterbore"
2 g+ L" W% |* }. j+ D0 `9 _0 i7. ""
8. ""
) Z( h0 n0 g' L3 y. p0 L: \9. ""
9 J/ V8 o& B# q1 C1 B/ ^10. ""
11. ""
[peck drill]
  E& i" q7 }6 G8 {, e2 N  k/ y3. ""
( D  Z& U- S! o7 m3 O7. "Peck"
: V/ b$ |( a9 W* N) ^8 x: t8 ~( @. X8. ""
9. ""
3 Q3 o; D; T7 j" m) s5 U: Y10. ""
* B% `. ~) l2 q5 M1 m# |, `3 Q7 Z5 `11. ""
[chip break]
3. ""
  e% }7 q; H% x# l7. "Peck"
/ X, d- M: @9 E' f7 v* i8. ""
9. ""
10. ""
11. ""
[tap]
3. ""
7. ""
8. ""
4 y  v/ E" n' r3 h8 H/ O# I9. ""
! R7 |$ n+ ?  J( z7 M10. ""
6 _( w5 ~6 r2 s" E& X; d8 k  M+ h11. ""
[bore1]
0 T+ Q+ s1 S: _3 \# R; f1. "Bore #1 (feed-out)"
7. ""
5 s' i$ @) p) E$ ^2 H8. ""
9. ""
10. ""
1 P7 V) \( t9 \- C% k11. ""
. |8 d+ ?2 Y0 l1 F7 M  b[bore2]
# a$ I' P  a' O; S" q& t9 b  l1. "Bore #2 (stop spindle, rapid out)"
3. ""
7. ""
0 }2 |/ u% z" `1 M2 B+ i8. ""
3 J: ~8 g3 p7 t5 z- g3 \' k/ s5 g7 G9. ""
! s, Y* G& C' w- V- V10. ""
11. ""
[misc1]
4 I6 n4 R8 }# ^2 f, k6 Y% a% Q1. "Fine Bore (shift)"
7. ""
% a5 N6 L' [' _; R+ h8 F! ^+ v8. ""
/ f$ l% ]3 {' C2 S/ d0 m9. ""
; b8 w5 \2 c3 ]- n. r0 d10. ""
8 |$ ]; ~7 V+ z[misc2]
1. "Rigid Tapping Cycle"
3. ""
7. ""
" M, Z$ h/ G5 b# }: l7 P) ^9 ^% P( j8. ""
9. ""
10. ""
' r( Y4 Y8 z' E, F: [11. ""
8 ^% i6 T2 Y$ f, K8 l[drill cycle descriptions]
7. "Fine bore (shift)"
8. "Rigid Tapping Cycle"
[canned text]
1. "Stop"
2. "Ostop"
3. "Bld on"
7 ~0 r# f5 i! B0 i9 U- [4. "bLd off"
5. "M5"
9 f- z% |2 p- J6. "M6"
$ L: F5 c, I2 ^, R7. "M7"
1 [' R1 r, x' }/ E; l8. "M8"
9. "M9"
, w! s8 b3 R% c8 g10. "M10"
8 E9 R' o  j9 ?; u& E& e[CTRL_TEXT_END]

duolzw

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

jacky028

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

ya574544187

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