坐标设置

duolzw

请问一下哪位大侠知道X4，怎样设置后处理变为G92，而且不带刀具长度补偿。用在数控铣的如：
: f9 E* H+ x" R  c& g* eO1234
: _! g' u! w& J8 lG0  G90 G92 X100 Y50 S2000 M3
1 V+ |7 s/ r' b, ?: MZ10 M8
! N2 ?8 S6 o9 I3 q! g( u" H" ]$ wG98 G81 X30 Y20 Z-10 R2 F180
G80
G0 Z10
# l& P' _! `- ^! JX100 Y50  M9
# @+ ~# k6 i3 t# l5 v7 ZM5
M30  

! l' w- d" G  a1 A6 @: u我改过杂项设置，把里面的G54的2改为G92的-1，但是处理出来的程序是没有G92的。如
1 n+ k6 ]6 ]7 R, Z/ \O1234
  g7 M. T! U5 q5 f* A9 x' gM6T1
3 z, m: F: J/ k" uG0  G90 X100 Y50 S2000 M3
% ^6 @: i$ g, \5 }G43 H1 Z10 M8
5 J- T4 a2 l' a& B* tG98 G81  X30 Y20 Z-10 R2 F180
: j5 ~" g6 v4 dG80
G91 G28 Z0 M9
# A* ~/ d. V" A9 k0 d" ]) w+ rM05
M30.我要把它改为像上面那样的后处理怎么改。哪位高人帮帮忙，真的很感谢！

若枫

回复 1# duolzw

- |2 g/ R/ j8 y0 q' x1 z
    G92只能强制输出了。

wangerwen521

把G54改为G92

duolzw

拜托，两位说了就说清楚吗。
你们这样或很没意思的。知道就拜托了。。。谢谢

vinney777

可以强制输出

若枫

回复 1# duolzw
3 l2 `. d3 S7 v3 ?7 g% S- W3 t

1 Q; Q9 g" |" s6 J1 B! @    既然说了你都不懂，为何不提供你的后处理。

duolzw

呵呵，刚下班，以下是我的后处理，其实也就是X4本身自带的 Generic Fanuc 3X Mill.pst。我只是修改一下就可以满足我的要求了，谢谢。如果还有什么要我提供讲讲。
+ Y; c! G! _; H不过我改了换刀：T1 M6.但它只有第一把刀换成：M6 T1.其他都不会变，也帮帮忙改一下。我要全部变成：M6 T1这格式。
+ F3 b8 C. ]" n" }


- b& ~0 d' m, w) i
2 E2 H2 F: u( ]7 g[POST_VERSION] #DO NOT MOVE OR ALTER THIS LINE# V13.00 E1 P0 T1232650364 M13.00 I0
& V" m  n$ J, q" T( X, n& ?( [# Post Name           : Generic Fanuc 3X Mill.pst
6 o$ H& i- f7 d* \+ m& i# Product             : Mill
# Machine Name        : Generic
5 ^7 q/ c/ B; Z. i1 q# Control Name        : Fanuc
$ f! r1 f- v6 I# Description         : Generic 3 Axis Mill Post
/ ]% K  Q  B+ X% @1 C# 4-axis/Axis subs.   : No
# 5-axis              : No
1 x( y/ g. }, s' f% X7 s# Subprograms         : Yes
6 k, z. T; J: y3 G# Executable          : MP 13.0
#
5 v3 m; `* A! G- y9 w; g1 s# WARNING: THIS POST IS GENERIC AND IS INTENDED FOR MODIFICATION TO
9 `9 n7 \4 x* b, V# THE MACHINE TOOL REQUIREMENTS AND PERSONAL PREFERENCE.
& Y# B% w# U# Q0 [/ A' h% }#
# THIS POST REQUIRES A VALID 3 AXIS MACHINE DEFINITION.
# YOU WILL RECEIVE AN ERROR MESSAGE IF A ROTARY AXIS IS DETECTED IN
# THE ACTIVE AXIS COMBINATION.
#
# Associated File List$
#
# GENERIC FANUC 3X MILL.control
#
# Associated File List$
#
# --------------------------------------------------------------------------
# Revision log:
# --------------------------------------------------------------------------
# CNC 06/09/05  -  Initial post setup for Mastercam X
# CNC 10/06/05  -  Changed parameter read for min_speed, modified pspindle, pprep$ and pset_mach
# CNC 02/03/06  -  Added logic for high-speed toolpath tool inspection (see prapidout & plinout)
1 e6 J8 J1 y0 A2 z  w7 d% v# CNC 06/26/06  -  Initial post setup for Mastercam X2
# CNC 02/26/07  -  Modified pwcs
, H$ T9 U; h/ q- Y4 j7 j. a5 D# CNC 11/02/07  -  Added prv_shftdrl$ = zero
# CNC 04/08/08  -  X3 release - Removed check for write_ops
# CNC 01/26/09  -  Initial post update for Mastercam X4
# CNC 06/09/09  -  Updated MD parameters
#
1 k" t9 g3 U3 O8 B, K# --------------------------------------------------------------------------
# Features:     
5 N- N) o9 N4 H4 w' U# --------------------------------------------------------------------------
# This post supports Generic Fanuc code for 3 axis milling.
# It is designed to support the features of Mastercam X Mill.
#
6 Q$ I/ E+ Y: M" Z" J# NEW FEATURES FOR X:
# - Sub-program support
, B9 m0 Z  m6 T  `" b" _5 T# - Machine definition, control definition and toolpath group parameter read sections added.
# - Post sets min/max spindle speed and max feed rate from MD and CD.
6 a6 W% L) M. F5 H" l# i" c! o+ ^5 P# - Variable initialization with CD_VAR are read directly from CD.  Changing these initial values
9 Q& e& `  ^5 [& E% Q8 H#     in the post will not effect output.  These values are only processed during the update post routine.  
# - Variable initialization with SET_BY_MD or SET_BY_CD are overwritten in this post by parameter or
#     variable settings from MD or CD.
# - Enhanced tool information - Added switch for tool comments only, tooltable in header with no tool
5 T- C7 v, f0 }0 f0 C5 M: t7 r#     comments at tool change or tooltable in header with tool comments at tool change (see tool_info)
3 X, C* V8 k3 W2 o3 r#     Tooltable output includes cutter compensation type and stock to leave information
; b* \5 }- D5 g# - Enhanced tool staging options - enable or disable in CD.  Set stagetltype in post for output type:
#     Do not stage 1st tool, stage 1st tool at last tool change or stage 1st tool at end of file (peof)
) M: z! L2 E& u% T+ \# - Supports X comments including machine name, group name and group comment output (see pcomment2)
# - Additional date, time and data path output options (see pheader)  
; U( J) o) |5 A* C$ g4 b1 A: s# - Additional rigid tapping cycle (separate from original tapping cycle) and initial custom drill
/ a$ `% Z- \7 A: Y  A2 T#     cycle support (see pmisc2$ and pdrlcst$)
# - Support for 10 additional canned text options for X
# - Decimal support for sequence number output (set "Increment sequence number" in CD to a decimal value
#     for output.  I.E. "Increment sequence number" = .5, "Start sequence number" = 10 : N10, N10.5, N11, N11.5, etc...)
# - Switch for output of M00 or M01 at tool change (3 position switch, off, M00, M01 - see prog_stop)
& Q( `) Z$ s/ X' T# - Support for seperate XY, XZ and YZ plane/arc variables (see Arc page in CD)
# - Support for X style coolant.  Allows up to 10 different coolants to be turned on/off before, with, or after like
#     canned text.  Coolant output is handled by "coolant" variable and string selector for V9 style coolant,
, [' S6 b' F# _8 _+ [# L#     "coolantx" variable and string selector for X style coolant.
#
# --------------------------------------------------------------------------
; M" Q  k) s5 v3 P) i0 F8 d9 Y" y9 m# Misc. Values:
7 j+ h; {* v; ~3 }# --------------------------------------------------------------------------
# Integers:
  ~- b. {% \  j1 v) C#
4 O3 B9 ?9 D3 w" u+ x9 d/ x# mi1 - Work coordinate system
% N6 s" G/ I: J% ?7 K3 j4 }! Q#        0 = Reference return is generated and G92 with the
1 i& z; u  Y4 T$ O8 ~8 G% x#            X, Y and Z home positions at file head.
#        1 = Reference return is generated and G92 with the
#            X, Y and Z home positions at each tool.
#        2 = WCS of G54, G55.... based on Mastercam settings.
#
, k/ v" p% z0 ~; U# mi2 - Absolute or Incremental positioning at top level
; P$ D0 {" m7 P$ g) `#        0 = absolute
: ~6 g3 O6 a& W3 V#        1 = incremental
#
# mi3 - Select G28 or G30 reference point return.
#        0 = G28, 1 = G30
#
# mi4 - mi10 (NOT USED)
6 m$ H2 O# S4 n$ ]#
# Reals:
8 Z, ~8 X7 _8 m7 ?4 f0 Q4 K5 Z#
# mr1 - mr10 (NOT USED)
#
# --------------------------------------------------------------------------
#Canned text:
/ i1 z2 e- b; n( F; x#    Entering cantext on a contour point from within Mastercam allows the
4 j- \7 x5 W* z( I' V9 }9 ^) F8 B1 f#    following functions to enable/disable.
#    Cantext value:
#    1 = Program Stop = output the "M00" stop code
  c" G2 I7 Y1 C) K#    2 = Optional Stop =  output the "M01" optional stop code
1 \2 Q4 |$ C5 l& ~( p#    3 = Block Delete on = turn on block delete codes in NC lines
0 S/ [( ~( e3 Z3 M& g: H* k#    4 = Block Delete off = turn off block delete codes in NC lines
( K( U5 a1 r% N9 c- m& P6 R2 c#
# --------------------------------------------------------------------------
0 e/ M/ V  O) C3 ^2 T' I; Q* K#Additional Notes:
# 1) G54 calls are generated where the work offset entry of 0 = G54,
% T) ^3 L3 y) J# A9 E% x) P7 l#    1 = G55, etc.
# 2) Metric is applied from the NCI met_tool variable.
/ D/ S2 C* y  V( ~$ \# 3) Incremental mode calculates motion from home position at toolchanges.
#    The home position is used to define the last position of the tool
, t' l0 A- f6 a+ Y6 T#    for all toolchanges.  
6 C8 p4 u1 U' r: ^" d& F# 4) The variable 'absinc' is now pre-defined, set mi2 (Misc. Integer) for
% n$ {7 }. o3 b2 {1 d! B: E#    the 'top level' absolute/incremental program output.  Subprograms are
0 n  }& P/ ?" W6 M. A3 N#    updated through the Mastercam dialog settings for sub-programs.
8 x- \; E7 ^7 {# 5) Transform subprograms are intended for use with G54.. workshifts.
#
# END_HEADER$
! A1 }0 y( L/ J. \+ p3 @9 M2 R#
# --------------------------------------------------------------------------
# Debugging and Factory Set Program Switches  
$ K2 L+ W  N' N8 ], G3 O* h* B( _# --------------------------------------------------------------------------
#Define Constants
) d& Y2 `* K1 r- _m_one        := -1
1 ^$ @/ V% X- Q- ]zero         := 0
one          := 1
$ D+ ~8 S. {/ l% S: k! Ttwo          := 2
& b$ f+ A% |9 D3 q. @9 p8 U6 {# Xthree        := 3
7 f( G- |1 W; L2 }* F' Ffour         := 4
+ }2 T" A2 ^. w3 }" r7 g! Ofive         := 5
c9k          := 9999

, F9 [# \+ g  J8 a% t3 ~; \# R/ Nbug4$        : 1     #Debug output with the tilde '~'.
                     #A value greater the zero applies the variable formatting with
                     #debug output (default is typically FS 1 but not a guarantee).
                     #A value of zero gets the value directly with NO formatting.

6 z0 }- l7 M7 x! K( K" \linktolvar$  : 0     #Associate X tolerance variables to V9- variable?
1 n: a* E: F8 L3 u3 U% I$ t; z4 Zlinkplnvar$  : 0     #Associate X plane specific variables to V9- variable?
& ^$ c* z% A# V. V5 E! E
8 F  X4 w# P6 rskp_lead_flgs$ : 0   #Do NOT use v9 style contour flags
5 `7 C+ E. q; f( X8 M5 P: ~get_1004$    : 1     #Find gcode 1004 with getnextop?
rpd_typ_v7$  : 0     #Use Version 7 style contour flags/processing?
$ D; u+ s4 w2 S8 u3 y8 ?" zstrtool_v7$  : 2     #Use Version 7+ toolname?
tlchng_aft$  : 2     #Delay call to toolchange until move line
cant_tlchng$ : 1     #Ignore cantext entry on move with tlchng_aft
2 {# ~* t8 ~3 anewglobal$   : 1     #Error checking for global variables
' |( T5 f  x1 w# h% A. m) x: g+ ugetnextop$   : 1     #Build the next variable table
8 [, L+ Q: s; C/ M0 ~tooltable$   : 3     #Pre-read, call the pwrtt postblock
7 a5 E5 e: n$ U) v6 [( {
# U; @. H7 l8 d; u) U6 I# --------------------------------------------------------------------------
# General Output Settings
# --------------------------------------------------------------------------
4 y4 U4 J. f, H8 u) Rsub_level$   : 1     #CD_VAR Enable automatic subprogram support
breakarcs$   : 2     #CD_VAR Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
0 ^+ Z2 s8 t+ {$ N' f+ o! Oarctype$     : 2     #CD_VAR Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.,
1 |( H4 k: `/ B7 a                     #5 = R no sign, 6 = R signed neg. over 180
do_full_arc$ : 0     #CD_VAR Allow full circle output? 0=no, 1=yes
helix_arc$   : 2     #CD_VAR Support helix arc output, 0=no, 1=all planes, 2=XY plane only
# i- h+ [; Z: R% M3 m: K% P# Rarccheck$    : 1     #CD_VAR Check for small arcs, convert to linear
atol$        : 0.01  #CD_VAR Angularity tolerance for arccheck
ltol$        : 0.002 #CD_VAR Length tolerance for arccheck
; p7 E) J3 r5 U9 S" N1 ~vtol$        : 0.0001#System tolerance
maxfeedpm    : 500   #SET_BY_MD Limit for feed in inch/min
, g' G3 h+ K  f% H# K9 altol_m       : 0.05  #Length tolerance for arccheck, metric
vtol_m       : 0.0025#System tolerance, metric
maxfeedpm_m  : 10000 #SET_BY_MD Limit for feed in mm/min
force_wcs    : yes$  #Force WCS output at every toolchange?
spaces$      : 1     #CD_VAR Number of spaces to add between fields
omitseq$     : yes$  #CD_VAR Omit sequence numbers?
' r: i% M  ^; ]$ b7 ~seqmax$      : 9999  #CD_VAR Max. sequence number
stagetool    : 0     #SET_BY_CD 0 = Do not pre-stage tools, 1 = Stage tools
stagetltype  : 1     #0 = Do not stage 1st tool
                     #1 = Stage 1st tool at last tool change
                     #2 = Stage 1st tool at end of file (peof)
use_gear     : 0     #Output gear selection code, 0=no, 1=yes  
" K7 P' d8 F! a+ Emin_speed    : 50    #SET_BY_MD Minimum spindle speed
nobrk$       : no$   #CD_VAR Omit breakup of x, y & z rapid moves
; r2 N, o9 b0 b1 {( {progname$    : 1     #Use uppercase for program name (sprogname)
  Z: p! N4 y- [& ^, j( m" Dprog_stop    : 1     #Program stop at toolchange: 0=None, 1=M01, 2 = M00
2 m( J* l+ K6 }3 Q: f$ m5 n7 `* Jtool_info    : 1     #Output tooltable information?
                     #0 = Off - Do not output any tool comments or toolpable
                     #1 = Tool comments only
                     #2 = Tooltable in header - no tool comments at T/C
                     #3 = Tooltable in header - with tool comments at T/C
tlchg_home   : no$   #Zero return X and Y axis prior to tool change?
% }  k7 }( Z5 F1 d; b) R
接后面。。。

duolzw

接上面。。。

* {+ A( m+ j4 u4 f* m# --------------------------------------------------------------------------
# Enable Canned Drill Cycle Switches
# --------------------------------------------------------------------------
usecandrill$ : yes$  #CD_VAR Use canned cycle for drill
usecanpeck$  : yes$  #CD_VAR Use canned cycle for Peck
usecanchip$  : yes$  #CD_VAR Use canned cycle for Chip Break
usecantap$   : yes$  #CD_VAR Use canned cycle for Tap
usecanbore1$ : yes$  #CD_VAR Use canned cycle for Bore1
7 q0 s2 s2 \" \/ `7 Ousecanbore2$ : yes$  #CD_VAR Use canned cycle for Bore2
usecanmisc1$ : yes$  #CD_VAR Use canned cycle for Misc1
usecanmisc2$ : yes$  #CD_VAR Use canned cycle for Misc2
, A* j0 Z! o% ^& s
# --------------------------------------------------------------------------
# Common User-defined Variable Initializations (not switches!)
1 r# G9 l' w" x. J, Q# --------------------------------------------------------------------------
3 }( J9 ?2 G+ Bxia          : 0     #Formatted absolute value for X incremental calculations
! ?9 ^2 g  I# K& Q9 G8 u5 myia          : 0     #Formatted absolute value for Y incremental calculations
2 w# P4 D+ ]6 f  Z5 a; hzia          : 0     #Formatted absolute value for Z incremental calculations

bld          : 0     #Block delete active
result       : 0     #Return value for functions
* l6 ?  V+ C4 j  v6 @& ?& y, N6 ]sav_spc      : 0     #Save spaces
# `1 o$ ?$ b  Jsav_gcode    : 0     #Gcode saved
sav_absinc   : 0     #Absolute/Incremental Saved Value
sav_coolant  : 0     #Coolant saved
! u5 J* Q( c# X/ o0 x8 Wsav_frc_wcs  : 0     #Force work offset flag saved
toolchng     : 1     #On a toolchange flag
spdir2       : 1     #Copy for safe spindle direction calculation
% z5 c- l/ W  I) a1 N; k
#Drill variables
6 J+ A0 h3 o8 \4 ?! I  E' [drlgsel      : -1    #Drill Select Initialize
5 B* L7 [8 h7 N4 j, w. i" d/ T# }drillref     : 0     #Select drill reference
: n- k5 C! O/ c" ^/ D  Opeckacel$    : 0     #CD_VAR Fractional percent to reduce peck2 when usecan.. : no
drlgcode     : 0     #Save Gcode in drill   
  ~' J3 J. x! a' xsav_dgcode   : 0     #Drill gcode saved

#Subprogram variables
/ W" g& F- p; z+ [/ a+ j( wmr_rt_actv   : 0     #Flag to indicate if G51/G68 is active                     
) B6 x6 a( J2 Q' Q( P# Z7 v3 x                     #0=Off, 1=Toolchange, 2=Subprogram call/start, G68
                     #3=Absolute start, both
" c7 ~1 V! W# x" C9 z' {0 ~5 lrt_csav      : 0     #C saved value
3 e1 L1 ]* A) |& {! ~8 r$ Uend_sub_mny  : 0     #Many tool setting captured at transform sub end
comp_type    : 0     #Cutter compensation type - 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
" N7 X: o& O+ ]# |) V$ G9 ?6 r#Coolant variables for X style coolant
cant_pos     : 0     #Read from current canned text (cant_pos1 - cant_pos20)
4 r9 ]4 m. P' B8 F1 Ocoolant_bin  : 0     #Binary value for current coolant command
7 P- T4 T; L, H. |coolant_on   : 0     #Binary value holding the sum of all coolants currently on
coolantx     : 0     #Selector variable for coolant string selector
, D6 M- t/ F" X; Llocal_int    : 0     #Local variable for output of coolant off commands
/ m! T# E: _) J9 Rresult2      : 0     #Return value for functions
; z1 n; w4 F4 I# Gsuppress     : 0     #Flag used to suppress redundant coolant on commands
all_cool_off : 0     #First coolant off command shuts off ALL coolant options
: p9 R: i1 C8 n7 ?) q! ~0 O
#Variables to capture parameter values - use to set post switches in pset_mach
rotaxerror   : 0     #Error flag - Output error message if rotary axis is detected in active axis combination
- c) N- w! `7 l8 ~5 Xrot_ax_cnt   : 0     #Rotary axis counter
0 L( ~* T; ]3 h) h9 }1 n' }! Tcomponent_type : 0   #Component type: (See documentation for complete list - )
                       #0 = MACHINE
                       #1 = STOCK_COMPONENT
/ [6 R' j9 E) y, M8 w                       #2 = MISC_COMPONENT
( I% q1 X: b: {! u  j5 R$ U                       #3 = MACHINE_BASE_COMPONENT
& f+ S( s  D) G                       #4 = LINEAR_AXIS_COMPONENT
; x$ o/ Y) i) a0 f& B                       #5 = ROTARY_AXIS_COMPONENT
                       #6 = RECT_TABLE_COMPONENT
6 B. p0 ]& }; H+ ?; t' v                       #12 = CHUCK_COMPONENT
7 q- t. ]. ^# z" P; J- c% L. v& I                       #24 = TOOL_SPINDLE_COMPONENT
                       #23 = ATC_COMPONENT
: L2 U: x; n! b9 h3 hra_error     : 0     #Flag for aggregate operation
, D/ i9 A# @7 E; R% a( G$ H. g( e
1 {% {8 ]6 f: p/ U! R# --------------------------------------------------------------------------
#String and string selector definitions for NC output
+ D9 C$ R- |  x, P  G8 l1 G7 Y1 X, W# --------------------------------------------------------------------------
#Address string definitions
strm         : "M"
strn         : "N"
( f- w) F: Z3 }. [8 K" @stro         : "O"
& s  m  n3 z- J' H; ~2 Dstrp         : "P"
srad         : "R"
srminus      : "R-"
4 i" @$ W: A% G9 ~. f! l0 m3 psblank       : ""
. L8 Y5 P1 r9 q$ H2 Y* _; M$ X5 W' y
#Cantext string definitions (spaces must be padded here)
sm00         : "M00"
sm01         : "M01"
1 {" l7 P$ x* p  _) d" N; c( Astrtextno    : ""
strcantext   : ""

; _# K: b8 h8 i#Transform mirror and rotate codes
  G! J$ W3 o8 @3 A- v( m+ wstrns_mir_on  : "G51.1" #Programmable mirror image code
! i" w5 ^. F& H- rstrns_mir_off : "G50.1" #Programmable mirror image cancel code
strns_rot_on  : "G68"   #Coordinate System Rotation
strns_rot_off : "G69"   #Coordinate System Rotation Cancel
+ J0 q, I. W8 U! [; J
3 m6 H6 N3 ]. ?) g7 ]% Q#Misc. string definitions
/ F, O- G% n0 n0 u8 t3 fsopen_prn    : "("   #String for open parenthesis "("
8 w0 w( i' @' t, Y* X9 j* osclose_prn   : ")"   #String for close parenthesis ")"
sdelimiter   : "|"   #String for delimiter
sg94         : "G94" #Units per minute
sg95         : "G95" #Feed per rotation
sm29         : "M29" #Rigid tapping preperation support function
sg80         : "G80" #Cancel canned drilling cycle
) C) f/ C( _8 psg43         : "G43" #Tool length compensation
# J1 X+ o" W! Z) zsg49         : "G49" #Tool length compensation cancel
4 j5 E# o- ^1 X  p; s, h$ qsg92         : "G92" #Set work piece coordinate system
; R/ k0 ~$ f- X( Zsm06         : "M6"  #Toolchange
  i# c* J" p+ [4 [
  Q# J+ f1 a. C) F# --------------------------------------------------------------------------
3 ]+ _% L; v8 _# M- E# Error messages
' L3 C' Z0 }( S3 f8 R# U5 f; C1 [# --------------------------------------------------------------------------
% k- A/ y4 q) u' t6 a' `9 ]; ]+ ^shomeserror  : "ERROR - WORK OFFSET USAGE DOES NOT SUPPORT TRANSFORM SUBPROGRAM"
7 }& l  E$ h. _sprgnerror   : "ERROR - SUBPROGRAM NUMBER MATCHES THE MAIN PROGRAM NUMBER"
( F" k  g* B* g5 y3 m4 Hsra_error    : "ERROR - AGGREGATES NOT SUPPORTED IN THIS POST"
srotaxerror  : "ERROR - ROTARY AXIS DETECTED IN SELECTED AXIS COMBINATION- POST DOES NOT SUPPORT ROTARY AXIS OUTPUT"

# --------------------------------------------------------------------------
# General G and M Code String select tables
$ B7 W1 A3 {% k2 e. E) u# --------------------------------------------------------------------------
. J& t! G& S0 X5 s+ ~0 E% ]; ?: Y# Motion G code selection
& c& i+ w6 |- S. X8 J: @sg00    : "G0"       #Rapid
sg01    : "G1"       #Linear feed
3 A( I4 D" I- L" Gsg02    : "G2"       #Circular interpolation CW
( p: ~  g2 ^. G( P" t# k9 V& Vsg03    : "G3"       #Circular interpolation CCW
sg04    : "G4"       #Dwell
" h. X( h5 {& _/ hsgcode  : ""         #Target string

+ h8 m7 x0 j  d, C. yfstrsel sg00 gcode$ sgcode 5 -1
: T3 p7 L- D" S( q2 T. c! a# --------------------------------------------------------------------------
1 J3 m" q; t3 u1 Q# r# Select work plane G code
- U& ~0 ?! A( y% Q  t3 vsg17    : "G17"      #XY plane code
$ f% S, w& v& E. f1 ^8 c* F4 C  \0 Lsg19    : "G19"      #YZ plane code
sg18    : "G18"      #XZ plane code
: r8 g$ z1 J$ T/ Z$ Nsgplane : ""         #Target string

fstrsel sg17 plane$ sgplane 3 -1
: B. N9 J: f+ N3 ?# --------------------------------------------------------------------------
$ G+ F" [# c0 n: {#Select english/metric code
2 m9 o- V" y& Z" A' dsg20    : "G20"      #Inch code
# k0 a- }: e! ^) K: C% w' V' `sg21    : "G21"      #Metric code
! C7 k" r9 z# i' M$ T0 z  Dsmetric : ""         #Target string  
# s" q! K- G- r9 v& [& `
fstrsel sg20 met_tool$ smetric 2 -1
# --------------------------------------------------------------------------
2 q' B% A, ~* D9 D; m#Select reference return code
sg28    : "G28"      #First reference point return
sg30    : "G30"      #Second reference point return
3 j( q) C, i+ D5 lsg28ref : ""         #Target string
5 z; H6 ?$ B/ G, C6 `& X" R1 N0 U
fstrsel sg28 mi3$ sg28ref 2 -1
* k* y7 O* q% N8 F! r# --------------------------------------------------------------------------
, U, N; C( F# Z; @+ n, ?+ u2 l# t# Cutter compensation G code selection
$ {& f) f" l4 W( x% lscc0    : "G40"      #Cancel cutter compensation
scc1    : "G41"      #Cutter compensation left
scc2    : "G42"      #Cutter compensation right
5 E: K! U5 i$ S. J5 R; csccomp  : ""         #Target string
8 `4 B& H& k3 D
' i( C' u* _" F' g* Bfstrsel scc0 cc_pos$ sccomp 3 -1
2 e# v2 x* J2 E' \# --------------------------------------------------------------------------
# Canned drill cycle string select
sg81    : "G81"      #drill - no dwell
2 M/ `! k, _. T5 Q! j3 psg81d   : "G82"      #drill - with dwell
) m0 b3 A# D% C3 l/ [sg83    : "G83"      #peck drill - no dwell
sg83d   : "G83"      #peck drill - with dwell
sg73    : "G73"      #chip break - no dwell
sg73d   : "G73"      #chip break - with dwell
8 m6 _* K& p4 N* Q  T% qsg84    : "G84"      #tap - right hand
* r% ?- }5 L% I: Bsg84d   : "G74"      #tap - left hand
/ b9 |( Z/ n1 v) h2 n$ D+ J' P: ksg85    : "G85"      #bore #1 - no dwell
sg85d   : "G89"      #bore #1 - with dwell
sg86    : "G86"      #bore #2 - no dwell
sg86d   : "G86"      #bore #2 - with dwell
sgm1    : "G76"      #fine bore - no dwell
sgm1d   : "G76"      #fine bore - with dwell
; Z* G3 p0 H! p) Zsgm2    : "G84"      #rigid tap  - right hand
sgm2d   : "G74"      #rigid tap  - left hand
" Y% Z  W; z2 s( R2 t* V& ^sgdrill : ""         #Target string
2 \, ~8 k$ R3 F9 k0 |
fstrsel sg81 drlgsel sgdrill 16 -1
# --------------------------------------------------------------------------
# Select incremental or absolute G code
sg90    : "G90"      #Absolute code
sg91    : "G91"      #Incremental code
sgabsinc : ""        #Target string  

& d; y1 o% ?, n7 l+ xfstrsel sg90 absinc$ sgabsinc 2 -1
% ~; k3 f0 Z2 W8 Q0 ~5 n# --------------------------------------------------------------------------
#Canned drill cycle reference height
sg98    : "G98"      #Reference at initht
" @6 O: m$ [- s7 W- u  ?! bsg99    : "G99"      #Reference at refht     
sgdrlref : ""        #Target string
% a1 a, i( f! x1 C* l
fstrsel sg98 drillref sgdrlref 2 -1
# --------------------------------------------------------------------------
' D- n$ _8 E  e, J+ \1 G% w# Generate string for spindle
& T$ a5 N; D* A! V6 ]9 O3 Wsm04    : "M4"       #Spindle reverse
sm05    : "M5"       #Spindle off
/ e! Z( A, \& z; ]0 R( psm03    : "M3"       #Spindle forward
spindle : ""         #Target string

fstrsel sm04 spdir2 spindle 3 -1
+ Q' h  b0 _) n2 b% s0 a# --------------------------------------------------------------------------
: `. b' O! n9 V9 ^( Q, G# Coolant M code selection for V9 style coolant
# A2 D$ q0 \' l: v8 i* A# Note: To enable V9 style coolant, click on the General Machine Parameters icon
2 y1 `. J' p- N5 ~5 a# c#   in the Machine Definition Manager, Coolant tab, enable first check box
5 [, @0 H! D% j. |* f9 A( l#   Output of V9 style coolant commands in this post is controlled by scoolant
% l0 t" Y2 j9 C; [/ i  E6 ?( ism09    : "M9"       #Coolant Off
( R1 ^' g2 H7 v* Xsm08    : "M8"       #Coolant Flood
* X% o  d) b$ b3 ~1 tsm08_1  : "M8"       #Coolant Mist
. G; z: J, B$ c, V6 h& _sm08_2  : "M8"       #Coolant Tool
scoolant : ""        #Target string
: e2 [* Z1 q' [' `7 f. ~
1 R7 O# f! B5 Q: }! Y接后面。。

duolzw

fstrsel sm09 coolant$ scoolant 4 -1
# --------------------------------------------------------------------------
( _3 V. p' k  d) C# Coolant output code selection for X style coolant
# Note: To enable X style coolant, click on the General Machine Parameters icon
* |  H4 m1 f# j8 Y. K1 Y#   in the Machine Definition Manager, Coolant tab, disable first check box
#   Output of X style coolant commands in this post is controlled by pcan, pcan1, & pcan2
scool50 : "M8"                 #Coolant 1 on value
1 x: f  ^- w, U3 ?scool51 : "M9"                 #Coolant 1 off value
scool52 : "M7"                 #Coolant 2 on value
scool53 : "M9"                 #Coolant 2 off value
scool54 : "M88"                #Coolant 3 on value
scool55 : "M89"                #Coolant 3 off value
& u4 e7 }/ P: A9 ~8 Gscool56 : "M8(Coolant4=ON)"    #Coolant 4 on value
scool57 : "M9(Coolant4=OFF)"   #Coolant 4 off value
1 n' H" ]! @8 escool58 : "M8(Coolant5=ON)"    #Coolant 5 on value
scool59 : "M9(Coolant5=OFF)"   #Coolant 5 off value
scool60 : "M8(Coolant6=ON)"    #Coolant 6 on value
scool61 : "M9(Coolant6=OFF)"   #Coolant 6 off value
* ~9 W& l# c; H( R5 U' ~! E4 J5 qscool62 : "M8(Coolant7=ON)"    #Coolant 7 on value
scool63 : "M9(Coolant7=OFF)"   #Coolant 7 off value
- M2 w$ ^* Q3 n* f& p8 z- \scool64 : "M8(Coolant8=ON)"    #Coolant 8 on value
scool65 : "M9(Coolant8=OFF)"   #Coolant 8 off value
1 s) ?( G# M5 x6 {# M& zscool66 : "M8(Coolant9=ON)"    #Coolant 9 on value
scool67 : "M9(Coolant9=OFF)"   #Coolant 9 off value
' V0 Z, L; c$ Dscool68 : "M8(Coolant10=ON)"   #Coolant 10 on value
scool69 : "M9(Coolant10=OFF)"  #Coolant 10 off value
( e6 o/ a8 t* Bscoolantx : ""                 #Target string

$ ^. `1 J: g) {fstrsel scool50 coolantx scoolantx 20 -1
# --------------------------------------------------------------------------
#X coolant has the option - First coolant off command shuts off ALL coolant options
sall_cool_off : "M09" #Coolant off command output with all_cool_off
0 s0 C6 L6 O0 U: _  K5 ]4 a
# --------------------------------------------------------------------------
& U. y. @0 o) F. z+ I# e# Define the gear selection code
flktbl  1       3       #Lookup table definition - table no. - no. entries
# q9 Y& Y+ ~# P- U2 _. v5 t        40      0       #Low gear range
        41      400     #Med gear range
        42      2250    #Hi gear range
8 l" M! U3 e, k! q3 r6 b/ Z
% Y, y$ N1 V6 p% j* p3 F/ n& M# --------------------------------------------------------------------------
# Define coolant binary value for X style coolant
% S+ h  `8 X5 A6 G1 e- u1 E/ }0 Lflktbl  2       20      #Lookup table definition - table no. - no. entries
        1       50      #Coolant 1 on value
        2       51      #Coolant 1 off value
, r6 A5 Y3 d# e6 a; G& w9 e& n" u' P        4       52      #Coolant 2 on value
        8       53      #Coolant 2 off value
        16      54      #Coolant 3 on value
        32      55      #Coolant 3 off value
        64      56      #Coolant 4 on value
        128     57      #Coolant 4 off value
$ O4 X3 K( U2 u6 R        256     58      #Coolant 5 on value
. [" z; @' Z5 W  P' V        512     59      #Coolant 5 off value
1 d) h! g/ {& i9 U& Z4 s3 H4 x        1024    60      #Coolant 6 on value
: y8 ^! u4 j0 r( \6 p7 g        2048    61      #Coolant 6 off value
- D* P* T- \+ X* p  J5 C        4096    62      #Coolant 7 on value
0 i* |$ t0 v7 u1 y+ x        8192    63      #Coolant 7 off value
$ {5 Z! D% Y+ o) }- H! X3 j5 ~9 B        16384   64      #Coolant 8 on value
        32768   65      #Coolant 8 off value
  f- H8 \- j  R4 K  q. a5 g        65536   66      #Coolant 9 on value
! Q7 w$ C- i) ?1 L1 ?" ~        131072  67      #Coolant 9 off value
        262144  68      #Coolant 10 on value
        524288  69      #Coolant 10 off value

# --------------------------------------------------------------------------
( ~( B& s: i+ D# Month selector
smon0   : ""
smon1   : "JAN."
smon2   : "FEB."
smon3   : "MAR."
smon4   : "APR."
smon5   : "MAY."
smon6   : "JUN."
& j  C1 Y# A! R8 Osmon7   : "JUL."
( Q( a8 i0 z/ H9 W: U2 ~5 @smon8   : "AUG."
smon9   : "SEP."
: f. H9 m7 A2 d" O- _9 ^smon10  : "OCT."
smon11  : "NOV."
smon12  : "DEC."
smonth  : ""         #Target string
6 @7 E( V. f" P4 }
fstrsel smon0 month$ smonth 13 -1
) Y4 C7 E( G4 }; D5 b2 p# --------------------------------------------------------------------------
# Cutter Compensation Type
scomp   : "COMPUTER"
7 t: h6 N& C1 k6 O, M( U8 \- m0 kscomp1  : "CONTROL COMP"
/ ~  @, U' Z1 w$ S- l0 E9 \scomp2  : "WEAR COMP"
scomp3  : "REVERSE WEAR COMP"
scomp4  : "OFF"
scomp_type : ""      #Target string
6 _* \! |- p7 ~6 }* y9 x
fstrsel scomp comp_type scomp_type 5 -1
6 @4 a" n' l$ e  m# --------------------------------------------------------------------------
! ]. X" [/ n  r: m% ?" y# Format statements - n=nonmodal, l=leading, t=trailing, i=inc, d=delta
1 g+ S/ m4 W: b$ h# --------------------------------------------------------------------------
9 u) z* C# ]. t7 E#Default english/metric position format statements
; c9 n3 g6 V( b" U* F  Z# rfs2 1   0.7 0.6      #Decimal, absolute, 7 place, default for initialize (
! x: n+ ?! f2 I# [fs2 2   0.4 0.3      #Decimal, absolute, 4/3 place
3 X; N3 q  r$ T/ D" qfs2 3   0.4 0.3d     #Decimal, delta, 4/3 place
) Z& y! T, V& [  i+ \#Common format statements
! _0 y/ \3 u2 A, |) ^fs2 4   1 0 1 0      #Integer, not leading
; r0 V  _6 Q: I, Z; I" W6 l5 M3 Yfs2 5   2 0 2 0l     #Integer, force two leading
6 Z' v/ \. A3 D+ {' h" lfs2 6   3 0 3 0l     #Integer, force three leading
fs2 7   4 0 4 0l     #Integer, force four leading
fs2 9   0.1 0.1      #Decimal, absolute, 1 place
fs2 10  0.2 0.2      #Decimal, absolute, 2 place
! U+ \7 R  |' _" H# {fs2 11  0.3 0.3      #Decimal, absolute, 3 place
5 W, C" w( Z" ~7 i7 B1 a3 y- P1 xfs2 12  0.4 0.4      #Decimal, absolute, 4 place
fs2 13  0.5 0.5      #Decimal, absolute, 5 place
' I1 ?  ]* r- i8 Vfs2 14  0.3 0.3d     #Decimal, delta, 3 place
" h: Q9 b8 b% ]9 x* _3 Bfs2 15  0.2 0.1      #Decimal, absolute, 2/1 place (feedrate)
fs2 16  1 0 1 0n     #Integer, forced output
: i  p1 T  x. H8 pfs2 17  0.2 0.3      #Decimal, absolute, 2/3 place (tapping feedrate)
+ e) q8 |2 |7 ~! ]: [* r
! r! J$ c5 y2 Y6 ~( j# These formats used for 'Date' & 'Time'
fs2 18  2.2 2.2lt    #Decimal, force two leading & two trailing (time2)
fs2 19  2 0 2 0t     #Integer, force trailing                   (hour)
  i0 f; y) w& d" _, Nfs2 20  0 2 0 2lt    #Integer, force leading & trailing         (min)

# This format statement is used for sequence number output
6 p  ]' Q' e% ?6 l# Number of places output is determined by value for "Increment Sequence Number" in CD
# Max depth to the right of the decimal point is set in the fs statement below
fs2 21  0^7 0^7      #Decimal, 7 place, omit decimal if integer value

( i6 w; E2 h! B9 `# --------------------------------------------------------------------------
4 `- s7 d7 @7 g& ?6 O# Toolchange / NC output Variable Formats
# --------------------------------------------------------------------------
! d. _# ]9 F0 ^' ufmt  T  4   t$          #Tool number
* b0 U- L' N. k: s, o# [, F$ pfmt  T  4   first_tool$ #First tool used
0 a/ i, S; P7 ~; ?+ mfmt  T  4   next_tool$  #Next tool used  
fmt  D  4   tloffno$    #Diameter offset number
fmt  H  4   tlngno$     #Length offset number
fmt  G  4   g_wcs       #WCS G address
fmt  P  4   p_wcs       #WCS P address
fmt  S  4   speed       #Spindle Speed
$ Q; {# S; s+ @1 i7 c: |$ Qfmt  M  4   gear        #Gear range
# --------------------------------------------------------------------------
fmt  N  21  n$          #Sequence number
fmt  X  2   xabs        #X position output
6 ?- O& ^: c+ W! _fmt  Y  2   yabs        #Y position output
; N% m1 Z' B" b2 O+ M: ^  |, n5 Pfmt  Z  2   zabs        #Z position output
fmt  X  3   xinc        #X position output
  q# g7 D0 J% d1 }fmt  Y  3   yinc        #Y position output
& R' ~: ^7 q: ~8 n) @. Ufmt  Z  3   zinc        #Z position output
fmt  I  3   iout        #Arc center description in X
fmt  J  3   jout        #Arc center description in Y
fmt  K  3   kout        #Arc center description in Z
' T) {' M4 R3 s2 Z4 Yfmt  R  2   arcrad$     #Arc Radius
fmt  F  15  feed        #Feedrate
fmt  P  11  dwell$      #Dwell
& a& Q! ^$ ?3 [/ K0 {fmt  M  5   cantext$    #Canned text
fmt  F  2   pitch       #Tap pitch (units per thread)
9 ?- _* ?$ P; Y3 u. ~% R# --------------------------------------------------------------------------
#Move comment (pound) to output colon with program numbers
/ p. t( V6 P3 J) o; j8 d4 v* Mfmt  O  7   progno$     #Program number
$ `" Y% C/ W; v/ J1 Y! ]#fmt ":" 7   progno$     #Program number
5 |% o3 e6 Q4 i# [0 @fmt  O  7   main_prg_no$ #Program number
#fmt ":" 7   main_prg_no$ #Program number
fmt  O  7   sub_prg_no$ #Program number
#fmt ":" 7   sub_prg_no$ #Program number
$ G+ h/ E4 P: l( x( w. t( [+ Wfmt  X  2   sub_trnsx$  #Rotation point
fmt  Y  2   sub_trnsy$  #Rotation point
fmt  Z  2   sub_trnsz$  #Rotation point
! \& e. W7 p6 L, c  Q! L# --------------------------------------------------------------------------
3 t' n8 E  a! gfmt  Q  2   peck1$      #First peck increment (positive)
2 K" Y# j# e- S6 u! H. B' a$ Mfmt  Q  2   shftdrl$    #Fine bore tool shift
fmt  R  2   refht_a     #Reference height
fmt  R  2   refht_i     #Reference height
# --------------------------------------------------------------------------
fmt "TOOL - "      4   tnote    #Note format
# J) W" }& j, N5 X! [+ m1 tfmt "DIA. OFF. - " 4   toffnote #Note format
6 K6 B2 b3 i( p0 Ifmt "LEN. - "      4   tlngnote #Note format
fmt "TOOL DIA. - " 1   tldia$   #Note format
fmt "XY STOCK TO LEAVE - " 2  xy_stock #Note format
fmt "Z STOCK TO LEAVE - "  2  z_stock  #Note format
# --------------------------------------------------------------------------
" z. L+ o; Q) d0 U  J& u7 Nfmt     4   year2       #Calculated year value
fmt     18  time2       #Capture 24-hour time value into 'time2' variable
/ _: U2 X# c* Q7 mfmt     19  hour        #Hour
fmt     20  min         #Minutes
( W+ g  G: x7 ?* V6 byear2 = year$ + 2000

duolzw

# --------------------------------------------------------------------------
4 F- V/ G) M. z: ~- w1 b# Tool Comment / Manual Entry Section
2 B# F3 |3 r( R7 Q; j3 c( Z# --------------------------------------------------------------------------
ptoolcomment    #Comment for tool
& |3 _' `( C$ O      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
! o" O0 w/ P1 ^      if tool_info = 1 | tool_info = 3,
* B1 B  g2 {  a' f6 k" v' u1 z3 V        sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$

ptooltable      #Tooltable output
      sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
        [if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
        [if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
) Z0 d$ N. x# V# `) c6 e+ t        sclose_prn, e$

4 x8 {# T) @- D$ a0 [( Z) [. F% Dpstrtool        #Comment for tool
      if strtool$ <> sblank,
8 e  B' o- K. \        [
7 U- ~4 F% s$ m, F8 C        strtool$ = ucase(strtool$)
  A. Y# I& a6 ~' e        *strtool$
        ]
6 P$ n# ]1 I* o5 P
pcomment$       #Comment from manual entry (must call pcomment2)
& C6 `+ C- N. T2 O. q0 C2 H      pcomment2 #Required if doing boolean 'if' logic testing!

pcomment2       #Output Comment from manual entry
      scomm$ = ucase (scomm$)
' E9 f" h& ?# H      if gcode$ = 1005, sopen_prn, scomm$, sclose_prn, e$  #Manual entry - as comment
6 B" Z+ i: g% M6 b; n. R) q6 {      if gcode$ = 1006, scomm$, e$            #Manual entry - as code
      if gcode$ = 1007, sopen_prn, scomm$, sclose_prn      #Manual entry - as comment with move NO e$
      if gcode$ = 1026, scomm$                #Manual entry - as code with move NO e$
0 \. h( b" N8 n4 h2 m6 A      if gcode$ = 1008, sopen_prn, scomm$, sclose_prn, e$  #Operation comment
: w/ E$ X# a" ~. |' d3 k  [8 k$ A      if gcode$ = 1051, sopen_prn, scomm$, sclose_prn, e$  #Machine name
      if gcode$ = 1052, sopen_prn, scomm$, sclose_prn, e$  #Group comment
      if gcode$ = 1053, sopen_prn, scomm$, sclose_prn, e$  #Group name
4 J% H' r; W7 B$ a' l, }      if gcode$ = 1054, sopen_prn, scomm$, sclose_prn, e$  #File Descriptor

# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
$ n! Y# Y% R, s  ]" L0 {- O5 jptime           #Convert 24-hour time format into 12-hour AM/PM format
      if time$ >= 13, time2 = (time$ - 12)
" R; r* D& N& _3 r' v" Y, G      else, time2 = time$
      hour = int(time2), min = frac(time2)
8 L& v* f: Y& T: Y      *hour, ":", *min,
      if time$ > 12, " PM"
      else, " AM"
' j0 h8 I; O( O- w1 }
pheader$         #Call before start of file                        
      "%", e$
7 `6 b  ]2 h* h' w5 r  n      sav_spc = spaces$
      spaces$ = 0
+ T2 G0 c9 X7 i* X8 }- ]; j! B      *progno$, sopen_prn, sprogname$, sclose_prn, e$
      #sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$
      sopen_prn, "DATE=DD-MM-YY - ", date$, " TIME=HH:MM - ", time$, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:52
      #sopen_prn, "DATE - ", month$, "-", day$, "-", year$, sclose_prn, e$  #Date output as month,day,year - Ex. 02-12-05
! v9 x7 C: j  R. ~( C2 ?      #sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005
. T! U9 w, ]  F/ E/ ?      #sopen_prn, "TIME - ", time$, sclose_prn, e$  #24 hour time output - Ex. 15:52
      #sopen_prn, "TIME - ", ptime sclose_prn, e$  #12 hour time output 3:52 PM
/ B/ d! N+ l! |( H: h* q      spathnc$ = ucase(spathnc$)
      smcname$ = ucase(smcname$)
# B- D. ?4 P( p9 B; t0 _3 W      stck_matl$ = ucase(stck_matl$)
+ j# I, @" ]7 P/ B4 p* S( @      snamenc$ = ucase(snamenc$)
7 I; G1 G" \- z      sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$
, w  p/ l7 p$ a: b8 w- s7 E      sopen_prn, "NC FILE - ", *spathnc$, *snamenc$, *sextnc$, sclose_prn, e$
. V8 q) I( \0 p2 ]; q      sopen_prn, "MATERIAL - ", *stck_matl$, sclose_prn, e$
) j" ?8 m2 e4 J3 O      spaces$ = sav_spc

* ?* X, y2 v: k+ k7 l7 Wpsof0$           #Start of file for tool zero                        
" x2 w) K7 i6 y) E5 i/ N      psof$
( s& N; q' c& l0 b5 I. C% D% T
psof$            #Start of file for non-zero tool number            
      if ra_error = 1, [if mprint(sra_error, 2) = 2, exitpost$]
0 q4 p- v2 U# ~      toolchng = one
      if ntools$ = one,
3 N# J5 p$ t  D# M- `4 F% `2 v        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
$ |8 J' B! v5 i' F        !next_tool$
        ]
9 F  L; [0 o" x& f0 g6 H      pbld, n$, *smetric, e$
      pbld, n$, *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, e$
      sav_absinc = absinc$
$ A0 ^4 D$ u* f# C      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
/ Y4 i( V8 l9 D$ u7 J/ j) D, ]        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
& W6 U7 J. R6 N0 T$ L5 A# }: A        absinc$ = sav_absinc
" h" b3 v  {1 d1 Y4 U) Y: `. R        ]
      pcom_moveb
. ?( I( u' M) |' m7 O6 R      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
      comment$
      pcan
      pbld, n$,sm06, *t$,  e$
      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
3 K* S; ^0 `* i# t- \4 L$ m        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
      absinc$ = sav_absinc
      pcom_movea
0 g! z+ w" n8 O* V3 x      toolchng = zero
+ Y- l1 s. B* `6 D8 V, @      c_msng$ #Single tool subprogram call

ptlchg0$         #Call from NCI null tool change (tool number repeats)                        
      pcom_moveb
7 m+ t1 {/ P; }# Y) W      pcheckaxis
; K* T. H. S+ ]8 [      c_mmlt$ #Multiple tool subprogram call
      comment$
      pcan
) w# V: K3 L. |1 W- ]" b      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n$, sgplane, e$
% X$ W, N& {; N3 z7 g* A      pspindchng
, P% F# O: }* i" o8 J* v  P      pbld, n$, scoolant, e$
      if mi1$ > one & workofs$ <> prv_workofs$,
        [
* U+ \/ k4 e  m; T        sav_absinc = absinc$
$ R- |: f7 ?9 p) I8 o        absinc$ = zero
        pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
2 p& j# U) @8 l; `+ K7 `        pe_inc_calc
0 g2 G" S% M! S; P        ps_inc_calc
        absinc$ = sav_absinc
        ]
' |+ Z# z# O' i! {5 {. v* a      if gcode$ = one, plinout
1 n" o- M0 J% w( ^4 o4 V      else, prapidout
      pcom_movea
, v' {7 @( i1 v/ D7 R      c_msng$ #Single tool subprogram call
+ [$ K+ L% }, _" N1 h4 a
6 T/ _$ a* p$ a6 @- P3 G3 Iptlchg$          #Tool change                                       
      toolchng = one
2 X& F$ f( E" z1 u( \3 p5 W4 u      if mi1$ = one, #Work coordinate system
; @- c5 F% T$ D: }# \) f        [
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
# G$ z  h, ?6 }        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
' K# O; V9 z/ C. I% a# O4 ~. B        ]
+ j$ h7 ^" D8 I- X4 ~      if prog_stop = 1, pbld, n$, *sm01, e$
6 W- k1 D6 l( t: o3 i% H      if prog_stop = 2, pbld, n$, *sm00, e$
      pcom_moveb
& J# }- \9 X5 ^5 D      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
: M6 C8 [  [; v  K5 y! a      ptoolcomment
      comment$
0 |# _' z( V; P2 p, `. k" F( s      pcan
      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n$, *t$, sm06, e$
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
: t# ]9 |  V" w1 D: r9 Q      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
      absinc$ = sav_absinc
; V* j0 w; O! n4 @      pcom_movea
" {8 e" h; W' ^1 \) `      toolchng = zero
6 L% m) X" l* l  d6 V      c_msng$ #Single tool subprogram call

pstagetool      #Pre-stage tools
& _2 W1 E4 K# E5 {! X  Z3 M% I5 r      if stagetool = 1,
        [
        if ttblend$,  #Check for last toolchange
          [
          if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
$ y9 o* W) G% B2 e/ L$ F          ]
) ^8 m  M- P( X6 ~# r+ m* K7 w; ^        else, *next_tool$ #stage tool at every toolchange
        ]

2 e/ O/ D$ `; K1 H' vpretract        #End of tool path, toolchange
, O" x, t6 b2 Z5 P/ K      sav_absinc = absinc$
      absinc$ = one
      sav_coolant = coolant$
      coolant$ = zero

#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
2 s: _6 m9 B' r4 e2 A        [                 #  explicitely turned off through a canned text edit
% B9 Q2 t# X+ c$ ?* S4 \- x        if all_cool_off,
/ P- e3 r+ W+ I% {: {" p# W          [
9 f  L6 i& h0 d# a          #all coolant off with a single off code here
3 x/ B1 V! D) d+ v2 @          if coolant_on, pbld, n$, *sall_cool_off, e$
          coolant_on = zero
          ]
) b8 d4 f& G8 @  [2 w! ^/ ~# _        else,
/ t, R0 G+ E$ I: Q0 M" x7 @          [
          local_int = zero
8 r. }3 V% c1 k7 V* T* z          coolantx = zero
# U* o) N: w2 ?. s* s          while local_int < 20,
1 S$ J* L7 k$ r6 J- ~% {8 `            [
            coolantx = and(2^local_int, coolant_on)
            local_int = local_int + one
            if coolantx > zero,
              [
! g8 `1 R* `6 s- a% e3 E# _. q* f& V              coolantx = local_int
              pbld, n$, scoolantx, e$
  v2 U' x  {6 \              ]
3 O! [1 C( _2 Y2 Y$ `            coolantx = zero
/ q0 r4 a" l: ~: [6 _+ J            ]
          coolant_on = zero
/ P! t6 X+ P* K0 O& Q% ?          ]
        ]
      #cc_pos is reset in the toolchange here
3 F* f# e0 H  C! M      cc_pos$ = zero
/ g# s. a4 a% g: H+ ?. N; a      gcode$ = zero
, k' J6 o8 a; k1 x" v. ~      pbld, n$, sccomp, *sm05, psub_end_mny, e$
7 p7 q! X' {1 M/ U" Q- F      pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$
# }9 `' {8 U! ?9 o7 B2 X      if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", e$
      absinc$ = sav_absinc
      coolant$ = sav_coolant
8 M$ L  R- x4 U' j
" O9 M& o( `4 c. X- q# q3 Qpeof0$           #End of file for tool zero               
5 H8 k! m' @# K# ~      peof$
; I2 f! ~( h. t) h1 C) n7 A1 K1 z
7 c. z5 g& A% |# L. h7 xpeof$            #End of file for non-zero tool           
      pretract
9 }+ q! l! Z  Q6 J& w) R      comment$
' ?- \# S. ?  ~! W! p      if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$
% `5 d+ T6 q" U% e      n$, "M30", e$
' |8 v+ W" Q" ~: f  Y      mergesub$
* O) X& m- S3 ]9 N, I* [/ w      clearsub$
5 {$ C) w. ^3 F: P* A2 ]# H) |0 u+ _      mergeaux$
      clearaux$
  p+ w5 {1 w% C. H+ @) H% c      "%", e$
" h7 c6 Q7 d7 y$ P
2 A# o" N+ b' s- S  Apwcs            #G54+ coordinate setting at toolchange
      if mi1$ > one,
- u. R3 R1 d, u1 e% ~& b/ T2 N, k: J        [
4 W6 R% p0 h1 N4 A" i; J        sav_frc_wcs = force_wcs
! ?5 j1 \. ?' x- q" y        if sub_level$ > 0, force_wcs = zero
+ C" o) ~4 S' D        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
          [
          if workofs$ < 6,
            [
  Q1 k9 e9 ]5 j7 c% [4 g+ H            g_wcs = workofs$ + 54
            *g_wcs
            ]
8 U6 f2 E( m6 T- T7 u& {$ [2 Q7 x          else,
7 G! S2 G8 k! B- g            [
5 P7 F* z, K# G; e            p_wcs = workofs$ - five
% S) B3 K: x# C( U            "G54.1", *p_wcs
            ]
" B6 r- h) H0 ]; B* n- y          ]
        force_wcs = sav_frc_wcs
        !workofs$
3 @: i; }  c. W, K7 U2 N        ]
' t5 d) K$ q3 A
pgear           #Find spindle gear from lookup table
      if use_gear = one,
        [
( Y5 d  k, c: k        gear = frange (one, speed)
        *gear
        ]
9 o( [4 i0 ?% [5 [1 t5 ^, M' y
#Toolchange setup
3 ^: A+ `7 H& j) Kpspindchng      #Spindle speed change
      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n$, *sm05, e$
      if prv_speed <> speed | prv_spdir2 <> spdir2,
        [
; j, ~8 C* g  q3 v4 u6 G! S% M" {        if speed, pbld, n$, *speed, *spindle, pgear, e$
  k& G# s$ _  z! [- K' [4 A+ i        ]
* V9 E3 e" u7 a8 J0 ]! O" @0 C* i      !speed, !spdir2

' I0 v( s, {$ I5 s+ zpspindle        #Spindle speed calculations for RPM
; i& m5 R- v/ h, }+ {5 e      speed = abs(ss$)
2 e; l- j9 z7 u6 E& x      if speed,
        [
        if speed > maxss$, speed = maxss$
) @) W1 v. r# V' G1 t3 z        if speed < min_speed, speed = min_speed
        ]
& e, n( E  s2 d; ?      spdir2 = fsg3(spdir$)
7 L) k# z0 h" c+ M9 `; \
0 Q5 a% @% Z: t5 zpq$              #Setup post based on switch settings
      stagetool = bldnxtool$  #Set stagetool from CD setting
4 q  l; n- z, ~7 b- u2 R
ptoolend$        #End of tool path, before reading new tool data               
+ u& T0 A3 M% n5 Y+ _9 b: v      !speed, !spdir2