坐标设置

duolzw

ptlchg1002$      #Call at actual toolchange, end last path here                        
5 U8 j6 t0 c4 D2 F  s" T6 ?      if op_id$ <> prv_op_id$, pset_mach   #Read machine def parameters
0 t  B6 H5 r- A, T+ F- e      pspindle
, @% w- k5 T# h4 }0 u. r+ s' U      whatline$ = four #Required for vector toolpaths
      if gcode$ = 1000,
3 l9 x1 Q- O8 ]$ c        [
        #Null toolchange
        ]
" L4 t1 d" L' V& ^8 M) c; T      else,
        [
' ^, u/ H* j, E7 n! y5 S- J% @5 L        #Toolchange and Start of file
( G5 K" M4 W! r  u( h9 c3 R! Y5 V        if gcode$ = 1002,
          [
0 q# b$ p; r! z# h4 @% g' D1 `8 n          #Actual toolchange
& `* r% ?/ G) r) v          pretract
          ]
- O: {. ?  {# i) S2 z! @1 a& p        if stagetool = one, prv_next_tool$ = m_one
        prv_xia = vequ(xh$)
7 s6 g$ p1 a; a$ x& ^( T3 U        prv_feed = c9k
, _2 O% j- }$ k, G+ {        ]
      !op_id$

# --------------------------------------------------------------------------
# Motion NC output
1 m5 @. ^7 X; s9 M0 |% U+ }# --------------------------------------------------------------------------
#The variables for absolute output are xabs, yabs, zabs.
#The variables for incremental output are xinc, yinc, zinc.
4 {4 d0 X, A0 ^& B# --------------------------------------------------------------------------
, x# f  g" V4 h  F. pprapidout       #Output to NC of linear movement - rapid               
      pcan1, pbld, n$, sgplane, `sgcode, sgabsinc, pccdia,
( a4 k( w4 m$ z% i0 A# z        pxout, pyout, pzout, strcantext, scoolant, e$
, R" H3 s- F% d, A8 S. l      #Modify following line to customize output for high-speed toolpath
      #tool inspection/change points
5 ~+ _& z4 Z+ Y, W) R- l! ~( G- @      if rpd_typ$ = 7, pbld, n$, "M00", "(TOOL INSPECTION POINT - POST CUSTOMIZATION REQUIRED)", e$
6 H, }+ B/ t; _5 u
plinout         #Output to NC of linear movement - feed                    
) i0 g: Y  q3 S3 O      pcan1, pbld, n$, sgplane, `sgcode, sgabsinc, pccdia,
* ?. Q9 q) _$ ~) J1 X& R% x        pxout, pyout, pzout, feed, strcantext, scoolant, e$
      #Modify following line to customize output for high-speed toolpath
      #tool inspection/change points
      if rpd_typ$ = 7, pbld, n$, "M00", "(TOOL INSPECTION POINT - POST CUSTOMIZATION REQUIRED)", e$
2 m" @9 o8 l  b( m
pcirout         #Output to NC of circular interpolation
      pcan1, pbld, n$, sgplane, sgcode, sgabsinc, pccdia,
# V( v/ z2 S' C$ A/ k, {        pxout, pyout, pzout, parc, feed, strcantext, scoolant, e$

pcom_moveb      #Common motion preparation routines, before
; y% }0 B5 w/ ~& @# ~  s# M8 N" t2 H      pxyzcout
! V. ?8 N; h+ i6 B+ Y  ]      ps_inc_calc
( }# {/ @+ y% X
1 d5 D+ ^6 c; q! @pncoutput       #Movement output
1 D0 X' g0 L' ~; v      pcom_moveb
% x0 n/ l& M7 Q      comment$
3 K- c# o/ _/ X; X+ d. X+ h      pcan
      if gcode$ = zero, prapidout
      if gcode$ = one, plinout
5 [- y# {  ~$ y& r      if gcode$ > one & gcode$ < four, pcirout
      if mr_rt_actv, #Restore absolute/incremental for G51/G68
        [
9 W8 ]8 ~5 v' Z: e* H        absinc$ = sav_absinc
3 p  I: q  A4 s4 ?3 _9 q! C        mr_rt_actv = zero
        ]
      pcom_movea

% D  X  e1 q" e8 ~& x. m$ [# ipcom_movea      #Common motion preparation routines, after
; V- f4 j8 I2 I- z1 y4 m      pcan2
0 f! H+ x3 k/ s      pe_inc_calc

9 z+ z/ Y9 j: _; q2 q7 V# Gpdwl_spd$        #Call from NCI gcode 4
# w* h4 [, y; }  ?5 {7 r7 Q: L+ h      pspindle
9 G  K/ Q2 S5 ]6 P2 ?8 r  S; Y0 d      comment$
      pspindchng
      pcan
      if fmtrnd(dwell$), pcan1, pbld, n$, *sgcode, *dwell$, strcantext, e$
      else, pcan1, pbld, n$, strcantext, e$
0 H  @- s' C; S9 F" j3 J& S      pcan2
* {3 q+ S* d0 K: J# {: U) x
" J! U' q. B9 w% Z' K/ Kprapid$          #Output to NC of linear movement - rapid               
      pncoutput

pzrapid$         #Output to NC of linear movement - rapid Z only   
/ b0 F, f: x% Q, ~. I2 g      pncoutput

plin$            #Output to NC of linear movement - feed                    
      pncoutput
( \# v+ G; `9 N' ?/ y4 v% k* d
pz$              #Output to NC of linear movement - feed Z only         
      pncoutput
" C, ]% r; x$ @/ ~7 i$ |
pmx$             #Output to NC of vector NCI         
1 D$ _. b) N( |$ K( N      pncoutput
  i+ o5 f. ^, m$ Q* c4 ?3 {
, P. @$ L4 }3 `8 L* R3 R7 X- jpcir$            #Output to NC of circular interpolation                                
: ~% i4 i; @& ]2 Y      pncoutput

duolzw

# --------------------------------------------------------------------------
. G" s9 `7 U0 n! ^# Y5 c# Motion output components
# --------------------------------------------------------------------------
7 v3 l# D4 z' t) Tpbld            #Canned text - block delete
. e( D8 g8 w: @      if bld, '/'

pfbld           #Force - block delete
5 g; j. ?. D. H2 a7 ~7 z" y" l/ S      "/"
  K# `# G. |4 n# u; O& @
) _6 n) L% Y0 r3 ?' W$ spccdia          #Cutter Compensation
      #Force Dxx#   
2 ?9 [% H1 O) F/ p' n! f      if prv_cc_pos$ <> cc_pos$ & cc_pos$, prv_tloffno$ = c9k
      sccomp
0 t- X5 p2 q0 V" h4 F      if cc_pos$, tloffno$

pfxout          #Force X axis output
      if absinc$ = zero, *xabs, !xinc
) u3 p6 V$ y8 |+ r      else, *xinc, !xabs

3 A! }8 k& T# F4 @8 w* q$ Cpxout           #X output
% @4 r, g6 |8 v# _( w" E- E. ~. Q      if absinc$ = zero, xabs, !xinc
- I1 Q  c3 w3 G" f! O5 Y: s      else, xinc, !xabs

pfyout          #Force Y axis output
      if absinc$ = zero, *yabs, !yinc
      else, *yinc, !yabs
7 e% l$ O5 ^' x/ z
0 B% E! z% q0 b- s0 lpyout           #Y output
/ W  ^+ j$ U, G      if absinc$ = zero, yabs, !yinc
. ~8 s; a# Y& L. V5 C5 U* w      else, yinc, !yabs

pfzout          #Force Z axis output
      if absinc$ = zero, *zabs, !zinc
      else, *zinc, !zabs

( g8 o+ |6 _' x! [( mpzout           #Z output
. L3 A; w, e( E. Z- W      if absinc$ = zero, zabs, !zinc
- j; ?+ Z& i! l* Q; V' E. Z* H      else, zinc, !zabs

parc            #Select the arc output
* N: v' o  z; c$ T$ U      if (plane$ = zero & (arctype$ = one | arctype$ = four)) |   #XY Plane
        (plane$ = one & (arctypeyz$ = one | arctypeyz$ = four)) | #YZ Plane
        (plane$ = two & (arctypexz$ = one | arctypexz$ = four)),  #XZ Plane
0 N* d+ Y9 y* X! q, ]% D2 ^: \        [
" J* w' s6 ^) X) `1 ?, |; o! x        result = newfs(two, iout)
        result = newfs(two, jout)
0 K3 |/ n& y' s8 Z        result = newfs(two, kout)
        ]
      else,
        [
: N1 g" w) S1 h% y7 q1 E. s        result = newfs(three, iout)
        result = newfs(three, jout)
8 [5 T* }/ G% b2 X8 @        result = newfs(three, kout)
, O- v4 c- o7 l, d& |        ]
  n, R2 p  q0 a, s3 ^      if (plane$ = 0 & arctype$ < five) | (plane$ = 1 & arctypeyz$ < five) |
        (plane$ = 2 & arctypexz$ < five) | full_arc_flg$ | arc_pitch$,
        [
5 b1 g8 T) D  ~% s0 n3 x; Y3 B        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
: [' u$ K0 C. l! G, @* H        # remove the "*" asterisks on the *i, *j, *k 's below...
        if plane$ = zero, *iout, *jout, kout #XY plane code - G17
        if plane$ = one, iout, *jout, *kout  #YZ plane code - G19
7 \. I' p/ t! H3 {0 V  N# z        if plane$ = two, *iout, jout, *kout  #XZ plane code - G18
        !i$, !j$, !k$
        ]
      else,
6 a3 p8 ?1 O6 s% H8 A2 c        [
        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
3 r4 c. C) D  X( w* h          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
6 S2 C/ G. k" L3 D+ d5 K* |        else, result = nwadrs(srminus, arcrad$)
2 h8 X# `& t! {4 N7 t        *arcrad$
        ]

duolzw

# --------------------------------------------------------------------------
# Drilling
# --------------------------------------------------------------------------
) \" d, y6 z3 Z5 S4 |pdrlcommonb     #Canned Drill Cycle common call, before
      if initht$ <> refht$, drillref = zero
; W% [8 ~0 _& n5 w) v+ ?! L9 i  p% M      else, drillref = one
      if gcode$ = 81,
        [
        result = newfs(two, zinc)
        if drillcyc$ = three | drillcyc$ = 7, drlgsel = fsg1(-ss$) + drillcyc$ * two
. p" @% K/ i. [; e4 W+ h! d        else, drlgsel = fsg2(dwell$) + drillcyc$ * two
4 [/ c+ A3 |, @1 C6 @        prv_refht_a = c9k
. E" Y" Y6 W. e( i3 N3 E3 B  y7 h        prv_refht_i = c9k
7 G! r' Y- n+ E( Q        prv_dwell$ = zero
. {" S3 T! o& M        prv_shftdrl$ = zero
( m% r* T. C9 t. Y  m" v$ U! l        ]
      z$ = depth$
      prv_zia = initht$
      pcom_moveb
( r* q. u7 O+ Q- _- F. g" k( p0 B      feed = fr_pos$
( A8 d' q, R! `: L8 A1 _$ ?2 H      comment$
9 B; Q) }) l2 w( U4 X. F" C' @      pcan

prdrlout        #R drill position
      refht_a = refht$
      refht_i = refht$ - initht$
( D8 ^1 r: B3 Q      if absinc$ = zero, refht_a, !refht_i
7 [/ d7 C, z' N1 s" R- z% i      else, refht_i, !refht_a
9 d6 x/ O0 `/ D4 `" S# P# @  N1 P, q
. O+ a1 c: x# I) {) M) Wpdrill$          #Canned Drill Cycle
5 P; J6 k! o. L& @5 z3 M" y5 _      pdrlcommonb
/ ?- G( t% g- ~& E: S8 E/ Q      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
% e; d: J# a5 r  c        prdrlout, dwell$, *feed, strcantext, e$
      pcom_movea
6 W: G, ?* |4 b, ]# p; [
ppeck$           #Canned Peck Drill Cycle
      pdrlcommonb
  @& l% d' l" B      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, *peck1$, *feed, strcantext, e$
      pcom_movea
' F. I, ~, c- _2 K7 k
pchpbrk$         #Canned Chip Break Cycle
      pdrlcommonb
) j/ a. |9 J! H  ]( ]      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, *peck1$, *feed, strcantext, e$
% X" a9 w" \/ K  A5 b# {      pcom_movea

- C4 u: ^& p! N8 h( F) z. [ptap$            #Canned Tap Cycle
      pdrlcommonb
4 m  X( S+ K6 W1 D; W      result = newfs(17, feed)  # Set for tapping Feedrate format
& y6 ]$ a1 H2 V3 v' q/ ?# T8 R      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
& b  S1 |: [% w. g        prdrlout, *feed, strcantext, e$
      pcom_movea
5 B$ X$ z0 J. ]3 I; f
pbore1$          #Canned Bore #1 Cycle
4 f3 @6 l/ _6 Z. @8 J      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, dwell$, *feed, strcantext, e$
      pcom_movea
* g& Q$ p- A: \- {% ]+ ]- R
$ O* v. ]4 P6 u0 i/ Tpbore2$          #Canned Bore #2 Cycle
5 |$ n. G  r+ x: e  R      pdrlcommonb
( Z; U0 A- s, E6 i' d9 C8 q      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
! c' H5 I' ~+ Z3 a3 y9 t        prdrlout, *feed, strcantext, e$
# k. T$ Q. g" x! b2 A      pcom_movea
* T6 u/ v. u1 _2 e
' y  w0 w/ c; Upmisc1$          #Canned Fine Bore (shift) Cycle
! g2 `+ B# \9 @$ l" k" W3 y5 K      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
& D3 ^; ?% e7 R5 u$ ]# p9 k  ]: p        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
      pcom_movea

7 r- L! b7 Y7 r# Npmisc2$          #Canned Rigid Tapping Cycle
      pdrlcommonb
      #RH/LH based on spindle direction
      pbld, n$, sg95, e$
      pbld, n$, sm29, *speed, e$
( p3 P. q& d( N: q) X- e/ k      if met_tool$, pitch = n_tap_thds$  #Tap pitch (mm  per thread)
      else, pitch = 1/n_tap_thds$        #Tap pitch (inches per thread)
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
; v1 s8 j5 I8 P' ?. G        prdrlout, *pitch, !feed, strcantext, e$
      pcom_movea

* K" w$ A4 N5 g5 N3 N, s/ b8 ^pdrlcst$         #Custom drill cycles 8 - 19 (user option)
1 F; @9 f# j9 U% v      #Use this postblock to customize drilling cycles 8 - 19
: K2 L  u4 l8 F+ A2 V      if drillcyc$ = 8, pdrlcst8
      else,
# D6 R% [/ f6 X1 s0 _5 P        [
        pdrlcommonb
; ]( [- b1 {/ O# R: t0 A        sopen_prn, "CUSTOMIZABLE DRILL CYCLE - NOT CONFIGURED - FIRST HOLE", sclose_prn, e$
        pcom_movea
! l5 J3 H) \9 Y5 @        ]

8 ]$ w& l/ ?) _; D* F" e. r" qpdrlcst8         #Custom drill cycle 8 - example custom cycle
      pdrlcommonb
  C& c2 [4 s9 R# ?      sopen_prn, "CUSTOMIZABLE DRILL CYCLE EXAMPLE - FIRST HOLE", sclose_prn, e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
# N: R5 s3 ?9 v0 M3 |        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
4 t/ ?- M8 G8 V7 H      pcom_movea

# Additional Holes
pdrill_2$        #Canned Drill Cycle, additional points
! F  f" ]5 _$ H      pdrlcommonb
; A  v7 ?5 x3 o; }& K      pcan1, pbld, n$, pxout, pyout, pzout, prdrlout, feed, strcantext, e$
) f. n6 L3 n; L7 y. B: O, U      pcom_movea

ppeck_2$         #Canned Peck Drill Cycle
! h* @0 D  k' |1 U$ S  k2 [' @      pdrill_2$

7 t; B2 m2 ~/ {8 c4 x, }pchpbrk_2$       #Canned Chip Break Cycle
      pdrill_2$
6 T: |. K, ]! B* r2 d0 [  f
ptap_2$          #Canned Tap Cycle
7 x0 c" H* ]' Y, w) E3 w      pdrill_2$

pbore1_2$        #Canned Bore #1 Cycle
      pdrill_2$

; l* f  A& C$ ^8 B- D) Vpbore2_2$        #Canned Bore #2 Cycle
      pdrill_2$
& t' L# ]! e6 J! q% \
pmisc1_2$        #Canned Fine Bore (shift) Cycle
5 W( ~* A$ H9 O# M6 E      pdrill_2$
  z" r2 }# \- W* i! n8 s9 h/ p
pmisc2_2$        #Canned Rigid Tapping Cycle
      pdrlcommonb
      pcan1, pbld, n$, pxout, pyout, pzout, prdrlout, strcantext, e$
      pcom_movea

9 G: Y, {' {- l9 N) q: kpdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)     
1 J/ k2 L  S) _" ~# w      #Use this postblock to customize drilling cycles 8 - 19
5 V) B+ G8 U6 P      if drillcyc$ = 8, pdrlcst8_2
      else,
        [
        sopen_prn, "CUSTOMIZABLE DRILL CYCLE - NOT CONFIGURED - NEXT HOLE", sclose_prn, e$
        pdrill_2$
0 ~$ o3 d% X* h9 x7 t        ]

pdrlcst8_2       #Custom drill cycle 8 - example custom cycle
# e% Z& Z, f- N: d2 D      sopen_prn, "CUSTOMIZABLE DRILL CYCLE EXAMPLE - NEXT HOLE", sclose_prn, e$
+ k4 X; R" [/ g% |, Q0 i9 J7 |' a      pdrill_2$

pcanceldc$       #Cancel canned drill cycle
. [) e  q7 h) I0 u      result = newfs(three, zinc)
! ?$ l! [/ G; a7 H" w) u, C2 z      z$ = initht$
: z; p9 o6 X4 j8 ?, o' f+ U1 {      prv_zia = initht$
0 w9 F1 D1 F( c1 l% T      pxyzcout
      !zabs, !zinc
      prv_gcode$ = zero
3 `/ F, z9 K# v: G      pcan
      pcan1, pbld, n$, sg80, strcantext, e$
      if drillcyc$ = 7, pbld, n$, sg94, e$
- ~( E+ m/ x/ k/ g      pcan2

duolzw

# --------------------------------------------------------------------------
+ _* Z# v0 |" w, `9 n, K7 {5 o8 Q* @2 S#Subprogram postblocks
8 k  `7 X# w( r- p#sub_trnstyp - 0=mirror, 1=rotate, 2=scale, 3=translate
#sub_trnmthd (mirror) - 0=X axis, 1=Y axis, 2=line
2 M0 p* Q% |6 X) x1 K7 Y#sub_trnmthd (rotate) - 0=tplane, 1=tplane origin only, 2=coordinates
# --------------------------------------------------------------------------
- j6 c/ Q9 A( \psub_call_m$     #Call to main level, single tool
$ B2 J2 V, c9 _. d% y' m      psub_call_trans
" T4 C* r* B- y  W. _
6 G5 h- p5 z; h0 J2 s' T2 B( s% kpsub_call_mm$    #Call to main level, multiple tools
+ ?! ?9 K, @" F      psub_call_trans

psub_call_trans #Translate level calls from toolchange, user
      if mi1$ <= one, result = mprint(shomeserror)
1 f& v5 o( Q& Z! w: i+ @6 Z      sav_absinc = absinc$
      #Mirror or Rotate Coord's
      if sub_trnstyp$ = zero | (sub_trnstyp$ = one & mr_rt_actv),
2 e; m4 L4 ~1 W# h; a( s        [
, B: w% O( d4 b8 f; F: M- R' n        #The original pattern is not mirrored or rotated
        if sub_sec_no$,
          [
          absinc$ = zero
; {+ J+ Y5 F. r; W2 W: }          if sub_trnstyp$, psub_rotate
          else, psub_mirror
          ]
/ L& n- Y* h6 Y% x        mr_rt_actv = three
. i+ P% B& y2 u1 U' E% }        ]
      else, #Translate
! l" g1 n; g& D& C5 r        [
        if sub_mny_t$,
          [
          if mi1$ > one, absinc$ = zero
          pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
          pe_inc_calc
' Q" D6 _* b5 A. D6 h' s( P1 Q          ps_inc_calc
          ]
        ]
      absinc$ = sav_absinc
. C* ?% D0 w: ?      result = nwadrs(strp, main_prg_no$)
' z4 ?  A9 A$ \6 K      if progno$ = main_prg_no$, result = mprint(sprgnerror)
      pbld, n$, "M98", *main_prg_no$, e$
" I9 r+ q; A; v" K, }      prv_feed = c9k #Force feed in sub
9 t  S% {5 j* C0 ?* K+ b
psub_mirror     #Mirror start code, user
1 K! ?) O$ A" Q  ^0 \0 X      #Mirror Y axis
, l5 u/ a7 V6 x8 N, x+ d* y1 A% v      if sub_trnmthd$, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsx$, e$
      #Mirror X axis
      else, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsy$, e$
/ t$ _* L4 q# @7 `, ^1 V) S
psub_rotate     #Rotate start code, user
$ D7 d4 ?; V) J5 I% y      pbld, n$, *sgcode, *sgabsinc, strns_rot_on, *sub_trnsx$, *sub_trnsy$,
7 v; W9 [& O  u% h* ?2 W5 V        [absinc$ = one], *sgabsinc, e$

$ a+ ?0 E2 b0 A0 j" ?psub_st_m$       #Header in main level
      result = nwadrs(stro, main_prg_no$)
' c, @2 x- F6 _$ u) e      " ", e$
4 ?. K- M' K% H" g      *main_prg_no$, e$
      #G51/G68 requires absolute position on first move
      if mr_rt_actv & absinc$ = one,
0 ]  b$ y  l, V' r8 j        [
: p! |! R8 u# F, r6 |. m        sav_absinc = absinc$
. y; P6 F- r8 q. y  C% H4 T        absinc$ = zero
7 i5 y4 w- h+ q6 r. \- z, K5 X( b        prv_absinc$ = m_one
' `1 Q3 I5 D4 b/ i0 }  [        prv_xabs = m_one
        prv_yabs = m_one
" s4 T( D; W. u" B* ^! H- ?: ^4 C        ]
- R  n1 |/ {3 A" F' W) x/ a2 O      else, pbld, n$, sgabsinc, e$
: x4 v; P$ V! f5 C' h
psub_end_m$      #End in main level
9 V% w( X/ d$ J1 o$ G0 q5 I      n$, "M99", e$
- ^0 ^' ?3 u7 |" w$ e- N; A      prv_absinc$ = -1
      #Reset update variables for subs at main level
) }# h5 r9 i' |6 i' }1 c      #Mirror or Rotate cancel, output is forced
      if (sub_trnstyp$ = zero & esub_sec_no$ > zero)
$ y4 b# k; [4 |        | (sub_trnstyp$ = one & esub_sec_no$ = esub_totl_no$-one
, R1 v5 Q4 X! x' W5 G9 f        & sub_trnmthd$ = two),
0 }, p$ @- a3 Z9 l/ `        [
- M0 N$ ~  Q5 w* h' {/ P' R  `        subout$ = zero
) P9 O8 q! B4 V" C  ^! z+ G& z        no_nc_out$ = m_one
        sav_absinc = absinc$
$ U$ G" e; Q1 i0 u) P        #Mirror cancel
1 U5 u* u) l5 }" j+ U! ?+ }        if sub_trnstyp$ = zero,
          [
          absinc$ = zero
          pbld, n$, *sgabsinc, strns_mir_off, *sub_trnsx$, *sub_trnsy$, e$
, T$ x* U. o* ?& u+ b          ]
        else, #Rotate cancel
          [
- B/ K, ^4 f) Y4 L9 Q' y3 D          pbld, n$, strns_rot_off, e$
, Z  Y' r4 F+ I. J; N          ]
        absinc$ = sav_absinc
: G' `9 ?2 G  \        no_nc_out$ = zero
& u% {# `* _+ w; s( p4 H9 v* a0 I7 j- Y- d        ]
2 J1 s' V4 [1 q4 B. p+ Z      end_sub_mny = sub_mny_t$

6 Q  x# L/ M! ]8 [) l* B# @psub_end_mny    #End in main level for many tools sub, user
      #Check for coming out of xform with stage tool.
7 w1 V# x. P/ |$ }3 K" C  k/ _6 @      if end_sub_mny & stagetool = one,
& e( [% N- U% }- y3 Q# g        [
        *t$
5 H& f) h" a. L- F5 ?$ J% K( w        end_sub_mny = zero
        ]
9 m2 ]$ I$ G# C9 o
. f* t0 F8 w' C: a/ ?' D8 _psub_call_s$     #Call to sub level
      result = nwadrs(strp, sub_prg_no$)
      sub_prg_no$ = sub_prg_no$ + 1000 #Add sub number offset
6 s& C" I) S. C5 }. B      if progno$ = sub_prg_no$, result = mprint(sprgnerror)
0 y- q1 |* D) f/ O  x% T      pbld, n$, "M98", *sub_prg_no$, e$
  n4 D8 R2 l! t& L1 t/ A8 S
: k: q( D9 h7 ?5 X! u  X8 Hpsub_st_s$       #Header in sub leveln
      result = nwadrs(stro, sub_prg_no$)
$ p( b5 y9 d0 N, X3 w# c      " ", e$
$ J: R: r- i" G* M+ C, f: l0 N9 t8 Z      *sub_prg_no$, e$
      pbld, n$, sgabsinc, e$

1 v2 `& E( T: F/ z2 ]  h* R. ^psub_end_s$      #End in sub level
& _( @3 I5 u  o0 B, p      n$, "M99", e$
+ \: }$ Z8 P# Z0 a- b8 P3 {      prv_absinc$ = -

duolzw

# --------------------------------------------------------------------------
7 x5 J6 X6 t3 H- O# Canned Text
& O, F6 m( b9 M$ g5 s2 _, m! _# --------------------------------------------------------------------------
pcan            #Canned text - before output call
) W2 d- B. `/ [, e( x, y      strcantext = sblank
" K2 H+ U( h4 m& `9 g0 O      if cant_no$ > zero,
        [
! f, Y: \" `% g) x        if cant_pos1$ = zero | cant_pos1$ = three, pcant_1
        if cant_pos2$ = zero | cant_pos2$ = three, pcant_2
        if cant_pos3$ = zero | cant_pos3$ = three, pcant_3
7 j6 `2 O, {# @7 }3 ^3 \  x        if cant_pos4$ = zero | cant_pos4$ = three, pcant_4
% F5 O1 }* L( r: b, Q3 G        if cant_pos5$ = zero | cant_pos5$ = three, pcant_5
9 C6 w4 @0 r2 g8 E% E        if cant_pos6$ = zero | cant_pos6$ = three, pcant_6
        if cant_pos7$ = zero | cant_pos7$ = three, pcant_7
/ V) r9 ^9 I( K$ T; z        if cant_pos8$ = zero | cant_pos8$ = three, pcant_8
        if cant_pos9$ = zero | cant_pos9$ = three, pcant_9
        if cant_pos10$ = zero | cant_pos10$ = three, pcant_10
: h$ ~. W, Y) f: X, N9 l        if cant_pos11$ = zero | cant_pos11$ = three, pcant_11
        if cant_pos12$ = zero | cant_pos12$ = three, pcant_12
% _: |$ }, I& i1 @& C4 y% V7 X        if cant_pos13$ = zero | cant_pos13$ = three, pcant_13
        if cant_pos14$ = zero | cant_pos14$ = three, pcant_14
        if cant_pos15$ = zero | cant_pos15$ = three, pcant_15
7 k5 {; e6 _1 I+ q+ M" f, w+ m        if cant_pos16$ = zero | cant_pos16$ = three, pcant_16
        if cant_pos17$ = zero | cant_pos17$ = three, pcant_17
, d, a, O+ S+ ^  T% ~; X        if cant_pos18$ = zero | cant_pos18$ = three, pcant_18
        if cant_pos19$ = zero | cant_pos19$ = three, pcant_19
: Y' Q2 [$ X2 U' Y* l0 M        if cant_pos20$ = zero | cant_pos20$ = three, pcant_20
        pbld, n$, strcantext, e$
        strcantext = sblank
        ]

pcan1           #Canned text - with move
      strcantext = sblank
3 x9 p! i( ^, y0 a! p3 O& A      if cant_no$ > zero,
6 P' ~4 i1 B. }# ~( c! E        [
        if cant_pos1$ = one | cant_pos1$ = four, pcant_1
        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
, S2 C$ e, Y; @5 m: x2 Z: B" d        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
        if cant_pos8$ = one | cant_pos8$ = four, pcant_8
: M  v8 u5 C" f        if cant_pos9$ = one | cant_pos9$ = four, pcant_9
# L% l. n2 Z* w        if cant_pos10$ = one | cant_pos10$ = four, pcant_10
. w! Y* w( e; W% w1 @        if cant_pos11$ = one | cant_pos11$ = four, pcant_11
4 @" o5 M/ M; D0 i* Z; D        if cant_pos12$ = one | cant_pos12$ = four, pcant_12
        if cant_pos13$ = one | cant_pos13$ = four, pcant_13
4 s" y( ]! O5 P/ W9 }2 _  ]6 I, o        if cant_pos14$ = one | cant_pos14$ = four, pcant_14
# L( \" K& d" a% B  a5 g        if cant_pos15$ = one | cant_pos15$ = four, pcant_15
        if cant_pos16$ = one | cant_pos16$ = four, pcant_16
# T8 S2 M& L3 X6 T        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
5 V" l" u$ ~' S. }. O% |        if cant_pos20$ = one | cant_pos20$ = four, pcant_20
: E4 T/ m$ B) r! o        ]
      if cstop$, strcantext = strcantext + sm00
* `1 b8 m* g3 s2 u      if cgstop$, strcantext = strcantext + sm01
  q5 `8 e2 u7 r( m/ D' B  F/ C      #Output of strcantext occurs at the end of the output line
1 z7 P7 S/ g! Z8 ?/ v8 _" ~
9 m0 c1 W$ d( J3 Z( U  apcan2           #Canned text - after output call
% K4 p: Z1 H: b" a4 j& U      strcantext = sblank
' Y% x0 Y& r3 F$ R, K7 K* H5 A4 R      if cant_no$ > zero,
# G3 _2 ?) S  ~6 h+ J        [
8 B9 v+ m& m4 H) Q# k        if cant_pos1$ = two | cant_pos1$ = five, pcant_1
        if cant_pos2$ = two | cant_pos2$ = five, pcant_2
        if cant_pos3$ = two | cant_pos3$ = five, pcant_3
        if cant_pos4$ = two | cant_pos4$ = five, pcant_4
+ i" P  U( u/ }5 R        if cant_pos5$ = two | cant_pos5$ = five, pcant_5
        if cant_pos6$ = two | cant_pos6$ = five, pcant_6
/ s/ b7 t8 H- O  @$ T        if cant_pos7$ = two | cant_pos7$ = five, pcant_7
        if cant_pos8$ = two | cant_pos8$ = five, pcant_8
        if cant_pos9$ = two | cant_pos9$ = five, pcant_9
: ]% H1 w2 q5 i8 Z7 H& ~        if cant_pos10$ = two | cant_pos10$ = five, pcant_10
3 c( W& v! \( {' K1 s, q        if cant_pos11$ = two | cant_pos11$ = five, pcant_11
  X$ S4 L, x6 n5 C8 B) \- ?  `% k0 E: ]        if cant_pos12$ = two | cant_pos12$ = five, pcant_12
' V3 k( N/ }! b  f- Y- k  e- O2 N        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
. O& F" w( l* M+ V+ g' e9 v        if cant_pos16$ = two | cant_pos16$ = five, pcant_16
        if cant_pos17$ = two | cant_pos17$ = five, pcant_17
        if cant_pos18$ = two | cant_pos18$ = five, pcant_18
7 K. \5 A6 S- K# c        if cant_pos19$ = two | cant_pos19$ = five, pcant_19
. w/ i# J* E9 F8 `( W5 m        if cant_pos20$ = two | cant_pos20$ = five, pcant_20
1 S* N/ U! t- V3 K) }% }        pbld, n$, strcantext, e$
        strcantext = sblank
        ]
4 D- b* a! b3 B5 S* o1 j, T
pcant_1         #Canned text - output call
! ]+ p% w5 M  Q  b' r$ ?      cant_pos = cant_pos1$
3 P) K! y2 r- L- I      cantext$ = cant_val1$
% Z8 m$ ^4 }( |. J$ C0 S* `6 s      pcant_out
) t+ L( V! q. m: b
pcant_2         #Canned text - output call
      cant_pos = cant_pos2$
      cantext$ = cant_val2$
/ k" S6 Q; O0 j4 t      pcant_out

& X6 m8 Z9 L0 C, O, j# y. t+ B6 Gpcant_3         #Canned text - output call
      cant_pos = cant_pos3$
      cantext$ = cant_val3$
+ @! w% k. \$ u- b: X/ h      pcant_out
0 a* P8 d$ }, y- a  i
pcant_4         #Canned text - output call
      cant_pos = cant_pos4$
      cantext$ = cant_val4$
9 M  ?) X, G: Y8 `5 E$ M8 c8 w      pcant_out
  m3 Y% }9 Y2 g5 h9 d
pcant_5         #Canned text - output call
; f0 k. r0 P# X) m' U% T/ u. E9 j      cant_pos = cant_pos5$
/ Y. e2 Z: x0 O% n      cantext$ = cant_val5$
      pcant_out

3 L) ^/ N3 I% t2 R" B3 m) Lpcant_6         #Canned text - output call
, m0 R, {- X2 s3 _2 P      cant_pos = cant_pos6$
" @$ `5 e( J' m8 z; ^! ]7 {  Z7 u      cantext$ = cant_val6$
" K0 I; E2 T( G0 Q" H; L      pcant_out
% v; |/ C+ J0 N) O& O2 R$ F
pcant_7         #Canned text - output call
      cant_pos = cant_pos7$
      cantext$ = cant_val7$
      pcant_out

pcant_8         #Canned text - output call
( H$ |2 f/ i: B- R# p6 D      cant_pos = cant_pos8$
3 O, R* ?" S$ d+ c# b7 f4 [, d      cantext$ = cant_val8$
      pcant_out
' @: T3 l3 I5 O
- [# B, k6 n- Jpcant_9         #Canned text - output call
      cant_pos = cant_pos9$
      cantext$ = cant_val9$
      pcant_out
1 I6 M, M. f8 _  z3 _8 V: M8 x
4 @* U  t) V' _4 s8 \8 Wpcant_10        #Canned text - output call
- j, W% a* a; }  u+ o      cant_pos = cant_pos10$
      cantext$ = cant_val10$
      pcant_out

pcant_11        #Canned text - output call
      cant_pos = cant_pos11$
. c- w( H+ z* k+ M; l: V      cantext$ = cant_val11$
      pcant_out
- ], i0 e, ?, x$ m) G) ~
pcant_12        #Canned text - output call
      cant_pos = cant_pos12$
      cantext$ = cant_val12$
      pcant_out

) W' ^, I5 G& t! X! X2 ipcant_13        #Canned text - output call
      cant_pos = cant_pos13$
" S6 v% h, {# T* ~4 V1 a, G      cantext$ = cant_val13$
      pcant_out

pcant_14        #Canned text - output call
" l# j; q, l: O7 l$ ~      cant_pos = cant_pos14$
3 p( T3 R, E9 M8 a: ~      cantext$ = cant_val14$
      pcant_out
5 W* ^  A. w: Z7 d; C5 @0 d
pcant_15        #Canned text - output call
      cant_pos = cant_pos15$
      cantext$ = cant_val15$
1 L  b% `/ E" v  H      pcant_out
# X* c3 \: ^8 M/ {! D
pcant_16        #Canned text - output call
) V6 U* |$ P4 @      cant_pos = cant_pos16$
" t8 l' U- c9 B      cantext$ = cant_val16$
      pcant_out

8 a; w1 v5 B  _$ I. F5 @0 Tpcant_17        #Canned text - output call
      cant_pos = cant_pos17$
      cantext$ = cant_val17$
5 n' W- I/ s1 U6 |. y: L      pcant_out
7 t- p: B5 R$ o7 _- [/ u6 j7 c
9 U9 J7 y! M$ u; I7 R# b+ bpcant_18        #Canned text - output call
- r; ^/ B8 W3 c+ @4 [) g6 L      cant_pos = cant_pos18$
% {  q& Y* y) q: l% R      cantext$ = cant_val18$
7 H8 x8 N& f# n/ b6 ~. J/ \& D      pcant_out

pcant_19        #Canned text - output call
( S! x7 B, Y* ~      cant_pos = cant_pos19$
' F  {! Z" U, \) L: B( H7 N! x      cantext$ = cant_val19$
7 V6 K& t7 f/ v1 G/ v8 ]      pcant_out

2 U3 P+ w6 d2 Opcant_20        #Canned text - output call
      cant_pos = cant_pos20$
8 U7 o7 S5 R! e7 E( {! x; x  |      cantext$ = cant_val20$
      pcant_out
) q+ @- g8 c) D3 S" h0 l' e
4 \3 u1 C" B7 e2 \( J$ y9 q& r' Xpcant_out       #Canned text - build the string for output
. l+ K/ r1 ^4 H7 a$ J$ w      #Assign string select type outputs
4 T# ~/ l8 b4 U      if cant_pos < three, #cant_pos indicates canned text output
        [
        if cantext$ = three, bld = one
        if cantext$ = four, bld = zero
9 G5 k5 U0 Y' z( K5 F9 ~" ~        #Build the cantext string
        if cantext$ = one, strcantext = strcantext + sm00
        if cantext$ = two, strcantext = strcantext + sm01
        if cantext$ > four,
$ E3 J* H" o( R3 G$ Q          [
4 R7 T  [: q3 c* l" c% h          strtextno = no2str(cantext$)
          strcantext = strcantext + strm + strtextno
          ]
$ I' b+ b! ^7 L' H- b6 W        ]
9 ~: b6 W& r/ C- w: h      else, #cant_pos indicates coolant output
        [
        coolant_bin = flook (two, cantext$) #Create binary value for each coolant using lookup table
: c5 \( E" }; q4 z. ?2 w4 M        if frac(cantext$/two),
          [
          if all_cool_off,
/ S) P- M5 O0 j( o% N5 a, X, `6 H            [
0 H& V3 X. M9 K            if coolant_on, pbld, n$, *sall_cool_off, e$
/ y0 j. U) @1 t8 b            coolant_on = zero
            ]
: \  @! M4 J1 D$ c          else, coolant_on = coolant_on - coolant_bin/2 #Odd = off command, subtract appropriate binary value.
          ]
        else,                                         #Even = on command
          [   #Determine if this coolant is already on
+ l, M% _9 ^+ }- ^          local_int = zero
1 o# a; `6 j1 P0 F3 p, b& J# e# v6 c          coolantx = zero
" P1 l) k& z+ z6 I8 U- d8 ?, l7 G/ Y' [2 f7 u          while local_int < 20,
            [
% A; Q; u/ D0 v8 C! z: d            result2 = and(2^local_int, coolant_on)
8 y& P/ [" V8 W' ~            local_int = local_int + one
" n- b& T' l. l5 j/ l+ X            if result2 = coolant_bin, suppress = one
            ]
& F  [1 D7 N5 ^, P          ]
6 ]& W( k' M( r9 T$ Q) A        if suppress <> 1, #Don't output an on code for a coolant that is already on
          [
          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$
          ]
1 w( D- V1 u! M' U        suppress = zero
4 k. s" j3 T6 s2 M( R! U        ]

duolzw

# --------------------------------------------------------------------------
: a6 m& x: O$ X# Position calculations, generally these do not need to be modified
# --------------------------------------------------------------------------
pmiscint$        #Capture the top level absinc for subprograms
      if sub_level$ <= zero, absinc$ = mi2$

6 r3 X: v3 F) A& D' Opcheckaxis      #Check for valid rotary axis
      #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$]

0 F8 m) Y8 m5 J. O; C0 P2 mpxyzcout        #Map coordinates
8 F5 H6 X& M- U      xabs = vequ(x$)    #Retrieve X,Y,Z positions into xabs,yabs,zabs
1 z! |. ]7 e- ~* N% s! |- g, w      iout = vequ(i$)
      feed = fr_pos$
) p$ h' j6 U. a" ]; b; V+ i      if feed > maxfeedpm, feed = maxfeedpm

#Incremental calculations
) V' I+ r" _: `. S7 Q& c5 gps_inc_calc     #Incremental calculations, start
      xia = fmtrnd(xabs)
7 u) n$ t( H* x* ]6 [      yia = fmtrnd(yabs)
% w  d* a% q) O8 a# g      zia = fmtrnd(zabs)
4 S4 B" m8 j& O3 _      xinc = vsub (xia, prv_xia)

2 T! L, f1 N! W, N0 b2 _. V' T8 Ape_inc_calc     #Incremental calculations, end
: q: B6 u' m: P; z* D+ C- w( g      !xia, !yia, !zia
      !x$, !y$, !z$, !cc_pos$
+ O8 z# l4 l3 {( S- @3 u
& Q" z: j8 W" j# \8 P( m5 c# --------------------------------------------------------------------------
# Parameter read postblocks:
# --------------------------------------------------------------------------
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!
6 |/ J3 g! v, ?' r4 [. _      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)
      rd_md$       #Read machine definition parameters
, R4 X/ S/ S8 C* p2 o* Z
pwrtt$          #Pre-read NCI file
- B0 o) u, }; t! K! U0 F0 z      if tool_info > 1 & t$ > 0 & gcode$ <> 1003, ptooltable
      if ra_type$, ra_error = 1  #Aggregates NOT supported in this post

. R. c, A& J3 A6 z) C+ Zpwrttparam$     #Pre-read parameter data
      #"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
      if prmcode$ = 10010, xy_stock = rpar(sparameter$, 1)  #Capture stock to leave (XY)
. C9 p3 Y; d4 ^% }0 w      if prmcode$ = 10068, z_stock = rpar(sparameter$, 1)   #Capture stock to leave (Z)

/ J6 W# e) x2 o* n) h4 opparameter$     #Read operation parameters
      #rd_params is used to call pparameter postblock and read the parameters of the operation specified in rd_param_op_no
8 V5 W% J* I+ ~" G( T      #"pparameter", ~prmcode$, ~sparameter$, e$

! |, g' h$ P0 w. n3 u. J2 z* q# --------------------------------------------------------------------------
# Parameter lookup tables - You must adjust the size value if you add or remove any parameters to/from these tables!
# --------------------------------------------------------------------------
5 N. U" O: [3 K: F# Machine Definition Parameters
fprmtbl 17000   4    #Table Number, Size
#       Param   Variable to load value into
        17605   min_speed    #Minimum spindle speed
  X/ ?0 R- T4 t1 ^8 n2 z. j        17055   maxfeedpm    #Limit for feed in inch/min
        17063   maxfeedpm_m  #Limit for feed in mm/min
        17101   all_cool_off #First coolant off command shuts off ALL coolant options

$ s; `. K5 ~# N& D5 ^* N5 x# Control Definition Parameters
fprmtbl 18000   0    #Table Number, Size
  {6 T6 U* n+ U1 U#       Param   Variable to load value into

' j( T% u/ u* C  O) Z, E* C# Toolpath Group Parameters
3 s- a, s6 {& \! v2 J! L- i3 `: W* Rfprmtbl 19000   0    #Table Number, Size
+ ~1 X" T" o2 r#       Param   Variable to load value into
# ?: o5 g  i5 l% d3 a5 W! [& M' t- c
# --------------------------------------------------------------------------
pset_mach       #Set post switches by reading machine def parameters
      rot_ax_cnt = 0
: Q9 r9 B$ U( z% s      rotaxerror = 0
      #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
4 V, ]( w- m: b4 C# g2 P3 |& O9 z- z      !maxfeedpm, !maxfeedpm_m
$ I! {. U, i2 \
1 p& r8 k/ V% _" O      rd_mch_ent_no$ = syncaxis$  #Retrieve machine parameters based on current axis combination - read from .nci G950 line
' k' x. t' J. r7 b$ ^      rd_md$       #Read machine definition parameters - calls pmachineinfo$

3 O  v1 ]: Q9 g7 S( y/ I9 V* `      #We only need this set at toolchange (and start of file).  No need to set them each time a user may call rd_md
# n$ [( m0 W1 L) H; \  x) e      if met_tool$ = 1, maxfeedpm = maxfeedpm_m         #Set limit for feed in mm/min

# --------------------------------------------------------------------------
$ `- Y* l! B0 j, X5 M# Machine definition and control definition parameter capture:
# --------------------------------------------------------------------------
- Q, i  z9 x1 P  E4 y* ?pmachineinfo$   #Machine information parameters postblock
      #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.
9 p; a  g8 V! \5 T- U2 T2 z      #rd_cd is used to call pmachineinfo postblock and read the active control definition parameters
) y" Z% |2 d" }5 j" G' P6 _- z      #rd_tlpathgrp is used to call pmachineinfo postblock and read the active toolpath group parameters
      #"-->pmachineinfo", ~prmcode$, "  ", ~sparameter$, e$  #Do not uncomment if being called from pprep$ - see pprep comment
$ M# L: z4 K( F% O) J( i# S$ T- ~# ]
      #Read parameter lookup tables -
# x: y/ W1 c1 q6 ?& }+ `9 t      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
4 u( T" ]6 P, Y& F6 X2 h      #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
& B1 r/ w2 `- o# J- J0 I
, C* M+ V* d3 _$ a      #Count rotary axis and output error message if one is found in the active axis combination
  k5 t1 W/ S0 G      if prmcode$ = 19958,
! {+ q8 E! Q: n5 ^        [
        component_type = rpar(sparameter$, 1)  #Component type
, A0 r8 y; o3 a4 I  q        if component_type = 5,
# |/ H% r6 ?; E( S4 G* s. @          [
) F3 x; M5 D& r          rot_ax_cnt = rot_ax_cnt + 1  #Rotary component
- g/ p6 C3 x$ Q  T& h% |! O          if rot_ax_cnt = 1, rotaxerror = rotaxerror + 1   #Post only supports 1 rotary per axis combination
  v% J3 w# L" o1 Y- q' m          ]
        ]

1 r" Y- s# o8 F9 A& j      #Read Linear Axis parameters - capture lowest feedrate value of all linear axis
; K; ^7 G" K; \/ F! g8 g( y) ^2 X      if maxfeedpm > prv_maxfeedpm, maxfeedpm = prv_maxfeedpm
0 f. O) w/ C* n) G( B% l      if maxfeedpm_m > prv_maxfeedpm_m, maxfeedpm_m = prv_maxfeedpm_m
      !maxfeedpm, !maxfeedpm_m

duolzw

# --------------------------------------------------------------------------
# POST TEXT
# U! D1 y0 o' q5 [# --------------------------------------------------------------------------
[CTRL_MILL|DEFAULT]
% K" H! Y$ r" L1 J: f% d% r[misc integers]
9 \7 P( ?8 T% s! \0 i# K1. "Work Coordinates [0-1=G92, 2=G54's]"//2
* }0 T4 I. H* M6 s2. "Absolute/Incremental, top level [0=ABS, 1=INC]"
1 D8 [8 o, F+ i- {3. "Reference Return [0=G28, 1=G30]"
/ W9 Q" I* {7 Y+ f5 q# O[simple drill]
7 |+ \% ?4 [! L- d9 n- U1. "Drill/Counterbore"
7. ""
9 B, y  s/ h5 `$ Q8. ""
" p, S2 f0 h6 u) r) z9. ""
% @: x1 c: x3 ?- i4 r& `6 T& L6 O10. ""
11. ""
5 r7 S9 V; I* u* b/ w% }" w. V[peck drill]
3. ""
' U" O( N+ N+ h; ^0 L) u/ O) y7. "Peck"
$ [+ z3 C8 w1 I* E0 E" @8. ""
5 d" F+ \1 ?% Q: `. f6 \( |) ?9. ""
10. ""
" H0 _" X" |+ X: T! B  h11. ""
0 ^5 _, G* d$ B- u2 R0 r- Y[chip break]
2 W, t+ H) F$ E3. ""
7. "Peck"
: b# `: t& E9 \0 D# c, x* Q. n$ Q( O( t8. ""
( J* p, ^% V3 p# S) v9. ""
10. ""
11. ""
[tap]
2 ~2 J# m9 l( |9 ?3. ""
' G9 l8 Q( \! g" Q7. ""
- Y, A5 F' H" Z8. ""
# j7 n4 n' |" j; B9. ""
: ^) p* M3 Q2 X0 o/ |& W# N# k10. ""
11. ""
6 j' A8 K! n* w' D$ b- T1 T[bore1]
1. "Bore #1 (feed-out)"
7. ""
8. ""
$ n2 h- a4 d- g4 T( }3 X6 @1 u9. ""
10. ""
% o+ y; Z! |# ^/ }- z! X11. ""
; C; O# U$ \, b# Z5 W[bore2]
) g- A7 N4 E" L: l/ F$ H9 L1. "Bore #2 (stop spindle, rapid out)"
3. ""
7. ""
5 p1 w9 c0 B& q  y3 G3 t3 M8. ""
9. ""
6 k# @  x# q$ g1 P, I* @4 V10. ""
11. ""
[misc1]
, ]* v6 _/ T* y1. "Fine Bore (shift)"
7. ""
8. ""
. Q' c( W3 L% E% l, V0 G9. ""
3 z* [& H6 M) d$ \7 q; A10. ""
[misc2]
4 R& a4 `# D9 q- w# h1. "Rigid Tapping Cycle"
3. ""
4 `% X$ C! k9 k* j2 _! v7. ""
' G" K0 T+ r* t( @. N. ^9 X8. ""
2 ], c; i# ~. M- q6 v; g7 j# T9. ""
10. ""
5 Y4 h2 h$ e: g- L: {' k( ?11. ""
[drill cycle descriptions]
7. "Fine bore (shift)"
8. "Rigid Tapping Cycle"
) ]2 i" ~& d5 C: B3 R7 c[canned text]
& F" Q' [9 d. B) g5 E9 k# I) Q1. "Stop"
5 _. J5 Y" |5 q* U7 I4 g2. "Ostop"
3. "Bld on"
4. "bLd off"
- |$ x% u. Y. [6 U7 u4 J* t5. "M5"
6. "M6"
1 d- _- F( I2 ?( \/ y7. "M7"
8. "M8"
9. "M9"
  w2 \( m9 i% u10. "M10"
- O( C. i5 ]( ?6 z" f. P[CTRL_MILL|GENERIC FANUC 3X MILL]
[misc integers]
1. "Work Coordinates [0-1=G92, 2=G54's]"//2
# d/ Z  Z5 w( L* p7 ]2. "Absolute/Incremental, top level [0=ABS, 1=INC]"
+ b3 I* R: p. f, k4 z3. "Reference Return [0=G28, 1=G30]"
$ J6 S9 u2 Q0 w" D' Z[simple drill]
5 R/ P! c1 \4 C+ L. p: o1. "Drill/Counterbore"
7. ""
8. ""
, H( v6 M' h# ^* R% S$ Z9. ""
10. ""
9 W5 E( a% ~% X  P1 q# i11. ""
[peck drill]
* y3 M+ E. O6 j0 X3. ""
0 J7 r  Y, |) u' P4 n7. "Peck"
8. ""
) w- k. T( N- e/ p- X9. ""
; `3 L8 l/ ]5 G: H10. ""
11. ""
  a" \' W( q5 J9 H6 k/ n[chip break]
3. ""
9 X  _/ A& X$ k$ v9 v/ C1 K! G: j: V0 @7. "Peck"
5 C% b7 W% t* x) x- ^3 o2 m8. ""
9. ""
2 K( p% I! V! b% P10. ""
, S& S& M9 |0 x) r6 C! m5 o11. ""
8 H1 W6 u0 A0 ^1 }7 A) d[tap]
! ~- F7 |# h  _" j  s" h' y. X4 U5 o3. ""
7. ""
8. ""
) Y5 R0 P. s3 J- Y9. ""
10. ""
+ J7 K2 ?7 ?* o% C; |8 o11. ""
) Z4 ]$ a' H0 r9 J! {5 z[bore1]
3 k& D0 e$ O5 b7 @' b1. "Bore #1 (feed-out)"
# p' @; M0 u: I# x7 l! l  Y* c7. ""
5 I/ w, K% }6 ?6 b. y8. ""
9. ""
10. ""
11. ""
. z' n; h; b8 q[bore2]
# r- W6 p  D, {1. "Bore #2 (stop spindle, rapid out)"
3. ""
5 B1 |- h: G4 W& ~7. ""
8. ""
9. ""
& f- m+ k( @, H3 m+ \: p% _8 M10. ""
11. ""
$ o" U& g1 k3 H' \' F8 x[misc1]
9 v( u' e3 w9 K: O, f" f" Z1. "Fine Bore (shift)"
7. ""
& q/ W/ W& d7 T! u: h/ \8. ""
9. ""
! i& M6 X, u+ w! [  o. V$ s9 m! I6 s10. ""
2 Y$ a2 ?8 [/ I. Y' i" S[misc2]
; p- H! f, ^/ |. l1. "Rigid Tapping Cycle"
3. ""
5 b8 `1 C, C$ l- N# t( k- V7. ""
) o  [- U! k3 ?# L& w8. ""
9. ""
  ?$ p2 }$ E3 |6 P" I5 {2 x* ~10. ""
, h; H% t' x! p  p7 v% I% b# l11. ""
[drill cycle descriptions]
7. "Fine bore (shift)"
0 y/ L7 L. Z9 d, @( y; F# V8. "Rigid Tapping Cycle"
  m* d. `0 o/ ^7 X% L( `7 v[canned text]
1 w: U. k. ~9 o! `1. "Stop"
5 D; ?* J1 \! g2. "Ostop"
3. "Bld on"
1 e- M# F, Q' A( O9 y7 K) _; \4. "bLd off"
5. "M5"
3 }# @0 G. j0 o* c. S6. "M6"
7. "M7"
( l" A& J! Q  c) L; O8 y8. "M8"
9. "M9"
10. "M10"
[CTRL_TEXT_END]

duolzw

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

jacky028

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

ya574544187

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