坐标设置

duolzw

请问一下哪位大侠知道X4，怎样设置后处理变为G92，而且不带刀具长度补偿。用在数控铣的如：
O1234
  h. u7 m! P9 nG0  G90 G92 X100 Y50 S2000 M3
Z10 M8
G98 G81 X30 Y20 Z-10 R2 F180
G80
G0 Z10
6 p% |/ H+ W) ]. ZX100 Y50  M9
5 |! d# g- s- [! o. U) a& s7 mM5
5 f0 `/ T" x2 D& m0 Y5 dM30  

& y7 |  P0 F% h7 P; {3 e& `; |& I我改过杂项设置，把里面的G54的2改为G92的-1，但是处理出来的程序是没有G92的。如
' ~! ~5 }3 `/ x" L/ x* S0 AO1234
% f$ n& |! N( A# X/ ^M6T1
G0  G90 X100 Y50 S2000 M3
G43 H1 Z10 M8
$ w4 a% F) b# Z2 dG98 G81  X30 Y20 Z-10 R2 F180
G80
, [8 o% t7 v4 A1 \/ O8 |5 rG91 G28 Z0 M9
M05
M30.我要把它改为像上面那样的后处理怎么改。哪位高人帮帮忙，真的很感谢！

若枫

回复 1# duolzw
0 h, g' p8 {, P3 a7 T0 s

    G92只能强制输出了。

wangerwen521

把G54改为G92

duolzw

拜托，两位说了就说清楚吗。
3 {+ r9 b& i. b你们这样或很没意思的。知道就拜托了。。。谢谢

vinney777

可以强制输出

若枫

回复 1# duolzw
( d1 w/ g' e; A% {2 f
: u- ~3 q. S6 X9 K. C2 m$ `6 L# p
    既然说了你都不懂，为何不提供你的后处理。

duolzw

呵呵，刚下班，以下是我的后处理，其实也就是X4本身自带的 Generic Fanuc 3X Mill.pst。我只是修改一下就可以满足我的要求了，谢谢。如果还有什么要我提供讲讲。
! t2 g! m' W7 _+ o3 f7 w不过我改了换刀：T1 M6.但它只有第一把刀换成：M6 T1.其他都不会变，也帮帮忙改一下。我要全部变成：M6 T1这格式。

3 n4 d) S) N% B9 A  ~! {

! P+ v" _; ?; g0 @# h7 J
9 _) x8 q3 F$ f0 B! A) ^[POST_VERSION] #DO NOT MOVE OR ALTER THIS LINE# V13.00 E1 P0 T1232650364 M13.00 I0
7 k; ^% J" _2 D  N1 o; x" i' N& G/ u# Post Name           : Generic Fanuc 3X Mill.pst
# Product             : Mill
( z: v9 h# F% R9 R% ?# Machine Name        : Generic
0 f3 m" ?) W% Y& ~4 `$ x, f6 F4 t7 E) D# Control Name        : Fanuc
$ m( ]0 E4 o6 D8 E( _+ ^# Description         : Generic 3 Axis Mill Post
4 ~% I# [8 E1 I5 H( p# 4-axis/Axis subs.   : No
# 5-axis              : No
# Subprograms         : Yes
# Executable          : MP 13.0
5 u, v5 g4 L& h0 k% r- G#
# WARNING: THIS POST IS GENERIC AND IS INTENDED FOR MODIFICATION TO
# THE MACHINE TOOL REQUIREMENTS AND PERSONAL PREFERENCE.
$ q% u0 B7 u' |/ j& F#
  W! `  f  n( ]9 }! X- s# THIS POST REQUIRES A VALID 3 AXIS MACHINE DEFINITION.
* J: Z/ r; v' X1 G# YOU WILL RECEIVE AN ERROR MESSAGE IF A ROTARY AXIS IS DETECTED IN
# THE ACTIVE AXIS COMBINATION.
#
# Associated File List$
3 ~6 {0 R: ^: i% x$ Y! `0 C7 _  S& v#
# GENERIC FANUC 3X MILL.control
6 D( Y- n9 s+ F) [) j1 d3 D#
- Q1 `8 r+ A& l# Associated File List$
! H2 [, \+ x! C+ i, W/ v#
" B: C5 o3 d4 z. ]+ n* q) s8 [# --------------------------------------------------------------------------
# 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)
$ B' c8 ^; `: u- O: |5 R# CNC 06/26/06  -  Initial post setup for Mastercam X2
# CNC 02/26/07  -  Modified pwcs
# CNC 11/02/07  -  Added prv_shftdrl$ = zero
( }6 S7 J! U8 ~' s4 L# CNC 04/08/08  -  X3 release - Removed check for write_ops
# CNC 01/26/09  -  Initial post update for Mastercam X4
, u8 ^( L9 b* @4 M# R1 v# CNC 06/09/09  -  Updated MD parameters
#
# --------------------------------------------------------------------------
. V* x( e9 j5 [) |& S9 r' E# Features:     
7 A! Y  @) J2 ~4 |# --------------------------------------------------------------------------
3 M1 T6 @" b6 ]8 W# A3 B# This post supports Generic Fanuc code for 3 axis milling.
# It is designed to support the features of Mastercam X Mill.
8 m* M. }9 ^0 R8 @/ [' x' ?#
2 W2 k% }! I8 s2 s0 U0 s9 g# NEW FEATURES FOR X:
% X! @* D# @2 b/ M" }7 t$ [# - Sub-program support
* d1 _# r5 Q5 _! R; d$ l# - Machine definition, control definition and toolpath group parameter read sections added.
  n: v, w0 g: d* x5 M9 z; W( y3 S8 V# - Post sets min/max spindle speed and max feed rate from MD and CD.
1 v; \5 r) b% s1 z2 B. |* c# - Variable initialization with CD_VAR are read directly from CD.  Changing these initial values
#     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
, q9 R, C& y% J2 D7 i( A#     comments at tool change or tooltable in header with tool comments at tool change (see tool_info)
" l; X# ]; c4 j/ J0 u  [: ?#     Tooltable output includes cutter compensation type and stock to leave information
5 w2 N0 v* E& e8 H4 Z* B# \% o: t  B# - 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)
# - Supports X comments including machine name, group name and group comment output (see pcomment2)
8 u- ~- A- X+ `6 M# - Additional date, time and data path output options (see pheader)  
4 |$ T% d5 I& C. d$ U: e# - Additional rigid tapping cycle (separate from original tapping cycle) and initial custom drill
#     cycle support (see pmisc2$ and pdrlcst$)
# - Support for 10 additional canned text options for X
' k& A% \8 |0 n3 a" `; c# - Decimal support for sequence number output (set "Increment sequence number" in CD to a decimal value
! Z- M& Z' B/ H# q; C3 |2 c#     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)
0 i- A, v9 y6 |* p# - Support for seperate XY, XZ and YZ plane/arc variables (see Arc page in CD)
- K( P# ^. l$ W; t6 r: `2 S# - 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,
. I: a/ a$ `  |1 j6 f#     "coolantx" variable and string selector for X style coolant.
; ]- s- _9 \& k) m: q#
# --------------------------------------------------------------------------
# Misc. Values:
# --------------------------------------------------------------------------
* L2 U* U7 T9 Q- [: ~- P2 P# Integers:
#
# mi1 - Work coordinate system
#        0 = Reference return is generated and G92 with the
6 }% J* `! Z9 I2 @, G* k- U#            X, Y and Z home positions at file head.
* P8 A. y3 I6 V% g7 s% H4 z#        1 = Reference return is generated and G92 with the
1 \6 v3 X0 u$ c9 b8 ^& m( H" d' W#            X, Y and Z home positions at each tool.
#        2 = WCS of G54, G55.... based on Mastercam settings.
( p, \, G, T4 C4 ]2 N#
5 `. k' B9 @& T. d5 h) Y6 k# mi2 - Absolute or Incremental positioning at top level
#        0 = absolute
3 H( S+ V! p' I- u( X#        1 = incremental
  u2 Q! J8 A6 c6 j7 I" h6 }( f#
& S9 g( a* B% ^# mi3 - Select G28 or G30 reference point return.
: g# z5 V# z/ g% g  g#        0 = G28, 1 = G30
#
+ [7 F8 [( M5 p- g) Z# mi4 - mi10 (NOT USED)
#
# Reals:
#
# mr1 - mr10 (NOT USED)
#
% k/ q+ \' K  L+ Z1 a# --------------------------------------------------------------------------
2 q  ~2 w) J* U" |$ P8 U#Canned text:
#    Entering cantext on a contour point from within Mastercam allows the
2 u, Z; W1 D- ^& W2 o; Y7 U#    following functions to enable/disable.
#    Cantext value:
% I; Z3 @* a1 a0 ~/ N, ~#    1 = Program Stop = output the "M00" stop code
9 O7 |  t5 `2 g#    2 = Optional Stop =  output the "M01" optional stop code
#    3 = Block Delete on = turn on block delete codes in NC lines
#    4 = Block Delete off = turn off block delete codes in NC lines
' J. s5 [$ c7 [8 @#
& n$ n, B$ Y. |$ d# --------------------------------------------------------------------------
% S1 p, {0 }7 T% V7 z4 u6 u( |3 `3 I#Additional Notes:
3 l- g! w2 x7 Q! }5 s# j  b; ^# 1) G54 calls are generated where the work offset entry of 0 = G54,
7 L% L, n( _& N' e) i+ D3 i#    1 = G55, etc.
# 2) Metric is applied from the NCI met_tool variable.
; c% ]: ]) [' Z; a3 |# 3) Incremental mode calculates motion from home position at toolchanges.
#    The home position is used to define the last position of the tool
! D- h5 _% M( v* _7 V' _; F#    for all toolchanges.  
# 4) The variable 'absinc' is now pre-defined, set mi2 (Misc. Integer) for
#    the 'top level' absolute/incremental program output.  Subprograms are
& D+ T- `% V, X#    updated through the Mastercam dialog settings for sub-programs.
# 5) Transform subprograms are intended for use with G54.. workshifts.
$ h, Q1 V0 Z' P" X. {* k& T8 S4 O#
. O$ z) \  S$ c( z/ @# END_HEADER$
#
; v: c; _8 y. u+ }7 U2 Y9 T# --------------------------------------------------------------------------
# Debugging and Factory Set Program Switches  
# --------------------------------------------------------------------------
+ V; F- o2 E$ ~8 ?) t6 m8 S' E0 C#Define Constants
m_one        := -1
zero         := 0
. }: J* A* D) h6 S; P' V2 A) Gone          := 1
two          := 2
three        := 3
/ ^6 @/ n3 |1 ]9 Y; E2 i. Yfour         := 4
five         := 5
) \' [- w1 S% H$ ^% c- ~: Q' t2 zc9k          := 9999

bug4$        : 1     #Debug output with the tilde '~'.
                     #A value greater the zero applies the variable formatting with
! H1 y( L4 c9 i8 E6 `9 @$ b                     #debug output (default is typically FS 1 but not a guarantee).
) O3 K. H% H0 n& d5 N6 ]0 P* A" [4 g                     #A value of zero gets the value directly with NO formatting.

# c: [* a' u4 W/ _linktolvar$  : 0     #Associate X tolerance variables to V9- variable?
linkplnvar$  : 0     #Associate X plane specific variables to V9- variable?
, i3 ^, k1 y2 s) c
1 H" Q1 W9 ^- G# f  Dskp_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?
strtool_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
. D; `5 I4 e7 Q+ A+ q: K7 mnewglobal$   : 1     #Error checking for global variables
2 A* i, y( q9 e+ hgetnextop$   : 1     #Build the next variable table
% ]; O' T( u6 t9 ?$ v# q; R4 Ltooltable$   : 3     #Pre-read, call the pwrtt postblock

" P6 ~9 C1 \6 i8 [9 R  E- l* m0 @# --------------------------------------------------------------------------
# General Output Settings
2 D& X" O; B. h2 ^8 r$ ~# --------------------------------------------------------------------------
sub_level$   : 1     #CD_VAR Enable automatic subprogram support
. B% N6 K. u' Z# ~( `7 o& |breakarcs$   : 2     #CD_VAR Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
, s8 b! f; T' h# B( V3 Sarctype$     : 2     #CD_VAR Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.,
2 \* \% q2 W0 D' m1 \8 {5 h5 G                     #5 = R no sign, 6 = R signed neg. over 180
' y; V. }- _; Y% Y- }+ o( U3 Qdo_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
arccheck$    : 1     #CD_VAR Check for small arcs, convert to linear
5 V% q) U/ b, ~2 E; Eatol$        : 0.01  #CD_VAR Angularity tolerance for arccheck
4 n1 E" a& I/ J# C5 V1 K% G, E9 x1 {" wltol$        : 0.002 #CD_VAR Length tolerance for arccheck
3 E3 C- s; W1 r% f: _vtol$        : 0.0001#System tolerance
maxfeedpm    : 500   #SET_BY_MD Limit for feed in inch/min
+ W9 Q6 c3 A) mltol_m       : 0.05  #Length tolerance for arccheck, metric
vtol_m       : 0.0025#System tolerance, metric
' c! z5 d, B0 v7 J( p$ Emaxfeedpm_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
3 j2 e* B! `' ?6 _( lomitseq$     : yes$  #CD_VAR Omit sequence numbers?
seqmax$      : 9999  #CD_VAR Max. sequence number
  Q9 m4 ^  P* C  t3 w6 Zstagetool    : 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
- `9 q# p& L4 K8 p6 f                     #2 = Stage 1st tool at end of file (peof)
7 V( [$ k; l* }/ Y8 M& [/ C+ {use_gear     : 0     #Output gear selection code, 0=no, 1=yes  
; s( V  O$ l% `& g% L, W6 Kmin_speed    : 50    #SET_BY_MD Minimum spindle speed
nobrk$       : no$   #CD_VAR Omit breakup of x, y & z rapid moves
% s2 F0 i/ S  Z0 o5 a9 Cprogname$    : 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?
                     #0 = Off - Do not output any tool comments or toolpable
  q, c$ K8 T' S: B% x                     #1 = Tool comments only
                     #2 = Tooltable in header - no tool comments at T/C
                     #3 = Tooltable in header - with tool comments at T/C
& Z1 _- ~! N* `* Rtlchg_home   : no$   #Zero return X and Y axis prior to tool change?

接后面。。。

duolzw

接上面。。。

" C' v* [, F3 ~6 H# --------------------------------------------------------------------------
0 _, v- I: R6 X, |# Enable Canned Drill Cycle Switches
# --------------------------------------------------------------------------
5 w! ]& _9 H8 `$ F; \- eusecandrill$ : yes$  #CD_VAR Use canned cycle for drill
7 M9 m0 U2 ~, z# m0 e* A# eusecanpeck$  : yes$  #CD_VAR Use canned cycle for Peck
usecanchip$  : yes$  #CD_VAR Use canned cycle for Chip Break
2 m* K/ V( A: D0 S# g# Q/ \) cusecantap$   : yes$  #CD_VAR Use canned cycle for Tap
usecanbore1$ : yes$  #CD_VAR Use canned cycle for Bore1
usecanbore2$ : yes$  #CD_VAR Use canned cycle for Bore2
+ p* p3 n, V+ e6 L% _usecanmisc1$ : yes$  #CD_VAR Use canned cycle for Misc1
$ Z4 V. U' X0 [( Husecanmisc2$ : yes$  #CD_VAR Use canned cycle for Misc2

# --------------------------------------------------------------------------
# Common User-defined Variable Initializations (not switches!)
# --------------------------------------------------------------------------
, Y0 h8 ]: P, B5 |" b3 `$ I  w, Mxia          : 0     #Formatted absolute value for X incremental calculations
! g$ o3 B- |2 f* Vyia          : 0     #Formatted absolute value for Y incremental calculations
# i, D9 _. z7 x+ u1 y' [+ Gzia          : 0     #Formatted absolute value for Z incremental calculations
6 d$ H" }3 P! F$ X: C
bld          : 0     #Block delete active
result       : 0     #Return value for functions
3 C2 X8 a9 }) o! U+ Rsav_spc      : 0     #Save spaces
: ~5 D0 a9 B' N+ psav_gcode    : 0     #Gcode saved
sav_absinc   : 0     #Absolute/Incremental Saved Value
sav_coolant  : 0     #Coolant saved
sav_frc_wcs  : 0     #Force work offset flag saved
0 ?& L, O+ R- s5 u/ f8 n4 Gtoolchng     : 1     #On a toolchange flag
0 A- {( l1 R# U3 J! f) Tspdir2       : 1     #Copy for safe spindle direction calculation
4 E, |; |/ e3 u
6 j- ?+ d7 b$ ]$ a#Drill variables
drlgsel      : -1    #Drill Select Initialize
drillref     : 0     #Select drill reference
! @9 J: s/ Z0 @' p/ mpeckacel$    : 0     #CD_VAR Fractional percent to reduce peck2 when usecan.. : no
drlgcode     : 0     #Save Gcode in drill   
& Q  K2 z# h/ j; ksav_dgcode   : 0     #Drill gcode saved
$ B' S% Y5 T' |. g. q2 t4 e
$ P0 C  n+ Q8 ~#Subprogram variables
$ |2 {+ C  ]8 `! V4 T$ }4 M7 T  |7 gmr_rt_actv   : 0     #Flag to indicate if G51/G68 is active                     
2 q; |) W4 V# L                     #0=Off, 1=Toolchange, 2=Subprogram call/start, G68
                     #3=Absolute start, both
4 f, t1 T8 A4 h  u  X0 k! W7 W6 i0 zrt_csav      : 0     #C saved value
; l2 {! Y6 B+ p& z0 Z$ Lend_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
# m! ^1 o" a/ j% t+ I$ K#Coolant variables for X style coolant
0 J' _% w) z5 S! {cant_pos     : 0     #Read from current canned text (cant_pos1 - cant_pos20)
' L0 T! J$ W+ j/ P; V+ X0 [coolant_bin  : 0     #Binary value for current coolant command
1 e" M9 ^  h5 f* ?& Z$ D! Xcoolant_on   : 0     #Binary value holding the sum of all coolants currently on
! m5 F" M% V/ \: ?+ ^coolantx     : 0     #Selector variable for coolant string selector
* `/ E: p: c* D" F- xlocal_int    : 0     #Local variable for output of coolant off commands
; F8 r8 U) m  [& m" xresult2      : 0     #Return value for functions
! n# u0 t  V) h  i: l7 A4 V3 Ksuppress     : 0     #Flag used to suppress redundant coolant on commands
. ?: O8 j/ @+ L8 U+ z/ Mall_cool_off : 0     #First coolant off command shuts off ALL coolant options

#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
rot_ax_cnt   : 0     #Rotary axis counter
( l. m) g) k# H# Y) T5 Tcomponent_type : 0   #Component type: (See documentation for complete list - )
* O( C1 C, a+ ?                       #0 = MACHINE
                       #1 = STOCK_COMPONENT
2 M, z' [8 S& _6 n& f2 \                       #2 = MISC_COMPONENT
                       #3 = MACHINE_BASE_COMPONENT
) `( N! ~* Q: u" A9 V* r) C, O) E                       #4 = LINEAR_AXIS_COMPONENT
( x; P; _5 Y3 t, h                       #5 = ROTARY_AXIS_COMPONENT
+ @+ V/ l" h* }$ D* J/ f. y0 K                       #6 = RECT_TABLE_COMPONENT
4 r/ @- Z6 T1 h" ^; o                       #12 = CHUCK_COMPONENT
                       #24 = TOOL_SPINDLE_COMPONENT
                       #23 = ATC_COMPONENT
ra_error     : 0     #Flag for aggregate operation

# --------------------------------------------------------------------------
#String and string selector definitions for NC output
# --------------------------------------------------------------------------
0 L) P( w+ \# [+ N0 L" e#Address string definitions
strm         : "M"
strn         : "N"
stro         : "O"
strp         : "P"
srad         : "R"
srminus      : "R-"
sblank       : ""

#Cantext string definitions (spaces must be padded here)
' s0 ~+ p6 w2 ~+ c$ Bsm00         : "M00"
sm01         : "M01"
strtextno    : ""
9 C2 F% i$ Y1 \3 \* Pstrcantext   : ""

  S/ a+ r/ C# B6 }- C2 P#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
- N2 w' \+ C: {$ `strns_rot_off : "G69"   #Coordinate System Rotation Cancel
9 W9 o+ ^- V. J0 v
#Misc. string definitions
sopen_prn    : "("   #String for open parenthesis "("
: {- R5 m2 C4 ]0 Osclose_prn   : ")"   #String for close parenthesis ")"
sdelimiter   : "|"   #String for delimiter
+ H# m: b2 a- \1 Jsg94         : "G94" #Units per minute
sg95         : "G95" #Feed per rotation
sm29         : "M29" #Rigid tapping preperation support function
3 f" N" m" j9 [2 x9 hsg80         : "G80" #Cancel canned drilling cycle
# d! x4 |5 o7 wsg43         : "G43" #Tool length compensation
sg49         : "G49" #Tool length compensation cancel
: C. _9 G8 X7 ?6 v0 v5 usg92         : "G92" #Set work piece coordinate system
, ^# @' q; A0 R: j' Rsm06         : "M6"  #Toolchange
: U% i6 y" q+ L
! J/ R4 v' x: i0 Q6 u7 u# M# --------------------------------------------------------------------------
3 P( k8 b3 T+ x) m6 m; s, S5 X7 Y# Error messages
4 \1 I$ T" k: Q! f) k# --------------------------------------------------------------------------
+ J5 F6 o: d8 o& x0 Oshomeserror  : "ERROR - WORK OFFSET USAGE DOES NOT SUPPORT TRANSFORM SUBPROGRAM"
- O  X( _: r5 g+ d. Psprgnerror   : "ERROR - SUBPROGRAM NUMBER MATCHES THE MAIN PROGRAM NUMBER"
( c  c: [; G$ t* D: j. Osra_error    : "ERROR - AGGREGATES NOT SUPPORTED IN THIS POST"
/ s0 V% O0 I# v% q% m( w- Y8 Wsrotaxerror  : "ERROR - ROTARY AXIS DETECTED IN SELECTED AXIS COMBINATION- POST DOES NOT SUPPORT ROTARY AXIS OUTPUT"

: Q. E4 q. Z; P5 d) c# --------------------------------------------------------------------------
# General G and M Code String select tables
: `  x: y: }1 \- k3 _8 w# --------------------------------------------------------------------------
  `3 I! b2 w  ~1 f/ H# Motion G code selection
sg00    : "G0"       #Rapid
sg01    : "G1"       #Linear feed
, C' D, p7 L; p- @sg02    : "G2"       #Circular interpolation CW
sg03    : "G3"       #Circular interpolation CCW
, N4 e* L; Q2 D$ Q) ?' c6 hsg04    : "G4"       #Dwell
; P' m: W) C2 Y- S6 Xsgcode  : ""         #Target string
! I, i  q- Z3 g! J+ p) i1 \
7 A# r9 t0 ^+ b' y3 T5 a5 i, W2 Yfstrsel sg00 gcode$ sgcode 5 -1
  ?* \% r/ a8 W! @2 s% ^! F# --------------------------------------------------------------------------
# Select work plane G code
2 h" x& f, Z% ?/ V* xsg17    : "G17"      #XY plane code
sg19    : "G19"      #YZ plane code
) J( y. ^" k* U! Ysg18    : "G18"      #XZ plane code
* j# _" c4 \4 [5 s5 N2 Y' A% Vsgplane : ""         #Target string

fstrsel sg17 plane$ sgplane 3 -1
- Z+ a9 j8 S- S0 v# --------------------------------------------------------------------------
$ X& q. E9 e% d! k1 X#Select english/metric code
/ S" m" Q9 }8 m, xsg20    : "G20"      #Inch code
8 e% M( t9 Y. m1 ]- m: `sg21    : "G21"      #Metric code
smetric : ""         #Target string  

fstrsel sg20 met_tool$ smetric 2 -1
# --------------------------------------------------------------------------
#Select reference return code
sg28    : "G28"      #First reference point return
" }1 A* f$ m  V; e3 r( g* n7 |sg30    : "G30"      #Second reference point return
9 D( r1 U/ ?, \: Lsg28ref : ""         #Target string
+ z9 J6 X( G/ l1 m' S& @" Y1 A
( D. c, s5 a/ X# C: \fstrsel sg28 mi3$ sg28ref 2 -1
# --------------------------------------------------------------------------
. K* \$ [0 ^; `0 m+ }* O# Cutter compensation G code selection
scc0    : "G40"      #Cancel cutter compensation
3 i4 p8 U2 m- ]$ l5 P6 sscc1    : "G41"      #Cutter compensation left
2 q; R2 }+ w3 I$ O* f* }3 m) tscc2    : "G42"      #Cutter compensation right
  y( H; t9 h7 ]9 [( m9 I1 Q, x; fsccomp  : ""         #Target string
1 H- I' M/ z+ ~7 `1 Q
' j4 X7 D6 P& M5 Rfstrsel scc0 cc_pos$ sccomp 3 -1
# --------------------------------------------------------------------------
! g8 e; z3 n; M5 m! q% y# Canned drill cycle string select
sg81    : "G81"      #drill - no dwell
sg81d   : "G82"      #drill - with dwell
sg83    : "G83"      #peck drill - no dwell
sg83d   : "G83"      #peck drill - with dwell
7 X0 C0 p* A* _6 |sg73    : "G73"      #chip break - no dwell
" F# C  G. q& T, ^' |; Isg73d   : "G73"      #chip break - with dwell
sg84    : "G84"      #tap - right hand
sg84d   : "G74"      #tap - left hand
4 ~# l7 Z+ d& w# D# {sg85    : "G85"      #bore #1 - no dwell
9 \, M0 R- b  m: psg85d   : "G89"      #bore #1 - with dwell
. i7 R# Z0 M) K9 Ksg86    : "G86"      #bore #2 - no dwell
sg86d   : "G86"      #bore #2 - with dwell
2 \. w  ^+ T3 Qsgm1    : "G76"      #fine bore - no dwell
2 w5 K& s+ b1 z6 j  u; Xsgm1d   : "G76"      #fine bore - with dwell
) ]$ h( V6 b% D, ]sgm2    : "G84"      #rigid tap  - right hand
sgm2d   : "G74"      #rigid tap  - left hand
sgdrill : ""         #Target string

fstrsel sg81 drlgsel sgdrill 16 -1
! F: d2 k7 t1 |. R# d6 w% a# --------------------------------------------------------------------------
( ?2 p. H) d, A8 w4 s/ n# Select incremental or absolute G code
sg90    : "G90"      #Absolute code
; C: H2 N+ B* J# M0 P( C* E7 _% nsg91    : "G91"      #Incremental code
* I6 {& B, w+ v. x8 g% Hsgabsinc : ""        #Target string  
& g2 E& q* i, L8 T+ [* I3 s$ V
fstrsel sg90 absinc$ sgabsinc 2 -1
# --------------------------------------------------------------------------
( W7 z8 ?% U  o7 b1 a#Canned drill cycle reference height
sg98    : "G98"      #Reference at initht
sg99    : "G99"      #Reference at refht     
sgdrlref : ""        #Target string

1 M: W; w8 a1 `3 q! \3 k9 c7 Zfstrsel sg98 drillref sgdrlref 2 -1
9 p( j- G7 N1 c3 r2 G# --------------------------------------------------------------------------
# Generate string for spindle
sm04    : "M4"       #Spindle reverse
4 ^) T- _4 Y9 C" [sm05    : "M5"       #Spindle off
sm03    : "M3"       #Spindle forward
spindle : ""         #Target string
$ s" w- D! `8 D% T7 P$ q
$ ]5 |& \& ~% b, F4 z) G0 Nfstrsel sm04 spdir2 spindle 3 -1
, o* Q1 o9 {& g* a2 O, N2 N# --------------------------------------------------------------------------
! }4 S4 T+ P. ]0 `# Coolant M code selection for V9 style coolant
, H0 E# h! @8 S; {9 H9 S; T- y" A# 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
sm09    : "M9"       #Coolant Off
6 T# ^" k8 T! c: M7 gsm08    : "M8"       #Coolant Flood
  b  G2 ~  H5 P: x& G7 }' D1 Xsm08_1  : "M8"       #Coolant Mist
sm08_2  : "M8"       #Coolant Tool
' a. a! r, F( J& Q+ [; B+ vscoolant : ""        #Target string

接后面。。

duolzw

fstrsel sm09 coolant$ scoolant 4 -1
$ x4 b7 a- N' |  L$ v; u+ P* o# --------------------------------------------------------------------------
$ o7 u8 R, y  |; P# Coolant output code selection for X style coolant
1 @. [( C1 X+ t5 z; D3 d# Note: To enable X style coolant, click on the General Machine Parameters icon
#   in the Machine Definition Manager, Coolant tab, disable first check box
4 a8 P- t" K9 M  {#   Output of X style coolant commands in this post is controlled by pcan, pcan1, & pcan2
7 G& {* _& t7 {* _# p8 mscool50 : "M8"                 #Coolant 1 on value
5 T& |6 l; v& A3 e6 Pscool51 : "M9"                 #Coolant 1 off value
scool52 : "M7"                 #Coolant 2 on value
1 E) I! K- ?; b! _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
# \  e& j: `7 z# g) A. }8 L% oscool57 : "M9(Coolant4=OFF)"   #Coolant 4 off value
scool58 : "M8(Coolant5=ON)"    #Coolant 5 on value
5 H) D. h  J8 ]0 Qscool59 : "M9(Coolant5=OFF)"   #Coolant 5 off value
- O& k) ~" M! x7 z0 Q  K* \+ ?3 Zscool60 : "M8(Coolant6=ON)"    #Coolant 6 on value
/ F3 l; z$ J  R) {, n2 zscool61 : "M9(Coolant6=OFF)"   #Coolant 6 off value
7 x; ?2 j* }/ e, sscool62 : "M8(Coolant7=ON)"    #Coolant 7 on value
scool63 : "M9(Coolant7=OFF)"   #Coolant 7 off value
scool64 : "M8(Coolant8=ON)"    #Coolant 8 on value
: H1 R- W& b, D$ b' s" Wscool65 : "M9(Coolant8=OFF)"   #Coolant 8 off value
) [  x- q" n  E% @6 v. \% v) ascool66 : "M8(Coolant9=ON)"    #Coolant 9 on value
/ K- J8 l1 }5 a* c: e/ Wscool67 : "M9(Coolant9=OFF)"   #Coolant 9 off value
scool68 : "M8(Coolant10=ON)"   #Coolant 10 on value
scool69 : "M9(Coolant10=OFF)"  #Coolant 10 off value
+ ~6 J' A! E; I' H( v! f* vscoolantx : ""                 #Target string

' ?( h$ E8 q4 r" v- K+ S5 Ofstrsel scool50 coolantx scoolantx 20 -1
# --------------------------------------------------------------------------
! j9 F* X4 x3 i) z1 z( F% i#X coolant has the option - First coolant off command shuts off ALL coolant options
9 Q0 o  F6 w* T+ L, {! g. b: [9 ~% zsall_cool_off : "M09" #Coolant off command output with all_cool_off
/ r4 ]9 L2 h* x; v
# --------------------------------------------------------------------------
! N4 `% y: X; Z5 p1 f' o# S# p# Define the gear selection code
flktbl  1       3       #Lookup table definition - table no. - no. entries
        40      0       #Low gear range
: O) D* P3 T$ ^0 _+ y) u5 K        41      400     #Med gear range
2 _* W  T# a2 G5 g" w6 j$ u        42      2250    #Hi gear range

5 V9 d; ~, m4 E  H: ]: V# --------------------------------------------------------------------------
% c$ ]- g8 M& x1 c) {+ y. ~9 `# Define coolant binary value for X style coolant
flktbl  2       20      #Lookup table definition - table no. - no. entries
        1       50      #Coolant 1 on value
$ x$ v5 B2 S; a6 V# Z; P3 }        2       51      #Coolant 1 off value
        4       52      #Coolant 2 on value
        8       53      #Coolant 2 off value
6 X- m+ m) Z0 T/ d: A: C1 ^        16      54      #Coolant 3 on value
& e4 a7 {# G, o- Q) Z  y        32      55      #Coolant 3 off value
  u0 T/ O, h1 C2 }7 C        64      56      #Coolant 4 on value
        128     57      #Coolant 4 off value
9 p3 t% _; W0 e# {- M        256     58      #Coolant 5 on value
: i$ u- X4 g* U' a1 N        512     59      #Coolant 5 off value
        1024    60      #Coolant 6 on value
9 Y2 x& r0 E7 U# N- _9 M        2048    61      #Coolant 6 off value
        4096    62      #Coolant 7 on value
        8192    63      #Coolant 7 off value
        16384   64      #Coolant 8 on value
        32768   65      #Coolant 8 off value
        65536   66      #Coolant 9 on value
1 }! s) e+ D1 P) E5 s, N7 W        131072  67      #Coolant 9 off value
        262144  68      #Coolant 10 on value
        524288  69      #Coolant 10 off value
# O1 \( s! `* s+ d
# --------------------------------------------------------------------------
3 t) I1 n- u5 ~4 X+ R9 [/ |& r# Month selector
smon0   : ""
3 c5 i1 g/ |* K, Osmon1   : "JAN."
: f9 D2 ?6 F# V7 o/ x1 Rsmon2   : "FEB."
  c9 A8 }6 @  {4 S8 B6 Tsmon3   : "MAR."
9 D( p; o5 j7 M8 i; ^8 _smon4   : "APR."
5 Z, u% Y2 A$ ?4 T: Ksmon5   : "MAY."
smon6   : "JUN."
smon7   : "JUL."
smon8   : "AUG."
/ c# B! ]; x# d5 K  msmon9   : "SEP."
smon10  : "OCT."
smon11  : "NOV."
) q0 s5 ~" C9 e  Hsmon12  : "DEC."
smonth  : ""         #Target string
3 }  u! y- t: U3 R! M
fstrsel smon0 month$ smonth 13 -1
# --------------------------------------------------------------------------
# Cutter Compensation Type
scomp   : "COMPUTER"
0 c' D; `' i& p. |scomp1  : "CONTROL COMP"
& |# Q0 u3 g+ P, vscomp2  : "WEAR COMP"
scomp3  : "REVERSE WEAR COMP"
scomp4  : "OFF"
scomp_type : ""      #Target string

fstrsel scomp comp_type scomp_type 5 -1
# --------------------------------------------------------------------------
$ n4 `* A7 U- Y* E) N, d# Format statements - n=nonmodal, l=leading, t=trailing, i=inc, d=delta
# --------------------------------------------------------------------------
#Default english/metric position format statements
fs2 1   0.7 0.6      #Decimal, absolute, 7 place, default for initialize (
% i( S3 b" H1 f5 I4 s9 ?/ A, rfs2 2   0.4 0.3      #Decimal, absolute, 4/3 place
+ a2 X' [) [' M( N: Mfs2 3   0.4 0.3d     #Decimal, delta, 4/3 place
#Common format statements
# o" R6 ~2 a8 V; I: qfs2 4   1 0 1 0      #Integer, not leading
9 `: q6 b! \0 n  l/ A2 @' ^fs2 5   2 0 2 0l     #Integer, force two leading
fs2 6   3 0 3 0l     #Integer, force three leading
/ q% Q/ E$ T. D3 w) m5 ~& ^# Y0 wfs2 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
& `4 h$ k) N7 u3 n' F; g* @( A0 K; Sfs2 11  0.3 0.3      #Decimal, absolute, 3 place
& ]. N7 j+ q: c% `9 ]5 ofs2 12  0.4 0.4      #Decimal, absolute, 4 place
" K7 s, p* J" M+ j2 y: Rfs2 13  0.5 0.5      #Decimal, absolute, 5 place
/ D' Q- F' k8 cfs2 14  0.3 0.3d     #Decimal, delta, 3 place
- T8 Z$ ^0 _& P; @  cfs2 15  0.2 0.1      #Decimal, absolute, 2/1 place (feedrate)
+ r9 @: W; u/ Y2 d1 V. _) Q# Ffs2 16  1 0 1 0n     #Integer, forced output
fs2 17  0.2 0.3      #Decimal, absolute, 2/3 place (tapping feedrate)
  o# N5 Y" c  c
# These formats used for 'Date' & 'Time'
8 R% ?3 k" L% ?' G7 i" Z$ B& sfs2 18  2.2 2.2lt    #Decimal, force two leading & two trailing (time2)
" b! F& M- P1 h8 Y. }9 }2 v* a$ Sfs2 19  2 0 2 0t     #Integer, force trailing                   (hour)
fs2 20  0 2 0 2lt    #Integer, force leading & trailing         (min)

) {1 L9 T. f6 ]; d3 P* H4 v# This format statement is used for sequence number output
3 k* E/ a5 o! U7 W) N( @& G4 F# Number of places output is determined by value for "Increment Sequence Number" in CD
3 U1 m* Q8 @$ A  ~/ w2 Y2 r& A8 B- h# Max depth to the right of the decimal point is set in the fs statement below
5 q2 g4 ]3 W& H1 ~9 Efs2 21  0^7 0^7      #Decimal, 7 place, omit decimal if integer value
5 S, W% J8 X/ j8 \% s; K$ p
# --------------------------------------------------------------------------
& \: ?9 F; G7 G: U" o" I# Toolchange / NC output Variable Formats
# --------------------------------------------------------------------------
0 y$ q5 q6 O1 p; jfmt  T  4   t$          #Tool number
; v3 s( A) ]: j; D6 Z3 `3 X) f0 Qfmt  T  4   first_tool$ #First tool used
fmt  T  4   next_tool$  #Next tool used  
" v. y; F6 ^, xfmt  D  4   tloffno$    #Diameter offset number
7 w/ R! i& I! }( U* K5 ]fmt  H  4   tlngno$     #Length offset number
fmt  G  4   g_wcs       #WCS G address
+ o& K( [! _1 _$ I' _/ dfmt  P  4   p_wcs       #WCS P address
fmt  S  4   speed       #Spindle Speed
, ?+ d. W6 b/ |1 afmt  M  4   gear        #Gear range
# --------------------------------------------------------------------------
fmt  N  21  n$          #Sequence number
# W2 U- U1 p4 U9 F. W3 n8 ?; y# }fmt  X  2   xabs        #X position output
fmt  Y  2   yabs        #Y position output
fmt  Z  2   zabs        #Z position output
7 }0 ^$ U1 k6 i; B8 Ffmt  X  3   xinc        #X position output
fmt  Y  3   yinc        #Y position output
fmt  Z  3   zinc        #Z position output
1 }0 H2 o* ?" o; B0 ?, Y7 ]7 f5 @9 ~fmt  I  3   iout        #Arc center description in X
' ^( m; E8 @" jfmt  J  3   jout        #Arc center description in Y
fmt  K  3   kout        #Arc center description in Z
fmt  R  2   arcrad$     #Arc Radius
fmt  F  15  feed        #Feedrate
4 a& b' b6 z/ {! F  ?$ G2 Hfmt  P  11  dwell$      #Dwell
$ k3 R; _: \2 g4 v& gfmt  M  5   cantext$    #Canned text
' D; @/ g: e9 v# d9 K, h0 @* ?) qfmt  F  2   pitch       #Tap pitch (units per thread)
# --------------------------------------------------------------------------
#Move comment (pound) to output colon with program numbers
; Y; |# n. v) o% h4 X+ d5 ?' U! Gfmt  O  7   progno$     #Program number
#fmt ":" 7   progno$     #Program number
* z$ d" i; E) `: Xfmt  O  7   main_prg_no$ #Program number
#fmt ":" 7   main_prg_no$ #Program number
2 A' w% V( h! C( ?  \fmt  O  7   sub_prg_no$ #Program number
( l7 E  ?& b+ e9 k& f  |" A0 a#fmt ":" 7   sub_prg_no$ #Program number
: U/ Y( T) F, M- i5 T# [2 o  v( Tfmt  X  2   sub_trnsx$  #Rotation point
fmt  Y  2   sub_trnsy$  #Rotation point
fmt  Z  2   sub_trnsz$  #Rotation point
' d' W. l4 f6 z, D& Y* z# --------------------------------------------------------------------------
fmt  Q  2   peck1$      #First peck increment (positive)
fmt  Q  2   shftdrl$    #Fine bore tool shift
% l; m  G! X( Q" K5 b: C0 Zfmt  R  2   refht_a     #Reference height
  V3 M" [  m' P) lfmt  R  2   refht_i     #Reference height
# --------------------------------------------------------------------------
fmt "TOOL - "      4   tnote    #Note format
$ F8 |/ J) V' V2 L, Dfmt "DIA. OFF. - " 4   toffnote #Note format
fmt "LEN. - "      4   tlngnote #Note format
fmt "TOOL DIA. - " 1   tldia$   #Note format
fmt "XY STOCK TO LEAVE - " 2  xy_stock #Note format
! `( p- v7 a* y! K  c& ?: K6 F" P' Ufmt "Z STOCK TO LEAVE - "  2  z_stock  #Note format
% ^6 U$ |$ s  z; d6 h, e# --------------------------------------------------------------------------
1 `1 V) c- v; [6 Q; v) Pfmt     4   year2       #Calculated year value
fmt     18  time2       #Capture 24-hour time value into 'time2' variable
fmt     19  hour        #Hour
. y1 f: w; ~2 |# {2 R2 dfmt     20  min         #Minutes
year2 = year$ + 2000

duolzw

# --------------------------------------------------------------------------
# Tool Comment / Manual Entry Section
3 k# Q) q5 w7 w5 Q# --------------------------------------------------------------------------
ptoolcomment    #Comment for tool
% k! U3 j  O, b7 @* E0 {% P      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
      if tool_info = 1 | tool_info = 3,
" E: c2 V# a: ?: Y- b5 m6 m        sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$

# L7 k9 E2 p: G9 I- p) @; Aptooltable      #Tooltable output
0 ?$ T% f% n& M( o, a$ x      sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
        [if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
1 t8 y1 m3 i: H/ L* k        [if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
        sclose_prn, e$

pstrtool        #Comment for tool
4 a; S# F7 q3 `% o      if strtool$ <> sblank,
        [
3 @2 f- Z, |; C/ B: M        strtool$ = ucase(strtool$)
) z0 X- E3 E( f9 {! c/ @        *strtool$
        ]

2 f3 M+ J8 C2 j( Mpcomment$       #Comment from manual entry (must call pcomment2)
      pcomment2 #Required if doing boolean 'if' logic testing!
2 F( Y: w- }* b8 C
9 m( e; ~% b: N2 l, J1 z9 }pcomment2       #Output Comment from manual entry
- e% m; |$ v- i% z      scomm$ = ucase (scomm$)
      if gcode$ = 1005, sopen_prn, scomm$, sclose_prn, e$  #Manual entry - as comment
3 i4 h; p% [* f; ]( i  r      if gcode$ = 1006, scomm$, e$            #Manual entry - as code
" [' @' P. R7 ~3 `& C5 T      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$
+ I% n7 x4 u) d* z+ A      if gcode$ = 1008, sopen_prn, scomm$, sclose_prn, e$  #Operation comment
      if gcode$ = 1051, sopen_prn, scomm$, sclose_prn, e$  #Machine name
      if gcode$ = 1052, sopen_prn, scomm$, sclose_prn, e$  #Group comment
; v$ f, ?4 F5 ]8 Z+ Y* g      if gcode$ = 1053, sopen_prn, scomm$, sclose_prn, e$  #Group name
' s- S& M% Q; _2 }      if gcode$ = 1054, sopen_prn, scomm$, sclose_prn, e$  #File Descriptor

# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
9 A) r9 C/ Q$ Y, r- w( Aptime           #Convert 24-hour time format into 12-hour AM/PM format
" k( N$ Z8 q9 A9 Z0 k" W, a      if time$ >= 13, time2 = (time$ - 12)
+ p3 F5 K; a1 |8 t1 |( y      else, time2 = time$
: h. [" n2 G) ]' m5 D& O      hour = int(time2), min = frac(time2)
2 y. u$ n4 V2 J$ L2 d- J' ~$ I      *hour, ":", *min,
      if time$ > 12, " PM"
      else, " AM"
4 d/ ]2 Z- \, ]* \
" G0 @; W. S8 A6 b2 l6 N3 hpheader$         #Call before start of file                        
      "%", e$
      sav_spc = spaces$
8 U  x. L; X. R5 \  ^2 U      spaces$ = 0
9 l2 ?' x) ^/ F9 m$ K( P' E5 Y      *progno$, sopen_prn, sprogname$, sclose_prn, e$
& r) Z' I2 L* ^) \- F! u- F7 v3 \! q      #sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$
) S: J8 X: O) J. p* U; r      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
9 y9 R6 z8 x; u! |( i6 t: g* j      #sopen_prn, "TIME - ", time$, sclose_prn, e$  #24 hour time output - Ex. 15:52
3 V# H' D2 G3 |$ u: s* ^      #sopen_prn, "TIME - ", ptime sclose_prn, e$  #12 hour time output 3:52 PM
      spathnc$ = ucase(spathnc$)
      smcname$ = ucase(smcname$)
. N2 s8 R) F  A3 I      stck_matl$ = ucase(stck_matl$)
      snamenc$ = ucase(snamenc$)
      sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$
      sopen_prn, "NC FILE - ", *spathnc$, *snamenc$, *sextnc$, sclose_prn, e$
7 M3 c: y) G2 E      sopen_prn, "MATERIAL - ", *stck_matl$, sclose_prn, e$
: Y6 @8 B, I  I' m8 J! B+ U      spaces$ = sav_spc
0 G1 E9 R: o0 u: T, ?2 Y% e1 n" o  ]
psof0$           #Start of file for tool zero                        
      psof$

psof$            #Start of file for non-zero tool number            
3 L5 R1 O( z- A% i# {      if ra_error = 1, [if mprint(sra_error, 2) = 2, exitpost$]
6 g  w& L- E* p" a- H, }3 u: f- H      toolchng = one
      if ntools$ = one,
# m, f- G0 ^# e        [
        #skip single tool outputs, stagetool must be on
* e7 c( U  \7 B! K        stagetool = m_one
9 z. X) j. A. o6 D8 Z7 N* [0 s        !next_tool$
, I+ I; b% \, @" n! m9 D        ]
  X. e5 y0 s' _; W2 e, R      pbld, n$, *smetric, e$
      pbld, n$, *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
$ E. [) o# N6 b, D) D        [
; C5 u% |  q$ |4 {2 j        absinc$ = one
% F- W" x, B" i6 x! B. I( I        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
  r" k- s) t7 n        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
! [  K  s! S* ^) ]1 H        ]
* H! ~3 F5 Z5 X& x" q8 T0 Q      pcom_moveb
$ [" x% |( n! r! [" [      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
0 _1 s% t; U" C" L      comment$
      pcan
3 M  p. J" u% j  J2 G) X$ a      pbld, n$,sm06, *t$,  e$
# R' k  I4 X1 e$ @5 F5 v  B, g      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
- A" J) g2 B. Q. Z      absinc$ = sav_absinc
: ~* @+ e  b! U) w0 v5 W4 {      pcom_movea
& W9 o  H& `0 t5 `; W, [9 {' b( s4 ~      toolchng = zero
- e* e3 G$ ]7 d. G      c_msng$ #Single tool subprogram call
- e0 g6 B% b- [+ M6 B( u0 q9 v$ L/ z
. o, c4 t! M# j$ q" y! b. ^ptlchg0$         #Call from NCI null tool change (tool number repeats)                        
      pcom_moveb
      pcheckaxis
' j6 {0 {, B7 j& ^  ]      c_mmlt$ #Multiple tool subprogram call
; F, u2 r. z7 B6 B3 K5 x      comment$
) T5 X5 C7 ?7 j( r# ?% o: Y      pcan
6 c2 b( U( m" Q      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n$, sgplane, e$
. Q9 U4 s4 m  }  u, N7 B7 Q' l      pspindchng
! X) F3 [' C/ n& s3 S' b      pbld, n$, scoolant, e$
# {3 z! M5 m% L      if mi1$ > one & workofs$ <> prv_workofs$,
" F1 W" n% h8 L3 k+ N        [
        sav_absinc = absinc$
# O" I, Q! x# U& ~        absinc$ = zero
        pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
        pe_inc_calc
, v8 y! v% H8 W# B4 [% `1 V        ps_inc_calc
) j% Z- Z! s0 \4 J        absinc$ = sav_absinc
. a4 {4 [9 C: o; C& h        ]
      if gcode$ = one, plinout
( i: f) I) d# n0 s8 B7 O+ u      else, prapidout
      pcom_movea
  K0 B- {$ d5 q5 g      c_msng$ #Single tool subprogram call

ptlchg$          #Tool change                                       
  w% `" B$ a$ @$ s      toolchng = one
      if mi1$ = one, #Work coordinate system
- L9 {$ \  G, O' R2 a. t4 |        [
" ~" q0 {2 M3 Z9 P' K9 b% W7 A        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
  @: y5 c. A( I) Q6 O        ]
0 h, ~; [8 m1 h' S! \0 {, U      if prog_stop = 1, pbld, n$, *sm01, e$
) H! s2 a1 j! R1 c6 h' B/ u      if prog_stop = 2, pbld, n$, *sm00, e$
      pcom_moveb
6 `) a- l; V1 W4 N6 U      pcheckaxis
- J9 i7 ]' L1 R- L! g" z, Q7 r      c_mmlt$ #Multiple tool subprogram call
" c" V: [; f) q) v      ptoolcomment
      comment$
      pcan
1 m6 @8 {2 W  T) |8 g      result = newfs(15, feed)  #Reset the output format for 'feed'
, G" t1 U5 o) K1 z$ {      pbld, n$, *t$, sm06, e$
, X+ O6 T( o" h; x$ ^      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
; _0 f5 s$ S, K      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
2 V; |  k4 F2 g" y      pcom_movea
      toolchng = zero
. O1 z  m" J% o) N      c_msng$ #Single tool subprogram call
1 Z. A* U5 A7 p" T0 q. \
pstagetool      #Pre-stage tools
      if stagetool = 1,
        [
        if ttblend$,  #Check for last toolchange
          [
          if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
          ]
        else, *next_tool$ #stage tool at every toolchange
  a9 E& [* \' l+ p1 Q+ U& i$ L6 e        ]

5 {+ s. E/ I* i* o5 s; h5 G0 D! Wpretract        #End of tool path, toolchange
      sav_absinc = absinc$
& [2 M+ ?0 Y  N/ Q4 E% R      absinc$ = one
      sav_coolant = coolant$
* c: M; s0 O1 n; _1 t* X      coolant$ = zero

#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
        [                 #  explicitely turned off through a canned text edit
        if all_cool_off,
          [
+ E7 X1 i  d0 A" Q3 A/ y5 }7 V          #all coolant off with a single off code here
: \9 W$ a0 C- i. u          if coolant_on, pbld, n$, *sall_cool_off, e$
/ ]5 P+ N6 D: z( ]          coolant_on = zero
  _: m" }8 G  G7 n( L          ]
  v4 c; }# t& ~8 n6 h7 U, r        else,
          [
          local_int = zero
* H# m+ b) P% a2 D+ v  M          coolantx = zero
          while local_int < 20,
            [
            coolantx = and(2^local_int, coolant_on)
            local_int = local_int + one
, W( ^0 ~9 C  y  y  \            if coolantx > zero,
. Q! z/ N8 J* T; P- r              [
              coolantx = local_int
              pbld, n$, scoolantx, e$
              ]
) c7 Q+ X8 i* [( a: |1 }            coolantx = zero
7 J9 Z% j; J* o5 x$ q            ]
          coolant_on = zero
1 ?/ a6 y0 \4 W) Y          ]
2 ]. O3 H; ~. z        ]
' R- c# l7 x8 L      #cc_pos is reset in the toolchange here
      cc_pos$ = zero
# A* I) o2 B+ L4 o8 n' r0 M      gcode$ = zero
      pbld, n$, sccomp, *sm05, psub_end_mny, e$
) [' f, d, \* p; \      pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$
      if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", e$
% U7 {% c7 Z9 W) n) o& P' m) M& Z5 D      absinc$ = sav_absinc
      coolant$ = sav_coolant
9 B( L2 ]$ i% S
peof0$           #End of file for tool zero               
      peof$
8 P- m  K4 h1 Q9 g7 \, l. k' \# ]
peof$            #End of file for non-zero tool           
, x2 z3 U! F) I# T2 j& m7 u/ v, W      pretract
      comment$
5 ^: }* A+ k& C" h      if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$
      n$, "M30", e$
9 `3 q0 a; v: x0 @      mergesub$
      clearsub$
+ G3 c7 O4 w# j' [0 T' ~  X+ s5 P# g      mergeaux$
      clearaux$
- C* f/ [. ?3 c( X      "%", e$
5 D$ J& y# K$ W) a" P4 T
pwcs            #G54+ coordinate setting at toolchange
      if mi1$ > one,
# N; ~+ {( p: |$ \; b. p" s. s        [
! o& ~7 F+ [) J# k% s        sav_frc_wcs = force_wcs
        if sub_level$ > 0, force_wcs = zero
        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
' r( u; A. O1 u* o4 N          [
1 a4 `, D7 k6 }5 v          if workofs$ < 6,
2 w0 \6 n, c9 R$ x! m4 ^            [
( r) L: R( P5 v* M  W6 J3 C' D            g_wcs = workofs$ + 54
            *g_wcs
5 U- @$ g8 H& a. I9 Q# P- d            ]
, A1 Z+ T' z% }          else,
            [
            p_wcs = workofs$ - five
            "G54.1", *p_wcs
5 h% u1 J0 Y! a5 s7 a            ]
          ]
% y, E# [2 o7 n& }, T2 O" Y        force_wcs = sav_frc_wcs
3 k, f* v8 P' a, F" |        !workofs$
        ]
7 S( f0 Q1 l* B. b4 ]+ \% T) x
% _! R8 F; S) Y; x% x0 {0 S2 G7 Qpgear           #Find spindle gear from lookup table
; U3 e2 c7 H  _- Q! J% \- B      if use_gear = one,
        [
" |+ H+ X! k8 R* i5 U1 }1 i3 Y        gear = frange (one, speed)
4 B& K  V8 H# O) Q# A  t& T        *gear
8 ]/ J7 c4 n% o9 z, ^* j- L- f        ]
# y! Q3 G4 w. X4 [
#Toolchange setup
! u+ Z8 p, w; r5 h2 c$ kpspindchng      #Spindle speed change
      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n$, *sm05, e$
2 ~1 t  {2 Y$ ~* J% k6 a      if prv_speed <> speed | prv_spdir2 <> spdir2,
        [
        if speed, pbld, n$, *speed, *spindle, pgear, e$
8 ]2 N  o; S, i        ]
+ j: ?% _0 h# Q3 G' D' ]6 U      !speed, !spdir2
/ @* ?; \7 i* u2 B8 i# n
4 d$ K0 _* i. Apspindle        #Spindle speed calculations for RPM
      speed = abs(ss$)
      if speed,
        [
2 X7 h' [0 A! n3 A        if speed > maxss$, speed = maxss$
        if speed < min_speed, speed = min_speed
        ]
7 ?0 n$ M- \! ]      spdir2 = fsg3(spdir$)

/ z( k6 N6 Z! j  ]3 {/ I/ Ypq$              #Setup post based on switch settings
1 I3 i) c( ~8 V  h& M      stagetool = bldnxtool$  #Set stagetool from CD setting
+ V$ e) m+ T4 |9 G# y
9 ^: b: T- W" ]1 V1 Iptoolend$        #End of tool path, before reading new tool data               
      !speed, !spdir2