坐标设置

duolzw

请问一下哪位大侠知道X4，怎样设置后处理变为G92，而且不带刀具长度补偿。用在数控铣的如：
O1234
7 h0 M! G5 v# {* |% ]G0  G90 G92 X100 Y50 S2000 M3
Z10 M8
G98 G81 X30 Y20 Z-10 R2 F180
% e: N5 O' n/ G% K  KG80
G0 Z10
! c2 G' d, |5 c8 m3 w+ aX100 Y50  M9
( K, H$ u  o& z0 d9 iM5
: k% h  _0 B" _+ r9 IM30  

我改过杂项设置，把里面的G54的2改为G92的-1，但是处理出来的程序是没有G92的。如
O1234
M6T1
( c: F! p: F1 t3 l$ wG0  G90 X100 Y50 S2000 M3
G43 H1 Z10 M8
G98 G81  X30 Y20 Z-10 R2 F180
' K% v6 N9 S- m% Y! i/ B. |- ~, hG80
4 B/ T" k# J' ?9 t* P# HG91 G28 Z0 M9
M05
' m: H9 {, ^8 W% l1 k6 V/ fM30.我要把它改为像上面那样的后处理怎么改。哪位高人帮帮忙，真的很感谢！

若枫

回复 1# duolzw

" P4 R& w/ S: p% h. N- e
+ B2 Y$ ]) ^3 e- J    G92只能强制输出了。

wangerwen521

把G54改为G92

duolzw

拜托，两位说了就说清楚吗。
) s* [: O0 K0 H% G! y6 E. y你们这样或很没意思的。知道就拜托了。。。谢谢

vinney777

可以强制输出

若枫

回复 1# duolzw


. _* K3 e, W) O. e0 j    既然说了你都不懂，为何不提供你的后处理。

duolzw

呵呵，刚下班，以下是我的后处理，其实也就是X4本身自带的 Generic Fanuc 3X Mill.pst。我只是修改一下就可以满足我的要求了，谢谢。如果还有什么要我提供讲讲。
不过我改了换刀：T1 M6.但它只有第一把刀换成：M6 T1.其他都不会变，也帮帮忙改一下。我要全部变成：M6 T1这格式。
$ @* e& A$ Q; ^- }
( x5 U, V+ G- F4 u7 e9 u


3 f  H. }% W. e9 Z1 N  q2 m[POST_VERSION] #DO NOT MOVE OR ALTER THIS LINE# V13.00 E1 P0 T1232650364 M13.00 I0
0 U% K+ V; A5 B4 N4 z# Post Name           : Generic Fanuc 3X Mill.pst
$ I$ s6 L  x7 L# Product             : Mill
) J! z: ]: n4 H" S6 A, a# Machine Name        : Generic
# Control Name        : Fanuc
# Description         : Generic 3 Axis Mill Post
# 4-axis/Axis subs.   : No
# 5-axis              : No
4 a& l5 ~: @' D# Subprograms         : Yes
% G! H; K$ E( \- C# Executable          : MP 13.0
, B7 F) `, [2 z- t8 n! B9 O#
* |" P3 Q' a. Z; P& Z# WARNING: THIS POST IS GENERIC AND IS INTENDED FOR MODIFICATION TO
# THE MACHINE TOOL REQUIREMENTS AND PERSONAL PREFERENCE.
#
, N1 ]1 |0 V" p+ }4 U# THIS POST REQUIRES A VALID 3 AXIS MACHINE DEFINITION.
# YOU WILL RECEIVE AN ERROR MESSAGE IF A ROTARY AXIS IS DETECTED IN
* A5 N9 R0 p- H' {  D# THE ACTIVE AXIS COMBINATION.
#
# Associated File List$
#
# GENERIC FANUC 3X MILL.control
9 w$ `) r4 S- Y: A$ c" b: A  N#
# Associated File List$
#
+ u8 q3 x* ^0 h" q. ~' ?$ e# --------------------------------------------------------------------------
* U! h; ^. u- K& G5 t# 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)
# CNC 06/26/06  -  Initial post setup for Mastercam X2
# CNC 02/26/07  -  Modified pwcs
# CNC 11/02/07  -  Added prv_shftdrl$ = zero
# CNC 04/08/08  -  X3 release - Removed check for write_ops
+ O' B3 W3 U+ s& m( j( O2 q# CNC 01/26/09  -  Initial post update for Mastercam X4
3 x+ T6 Y# E* G0 F, g2 ~( y5 d% V' X# CNC 06/09/09  -  Updated MD parameters
#
  i3 `, g% Q. L  K2 i* w, x  t; d- t# --------------------------------------------------------------------------
# Features:     
7 ^- W+ M6 _/ C* l5 t3 T9 @# --------------------------------------------------------------------------
- r' q$ t) w3 W1 l: J& L4 [; W# This post supports Generic Fanuc code for 3 axis milling.
# It is designed to support the features of Mastercam X Mill.
#
# NEW FEATURES FOR X:
! J5 Q; U! Q* o& C. b# - Sub-program support
# - 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.
' P0 a; C# h# Y# - Variable initialization with CD_VAR are read directly from CD.  Changing these initial values
" n1 `& B5 D) o% \#     in the post will not effect output.  These values are only processed during the update post routine.  
; ~3 b: i1 F0 T- {# O$ G# - Variable initialization with SET_BY_MD or SET_BY_CD are overwritten in this post by parameter or
#     variable settings from MD or CD.
! Z; K% \6 G9 D6 O- z" N# C  O3 G# - Enhanced tool information - Added switch for tool comments only, tooltable in header with no tool
#     comments at tool change or tooltable in header with tool comments at tool change (see tool_info)
4 j2 p9 [' J- H9 c2 O. `#     Tooltable output includes cutter compensation type and stock to leave information
3 o2 u# N5 j4 \+ I# - Enhanced tool staging options - enable or disable in CD.  Set stagetltype in post for output type:
$ x8 ~7 G4 o) s7 l#     Do not stage 1st tool, stage 1st tool at last tool change or stage 1st tool at end of file (peof)
# - Supports X comments including machine name, group name and group comment output (see pcomment2)
# - Additional date, time and data path output options (see pheader)  
( ^9 T9 Q7 }: p5 Q; F0 ~: F# - Additional rigid tapping cycle (separate from original tapping cycle) and initial custom drill
9 ^1 T+ d6 K% m/ L3 c6 x6 d#     cycle support (see pmisc2$ and pdrlcst$)
" k5 N5 o1 }4 C# w" d# - Support for 10 additional canned text options for X
, z9 ^3 G" }  L# - 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...)
2 W1 U7 M6 l$ G) d  t6 |1 s  z# - Switch for output of M00 or M01 at tool change (3 position switch, off, M00, M01 - see prog_stop)
. `! ?3 O$ B  {, g, t# - Support for seperate XY, XZ and YZ plane/arc variables (see Arc page in CD)
# ?( m" Q' G, b* d3 \# - 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,
3 ~! C% b# J- {+ E#     "coolantx" variable and string selector for X style coolant.
#
# --------------------------------------------------------------------------
# Misc. Values:
# --------------------------------------------------------------------------
; ]" \: M) {: Z" H" N0 K# Integers:
/ C# G( [# X. ^& J( G' ^5 V! s6 D#
# mi1 - Work coordinate system
, f/ L9 D' _' X#        0 = Reference return is generated and G92 with the
. f1 `9 Y& x/ V' ~#            X, Y and Z home positions at file head.
7 ]/ E" o! y; C' S  [: `#        1 = Reference return is generated and G92 with the
4 {0 o* E- N- n8 E2 c7 _& U#            X, Y and Z home positions at each tool.
#        2 = WCS of G54, G55.... based on Mastercam settings.
#
# mi2 - Absolute or Incremental positioning at top level
#        0 = absolute
#        1 = incremental
#
# mi3 - Select G28 or G30 reference point return.
) s# }/ C; K- S! ~6 D#        0 = G28, 1 = G30
' j( |: J: `' s% d; o#
# mi4 - mi10 (NOT USED)
3 H5 \( A6 Z" M1 o+ h0 ~#
4 W, d8 L& k4 S+ f! B2 D# Reals:
#
# mr1 - mr10 (NOT USED)
#
# --------------------------------------------------------------------------
7 d4 u* |: s7 o#Canned text:
9 w5 [- v9 J. n/ t7 z, Y#    Entering cantext on a contour point from within Mastercam allows the
#    following functions to enable/disable.
#    Cantext value:
#    1 = Program Stop = output the "M00" stop code
#    2 = Optional Stop =  output the "M01" optional stop code
#    3 = Block Delete on = turn on block delete codes in NC lines
4 e. Y! T9 y9 B#    4 = Block Delete off = turn off block delete codes in NC lines
#
" r# w: j4 N- k6 ~* w# --------------------------------------------------------------------------
0 L0 J& \5 K1 _: P#Additional Notes:
# 1) G54 calls are generated where the work offset entry of 0 = G54,
4 \$ J( ~. \( F% i0 m1 q5 b& Y#    1 = G55, etc.
# 2) Metric is applied from the NCI met_tool variable.
4 N! z& j& ~, O) [* v3 P6 {# 3) Incremental mode calculates motion from home position at toolchanges.
% q6 ]6 v. [) l. W#    The home position is used to define the last position of the tool
1 e5 O9 Q9 D0 Y: Z$ z3 m' N  Q#    for all toolchanges.  
# 4) The variable 'absinc' is now pre-defined, set mi2 (Misc. Integer) for
& [4 }$ e# h. o; n+ n4 D#    the 'top level' absolute/incremental program output.  Subprograms are
- S7 q( f3 n3 m- q#    updated through the Mastercam dialog settings for sub-programs.
( @0 i! A2 a2 {4 p' G# 5) Transform subprograms are intended for use with G54.. workshifts.
#
# END_HEADER$
#
# --------------------------------------------------------------------------
7 G2 e2 I3 I+ g2 X8 @0 ]# Debugging and Factory Set Program Switches  
( @0 E) x+ |/ j+ N0 c* J# --------------------------------------------------------------------------
#Define Constants
m_one        := -1
  G: N" B" T# e% {zero         := 0
one          := 1
two          := 2
8 ]7 D# _; g+ F4 t  Uthree        := 3
four         := 4
/ e% f1 |1 f$ L5 |6 |6 _five         := 5
c9k          := 9999
2 O0 ]5 M9 |: H* {1 R3 O
! d8 u$ I; C$ M) I, `, ?bug4$        : 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.

0 h3 R  K2 s+ I3 v- C. xlinktolvar$  : 0     #Associate X tolerance variables to V9- variable?
linkplnvar$  : 0     #Associate X plane specific variables to V9- variable?

skp_lead_flgs$ : 0   #Do NOT use v9 style contour flags
get_1004$    : 1     #Find gcode 1004 with getnextop?
rpd_typ_v7$  : 0     #Use Version 7 style contour flags/processing?
: B+ B+ P; l; W% O6 estrtool_v7$  : 2     #Use Version 7+ toolname?
7 N: L1 |+ b* J3 ^; j% M6 F7 }  itlchng_aft$  : 2     #Delay call to toolchange until move line
cant_tlchng$ : 1     #Ignore cantext entry on move with tlchng_aft
* U! I: R0 L1 o/ e  t; C$ A; Snewglobal$   : 1     #Error checking for global variables
' ]9 o& Q0 Q# X+ V% [$ K9 q: ggetnextop$   : 1     #Build the next variable table
% g4 f, W6 b/ r) U* i- [+ F/ Ptooltable$   : 3     #Pre-read, call the pwrtt postblock
1 P4 Q) F# j, n* {7 Q4 v; ]
9 ?3 q5 _& u/ B* f, d# --------------------------------------------------------------------------
- O9 }' t5 T3 _! y* n# General Output Settings
# --------------------------------------------------------------------------
0 B* N1 E" f: }4 ~5 t" _sub_level$   : 1     #CD_VAR Enable automatic subprogram support
breakarcs$   : 2     #CD_VAR Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
& a8 H1 _6 @& b1 ?arctype$     : 2     #CD_VAR Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.,
                     #5 = R no sign, 6 = R signed neg. over 180
do_full_arc$ : 0     #CD_VAR Allow full circle output? 0=no, 1=yes
, M  X% y3 q! Y/ e# s+ w8 A" Hhelix_arc$   : 2     #CD_VAR Support helix arc output, 0=no, 1=all planes, 2=XY plane only
- Q" L) Z5 i$ L8 ~7 n" Earccheck$    : 1     #CD_VAR Check for small arcs, convert to linear
2 Q0 i9 n: l, G+ Datol$        : 0.01  #CD_VAR Angularity tolerance for arccheck
/ e) A& l- C' J$ k' `$ eltol$        : 0.002 #CD_VAR Length tolerance for arccheck
vtol$        : 0.0001#System tolerance
maxfeedpm    : 500   #SET_BY_MD Limit for feed in inch/min
- i6 b: S+ Q$ t3 M% y2 G) Z  g- B' bltol_m       : 0.05  #Length tolerance for arccheck, metric
2 _" D- p$ \/ |; P8 H9 Q4 Vvtol_m       : 0.0025#System tolerance, metric
* }4 m# P; p, c5 I: ~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
' F* B' V0 o& r2 V4 d  U7 ~omitseq$     : yes$  #CD_VAR Omit sequence numbers?
seqmax$      : 9999  #CD_VAR Max. sequence number
0 ?. d+ X$ g6 c# j% a7 Mstagetool    : 0     #SET_BY_CD 0 = Do not pre-stage tools, 1 = Stage tools
( D3 P6 U+ O; w  y* j0 _stagetltype  : 1     #0 = Do not stage 1st tool
                     #1 = Stage 1st tool at last tool change
+ ]9 n$ O% Z' a* f8 H" K                     #2 = Stage 1st tool at end of file (peof)
. C' R) B- T1 y/ P# p/ p, }6 Luse_gear     : 0     #Output gear selection code, 0=no, 1=yes  
2 d5 o& }9 F6 A' @! A* H# ?min_speed    : 50    #SET_BY_MD Minimum spindle speed
nobrk$       : no$   #CD_VAR Omit breakup of x, y & z rapid moves
3 _( i6 P, }% E2 A! p; h8 l  \progname$    : 1     #Use uppercase for program name (sprogname)
prog_stop    : 1     #Program stop at toolchange: 0=None, 1=M01, 2 = M00
tool_info    : 1     #Output tooltable information?
; U1 z( g( R- T! y% o1 U' Q                     #0 = Off - Do not output any tool comments or toolpable
% w' ^/ X, t0 Q. q                     #1 = Tool comments only
                     #2 = Tooltable in header - no tool comments at T/C
4 o  c( h& A# Q" x6 g& Y                     #3 = Tooltable in header - with tool comments at T/C
8 A1 }7 Z' |  T- i5 |' |: h0 Ctlchg_home   : no$   #Zero return X and Y axis prior to tool change?

接后面。。。

duolzw

接上面。。。

% S8 ]3 z8 i+ I: Y( D# --------------------------------------------------------------------------
) o+ N8 Z$ H* Y& U1 r  P# Enable Canned Drill Cycle Switches
# --------------------------------------------------------------------------
0 u9 e5 n) ?) F" z/ G9 Vusecandrill$ : 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
! V1 Y# O! ]( j& f/ v; Yusecantap$   : yes$  #CD_VAR Use canned cycle for Tap
2 b; Q/ i5 v3 J3 c! L# @+ pusecanbore1$ : yes$  #CD_VAR Use canned cycle for Bore1
) Q! ~; f3 E. b! Busecanbore2$ : yes$  #CD_VAR Use canned cycle for Bore2
9 l9 U) g) w) I  h: V) C# j" P. tusecanmisc1$ : yes$  #CD_VAR Use canned cycle for Misc1
% S. ]  x; D, y7 z) m/ m$ ^usecanmisc2$ : yes$  #CD_VAR Use canned cycle for Misc2
9 ~7 k" P* E6 E9 d6 v) {  @
# --------------------------------------------------------------------------
# Common User-defined Variable Initializations (not switches!)
# --------------------------------------------------------------------------
xia          : 0     #Formatted absolute value for X incremental calculations
yia          : 0     #Formatted absolute value for Y incremental calculations
zia          : 0     #Formatted absolute value for Z incremental calculations
6 O+ S- G5 w  f$ _* g: W  O+ `* J8 B
  m+ B+ Q. |# g2 l6 rbld          : 0     #Block delete active
/ h% p% v  ~* F; C# fresult       : 0     #Return value for functions
  ]* @( e) |: l9 m6 R$ u- ]sav_spc      : 0     #Save spaces
sav_gcode    : 0     #Gcode saved
% q+ v* t& E* k1 I9 d1 t7 csav_absinc   : 0     #Absolute/Incremental Saved Value
sav_coolant  : 0     #Coolant saved
sav_frc_wcs  : 0     #Force work offset flag saved
toolchng     : 1     #On a toolchange flag
9 ^+ k  i$ l( Aspdir2       : 1     #Copy for safe spindle direction calculation

* t- E1 I: {8 f% \#Drill variables
drlgsel      : -1    #Drill Select Initialize
drillref     : 0     #Select drill reference
9 t3 m2 l- h+ B; apeckacel$    : 0     #CD_VAR Fractional percent to reduce peck2 when usecan.. : no
drlgcode     : 0     #Save Gcode in drill   
/ N6 D* O3 |" Ssav_dgcode   : 0     #Drill gcode saved
6 }! E5 N5 o" T( M
/ v' b! W5 Z1 |#Subprogram variables
mr_rt_actv   : 0     #Flag to indicate if G51/G68 is active                     
( b: \' J5 o+ M; z9 P                     #0=Off, 1=Toolchange, 2=Subprogram call/start, G68
+ G: x5 U/ m. [0 r, Z' V                     #3=Absolute start, both
" N: Y6 r% F" u, B9 n" crt_csav      : 0     #C saved value
end_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
- U. Q3 h. K$ u' h7 T6 V4 q& `#Coolant variables for X style coolant
cant_pos     : 0     #Read from current canned text (cant_pos1 - cant_pos20)
coolant_bin  : 0     #Binary value for current coolant command
' o8 A( {- F& f$ o, kcoolant_on   : 0     #Binary value holding the sum of all coolants currently on
, c1 ~- R- P4 x; r7 Tcoolantx     : 0     #Selector variable for coolant string selector
9 P, ]0 i5 _8 plocal_int    : 0     #Local variable for output of coolant off commands
result2      : 0     #Return value for functions
5 s7 a/ A- P' V5 H- Jsuppress     : 0     #Flag used to suppress redundant coolant on commands
all_cool_off : 0     #First coolant off command shuts off ALL coolant options
( B( c0 J9 i; H. v
#Variables to capture parameter values - use to set post switches in pset_mach
# B- V6 Z, p8 \( drotaxerror   : 0     #Error flag - Output error message if rotary axis is detected in active axis combination
rot_ax_cnt   : 0     #Rotary axis counter
component_type : 0   #Component type: (See documentation for complete list - )
; ?) \. v! ]8 O+ w' |6 @0 T2 v                       #0 = MACHINE
) O# a6 w0 {8 h! m                       #1 = STOCK_COMPONENT
                       #2 = MISC_COMPONENT
% B6 H* g# R% ^/ ^& q5 A; S, k5 y                       #3 = MACHINE_BASE_COMPONENT
                       #4 = LINEAR_AXIS_COMPONENT
                       #5 = ROTARY_AXIS_COMPONENT
                       #6 = RECT_TABLE_COMPONENT
. H- K8 e9 J- h- k# n                       #12 = CHUCK_COMPONENT
% i, E( M6 C1 v3 q                       #24 = TOOL_SPINDLE_COMPONENT
5 \- f; O4 o# Q6 A; a; j                       #23 = ATC_COMPONENT
ra_error     : 0     #Flag for aggregate operation

  S9 |6 X$ \# G, {3 ^  h( Q# --------------------------------------------------------------------------
#String and string selector definitions for NC output
3 [& [+ {! G, ]3 R, v( @# --------------------------------------------------------------------------
# p  h" \$ A- q# ?& B#Address string definitions
$ `) C% j* b/ K) u: dstrm         : "M"
) t( A: E5 h. p* r, J" j& \/ @strn         : "N"
* ]0 B6 A8 W/ L4 q9 S2 D6 x" C8 xstro         : "O"
strp         : "P"
srad         : "R"
# W# C4 G- e$ \* n9 Msrminus      : "R-"
sblank       : ""
: I* C  M4 w% o# C' ~
6 I9 V3 w. ]$ j4 |#Cantext string definitions (spaces must be padded here)
" g  ~  g9 f  [: P; @sm00         : "M00"
sm01         : "M01"
strtextno    : ""
strcantext   : ""
* N: T5 n0 k% E: ^* ~# b" L# A
#Transform mirror and rotate codes
strns_mir_on  : "G51.1" #Programmable mirror image code
strns_mir_off : "G50.1" #Programmable mirror image cancel code
strns_rot_on  : "G68"   #Coordinate System Rotation
strns_rot_off : "G69"   #Coordinate System Rotation Cancel

2 L; f9 |; i" o0 X9 B#Misc. string definitions
sopen_prn    : "("   #String for open parenthesis "("
5 ~/ e4 l+ ]# |. d* }4 ?% y" H) q3 K2 Ssclose_prn   : ")"   #String for close parenthesis ")"
sdelimiter   : "|"   #String for delimiter
: \! Q6 m9 g' q5 v5 Rsg94         : "G94" #Units per minute
sg95         : "G95" #Feed per rotation
; O( K; M- |7 Asm29         : "M29" #Rigid tapping preperation support function
sg80         : "G80" #Cancel canned drilling cycle
$ V6 j* ~# n# o: h- ^9 usg43         : "G43" #Tool length compensation
, U. ^! f5 ?5 E6 B/ qsg49         : "G49" #Tool length compensation cancel
sg92         : "G92" #Set work piece coordinate system
6 B" Y; z! F* m3 @' X1 }( Tsm06         : "M6"  #Toolchange

# --------------------------------------------------------------------------
) f, |6 t& D) w; P% T# Error messages
' t/ u  }+ x: e: Z$ N. W9 k# --------------------------------------------------------------------------
shomeserror  : "ERROR - WORK OFFSET USAGE DOES NOT SUPPORT TRANSFORM SUBPROGRAM"
sprgnerror   : "ERROR - SUBPROGRAM NUMBER MATCHES THE MAIN PROGRAM NUMBER"
sra_error    : "ERROR - AGGREGATES NOT SUPPORTED IN THIS POST"
% e$ E" Y, e: k& ?9 hsrotaxerror  : "ERROR - ROTARY AXIS DETECTED IN SELECTED AXIS COMBINATION- POST DOES NOT SUPPORT ROTARY AXIS OUTPUT"
" ^9 m) B8 h; c/ L
# --------------------------------------------------------------------------
5 _3 J. U: W5 w6 W( A+ L! g( p# General G and M Code String select tables
# --------------------------------------------------------------------------
9 }$ R7 U2 ]  X2 k& I! o' j) s* v# Motion G code selection
sg00    : "G0"       #Rapid
2 t2 x- N4 K' }# O5 Qsg01    : "G1"       #Linear feed
* I& Z9 u" Q+ y; Ksg02    : "G2"       #Circular interpolation CW
sg03    : "G3"       #Circular interpolation CCW
% r7 v- }- x0 V# q8 |" m6 v% Esg04    : "G4"       #Dwell
sgcode  : ""         #Target string
5 n1 p$ X. B  m) Y3 K9 P& B0 o9 q- n
: Q2 n3 C+ X& U' o- \+ @% nfstrsel sg00 gcode$ sgcode 5 -1
# --------------------------------------------------------------------------
/ B% F8 @1 O+ s9 g4 P# Select work plane G code
sg17    : "G17"      #XY plane code
; G. w( \" g; g/ wsg19    : "G19"      #YZ plane code
sg18    : "G18"      #XZ plane code
sgplane : ""         #Target string
* p) \6 L) f8 x. \8 y
fstrsel sg17 plane$ sgplane 3 -1
' P' B( z* J- I. y7 I0 T* F( O2 X# --------------------------------------------------------------------------
#Select english/metric code
sg20    : "G20"      #Inch code
sg21    : "G21"      #Metric code
smetric : ""         #Target string  
7 h6 r# I- v7 D4 l5 Q* H! r
# M% R$ D5 v! r- t# O  [- ^) wfstrsel sg20 met_tool$ smetric 2 -1
% g, @- H7 Z# p  N8 c5 X& y# --------------------------------------------------------------------------
#Select reference return code
sg28    : "G28"      #First reference point return
0 ?+ w8 s+ R2 p. B/ F- F3 wsg30    : "G30"      #Second reference point return
sg28ref : ""         #Target string

fstrsel sg28 mi3$ sg28ref 2 -1
5 N$ T! b7 L9 @* x; t. A. H% s5 w# --------------------------------------------------------------------------
# Cutter compensation G code selection
8 C8 ]4 m6 P( U" q( f5 i9 ~scc0    : "G40"      #Cancel cutter compensation
scc1    : "G41"      #Cutter compensation left
3 l0 A/ r! D7 [5 h2 B1 Z: |8 R7 Oscc2    : "G42"      #Cutter compensation right
sccomp  : ""         #Target string

fstrsel scc0 cc_pos$ sccomp 3 -1
# --------------------------------------------------------------------------
# Canned drill cycle string select
sg81    : "G81"      #drill - no dwell
  X0 c/ t2 \! H+ m+ P/ F6 qsg81d   : "G82"      #drill - with dwell
1 R5 D' y* r& X& Q3 }7 |& `sg83    : "G83"      #peck drill - no dwell
0 O" m! ?6 |& X' gsg83d   : "G83"      #peck drill - with dwell
$ Y, r2 Z" p: X0 _' v- }7 W* gsg73    : "G73"      #chip break - no dwell
sg73d   : "G73"      #chip break - with dwell
* J3 m( P8 w! D: Tsg84    : "G84"      #tap - right hand
% n6 y. M4 w* k8 F0 _: P8 jsg84d   : "G74"      #tap - left hand
sg85    : "G85"      #bore #1 - no dwell
6 A6 Q9 L+ ^  Y( Q1 `+ H4 k3 l2 xsg85d   : "G89"      #bore #1 - with dwell
sg86    : "G86"      #bore #2 - no dwell
sg86d   : "G86"      #bore #2 - with dwell
; c  y% \" q7 }sgm1    : "G76"      #fine bore - no dwell
sgm1d   : "G76"      #fine bore - with dwell
! X& B0 e6 R( Vsgm2    : "G84"      #rigid tap  - right hand
sgm2d   : "G74"      #rigid tap  - left hand
6 ^' E% J4 v3 r8 R6 c" osgdrill : ""         #Target string

fstrsel sg81 drlgsel sgdrill 16 -1
# --------------------------------------------------------------------------
: K# s& E$ T5 t9 X# Select incremental or absolute G code
4 G: `5 t" G" M7 R/ |$ Usg90    : "G90"      #Absolute code
) C% |$ q$ R4 y$ i; Ksg91    : "G91"      #Incremental code
4 y# d1 H. ]% h7 Qsgabsinc : ""        #Target string  

fstrsel sg90 absinc$ sgabsinc 2 -1
# --------------------------------------------------------------------------
#Canned drill cycle reference height
" M. H2 c1 x( L9 f6 f  ^( C& msg98    : "G98"      #Reference at initht
sg99    : "G99"      #Reference at refht     
sgdrlref : ""        #Target string

5 }' o; u1 O+ jfstrsel sg98 drillref sgdrlref 2 -1
+ U5 [; a) X& S8 K; q  g2 {' P- M# --------------------------------------------------------------------------
# Generate string for spindle
; R: S- e5 s- N1 y( ~8 |$ T1 i, O8 Dsm04    : "M4"       #Spindle reverse
sm05    : "M5"       #Spindle off
5 I+ Q8 O% c8 I4 V" jsm03    : "M3"       #Spindle forward
spindle : ""         #Target string
8 l2 @6 ~4 R; l+ U, Z
fstrsel sm04 spdir2 spindle 3 -1
# --------------------------------------------------------------------------
( u; N* l' Q) R) v. b# Coolant M code selection for V9 style coolant
# Note: To enable V9 style coolant, click on the General Machine Parameters icon
#   in the Machine Definition Manager, Coolant tab, enable first check box
#   Output of V9 style coolant commands in this post is controlled by scoolant
" q# g: R; ?0 xsm09    : "M9"       #Coolant Off
. z/ b4 A5 O$ a0 G6 e* g. }1 M$ z1 F# Ysm08    : "M8"       #Coolant Flood
sm08_1  : "M8"       #Coolant Mist
sm08_2  : "M8"       #Coolant Tool
scoolant : ""        #Target string

: C' a1 h& E4 s2 c; K接后面。。

duolzw

fstrsel sm09 coolant$ scoolant 4 -1
# --------------------------------------------------------------------------
# `% V: ~% [9 @, i: l# Coolant output code selection for X style coolant
# Note: To enable X style coolant, click on the General Machine Parameters icon
#   in the Machine Definition Manager, Coolant tab, disable first check box
9 O/ M6 h( }8 o#   Output of X style coolant commands in this post is controlled by pcan, pcan1, & pcan2
scool50 : "M8"                 #Coolant 1 on value
( z. E1 W2 T: o* {scool51 : "M9"                 #Coolant 1 off value
2 b$ h: K" K8 l+ q) u6 b- pscool52 : "M7"                 #Coolant 2 on value
+ v6 B0 u7 B% B7 y3 p  |scool53 : "M9"                 #Coolant 2 off value
scool54 : "M88"                #Coolant 3 on value
scool55 : "M89"                #Coolant 3 off value
scool56 : "M8(Coolant4=ON)"    #Coolant 4 on value
% _5 N' z% Y. ^5 G- S& t3 mscool57 : "M9(Coolant4=OFF)"   #Coolant 4 off value
$ i6 h8 S4 e" F3 V4 o- Iscool58 : "M8(Coolant5=ON)"    #Coolant 5 on value
scool59 : "M9(Coolant5=OFF)"   #Coolant 5 off value
& p' E: M' f# ~; z+ lscool60 : "M8(Coolant6=ON)"    #Coolant 6 on value
# i1 i! n+ b* W9 T4 Lscool61 : "M9(Coolant6=OFF)"   #Coolant 6 off value
* b- I. ]. ~' b. `" a- r8 G% Cscool62 : "M8(Coolant7=ON)"    #Coolant 7 on value
scool63 : "M9(Coolant7=OFF)"   #Coolant 7 off value
scool64 : "M8(Coolant8=ON)"    #Coolant 8 on value
scool65 : "M9(Coolant8=OFF)"   #Coolant 8 off value
' G9 E3 V+ f6 ]- E' j* O; p; Jscool66 : "M8(Coolant9=ON)"    #Coolant 9 on value
scool67 : "M9(Coolant9=OFF)"   #Coolant 9 off value
4 u5 `) `  o0 \- ^& u; lscool68 : "M8(Coolant10=ON)"   #Coolant 10 on value
scool69 : "M9(Coolant10=OFF)"  #Coolant 10 off value
4 u" R6 `7 G2 E( b2 gscoolantx : ""                 #Target string

. t, ~0 c3 @( P1 W% K% pfstrsel scool50 coolantx scoolantx 20 -1
# --------------------------------------------------------------------------
9 z7 X  S/ J$ E6 N8 o; r4 {#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

# --------------------------------------------------------------------------
% e, A3 t& x- O/ u. p* r! w- y# Define the gear selection code
8 [! y7 [9 L  ^; _flktbl  1       3       #Lookup table definition - table no. - no. entries
        40      0       #Low gear range
0 }6 G9 o7 k& v. }        41      400     #Med gear range
( R1 v" z$ L* _  }0 i2 `" |$ C        42      2250    #Hi gear range
9 a) c* g; S6 f5 O% a
3 J& Q( |* k9 `3 S) e$ U) ~! G# P5 l# --------------------------------------------------------------------------
, j- W' a; g& B" v, g# Define coolant binary value for X style coolant
6 r0 g: Y/ Y: c( }8 s0 uflktbl  2       20      #Lookup table definition - table no. - no. entries
6 @' }- Z$ M/ D4 p6 A        1       50      #Coolant 1 on value
        2       51      #Coolant 1 off value
/ r$ f' q+ F+ k        4       52      #Coolant 2 on value
4 ^/ r8 C1 M7 M9 G5 Y( U/ V% q        8       53      #Coolant 2 off value
        16      54      #Coolant 3 on value
" H# H" e) w; ~        32      55      #Coolant 3 off value
        64      56      #Coolant 4 on value
        128     57      #Coolant 4 off value
$ W! C- y* E* @% o. ]( v        256     58      #Coolant 5 on value
) m0 Y/ S! `4 A& C0 @2 |        512     59      #Coolant 5 off value
) Y" {2 \' p& d        1024    60      #Coolant 6 on value
        2048    61      #Coolant 6 off value
+ N( |$ P+ G+ ]0 h8 x4 Y4 C        4096    62      #Coolant 7 on value
  f: h; }$ N0 m( ]1 Q+ {        8192    63      #Coolant 7 off value
        16384   64      #Coolant 8 on value
- B6 b' o! X# g, }9 `        32768   65      #Coolant 8 off value
4 I8 D- d# R" K( m& g: x        65536   66      #Coolant 9 on value
        131072  67      #Coolant 9 off value
) f1 l, U' J9 |9 [: _0 z        262144  68      #Coolant 10 on value
        524288  69      #Coolant 10 off value

# --------------------------------------------------------------------------
) |* f( n# q, ~$ `, e- u# Month selector
% @. f6 M: |" S7 X6 Rsmon0   : ""
smon1   : "JAN."
) h$ J# u) B' C5 M* F' Fsmon2   : "FEB."
smon3   : "MAR."
) X4 _' ?+ i3 q* |2 P1 ^5 Tsmon4   : "APR."
smon5   : "MAY."
! f9 V6 U' l/ Ksmon6   : "JUN."
smon7   : "JUL."
smon8   : "AUG."
smon9   : "SEP."
0 i7 b$ A5 a" C+ R3 |5 nsmon10  : "OCT."
$ S/ R- P5 F' O. ?1 G0 {, Bsmon11  : "NOV."
smon12  : "DEC."
  x9 n6 x1 t9 V4 T1 D' F5 Hsmonth  : ""         #Target string
" t1 @! i# w& H" R- N2 `( o
fstrsel smon0 month$ smonth 13 -1
# --------------------------------------------------------------------------
# Cutter Compensation Type
# [& R# J( E1 x1 U( I1 Nscomp   : "COMPUTER"
scomp1  : "CONTROL COMP"
4 ]# K; x7 K  K' G3 d0 w- S' rscomp2  : "WEAR COMP"
8 w6 N" _9 y! ~4 j: j+ I$ hscomp3  : "REVERSE WEAR COMP"
scomp4  : "OFF"
scomp_type : ""      #Target string

fstrsel scomp comp_type scomp_type 5 -1
& p8 ~# c1 `5 }" a1 v% G- r; m( \# --------------------------------------------------------------------------
: |0 |4 a  l. Q" M+ I# Format statements - n=nonmodal, l=leading, t=trailing, i=inc, d=delta
  G; {2 j- I1 @1 P# --------------------------------------------------------------------------
#Default english/metric position format statements
fs2 1   0.7 0.6      #Decimal, absolute, 7 place, default for initialize (
( U  W! n" x! i# U. F1 `fs2 2   0.4 0.3      #Decimal, absolute, 4/3 place
  U) M% F' |: B& Afs2 3   0.4 0.3d     #Decimal, delta, 4/3 place
#Common format statements
  y  g' Y0 `; y7 W& w1 G# Afs2 4   1 0 1 0      #Integer, not leading
  w5 `8 v' d$ d- l% T# h" R  K2 R% ifs2 5   2 0 2 0l     #Integer, force two leading
fs2 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
9 g, G+ A$ t9 N& E% ]5 g& ]$ }fs2 10  0.2 0.2      #Decimal, absolute, 2 place
fs2 11  0.3 0.3      #Decimal, absolute, 3 place
+ y7 D& J  M1 ~8 lfs2 12  0.4 0.4      #Decimal, absolute, 4 place
% w9 o" x; [$ efs2 13  0.5 0.5      #Decimal, absolute, 5 place
fs2 14  0.3 0.3d     #Decimal, delta, 3 place
1 d8 b5 N  J- l9 ?3 @fs2 15  0.2 0.1      #Decimal, absolute, 2/1 place (feedrate)
6 d2 O' |+ m) r# Sfs2 16  1 0 1 0n     #Integer, forced output
fs2 17  0.2 0.3      #Decimal, absolute, 2/3 place (tapping feedrate)
6 m2 E1 w4 H6 e. g% Y
# 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)
fs2 20  0 2 0 2lt    #Integer, force leading & trailing         (min)

& m: `0 L. I) w. Y1 i2 [! X# This format statement is used for sequence number output
, D) a" v1 ~) r9 ]# Number of places output is determined by value for "Increment Sequence Number" in CD
& d) `4 C5 I" y5 M9 c# 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

: S: [2 }/ ?4 _* @# --------------------------------------------------------------------------
$ q. ]8 L1 k# `3 a& I- U# Toolchange / NC output Variable Formats
/ k0 Q$ G' }# f: S6 U# --------------------------------------------------------------------------
fmt  T  4   t$          #Tool number
9 f$ g" n0 m5 g5 j* }fmt  T  4   first_tool$ #First tool used
fmt  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
( M+ |& w9 g* Y# u  y: v% S6 jfmt  P  4   p_wcs       #WCS P address
fmt  S  4   speed       #Spindle Speed
- Z8 k, E: j1 a) Z+ f) i7 w0 Efmt  M  4   gear        #Gear range
# --------------------------------------------------------------------------
fmt  N  21  n$          #Sequence number
8 l+ ^1 \3 H8 |9 Lfmt  X  2   xabs        #X position output
fmt  Y  2   yabs        #Y position output
$ Y: E0 ]2 \1 |" Yfmt  Z  2   zabs        #Z position output
fmt  X  3   xinc        #X position output
: h9 M0 q; _* X- K9 M9 b+ D3 Afmt  Y  3   yinc        #Y position output
fmt  Z  3   zinc        #Z position output
" L. `) O7 B! Q; i/ W% Tfmt  I  3   iout        #Arc center description in X
. S# V" H) O8 {6 b) }  tfmt  J  3   jout        #Arc center description in Y
! q. e( }7 E8 D2 Xfmt  K  3   kout        #Arc center description in Z
fmt  R  2   arcrad$     #Arc Radius
fmt  F  15  feed        #Feedrate
fmt  P  11  dwell$      #Dwell
& X" ^* e5 q5 z' v2 p1 r" _fmt  M  5   cantext$    #Canned text
fmt  F  2   pitch       #Tap pitch (units per thread)
$ W. r0 i1 ]* j# --------------------------------------------------------------------------
4 w: N9 Y% y( E6 r- u2 E) i#Move comment (pound) to output colon with program numbers
fmt  O  7   progno$     #Program number
* d! J9 U. H& l: p0 p' @+ ]$ n& w9 k#fmt ":" 7   progno$     #Program number
fmt  O  7   main_prg_no$ #Program number
3 T% E; o/ x* m9 e# U#fmt ":" 7   main_prg_no$ #Program number
fmt  O  7   sub_prg_no$ #Program number
#fmt ":" 7   sub_prg_no$ #Program number
' d& I( G& _: g4 kfmt  X  2   sub_trnsx$  #Rotation point
fmt  Y  2   sub_trnsy$  #Rotation point
fmt  Z  2   sub_trnsz$  #Rotation point
# --------------------------------------------------------------------------
" \6 l0 R3 \  N+ x- J1 Pfmt  Q  2   peck1$      #First peck increment (positive)
- w# K+ Y. t) r9 Kfmt  Q  2   shftdrl$    #Fine bore tool shift
: ]  |# i: ]* T! z) d* X: mfmt  R  2   refht_a     #Reference height
fmt  R  2   refht_i     #Reference height
: z  ]# f: j6 g9 m1 u" V# --------------------------------------------------------------------------
$ K( I% P9 V) S9 Gfmt "TOOL - "      4   tnote    #Note format
+ x# E; w1 p( m* b" n+ @fmt "DIA. OFF. - " 4   toffnote #Note format
1 C3 X/ p/ q# A4 v: B( y  zfmt "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
# --------------------------------------------------------------------------
! T% i9 Z4 a3 W1 B  x3 }, nfmt     4   year2       #Calculated year value
fmt     18  time2       #Capture 24-hour time value into 'time2' variable
fmt     19  hour        #Hour
fmt     20  min         #Minutes
year2 = year$ + 2000

duolzw

# --------------------------------------------------------------------------
, z9 J7 F5 h: G# Tool Comment / Manual Entry Section
/ V# y6 j1 Q9 a# --------------------------------------------------------------------------
0 c# `  J1 a3 T8 P9 [3 s0 pptoolcomment    #Comment for tool
# ]: r8 E$ w# w% y      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
      if tool_info = 1 | tool_info = 3,
- \. L: L/ w+ s, `        sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$

! D7 o9 [  x& k8 ~& h3 j+ m2 kptooltable      #Tooltable output
0 q3 G; {# Z) M      sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
$ U* \" D8 z9 f        [if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
7 N* L& V9 p5 y6 [' I        [if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
        sclose_prn, e$

pstrtool        #Comment for tool
0 D; R2 P! v3 C0 f* ~* I- R      if strtool$ <> sblank,
: }" ]8 \3 N: U        [
$ ?. ~2 B% ~7 N        strtool$ = ucase(strtool$)
        *strtool$
        ]
' Y- H8 B' r) g" L: ^
pcomment$       #Comment from manual entry (must call pcomment2)
      pcomment2 #Required if doing boolean 'if' logic testing!
9 L: y  D/ A, x0 ~/ B& F- N
pcomment2       #Output Comment from manual entry
      scomm$ = ucase (scomm$)
# S+ ~: x2 F2 g4 i% a      if gcode$ = 1005, sopen_prn, scomm$, sclose_prn, e$  #Manual entry - as comment
7 @/ O3 s6 P% A      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$
+ f, x8 y! _( ~' h      if gcode$ = 1026, scomm$                #Manual entry - as code with move NO e$
      if gcode$ = 1008, sopen_prn, scomm$, sclose_prn, e$  #Operation comment
5 `  B" R0 x- t0 A& k- A, V      if gcode$ = 1051, sopen_prn, scomm$, sclose_prn, e$  #Machine name
      if gcode$ = 1052, sopen_prn, scomm$, sclose_prn, e$  #Group comment
% }4 R2 T/ G- e$ z) v% a      if gcode$ = 1053, sopen_prn, scomm$, sclose_prn, e$  #Group name
5 x3 m! ]+ ^- w3 d# S      if gcode$ = 1054, sopen_prn, scomm$, sclose_prn, e$  #File Descriptor

, c  l! L( S; r& m8 k. |# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
ptime           #Convert 24-hour time format into 12-hour AM/PM format
# U# k0 w" ]4 Q      if time$ >= 13, time2 = (time$ - 12)
      else, time2 = time$
- D" Y! Y& Z( x+ W# u/ X      hour = int(time2), min = frac(time2)
; k1 u3 P: w# R3 J      *hour, ":", *min,
% }9 c7 X. _+ L3 f/ W$ v      if time$ > 12, " PM"
2 W. O9 ^& k' S* h; L1 X( |      else, " AM"
0 }2 H2 a& M! i+ D) Y, b( I9 p
pheader$         #Call before start of file                        
      "%", e$
      sav_spc = spaces$
      spaces$ = 0
! \4 G# R) l+ f( p4 ?      *progno$, sopen_prn, sprogname$, sclose_prn, e$
. V( z" P/ S( E2 f$ l) L- h" g      #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
      #sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005
1 ~- o# ]; W2 ^. H8 N6 k/ N8 m      #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
      spathnc$ = ucase(spathnc$)
; b& I% v- l5 Z: o1 I5 t6 o, p0 L* d      smcname$ = ucase(smcname$)
, [, u! F$ Y4 R      stck_matl$ = ucase(stck_matl$)
      snamenc$ = ucase(snamenc$)
: L0 A! E% ~0 f8 }4 z$ V+ p1 v      sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$
      sopen_prn, "NC FILE - ", *spathnc$, *snamenc$, *sextnc$, sclose_prn, e$
      sopen_prn, "MATERIAL - ", *stck_matl$, sclose_prn, e$
; s; W. z) E, f$ C! {% c1 |      spaces$ = sav_spc

psof0$           #Start of file for tool zero                        
' P3 k& e! Z) Q% \& [      psof$
2 I! q0 k% ?5 p1 v
6 X( _0 L* A6 D+ \; Hpsof$            #Start of file for non-zero tool number            
      if ra_error = 1, [if mprint(sra_error, 2) = 2, exitpost$]
      toolchng = one
      if ntools$ = one,
+ p( ^/ w1 V) J        [
        #skip single tool outputs, stagetool must be on
! W5 w# ~' s; h9 a6 B( U3 j, m        stagetool = m_one
        !next_tool$
        ]
      pbld, n$, *smetric, e$
      pbld, n$, *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, e$
      sav_absinc = absinc$
+ h' r: M7 _% A      if mi1$ <= one, #Work coordinate system
* l6 c+ d+ I6 J& K& j8 G        [
        absinc$ = one
' f, U  w" K3 r        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
1 N3 k. x6 j2 T, U5 v  K        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
' q7 K, o3 I/ o) @8 z& B2 |        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
; y8 m; w3 f; ?& x        absinc$ = sav_absinc
        ]
% Z* q" c) w5 X, s7 M9 L, N: v      pcom_moveb
      pcheckaxis
& M; m7 a, _1 \+ V      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
      comment$
      pcan
      pbld, n$,sm06, *t$,  e$
      if mi1$ > one, absinc$ = zero
3 {6 H( c; p9 p1 X& c5 n      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
8 ^9 z/ p! v) ]) w      c_msng$ #Single tool subprogram call

3 n& d$ @9 s% Q) mptlchg0$         #Call from NCI null tool change (tool number repeats)                        
$ f+ r. b3 t' l' G. t! }      pcom_moveb
      pcheckaxis
) l+ {/ [% E% P" h9 j' {+ F1 G2 u      c_mmlt$ #Multiple tool subprogram call
6 @! e3 V& L* d# d; Z4 h      comment$
1 W" s. c" Q- g5 C* b& ]      pcan
* u8 ?- }& x0 M6 w& H8 O1 ?      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n$, sgplane, e$
      pspindchng
/ R8 `6 k! K1 C! n      pbld, n$, scoolant, e$
      if mi1$ > one & workofs$ <> prv_workofs$,
        [
: l6 L/ I1 P! o) s4 `+ e; W8 {' B$ O6 k        sav_absinc = absinc$
% b) j, _0 o3 Y. h+ ]+ @# r' [" L/ D        absinc$ = zero
        pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
/ e7 i3 [) }2 S9 Z: V        pe_inc_calc
        ps_inc_calc
) n' W  c9 ~3 ]! p        absinc$ = sav_absinc
& A/ V2 j' X/ W5 v. I% B. d. J! h        ]
      if gcode$ = one, plinout
      else, prapidout
      pcom_movea
  w/ L4 |, T4 @      c_msng$ #Single tool subprogram call
% G) ?0 Q$ J$ d
% A+ v! I5 ^" y2 p: V* Z& Dptlchg$          #Tool change                                       
      toolchng = one
8 [2 @7 u% T  d. O+ k1 ~. Z6 u* v      if mi1$ = one, #Work coordinate system
        [
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
        ]
      if prog_stop = 1, pbld, n$, *sm01, e$
      if prog_stop = 2, pbld, n$, *sm00, e$
6 l2 j( y* O: g, ~% V      pcom_moveb
2 g+ G6 l( F5 n2 c6 H6 ?7 F8 x  {      pcheckaxis
- N8 h+ a* |7 L4 R. p1 E! a+ R      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
  v& B! n; ~6 L3 V: T6 x( f      comment$
      pcan
      result = newfs(15, feed)  #Reset the output format for 'feed'
/ u3 [0 X5 `+ c      pbld, n$, *t$, sm06, e$
5 x/ N9 [9 A4 {( m      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
1 g. D& `8 _  Y0 Q9 T" {# U, d      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
! y2 J5 a; ?) z# G* m7 K7 d      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
      absinc$ = sav_absinc
9 o" w2 x+ h: j& H0 [: m. y9 S      pcom_movea
# T0 p1 C( [2 x6 I$ a) g      toolchng = zero
      c_msng$ #Single tool subprogram call
( i% u4 T2 O  i2 W: V
pstagetool      #Pre-stage tools
      if stagetool = 1,
        [
        if ttblend$,  #Check for last toolchange
. X& W* L' }: z# Q  G7 J( T          [
4 s' X' ~. }: d          if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
          ]
        else, *next_tool$ #stage tool at every toolchange
6 G6 H( O0 m$ a! p( ~, s& ?        ]

) |1 b7 o, O( u* dpretract        #End of tool path, toolchange
      sav_absinc = absinc$
' |! G$ k/ R( H* a* p      absinc$ = one
* n# w4 R# D+ ?      sav_coolant = coolant$
      coolant$ = zero
7 V! [6 J+ e" w1 F
#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
) f3 j5 K. R* M. Q6 w& u        [                 #  explicitely turned off through a canned text edit
        if all_cool_off,
          [
          #all coolant off with a single off code here
9 Y3 O$ z+ q- ?4 G2 C; g( U/ P          if coolant_on, pbld, n$, *sall_cool_off, e$
          coolant_on = zero
          ]
  y& G  G6 ~7 a% i' x4 ~        else,
          [
8 w$ a3 O8 i, {2 B% S$ W0 Q          local_int = zero
) @+ @% T; S3 ^          coolantx = zero
$ Q. ], I- ~% M  o8 z- r( m9 N  x          while local_int < 20,
            [
2 o3 @; Z+ O% y. W3 ~3 ~) L$ I8 u            coolantx = and(2^local_int, coolant_on)
            local_int = local_int + one
: p2 h5 R0 N1 _9 G, H& k            if coolantx > zero,
              [
              coolantx = local_int
              pbld, n$, scoolantx, e$
/ @# m- {+ j, ], L. F1 q: {; {' W9 j              ]
            coolantx = zero
            ]
          coolant_on = zero
9 Y$ l$ v$ j: D1 l, [          ]
        ]
) a+ E" Y% g( ~+ @: x6 p      #cc_pos is reset in the toolchange here
      cc_pos$ = zero
* S& O6 e0 V# M. f: O      gcode$ = zero
5 a  V: M+ ]  [) x( ^      pbld, n$, sccomp, *sm05, psub_end_mny, e$
      pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$
      if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", e$
( a, N6 v) ]/ z; W$ f( p: A8 O      absinc$ = sav_absinc
" G& N& r4 Z. A# T+ m# h9 @      coolant$ = sav_coolant

peof0$           #End of file for tool zero               
      peof$
1 ^/ x- m% q& A7 N, s
peof$            #End of file for non-zero tool           
0 S" `; E9 K+ n, B3 F8 C7 b      pretract
$ C* z* t" z% x6 i      comment$
      if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$
      n$, "M30", e$
      mergesub$
8 q/ I8 L- i' u6 V* H      clearsub$
      mergeaux$
+ w: }4 K6 N0 E4 ~3 q      clearaux$
      "%", e$
8 l" R4 z7 ~( a
pwcs            #G54+ coordinate setting at toolchange
      if mi1$ > one,
# R# n% v% A: g% E5 P$ I) M        [
        sav_frc_wcs = force_wcs
        if sub_level$ > 0, force_wcs = zero
, k0 K& N/ u- |, [# Z7 q        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
- O) s# ^7 I$ ]6 r% a$ ?          [
          if workofs$ < 6,
            [
* L' Q6 d' O& V' o, e/ e+ U            g_wcs = workofs$ + 54
$ y1 B* }) O2 i4 y$ S0 X1 N            *g_wcs
            ]
          else,
            [
            p_wcs = workofs$ - five
            "G54.1", *p_wcs
+ @* ?. \0 A# q1 \! W            ]
          ]
        force_wcs = sav_frc_wcs
        !workofs$
        ]

pgear           #Find spindle gear from lookup table
      if use_gear = one,
        [
' q4 [$ J; C! m$ n" ?$ a1 x- ]* w* h        gear = frange (one, speed)
% M) U2 i3 ]* Z9 o, h) ]$ F  J0 r7 z        *gear
6 L* h& J1 _2 h" P# L        ]

#Toolchange setup
% ~4 z! Q/ z5 Y: _/ lpspindchng      #Spindle speed change
" y7 g) L  H  A3 B7 E      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n$, *sm05, e$
% }- c4 f2 l3 N+ a2 }) G* ]      if prv_speed <> speed | prv_spdir2 <> spdir2,
; g0 G6 M" g) a* G7 Y1 p6 f* I; {        [
        if speed, pbld, n$, *speed, *spindle, pgear, e$
# G+ V- M6 R) O: t        ]
      !speed, !spdir2
) R+ ~5 S0 f% t; _% ~- B
& j  ]% N7 P' @pspindle        #Spindle speed calculations for RPM
: Q# X$ r! x+ _1 Y: U" B      speed = abs(ss$)
: ^# \0 @, V" Z      if speed,
        [
        if speed > maxss$, speed = maxss$
& W/ ]% K6 a7 a( R* B        if speed < min_speed, speed = min_speed
- i4 S) y& _2 d" q9 |        ]
; O) p, i0 c8 J4 v  ]& L      spdir2 = fsg3(spdir$)
% b, C# _, A' A: j! V) X
# Z' @! _! Y: q* Opq$              #Setup post based on switch settings
( x" T" B$ c, Z      stagetool = bldnxtool$  #Set stagetool from CD setting
4 K% T/ G, H2 H$ Y; y
ptoolend$        #End of tool path, before reading new tool data               
, l; ~" U" R; u4 k$ ?+ _1 ~+ |      !speed, !spdir2