坐标设置

duolzw

请问一下哪位大侠知道X4，怎样设置后处理变为G92，而且不带刀具长度补偿。用在数控铣的如：
2 I: K1 b0 w5 u/ w" QO1234
' L4 ~4 j, J5 {* v: k2 LG0  G90 G92 X100 Y50 S2000 M3
* t8 F# }1 x0 N8 n3 ~/ {Z10 M8
G98 G81 X30 Y20 Z-10 R2 F180
G80
* O/ v0 t4 g1 \2 p/ \) i9 h7 t& TG0 Z10
/ w4 h0 u& k% P5 ~3 EX100 Y50  M9
M5
M30  
5 Q5 B  u; @' L! X6 l
我改过杂项设置，把里面的G54的2改为G92的-1，但是处理出来的程序是没有G92的。如
O1234
* Y* c4 \3 t- D6 l4 x2 \M6T1
G0  G90 X100 Y50 S2000 M3
G43 H1 Z10 M8
3 t3 x9 T& Q. \G98 G81  X30 Y20 Z-10 R2 F180
! A1 I: M/ d1 M6 O$ ]( hG80
G91 G28 Z0 M9
M05
+ {9 g% e2 t; bM30.我要把它改为像上面那样的后处理怎么改。哪位高人帮帮忙，真的很感谢！

若枫

回复 1# duolzw

7 g1 {* @( Q! I
  n0 u: M; Z& K" B* \- J- y# _) `    G92只能强制输出了。

wangerwen521

把G54改为G92

duolzw

拜托，两位说了就说清楚吗。
5 g9 E/ r( b  c你们这样或很没意思的。知道就拜托了。。。谢谢

vinney777

可以强制输出

若枫

回复 1# duolzw
. q2 C. Q  f$ P4 C. O

    既然说了你都不懂，为何不提供你的后处理。

duolzw

呵呵，刚下班，以下是我的后处理，其实也就是X4本身自带的 Generic Fanuc 3X Mill.pst。我只是修改一下就可以满足我的要求了，谢谢。如果还有什么要我提供讲讲。
- ?; a6 D6 z8 k8 ]不过我改了换刀：T1 M6.但它只有第一把刀换成：M6 T1.其他都不会变，也帮帮忙改一下。我要全部变成：M6 T1这格式。
3 K1 Q0 ?4 E2 I5 _, ^


7 {) c. _  L) _5 ~+ o/ t
1 X6 S5 p$ I4 d1 V2 q) ][POST_VERSION] #DO NOT MOVE OR ALTER THIS LINE# V13.00 E1 P0 T1232650364 M13.00 I0
# Post Name           : Generic Fanuc 3X Mill.pst
# j: T0 d0 s, r" P9 F# L' }# Product             : Mill
# Machine Name        : Generic
# Control Name        : Fanuc
- v/ G$ C% i- r% g3 f# Description         : Generic 3 Axis Mill Post
# j& l1 |4 y2 |/ N2 _# 4-axis/Axis subs.   : No
# 5-axis              : No
" j0 R( Y* z9 L$ F! V/ w# Subprograms         : Yes
+ Z4 z; J7 M. n# Executable          : MP 13.0
% t( r0 k% k3 l! H#
# WARNING: THIS POST IS GENERIC AND IS INTENDED FOR MODIFICATION TO
# THE MACHINE TOOL REQUIREMENTS AND PERSONAL PREFERENCE.
% |6 A8 J, o5 Y( U' b. ?4 d#
# THIS POST REQUIRES A VALID 3 AXIS MACHINE DEFINITION.
# YOU WILL RECEIVE AN ERROR MESSAGE IF A ROTARY AXIS IS DETECTED IN
) V7 m2 N& P6 X3 _# THE ACTIVE AXIS COMBINATION.
#
5 ^# v* \# M, w6 _- ~2 ^  w9 }# Associated File List$
#
# GENERIC FANUC 3X MILL.control
! s) I" ^2 L. z6 Z8 X#
# Associated File List$
#
/ |- d3 n: X/ t$ N3 u6 s# --------------------------------------------------------------------------
# Revision log:
% i+ P6 c- M$ u& ^7 d/ Z# --------------------------------------------------------------------------
# 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
% Z+ r2 P" g* L# CNC 02/03/06  -  Added logic for high-speed toolpath tool inspection (see prapidout & plinout)
) d/ z% k; J; \4 x# 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 r# b9 w$ A( M7 ]! s# k5 n$ _8 l. P# CNC 04/08/08  -  X3 release - Removed check for write_ops
# CNC 01/26/09  -  Initial post update for Mastercam X4
# CNC 06/09/09  -  Updated MD parameters
#
" h7 a' M% ?1 \) b' a+ O# --------------------------------------------------------------------------
# Features:     
4 s  @" t. x! F0 N3 Z0 k5 q' d' B# --------------------------------------------------------------------------
# This post supports Generic Fanuc code for 3 axis milling.
9 Z$ z9 Z9 @" I( c6 _  ]) R# It is designed to support the features of Mastercam X Mill.
#
# NEW FEATURES FOR X:
# - 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.
# - 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
#     comments at tool change or tooltable in header with tool comments at tool change (see tool_info)
#     Tooltable output includes cutter compensation type and stock to leave information
# - Enhanced tool staging options - enable or disable in CD.  Set stagetltype in post for output type:
( |2 L1 t8 ~! F#     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)  
# - Additional rigid tapping cycle (separate from original tapping cycle) and initial custom drill
2 B7 O; v& l( Y2 i7 n& D0 @6 b#     cycle support (see pmisc2$ and pdrlcst$)
" V! W1 m) d7 H- f# - Support for 10 additional canned text options for X
* W: Z5 X6 o/ f) b3 G# - Decimal support for sequence number output (set "Increment sequence number" in CD to a decimal value
4 z5 l/ r. w' f/ m/ C' ~#     for output.  I.E. "Increment sequence number" = .5, "Start sequence number" = 10 : N10, N10.5, N11, N11.5, etc...)
! J  Q* Z' V( \; L4 O, _7 v# - Switch for output of M00 or M01 at tool change (3 position switch, off, M00, M01 - see prog_stop)
# - Support for seperate XY, XZ and YZ plane/arc variables (see Arc page in CD)
# - Support for X style coolant.  Allows up to 10 different coolants to be turned on/off before, with, or after like
#     canned text.  Coolant output is handled by "coolant" variable and string selector for V9 style coolant,
#     "coolantx" variable and string selector for X style coolant.
#
0 C+ b& p  @+ E8 c# --------------------------------------------------------------------------
7 L8 p  L$ T& f! r; ?: o# Misc. Values:
# --------------------------------------------------------------------------
* N3 V0 u; z3 |/ e# Integers:
' o  Q' z( s' g" D#
/ p$ M0 ?6 j( n# z% q  ]# mi1 - Work coordinate system
6 v8 f0 }: i* R3 }; {3 p: o#        0 = Reference return is generated and G92 with the
6 J' z/ R! T8 U9 b#            X, Y and Z home positions at file head.
#        1 = Reference return is generated and G92 with the
9 u7 k! I3 O: D% q0 q#            X, Y and Z home positions at each tool.
#        2 = WCS of G54, G55.... based on Mastercam settings.
3 w2 X7 L2 `0 f5 P! w  V; B#
8 X8 j+ \4 d9 t" J# mi2 - Absolute or Incremental positioning at top level
4 U$ G5 J! u  r& q& M& _2 e#        0 = absolute
#        1 = incremental
& g  k; R1 G% i2 G2 p, Y, P#
# mi3 - Select G28 or G30 reference point return.
& J3 ^3 d& x2 k" V: T" S#        0 = G28, 1 = G30
) f9 b: B( U7 p6 Z( R#
! }; J' _2 [5 a# f8 P0 d+ a# mi4 - mi10 (NOT USED)
#
# Reals:
) C7 u0 f4 n9 v+ R- g/ A7 ^) U#
# mr1 - mr10 (NOT USED)
#
# --------------------------------------------------------------------------
#Canned text:
#    Entering cantext on a contour point from within Mastercam allows the
; ~* r1 v* S- G1 [2 P' ?7 \* u#    following functions to enable/disable.
. s, w  u8 S$ S3 `% R* B: F#    Cantext value:
#    1 = Program Stop = output the "M00" stop code
7 Q4 b. E7 T& l#    2 = Optional Stop =  output the "M01" optional stop code
8 z! b. M- e$ H) \* t' J#    3 = Block Delete on = turn on block delete codes in NC lines
4 f( a' [& L4 o; r/ v9 T6 U; b#    4 = Block Delete off = turn off block delete codes in NC lines
$ z5 P: X2 ]3 }; x4 P% ?#
6 v4 t$ I/ o2 s9 B+ X7 X# --------------------------------------------------------------------------
#Additional Notes:
8 e2 J( Y* q0 |/ V+ p$ Y6 ?1 S# 1) G54 calls are generated where the work offset entry of 0 = G54,
#    1 = G55, etc.
# 2) Metric is applied from the NCI met_tool variable.
# 3) Incremental mode calculates motion from home position at toolchanges.
#    The home position is used to define the last position of the tool
#    for all toolchanges.  
6 }6 F9 L9 a% J! x, b6 A# 4) The variable 'absinc' is now pre-defined, set mi2 (Misc. Integer) for
, N; H) |9 O- P5 P' w#    the 'top level' absolute/incremental program output.  Subprograms are
#    updated through the Mastercam dialog settings for sub-programs.
& ]' \  J' a  m: [2 C# 5) Transform subprograms are intended for use with G54.. workshifts.
#
, \- @1 h. ^5 w0 ?0 ^' I8 J$ i# END_HEADER$
#
; v( ^, L+ C' l: x+ ~# --------------------------------------------------------------------------
. s4 M0 }/ I- W: K' k# Debugging and Factory Set Program Switches  
# --------------------------------------------------------------------------
#Define Constants
m_one        := -1
zero         := 0
. @7 [/ q  L; ?! p: j& H8 @. ^% |one          := 1
5 y' U" K; S8 c* Ntwo          := 2
* }* G+ H" S$ Z. m' V3 E. |three        := 3
four         := 4
$ d0 B8 \1 P1 g$ ]9 {five         := 5
/ @" n0 P. L6 Z2 t  M+ j7 w  b! Yc9k          := 9999

7 j$ C! X6 D4 Y$ p" L- b9 H* T( Nbug4$        : 1     #Debug output with the tilde '~'.
                     #A value greater the zero applies the variable formatting with
* B- u6 L' r. H$ L) M& r                     #debug output (default is typically FS 1 but not a guarantee).
2 r7 o, j) e' G- }: f                     #A value of zero gets the value directly with NO formatting.
( D( X* J1 w" V8 ?0 ^. v, {. F( z
1 B) M9 G0 D# _8 @$ L5 l  Glinktolvar$  : 0     #Associate X tolerance variables to V9- variable?
2 {- w+ p0 Q7 O6 S7 x# t$ Plinkplnvar$  : 0     #Associate X plane specific variables to V9- variable?
4 }5 I' h/ e9 i. I5 E( A( h
) G1 W( i6 ^7 t9 \( N' J; Y7 |  |skp_lead_flgs$ : 0   #Do NOT use v9 style contour flags
get_1004$    : 1     #Find gcode 1004 with getnextop?
% ]# K8 W- H, R" d% X2 F. K2 brpd_typ_v7$  : 0     #Use Version 7 style contour flags/processing?
- x7 h* D' V% y. n& ~. s/ kstrtool_v7$  : 2     #Use Version 7+ toolname?
. W/ \, M4 Q$ Z# R& Z# J% ctlchng_aft$  : 2     #Delay call to toolchange until move line
* W* }* L  m: L! d- U" C  \1 \cant_tlchng$ : 1     #Ignore cantext entry on move with tlchng_aft
newglobal$   : 1     #Error checking for global variables
: q6 L, u5 o  I; Bgetnextop$   : 1     #Build the next variable table
tooltable$   : 3     #Pre-read, call the pwrtt postblock
5 N. p2 J3 g: q8 s) i- q. g
# --------------------------------------------------------------------------
7 e6 k% v  w% `9 ]+ T$ @8 q5 }8 E# General Output Settings
/ w3 {/ l4 \/ |/ h: _3 v0 m) P: q# --------------------------------------------------------------------------
sub_level$   : 1     #CD_VAR Enable automatic subprogram support
0 T: I  [6 [' c1 Z  ]* q* K. J8 Abreakarcs$   : 2     #CD_VAR Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
arctype$     : 2     #CD_VAR Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.,
6 B' _; N4 Q( G$ m                     #5 = R no sign, 6 = R signed neg. over 180
+ d" R; Y1 E9 V4 Udo_full_arc$ : 0     #CD_VAR Allow full circle output? 0=no, 1=yes
  d, |/ e7 b# `  f9 F3 l9 W6 L/ \helix_arc$   : 2     #CD_VAR Support helix arc output, 0=no, 1=all planes, 2=XY plane only
4 c  c" b- q+ B& T: ^$ Y' carccheck$    : 1     #CD_VAR Check for small arcs, convert to linear
% z& _; e  P  o" d/ tatol$        : 0.01  #CD_VAR Angularity tolerance for arccheck
ltol$        : 0.002 #CD_VAR Length tolerance for arccheck
vtol$        : 0.0001#System tolerance
! s( j) t7 T) ^+ J5 U6 R  n$ Jmaxfeedpm    : 500   #SET_BY_MD Limit for feed in inch/min
2 D) m; c  C# R, S0 a7 S$ ^  Y  Kltol_m       : 0.05  #Length tolerance for arccheck, metric
+ E# [+ h( D7 u6 v3 y8 qvtol_m       : 0.0025#System tolerance, metric
! B+ g2 e$ k) b9 w+ P8 i2 ~8 K$ nmaxfeedpm_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
" L+ W) w# l4 F) W- C7 Jomitseq$     : yes$  #CD_VAR Omit sequence numbers?
seqmax$      : 9999  #CD_VAR Max. sequence number
stagetool    : 0     #SET_BY_CD 0 = Do not pre-stage tools, 1 = Stage tools
7 B9 r9 y# W/ P$ k; Rstagetltype  : 1     #0 = Do not stage 1st tool
* H, s  Y9 T* \                     #1 = Stage 1st tool at last tool change
; e1 r6 i- p0 q4 J9 b4 ]                     #2 = Stage 1st tool at end of file (peof)
6 X1 v* Y; Z# Z! D; X! Uuse_gear     : 0     #Output gear selection code, 0=no, 1=yes  
( r' c: N' K" ?4 @  u% ?min_speed    : 50    #SET_BY_MD Minimum spindle speed
nobrk$       : no$   #CD_VAR Omit breakup of x, y & z rapid moves
( t8 m0 p7 ?1 Cprogname$    : 1     #Use uppercase for program name (sprogname)
( Y9 e% ^% \8 `prog_stop    : 1     #Program stop at toolchange: 0=None, 1=M01, 2 = M00
# w" t; F5 g) u9 I$ e3 g* i* P9 Itool_info    : 1     #Output tooltable information?
, m% K4 k% n$ q8 J7 Q                     #0 = Off - Do not output any tool comments or toolpable
9 |$ W+ |9 u( |1 e7 S- L& @                     #1 = Tool comments only
7 r$ N9 V7 k  R, L, ?- J9 D                     #2 = Tooltable in header - no tool comments at T/C
                     #3 = Tooltable in header - with tool comments at T/C
5 o/ i2 `, B, F# e* Ztlchg_home   : no$   #Zero return X and Y axis prior to tool change?

( b2 j! Z. ]" [* N接后面。。。

duolzw

接上面。。。

4 P. W6 S; C4 D* i# --------------------------------------------------------------------------
. e& I  Y+ f3 }1 @9 W' S5 r& s8 T# Enable Canned Drill Cycle Switches
# --------------------------------------------------------------------------
usecandrill$ : yes$  #CD_VAR Use canned cycle for drill
usecanpeck$  : yes$  #CD_VAR Use canned cycle for Peck
usecanchip$  : yes$  #CD_VAR Use canned cycle for Chip Break
usecantap$   : yes$  #CD_VAR Use canned cycle for Tap
usecanbore1$ : yes$  #CD_VAR Use canned cycle for Bore1
usecanbore2$ : yes$  #CD_VAR Use canned cycle for Bore2
usecanmisc1$ : yes$  #CD_VAR Use canned cycle for Misc1
- l9 E0 U8 P0 m: L- Cusecanmisc2$ : yes$  #CD_VAR Use canned cycle for Misc2
- c6 S0 k$ }7 k/ r% S8 e
# --------------------------------------------------------------------------
+ C6 p& f/ b( @$ C# Common User-defined Variable Initializations (not switches!)
/ ~$ E# G8 f* h6 \# --------------------------------------------------------------------------
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
/ C- w0 _* _; ?: D2 \* }8 c
2 X- k( n$ N, E5 Z  X5 V( I9 q" w0 kbld          : 0     #Block delete active
; A. L. x' B5 M( a+ }result       : 0     #Return value for functions
sav_spc      : 0     #Save spaces
sav_gcode    : 0     #Gcode saved
" ~( g# J5 s. M, ~sav_absinc   : 0     #Absolute/Incremental Saved Value
sav_coolant  : 0     #Coolant saved
9 V9 n' I1 q6 T) ?  G& Vsav_frc_wcs  : 0     #Force work offset flag saved
( [" e* ~2 w2 k0 M" }' m' x! jtoolchng     : 1     #On a toolchange flag
spdir2       : 1     #Copy for safe spindle direction calculation

0 ]! w' N3 {& s$ F: U6 }#Drill variables
drlgsel      : -1    #Drill Select Initialize
drillref     : 0     #Select drill reference
3 |0 A+ z2 {. Q& qpeckacel$    : 0     #CD_VAR Fractional percent to reduce peck2 when usecan.. : no
+ o6 l. t  p) \7 Zdrlgcode     : 0     #Save Gcode in drill   
sav_dgcode   : 0     #Drill gcode saved
! M8 i- f# W" f& u4 Y8 R) u1 y
#Subprogram variables
7 O7 N. m/ r$ }8 Lmr_rt_actv   : 0     #Flag to indicate if G51/G68 is active                     
                     #0=Off, 1=Toolchange, 2=Subprogram call/start, G68
                     #3=Absolute start, both
- @/ h* \( T/ ^rt_csav      : 0     #C saved value
end_sub_mny  : 0     #Many tool setting captured at transform sub end
( X7 d, G0 ]6 G/ v$ u9 W% o5 b) lcomp_type    : 0     #Cutter compensation type - 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
2 U, q' d, g5 r0 Y#Coolant variables for X style coolant
* R/ Y% k4 p  Z& @0 s, Acant_pos     : 0     #Read from current canned text (cant_pos1 - cant_pos20)
2 [6 _8 p2 t; w% ^coolant_bin  : 0     #Binary value for current coolant command
+ |1 l6 G$ c5 s' O& g/ K+ P1 R  S' mcoolant_on   : 0     #Binary value holding the sum of all coolants currently on
, w1 e) ]. B9 U8 e. \. h9 [8 F  lcoolantx     : 0     #Selector variable for coolant string selector
+ x4 A2 ^4 @& Ilocal_int    : 0     #Local variable for output of coolant off commands
result2      : 0     #Return value for functions
# e& [/ t0 Q: c- qsuppress     : 0     #Flag used to suppress redundant coolant on commands
all_cool_off : 0     #First coolant off command shuts off ALL coolant options
9 n7 k, c' x9 j: p  y. `( @$ `
1 G0 ~) y1 [# s% U$ p#Variables to capture parameter values - use to set post switches in pset_mach
7 s' T  \4 {7 }6 o( {6 W' Zrotaxerror   : 0     #Error flag - Output error message if rotary axis is detected in active axis combination
rot_ax_cnt   : 0     #Rotary axis counter
8 s6 [  P5 |" `0 Icomponent_type : 0   #Component type: (See documentation for complete list - )
5 E9 d# F8 p/ Z8 e) J                       #0 = MACHINE
                       #1 = STOCK_COMPONENT
2 p9 I6 x5 y) c# ~5 c                       #2 = MISC_COMPONENT
: T" G/ H( \  \: ]6 A+ W                       #3 = MACHINE_BASE_COMPONENT
* c% j! s9 e4 s4 x                       #4 = LINEAR_AXIS_COMPONENT
) T' b  O$ [( V0 J  D; L6 G5 v                       #5 = ROTARY_AXIS_COMPONENT
                       #6 = RECT_TABLE_COMPONENT
                       #12 = CHUCK_COMPONENT
                       #24 = TOOL_SPINDLE_COMPONENT
" d* f& A! I& p( Q0 M                       #23 = ATC_COMPONENT
! U% R; O- Z: k- dra_error     : 0     #Flag for aggregate operation

5 Y3 y2 S- ^+ v: n# --------------------------------------------------------------------------
( V9 {6 w4 i+ B8 W! \4 _#String and string selector definitions for NC output
# --------------------------------------------------------------------------
#Address string definitions
strm         : "M"
strn         : "N"
) V( C$ ?# d1 U3 Dstro         : "O"
1 c) }4 G+ K6 {2 R4 Xstrp         : "P"
srad         : "R"
, ~5 A/ X: `/ x/ l' ysrminus      : "R-"
6 c# @2 g% t- q3 a9 Z) A% }sblank       : ""

% K, j" ~' `  _#Cantext string definitions (spaces must be padded here)
( X, A, ~+ g) T+ c0 osm00         : "M00"
sm01         : "M01"
strtextno    : ""
$ ~5 s7 ?# G# D4 e5 istrcantext   : ""
+ ?' {3 N6 b+ }, {# ^: h
#Transform mirror and rotate codes
strns_mir_on  : "G51.1" #Programmable mirror image code
strns_mir_off : "G50.1" #Programmable mirror image cancel code
" I, X: f* L( \  X$ T  y' {, gstrns_rot_on  : "G68"   #Coordinate System Rotation
strns_rot_off : "G69"   #Coordinate System Rotation Cancel
  H7 B) D. }( [( f" v
4 Z  _- _3 y3 N/ m- f4 B/ U9 [, F7 C- K#Misc. string definitions
4 O, K. ?, A" p8 r# vsopen_prn    : "("   #String for open parenthesis "("
/ G# o+ ]/ O: k2 Y3 fsclose_prn   : ")"   #String for close parenthesis ")"
5 x" r  L: v4 C- X- Y9 ?& K# [" O' Zsdelimiter   : "|"   #String for delimiter
6 U6 G4 H6 S. D  O; isg94         : "G94" #Units per minute
sg95         : "G95" #Feed per rotation
sm29         : "M29" #Rigid tapping preperation support function
7 ?* a  M7 k. R+ R, i' m) F" jsg80         : "G80" #Cancel canned drilling cycle
sg43         : "G43" #Tool length compensation
sg49         : "G49" #Tool length compensation cancel
sg92         : "G92" #Set work piece coordinate system
: x: y% M; @& ]! L% Qsm06         : "M6"  #Toolchange

# --------------------------------------------------------------------------
. X8 h. h9 V0 j9 E7 E( s# Error messages
2 n& h; y- _0 K: X2 c7 Y# --------------------------------------------------------------------------
; ?  l% z- b# X% pshomeserror  : "ERROR - WORK OFFSET USAGE DOES NOT SUPPORT TRANSFORM SUBPROGRAM"
" p( O# [8 B$ ?% _sprgnerror   : "ERROR - SUBPROGRAM NUMBER MATCHES THE MAIN PROGRAM NUMBER"
sra_error    : "ERROR - AGGREGATES NOT SUPPORTED IN THIS POST"
0 L" `8 g: y. }& O, m6 jsrotaxerror  : "ERROR - ROTARY AXIS DETECTED IN SELECTED AXIS COMBINATION- POST DOES NOT SUPPORT ROTARY AXIS OUTPUT"

# --------------------------------------------------------------------------
# General G and M Code String select tables
7 P' c* Z; ]0 P' Z  k* ~( O/ T# --------------------------------------------------------------------------
5 e1 r. h. u5 y# Motion G code selection
! D2 h' v) ]2 }* H0 {/ ^: zsg00    : "G0"       #Rapid
sg01    : "G1"       #Linear feed
. a7 ?( b% @- B) d: @! bsg02    : "G2"       #Circular interpolation CW
sg03    : "G3"       #Circular interpolation CCW
sg04    : "G4"       #Dwell
sgcode  : ""         #Target string
8 r( T4 X" W5 L$ e* R! P
4 L4 I3 G! k0 G" m0 l2 d/ vfstrsel sg00 gcode$ sgcode 5 -1
- _- S% T6 P: }, V# --------------------------------------------------------------------------
, O0 ~$ N. ~& p8 y# Select work plane G code
sg17    : "G17"      #XY plane code
sg19    : "G19"      #YZ plane code
% A9 b' J: d+ R! l, H. F. Nsg18    : "G18"      #XZ plane code
6 V# R8 |, Z7 a( k. z# q! Esgplane : ""         #Target string
1 s, F3 G8 Y9 O7 A- G. H
! K4 V+ Q2 e' G# U8 e1 _# U* qfstrsel sg17 plane$ sgplane 3 -1
# --------------------------------------------------------------------------
* [0 ]5 I3 F* ~0 T; S! ^#Select english/metric code
sg20    : "G20"      #Inch code
sg21    : "G21"      #Metric code
  r1 ^+ j3 w+ V8 Usmetric : ""         #Target string  
4 w! R' L' w) g7 _
fstrsel sg20 met_tool$ smetric 2 -1
: I3 r0 I; G2 m$ U/ b& ~9 Z. z# --------------------------------------------------------------------------
( y5 F! V' s$ W# O; a$ K- [4 w#Select reference return code
sg28    : "G28"      #First reference point return
sg30    : "G30"      #Second reference point return
sg28ref : ""         #Target string
6 O) |) \2 H( R
9 M9 u3 i; K3 \* xfstrsel sg28 mi3$ sg28ref 2 -1
. y5 L4 S1 Q3 O* Y# --------------------------------------------------------------------------
* q/ A9 R3 @# Z9 P1 F7 l3 X# Cutter compensation G code selection
1 Z7 a3 ?( ^, Lscc0    : "G40"      #Cancel cutter compensation
: I% @$ f' K$ F& ^; iscc1    : "G41"      #Cutter compensation left
4 j% r, P6 h) z& Lscc2    : "G42"      #Cutter compensation right
sccomp  : ""         #Target string

fstrsel scc0 cc_pos$ sccomp 3 -1
# --------------------------------------------------------------------------
# Canned drill cycle string select
4 d: {- j# E5 A7 Psg81    : "G81"      #drill - no dwell
sg81d   : "G82"      #drill - with dwell
sg83    : "G83"      #peck drill - no dwell
  x  j0 P  o* d8 ^0 Q* `1 Usg83d   : "G83"      #peck drill - with dwell
sg73    : "G73"      #chip break - no dwell
sg73d   : "G73"      #chip break - with dwell
sg84    : "G84"      #tap - right hand
3 T2 v! B' j9 n' n6 r$ [' Hsg84d   : "G74"      #tap - left hand
sg85    : "G85"      #bore #1 - no dwell
sg85d   : "G89"      #bore #1 - with dwell
2 S0 U) |1 R6 ]2 p. {' C# lsg86    : "G86"      #bore #2 - no dwell
: G2 K  E1 H& A- \. |sg86d   : "G86"      #bore #2 - with dwell
sgm1    : "G76"      #fine bore - no dwell
sgm1d   : "G76"      #fine bore - with dwell
sgm2    : "G84"      #rigid tap  - right hand
sgm2d   : "G74"      #rigid tap  - left hand
sgdrill : ""         #Target string
/ S% B* m, `# S5 ?
fstrsel sg81 drlgsel sgdrill 16 -1
6 n) p0 V' l+ U1 \" d9 _# _- x5 H# --------------------------------------------------------------------------
# Select incremental or absolute G code
sg90    : "G90"      #Absolute code
6 O: G9 v7 v5 T' H3 R0 \sg91    : "G91"      #Incremental code
sgabsinc : ""        #Target string  

5 X: {7 t" e2 K9 p! I2 F* rfstrsel sg90 absinc$ sgabsinc 2 -1
# --------------------------------------------------------------------------
#Canned drill cycle reference height
sg98    : "G98"      #Reference at initht
sg99    : "G99"      #Reference at refht     
sgdrlref : ""        #Target string

3 k7 p; M8 j8 V# a: i1 s/ Z; |fstrsel sg98 drillref sgdrlref 2 -1
# --------------------------------------------------------------------------
# Generate string for spindle
sm04    : "M4"       #Spindle reverse
. j( {' Y) v! I( \" hsm05    : "M5"       #Spindle off
1 d+ i5 f7 P1 d) N6 tsm03    : "M3"       #Spindle forward
) G- t  p8 H% Yspindle : ""         #Target string

fstrsel sm04 spdir2 spindle 3 -1
# --------------------------------------------------------------------------
* i) Z% S' @/ C# Coolant M code selection for V9 style coolant
0 N3 ~2 M9 o" p4 r/ p- a% X# Note: To enable V9 style coolant, click on the General Machine Parameters icon
) ?7 P; C2 C/ D( |#   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
sm08    : "M8"       #Coolant Flood
% D: W( v4 g! T' X  U& @& s, j! jsm08_1  : "M8"       #Coolant Mist
5 U* j8 F% b, u% I, ]3 c# y- `sm08_2  : "M8"       #Coolant Tool
: i. m3 X; r, xscoolant : ""        #Target string

接后面。。

duolzw

fstrsel sm09 coolant$ scoolant 4 -1
/ P( n1 T- i" C3 N- T, H2 t3 b# @# --------------------------------------------------------------------------
# Coolant output code selection for X style coolant
# Note: To enable X style coolant, click on the General Machine Parameters icon
# R2 [' O* Z  j3 k# ~" U#   in the Machine Definition Manager, Coolant tab, disable first check box
#   Output of X style coolant commands in this post is controlled by pcan, pcan1, & pcan2
scool50 : "M8"                 #Coolant 1 on value
scool51 : "M9"                 #Coolant 1 off value
scool52 : "M7"                 #Coolant 2 on value
# f# `2 e% {) C6 lscool53 : "M9"                 #Coolant 2 off value
scool54 : "M88"                #Coolant 3 on value
' X4 g, \. a$ ?, gscool55 : "M89"                #Coolant 3 off value
scool56 : "M8(Coolant4=ON)"    #Coolant 4 on value
scool57 : "M9(Coolant4=OFF)"   #Coolant 4 off value
scool58 : "M8(Coolant5=ON)"    #Coolant 5 on value
/ V! X' r% f6 @& i# Xscool59 : "M9(Coolant5=OFF)"   #Coolant 5 off value
scool60 : "M8(Coolant6=ON)"    #Coolant 6 on value
scool61 : "M9(Coolant6=OFF)"   #Coolant 6 off value
; ]  y8 E7 m, i9 v8 Iscool62 : "M8(Coolant7=ON)"    #Coolant 7 on value
scool63 : "M9(Coolant7=OFF)"   #Coolant 7 off value
/ n  E9 u) X# r% S" dscool64 : "M8(Coolant8=ON)"    #Coolant 8 on value
scool65 : "M9(Coolant8=OFF)"   #Coolant 8 off value
' k% m. v- N) e' ^4 rscool66 : "M8(Coolant9=ON)"    #Coolant 9 on value
; G1 W$ U" h; c0 L" R7 x, Z! Fscool67 : "M9(Coolant9=OFF)"   #Coolant 9 off value
scool68 : "M8(Coolant10=ON)"   #Coolant 10 on value
scool69 : "M9(Coolant10=OFF)"  #Coolant 10 off value
scoolantx : ""                 #Target string

; k# J- T0 T- }6 T- n. H: B- yfstrsel scool50 coolantx scoolantx 20 -1
/ z% B* t4 K" ~* b5 u; T! }, D# --------------------------------------------------------------------------
8 v* Y# b) }" z# V! i) @# z2 I; T0 q#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

# --------------------------------------------------------------------------
- O6 p, W. o+ p# u' }5 `& L# Define the gear selection code
& e7 h  e! M3 u( q  P" I; K: Kflktbl  1       3       #Lookup table definition - table no. - no. entries
        40      0       #Low gear range
        41      400     #Med gear range
        42      2250    #Hi gear range

# --------------------------------------------------------------------------
# Define coolant binary value for X style coolant
# R% ~7 \$ o! p% w5 xflktbl  2       20      #Lookup table definition - table no. - no. entries
  S3 M& ?' f8 A- @+ }) [! X        1       50      #Coolant 1 on value
        2       51      #Coolant 1 off value
        4       52      #Coolant 2 on value
. G' v" v: z0 ]2 K' e; c* S        8       53      #Coolant 2 off value
+ A% l1 y  l; c. {5 w$ a        16      54      #Coolant 3 on value
+ n. O0 G3 O$ L5 d! U2 A% d) p        32      55      #Coolant 3 off value
        64      56      #Coolant 4 on value
0 W2 W7 u$ Q& A. s. B( k        128     57      #Coolant 4 off value
+ y0 s# U' m1 k5 R/ Z6 y        256     58      #Coolant 5 on value
) B0 `+ l+ |: B' }6 @. r        512     59      #Coolant 5 off value
        1024    60      #Coolant 6 on value
* W* f6 ?! I; d! w) z        2048    61      #Coolant 6 off value
# x9 T- ]* D; M8 V1 j9 z  B        4096    62      #Coolant 7 on value
7 h. E! l  d% ^$ `# P& S        8192    63      #Coolant 7 off value
        16384   64      #Coolant 8 on value
( I6 L+ q3 e. T8 s: W* z        32768   65      #Coolant 8 off value
        65536   66      #Coolant 9 on value
        131072  67      #Coolant 9 off value
        262144  68      #Coolant 10 on value
* Z5 d7 r: U, ~        524288  69      #Coolant 10 off value

) b8 D9 D1 C! V4 M5 r# --------------------------------------------------------------------------
# Month selector
2 U" o3 @( R7 X  @7 m0 f; ?7 _smon0   : ""
smon1   : "JAN."
smon2   : "FEB."
smon3   : "MAR."
smon4   : "APR."
$ K5 l8 d; \; n4 T" e' E* F' p) ~smon5   : "MAY."
smon6   : "JUN."
/ ^2 }0 B3 f! ?1 H" Rsmon7   : "JUL."
0 `9 t$ n- ^; g& \+ ~smon8   : "AUG."
: k4 W; G. ~7 M' \2 m+ V: B+ Bsmon9   : "SEP."
smon10  : "OCT."
3 _4 C) r" J( O! fsmon11  : "NOV."
3 B6 @) s; `. S: ~- y. t9 L: asmon12  : "DEC."
4 H6 a+ S- W8 g8 osmonth  : ""         #Target string

& N+ j  ^* z& `- V* p6 u9 zfstrsel smon0 month$ smonth 13 -1
$ e/ }8 d1 f; T# [5 r$ q$ U8 w! u# --------------------------------------------------------------------------
( e$ V' J7 ?7 J, W# Cutter Compensation Type
& }8 E8 A: U7 t! m& z/ vscomp   : "COMPUTER"
scomp1  : "CONTROL COMP"
scomp2  : "WEAR COMP"
7 J1 z  p2 {% p4 yscomp3  : "REVERSE WEAR COMP"
! U3 m# ?/ ]5 M3 h& lscomp4  : "OFF"
1 d6 a7 [0 P! H/ W7 F, {( {, oscomp_type : ""      #Target string
  Z" q& s- F" _7 ^% u# y! B
- R2 F9 R/ f: S0 z( m# h% y7 ufstrsel scomp comp_type scomp_type 5 -1
# --------------------------------------------------------------------------
7 }. q5 N! m+ t  o$ Z# Format statements - n=nonmodal, l=leading, t=trailing, i=inc, d=delta
* \: {- y& b% A4 i- r# --------------------------------------------------------------------------
% u" i6 U: U; G2 }' ?& Z7 D, j2 |#Default english/metric position format statements
. s# j" q, ^+ l6 b* N- D/ [0 s! Wfs2 1   0.7 0.6      #Decimal, absolute, 7 place, default for initialize (
fs2 2   0.4 0.3      #Decimal, absolute, 4/3 place
fs2 3   0.4 0.3d     #Decimal, delta, 4/3 place
. Y" X* g: y$ B; K" c#Common format statements
1 y. N) [" z0 mfs2 4   1 0 1 0      #Integer, not leading
( c5 y' R$ R" e" G6 n1 y0 rfs2 5   2 0 2 0l     #Integer, force two leading
fs2 6   3 0 3 0l     #Integer, force three leading
2 l6 Q4 z& m/ G- Pfs2 7   4 0 4 0l     #Integer, force four leading
" \; |8 K# I& ^' Z! ]7 t; V5 \fs2 9   0.1 0.1      #Decimal, absolute, 1 place
fs2 10  0.2 0.2      #Decimal, absolute, 2 place
! H) s+ c, X% f, dfs2 11  0.3 0.3      #Decimal, absolute, 3 place
) U4 G, m, S. w# N' q( @% A( m9 G6 ffs2 12  0.4 0.4      #Decimal, absolute, 4 place
fs2 13  0.5 0.5      #Decimal, absolute, 5 place
8 k- `5 \7 m0 q+ xfs2 14  0.3 0.3d     #Decimal, delta, 3 place
' Y& t3 U" j) N8 _) P* Tfs2 15  0.2 0.1      #Decimal, absolute, 2/1 place (feedrate)
fs2 16  1 0 1 0n     #Integer, forced output
* s0 U7 N0 m, @2 V& Qfs2 17  0.2 0.3      #Decimal, absolute, 2/3 place (tapping feedrate)
) \4 n4 m8 w8 o) K1 S7 [
# These formats used for 'Date' & 'Time'
6 N  K" ]1 l9 |. N3 Qfs2 18  2.2 2.2lt    #Decimal, force two leading & two trailing (time2)
fs2 19  2 0 2 0t     #Integer, force trailing                   (hour)
/ c: H' k) M" _7 cfs2 20  0 2 0 2lt    #Integer, force leading & trailing         (min)
* L$ b2 a2 T. R; W
& f. a. G/ ~" O# This format statement is used for sequence number output
/ s9 J9 n% V8 V/ s: t: v% L2 D# Number of places output is determined by value for "Increment Sequence Number" in CD
0 \  e8 o  q! P2 f  n' n# 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
' f; F5 O( q9 i$ z3 _! \* v$ d5 j
1 A2 l9 O6 |* Q5 s- {/ t# --------------------------------------------------------------------------
0 D+ [8 q4 G& p! C1 ~8 I# Toolchange / NC output Variable Formats
! R8 ]% O6 l6 z4 X: u( Q" {# --------------------------------------------------------------------------
2 D  p- ^5 E" ]fmt  T  4   t$          #Tool number
fmt  T  4   first_tool$ #First tool used
8 A: j' [9 e' Lfmt  T  4   next_tool$  #Next tool used  
  t* x0 [5 j% z5 a: f9 n! Ifmt  D  4   tloffno$    #Diameter offset number
fmt  H  4   tlngno$     #Length offset number
fmt  G  4   g_wcs       #WCS G address
fmt  P  4   p_wcs       #WCS P address
fmt  S  4   speed       #Spindle Speed
fmt  M  4   gear        #Gear range
# --------------------------------------------------------------------------
fmt  N  21  n$          #Sequence number
fmt  X  2   xabs        #X position output
( h5 B! s7 b& p1 _  T6 O  O: H# Nfmt  Y  2   yabs        #Y position output
fmt  Z  2   zabs        #Z position output
+ W6 W% _+ T+ o. Z' |fmt  X  3   xinc        #X position output
3 T- A) W; @+ A5 t0 Ifmt  Y  3   yinc        #Y position output
1 b0 R! n  P$ w6 }7 cfmt  Z  3   zinc        #Z position output
. ~; B( y* p4 u# G" tfmt  I  3   iout        #Arc center description in X
fmt  J  3   jout        #Arc center description in Y
fmt  K  3   kout        #Arc center description in Z
/ y1 k: k( i' {( }fmt  R  2   arcrad$     #Arc Radius
fmt  F  15  feed        #Feedrate
fmt  P  11  dwell$      #Dwell
fmt  M  5   cantext$    #Canned text
9 Y% P$ F9 k: b7 f% \' y2 afmt  F  2   pitch       #Tap pitch (units per thread)
9 n1 x/ M8 y8 ^4 ^4 Y( |# --------------------------------------------------------------------------
; f3 k8 h$ n) Z$ F#Move comment (pound) to output colon with program numbers
# d" Y6 j5 w/ c) D& |1 Ffmt  O  7   progno$     #Program number
/ {4 O1 m( a+ P9 A#fmt ":" 7   progno$     #Program number
- g- _& C8 D4 z8 m0 q$ L- v3 _& Nfmt  O  7   main_prg_no$ #Program number
#fmt ":" 7   main_prg_no$ #Program number
fmt  O  7   sub_prg_no$ #Program number
: n  V; ]! J: O# }#fmt ":" 7   sub_prg_no$ #Program number
fmt  X  2   sub_trnsx$  #Rotation point
9 s( h; ~, B' I( jfmt  Y  2   sub_trnsy$  #Rotation point
" P6 q5 m1 A, B- T& ?  Z" i4 Lfmt  Z  2   sub_trnsz$  #Rotation point
# --------------------------------------------------------------------------
5 h6 }* v! v$ K) Gfmt  Q  2   peck1$      #First peck increment (positive)
fmt  Q  2   shftdrl$    #Fine bore tool shift
fmt  R  2   refht_a     #Reference height
fmt  R  2   refht_i     #Reference height
0 K. C; B4 r( y. w& f$ m. C! L# --------------------------------------------------------------------------
fmt "TOOL - "      4   tnote    #Note format
' c- N% d7 \' w, P' Mfmt "DIA. OFF. - " 4   toffnote #Note format
$ U: q3 s7 _0 [fmt "LEN. - "      4   tlngnote #Note format
8 u+ W, i+ G8 y6 m3 [" ^" Rfmt "TOOL DIA. - " 1   tldia$   #Note format
/ p/ G% g7 z; b3 m3 z- h3 Z3 yfmt "XY STOCK TO LEAVE - " 2  xy_stock #Note format
fmt "Z STOCK TO LEAVE - "  2  z_stock  #Note format
# --------------------------------------------------------------------------
7 T  n9 u: g$ g  z& ifmt     4   year2       #Calculated year value
fmt     18  time2       #Capture 24-hour time value into 'time2' variable
7 Q2 ^- u& b6 H. ~9 x# O2 B; W* Bfmt     19  hour        #Hour
fmt     20  min         #Minutes
& R  e: `* m& s6 l8 L4 |year2 = year$ + 2000

duolzw

# --------------------------------------------------------------------------
# Tool Comment / Manual Entry Section
, j* F5 k3 C4 L" L4 I# --------------------------------------------------------------------------
ptoolcomment    #Comment for tool
      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
      if tool_info = 1 | tool_info = 3,
        sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$
/ ?$ Z4 w$ Q  x0 [6 `; l4 ?
ptooltable      #Tooltable output
      sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
0 ^: l/ l8 t; A9 R        [if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
( `9 {- G- b4 T! G        [if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
        sclose_prn, e$

1 b7 R8 \: f$ H6 k, J2 hpstrtool        #Comment for tool
1 M9 L% c+ N3 ?' K0 e      if strtool$ <> sblank,
: z% f9 q- U7 O+ W8 f+ C7 F$ ]        [
: _7 N, d) G# ?8 |5 }7 K/ h& q- [: r        strtool$ = ucase(strtool$)
        *strtool$
/ H+ u+ W% `! [2 b1 N        ]
) d* s  j: d7 U2 N, |
" I1 M! h" E1 _6 Z+ v3 Gpcomment$       #Comment from manual entry (must call pcomment2)
      pcomment2 #Required if doing boolean 'if' logic testing!

6 v$ e2 e% a3 C0 B0 [5 `( _. ^pcomment2       #Output Comment from manual entry
- B# x9 Y- T4 A$ j0 K1 r+ [      scomm$ = ucase (scomm$)
* V4 a1 z$ d. U/ K4 l6 j1 {2 `      if gcode$ = 1005, sopen_prn, scomm$, sclose_prn, e$  #Manual entry - as comment
. a" P! {: u6 i) X- J      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$
) r  h1 H. A# }      if gcode$ = 1026, scomm$                #Manual entry - as code with move NO e$
      if gcode$ = 1008, sopen_prn, scomm$, sclose_prn, e$  #Operation comment
      if gcode$ = 1051, sopen_prn, scomm$, sclose_prn, e$  #Machine name
7 Y- i7 m; @2 U9 S4 s1 h      if gcode$ = 1052, sopen_prn, scomm$, sclose_prn, e$  #Group comment
1 N4 T4 B3 q: j" b      if gcode$ = 1053, sopen_prn, scomm$, sclose_prn, e$  #Group name
# s9 m+ u) k0 Q6 \( V" H      if gcode$ = 1054, sopen_prn, scomm$, sclose_prn, e$  #File Descriptor
+ P- H/ Z: h! L0 r3 C
/ g4 u# A( p& W- B1 ?5 M2 X# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
" R3 Q% q- C9 D0 ^/ cptime           #Convert 24-hour time format into 12-hour AM/PM format
      if time$ >= 13, time2 = (time$ - 12)
$ X2 `& _( e; Z5 A% _" X% [; b      else, time2 = time$
      hour = int(time2), min = frac(time2)
      *hour, ":", *min,
      if time$ > 12, " PM"
7 v: K$ i- \$ Q& z# O9 F. [      else, " AM"
. G: Z7 n; A7 N
* P' ?  _7 p  G0 p. Jpheader$         #Call before start of file                        
" ^3 Q6 w' z) }3 K; u1 B      "%", e$
      sav_spc = spaces$
      spaces$ = 0
* o$ P9 ~+ C, |+ [. |# h/ A6 p      *progno$, sopen_prn, sprogname$, sclose_prn, e$
      #sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$
      sopen_prn, "DATE=DD-MM-YY - ", date$, " TIME=HH:MM - ", time$, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:52
$ G0 d1 E6 q1 V6 H, O      #sopen_prn, "DATE - ", month$, "-", day$, "-", year$, sclose_prn, e$  #Date output as month,day,year - Ex. 02-12-05
3 f4 Z' L# Q, d8 h      #sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005
9 w6 M8 P" Z6 \& j      #sopen_prn, "TIME - ", time$, sclose_prn, e$  #24 hour time output - Ex. 15:52
4 z# Q* T5 s- d3 n# i2 H8 G  O      #sopen_prn, "TIME - ", ptime sclose_prn, e$  #12 hour time output 3:52 PM
, y- U9 K0 W3 C' _; T, s      spathnc$ = ucase(spathnc$)
      smcname$ = ucase(smcname$)
6 ^3 V" m) C/ X5 {      stck_matl$ = ucase(stck_matl$)
! J! g  U8 n6 f! s; Z: }/ F% G. `      snamenc$ = ucase(snamenc$)
      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$
      spaces$ = sav_spc
9 n; X7 X& \& y) A. [/ q$ \. C
psof0$           #Start of file for tool zero                        
7 M0 L4 U$ a8 I      psof$
+ `" W: I. K+ `
psof$            #Start of file for non-zero tool number            
      if ra_error = 1, [if mprint(sra_error, 2) = 2, exitpost$]
. |) J( u0 x& I. q% d  Q# z2 b      toolchng = one
      if ntools$ = one,
! P/ r7 e. p) U3 g! ]' j  Z* ]        [
2 m* S  H7 s5 v7 W        #skip single tool outputs, stagetool must be on
        stagetool = m_one
5 [: F5 T) O; v8 z+ W        !next_tool$
/ j% ^* U7 w1 P7 I; q- G) j0 N        ]
, Y: R4 w, r$ [9 K0 v- T* s      pbld, n$, *smetric, e$
      pbld, n$, *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
0 k3 Q8 R. R+ q8 g' S$ R        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
. M" \. b  Z6 S) [  D& ]        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
/ h$ |. S. B1 y0 |# ~9 |        ]
: P  N$ x- N: }+ E3 _# q      pcom_moveb
1 S- M5 D# ?1 ~/ Y  R/ r      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
0 \" W5 |- ]) A      comment$
      pcan
      pbld, n$,sm06, *t$,  e$
. {! O1 d9 z& q# A5 H      if mi1$ > one, absinc$ = zero
+ L, t9 D- N9 y3 k+ m8 W8 G) w  c) [      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
) V% p. I& u. @0 m. @5 \. `      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
9 x0 }7 B# f, ~. ]! o$ S      absinc$ = sav_absinc
/ E+ t) v; h1 e3 G      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call

ptlchg0$         #Call from NCI null tool change (tool number repeats)                        
      pcom_moveb
% D& o7 \- v7 J6 h      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      comment$
      pcan
& y: O; r: ^. a. ?9 r% i. `      result = newfs(15, feed)  #Reset the output format for 'feed'
% V9 s3 H7 Z9 Y$ Y) S      pbld, n$, sgplane, e$
      pspindchng
$ E2 L/ S' ^+ S- e      pbld, n$, scoolant, e$
      if mi1$ > one & workofs$ <> prv_workofs$,
1 I  z) {2 C5 r* F: w* I2 K        [
        sav_absinc = absinc$
% j: q; \5 U& Z" o, v/ L1 p+ g        absinc$ = zero
# h* b5 B0 @6 m4 h# V; Y1 ~! @        pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
; ]" @# M, ^+ u        pe_inc_calc
, Z6 N/ ?1 ]' {! C9 v        ps_inc_calc
        absinc$ = sav_absinc
        ]
      if gcode$ = one, plinout
      else, prapidout
( u) l: L! \: J* p  Q- B4 S* h8 L5 r      pcom_movea
      c_msng$ #Single tool subprogram call

ptlchg$          #Tool change                                       
      toolchng = one
5 `4 u/ ^! ^9 Y      if mi1$ = one, #Work coordinate system
' g' K8 c; `( C1 I+ `        [
8 q* `( o' S) }, t: B7 n* K7 S        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
& w8 o8 k( ^+ u9 z& g        ]
% G9 W- @- v- w8 i      if prog_stop = 1, pbld, n$, *sm01, e$
, A  l6 c- Y4 X6 q- w4 F      if prog_stop = 2, pbld, n$, *sm00, e$
      pcom_moveb
      pcheckaxis
, f2 [  N4 v& c0 ?# v; @      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
4 E, P6 _" f4 Y( U) }1 B      comment$
" \. t# H1 t1 I: j% u8 G, `6 p      pcan
      result = newfs(15, feed)  #Reset the output format for 'feed'
. D0 C8 h7 F" z+ ^/ j2 t      pbld, n$, *t$, sm06, e$
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
' U9 `7 L1 [& c8 g& ~; r      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
% w/ S/ V! T" t5 a+ X( K9 _: I        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
      absinc$ = sav_absinc
- h2 D, ?  l) U" `) L      pcom_movea
8 d2 F, Y/ a6 T4 Y" D; v      toolchng = zero
/ @; Z; R& a: r, T: m* `1 l8 P  y      c_msng$ #Single tool subprogram call

. Z  n& T) I% R4 E- A: _- x6 lpstagetool      #Pre-stage tools
; W2 V" F# V5 B+ S# @- r9 i' G8 n, s      if stagetool = 1,
9 P: F0 ^( Q2 A. |! O8 p$ y        [
  L' V5 D7 ]! ~2 U. z6 F( B& K  U        if ttblend$,  #Check for last toolchange
. P  i3 t# Z. F          [
          if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
          ]
) K6 R! B5 z1 b# t5 U0 s% ^) Y9 {        else, *next_tool$ #stage tool at every toolchange
, |% v2 n& e+ K; W+ x9 Y" V        ]

; Z: E/ m8 }+ l: X# B* j5 |% r: |pretract        #End of tool path, toolchange
& `. ^9 `+ B1 Q# t      sav_absinc = absinc$
6 |1 u" n  U- i      absinc$ = one
      sav_coolant = coolant$
3 g2 M" v5 s8 W      coolant$ = zero
2 N0 |5 l7 l- I6 v9 b$ _
#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
( n1 ~0 N1 l8 v/ }* n        [                 #  explicitely turned off through a canned text edit
        if all_cool_off,
          [
* B% A( L& f! E' {5 V          #all coolant off with a single off code here
          if coolant_on, pbld, n$, *sall_cool_off, e$
          coolant_on = zero
# d0 E  v: F# ], q6 t0 N          ]
& s& \1 v2 z% j. R2 A' t        else,
" d" V5 N* g" {          [
          local_int = zero
( |0 `) l" Q5 E          coolantx = zero
- G, P+ J6 P- I; k$ _- C          while local_int < 20,
1 N! [2 }5 s& B* e! P0 a" T. q            [
# r: g- _2 \! Z/ i% }8 }            coolantx = and(2^local_int, coolant_on)
            local_int = local_int + one
            if coolantx > zero,
              [
              coolantx = local_int
: r) _# J8 {6 e9 W3 M: u              pbld, n$, scoolantx, e$
0 w  ?3 Z- p' M" n2 s$ Y9 ^( v              ]
            coolantx = zero
% h. b% I, t- Y5 w" a/ v6 T            ]
          coolant_on = zero
/ N4 I0 [+ ~8 p4 u: G1 t8 w% B' H5 u          ]
+ d7 H! I# y% g# b4 u        ]
      #cc_pos is reset in the toolchange here
+ p6 r. t4 T' X5 C; W2 p      cc_pos$ = zero
5 p7 A( H) L6 {      gcode$ = zero
: \  n. `) x% J0 ^/ {3 n      pbld, n$, sccomp, *sm05, psub_end_mny, e$
# H+ j! z( l1 _+ X3 M      pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$
      if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", e$
      absinc$ = sav_absinc
2 e1 q, c- _- M8 {      coolant$ = sav_coolant

peof0$           #End of file for tool zero               
      peof$
* |, _. e1 p  q: o
+ }: ]: o0 M5 zpeof$            #End of file for non-zero tool           
      pretract
. Z; w7 B2 t' x. v7 y! A* r      comment$
      if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$
      n$, "M30", e$
0 l* |) Z! Z. ]. e/ J, `      mergesub$
      clearsub$
      mergeaux$
- O  G3 y) \9 o' o6 ^. L8 _4 R      clearaux$
/ H3 B  S0 g  m4 A9 r      "%", e$

pwcs            #G54+ coordinate setting at toolchange
2 q  q0 S6 [* j8 Y/ y. x: c      if mi1$ > one,
; ]* G0 g" v" b. n4 s        [
        sav_frc_wcs = force_wcs
        if sub_level$ > 0, force_wcs = zero
        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
4 t; |" e' [1 Q! ^          [
          if workofs$ < 6,
' D: q" P8 p' F5 ?            [
            g_wcs = workofs$ + 54
5 n! ~6 c  @' f( g. a            *g_wcs
! C  i" |" y+ C+ k* L7 u4 b            ]
          else,
            [
4 z+ L% X6 J* _; O            p_wcs = workofs$ - five
            "G54.1", *p_wcs
            ]
          ]
1 x8 ]/ V- `6 w        force_wcs = sav_frc_wcs
        !workofs$
        ]
# @: N9 b" p8 g. d
. @9 n* [3 S- @" p( Ipgear           #Find spindle gear from lookup table
) a( r) t* \  E- l& u      if use_gear = one,
        [
3 s& h5 N2 k* E2 r' a. a. s        gear = frange (one, speed)
1 @! f- {3 n9 T% s+ T& B' T$ c5 }        *gear
0 ?3 i, f6 l& K* c        ]

#Toolchange setup
8 n, ~# f; ^( ?; B' s- Cpspindchng      #Spindle speed change
      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n$, *sm05, e$
      if prv_speed <> speed | prv_spdir2 <> spdir2,
        [
/ y' G5 z  d% E4 ?- \        if speed, pbld, n$, *speed, *spindle, pgear, e$
' U* H3 p) V$ T: Q8 x3 F5 L        ]
      !speed, !spdir2

pspindle        #Spindle speed calculations for RPM
1 s" }1 a+ n6 k4 M$ S( ?* \# f  B! @, T& `      speed = abs(ss$)
      if speed,
        [
        if speed > maxss$, speed = maxss$
        if speed < min_speed, speed = min_speed
        ]
- ?, \* T: G9 q7 d      spdir2 = fsg3(spdir$)

pq$              #Setup post based on switch settings
+ w  K" H% ]) G' v2 S* K9 \& g      stagetool = bldnxtool$  #Set stagetool from CD setting
; e; B3 y( p& E( y* Y- @# R
ptoolend$        #End of tool path, before reading new tool data               
7 E6 l: \2 y$ C2 W9 P6 G8 ~9 P/ M5 B      !speed, !spdir2