坐标设置

duolzw

请问一下哪位大侠知道X4，怎样设置后处理变为G92，而且不带刀具长度补偿。用在数控铣的如：
. g& E8 _+ P& D7 XO1234
G0  G90 G92 X100 Y50 S2000 M3
% s$ s0 \# H3 A/ l: j. Y- ^Z10 M8
4 S  V- [8 @, l* A7 R4 dG98 G81 X30 Y20 Z-10 R2 F180
G80
# w. T- @1 g9 d# PG0 Z10
, f, w' E# y4 G# n4 W& JX100 Y50  M9
3 p6 C$ c7 z. n6 S# \( i; g* CM5
M30  
+ d. \2 p. o3 o; E
8 f$ o0 V* Q/ d# `7 y8 z" Z; R* u我改过杂项设置，把里面的G54的2改为G92的-1，但是处理出来的程序是没有G92的。如
3 L& h/ S6 M" f2 y9 GO1234
M6T1
  O  o" x5 W7 x; N$ {4 vG0  G90 X100 Y50 S2000 M3
( R- a1 r7 @, XG43 H1 Z10 M8
G98 G81  X30 Y20 Z-10 R2 F180
G80
5 t! o8 g( t$ h7 J, F2 `0 l- Z  YG91 G28 Z0 M9
M05
# _' D0 }" {' |6 j& D' @6 oM30.我要把它改为像上面那样的后处理怎么改。哪位高人帮帮忙，真的很感谢！

若枫

回复 1# duolzw


    G92只能强制输出了。

wangerwen521

把G54改为G92

duolzw

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

vinney777

可以强制输出

若枫

回复 1# duolzw
8 M5 ~, b- A2 p! x$ M; s

  {9 F: G" i8 ?    既然说了你都不懂，为何不提供你的后处理。

duolzw

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




[POST_VERSION] #DO NOT MOVE OR ALTER THIS LINE# V13.00 E1 P0 T1232650364 M13.00 I0
# Post Name           : Generic Fanuc 3X Mill.pst
# Product             : Mill
: ~( X8 H' z1 d3 ?6 P" I/ U# Machine Name        : Generic
0 S- |7 w1 [) {6 z3 n# Control Name        : Fanuc
# Description         : Generic 3 Axis Mill Post
# 4-axis/Axis subs.   : No
9 S8 C: s) F8 u4 r9 j+ O" \# 5-axis              : No
# Subprograms         : Yes
& e" ?4 i( d0 K% y7 T1 V# Executable          : MP 13.0
#
' _+ L" e( M' n, P0 Q# U# WARNING: THIS POST IS GENERIC AND IS INTENDED FOR MODIFICATION TO
# THE MACHINE TOOL REQUIREMENTS AND PERSONAL PREFERENCE.
#
# THIS POST REQUIRES A VALID 3 AXIS MACHINE DEFINITION.
# YOU WILL RECEIVE AN ERROR MESSAGE IF A ROTARY AXIS IS DETECTED IN
# THE ACTIVE AXIS COMBINATION.
#
# Associated File List$
#
$ m  g0 ^8 t, Y( D4 y6 w# GENERIC FANUC 3X MILL.control
#
# Associated File List$
! X( l; W7 J2 z* r#
) x( b6 ~$ U- }  G2 f0 I3 @# --------------------------------------------------------------------------
# Revision log:
! Z+ I; c6 I9 l8 N+ I" t$ J# --------------------------------------------------------------------------
# CNC 06/09/05  -  Initial post setup for Mastercam X
  g. |. Y  S/ o7 n9 Z2 ]. J# CNC 10/06/05  -  Changed parameter read for min_speed, modified pspindle, pprep$ and pset_mach
1 \6 b' K. C5 \3 a# CNC 02/03/06  -  Added logic for high-speed toolpath tool inspection (see prapidout & plinout)
# CNC 06/26/06  -  Initial post setup for Mastercam X2
4 c0 O* q& Z" Q1 Q# CNC 02/26/07  -  Modified pwcs
# CNC 11/02/07  -  Added prv_shftdrl$ = zero
" }+ u' I' u/ Z! V# c# CNC 04/08/08  -  X3 release - Removed check for write_ops
# CNC 01/26/09  -  Initial post update for Mastercam X4
" |( N, g$ A/ p2 S! B  a# CNC 06/09/09  -  Updated MD parameters
' W1 t' t2 t; S#
# --------------------------------------------------------------------------
7 ~* T2 Q3 z) A) ]- S0 z# Features:     
6 W5 j! M' b9 f; ]8 h. b7 f1 ?3 @  {# --------------------------------------------------------------------------
; a6 H! H' \  H" l5 _& s# This post supports Generic Fanuc code for 3 axis milling.
# It is designed to support the features of Mastercam X Mill.
5 o, q' s9 U2 T( b& j; K#
, a* R7 y" C; h6 t$ Z( b4 i# NEW FEATURES FOR X:
# _$ O" n- V  Z4 }! _5 `# - Sub-program support
" \9 C' M4 H  k% Q- K# - 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.
" Q- @% v  j1 K" @, ]9 [# - Variable initialization with CD_VAR are read directly from CD.  Changing these initial values
0 Y0 L$ N$ [6 W( h% o$ O#     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.
3 C  f( y; t  Z) A# - 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)
2 g; f7 d/ n8 s; K, s4 h#     Tooltable output includes cutter compensation type and stock to leave information
# z$ k0 k8 v6 N5 @* {8 L# - Enhanced tool staging options - enable or disable in CD.  Set stagetltype in post for output type:
8 {% _2 I+ M! U- W  T8 R: X#     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)
6 p: S+ E2 t" W3 J1 P# - Additional date, time and data path output options (see pheader)  
+ l" p- p- C6 k: o- e0 Y# - Additional rigid tapping cycle (separate from original tapping cycle) and initial custom drill
8 J& P* ^( }& w* o4 ]#     cycle support (see pmisc2$ and pdrlcst$)
5 N! q! W: \3 a' [% l! Q  R# - Support for 10 additional canned text options for X
# - Decimal support for sequence number output (set "Increment sequence number" in CD to a decimal value
7 w$ l& ~% o3 f, a* w#     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)
* F$ t" Y6 r5 ^' T, X3 `9 N# - Support for seperate XY, XZ and YZ plane/arc variables (see Arc page in CD)
) j7 h& r2 Q) B- [1 u# - Support for X style coolant.  Allows up to 10 different coolants to be turned on/off before, with, or after like
' h( B5 h- U/ w0 {0 P: k#     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.
; p" w! B8 F4 F1 }; X#
# --------------------------------------------------------------------------
) V4 y' N' i5 A8 Y# Misc. Values:
# --------------------------------------------------------------------------
# Integers:
#
3 l$ ^  D9 p; A, S# mi1 - Work coordinate system
#        0 = Reference return is generated and G92 with the
#            X, Y and Z home positions at file head.
$ j8 \8 w8 v; B) w* ]#        1 = Reference return is generated and G92 with the
& D' E) Y& k: y; o#            X, Y and Z home positions at each tool.
& G- k; p" [* M/ b#        2 = WCS of G54, G55.... based on Mastercam settings.
#
6 Q) G; R  J0 {) Y2 s/ q' k! y5 a# mi2 - Absolute or Incremental positioning at top level
, {* P8 m$ S3 b- M. ~#        0 = absolute
8 R& h0 s$ z5 j1 x) ~8 b0 P#        1 = incremental
2 o% h- U) c+ u#
# mi3 - Select G28 or G30 reference point return.
#        0 = G28, 1 = G30
#
# mi4 - mi10 (NOT USED)
$ i$ W( n1 N7 [) m2 U2 i' i( E6 ]#
( t( s1 x3 {! k0 v6 l: n# Reals:
#
# mr1 - mr10 (NOT USED)
#
# --------------------------------------------------------------------------
#Canned text:
#    Entering cantext on a contour point from within Mastercam allows the
#    following functions to enable/disable.
' v  L* X' a& L#    Cantext value:
#    1 = Program Stop = output the "M00" stop code
#    2 = Optional Stop =  output the "M01" optional stop code
#    3 = Block Delete on = turn on block delete codes in NC lines
% L% d& a9 D# A9 l& h% l  d#    4 = Block Delete off = turn off block delete codes in NC lines
$ w# g4 B" v) T2 \  A, Z# z#
) G% t) C$ V* w1 n5 ?  f4 V/ y* B# --------------------------------------------------------------------------
#Additional Notes:
# 1) G54 calls are generated where the work offset entry of 0 = G54,
: l, J- z- j+ ~3 e#    1 = G55, etc.
# 2) Metric is applied from the NCI met_tool variable.
  k/ G3 M/ |, a/ y% z% k* T# 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.  
# 4) The variable 'absinc' is now pre-defined, set mi2 (Misc. Integer) for
#    the 'top level' absolute/incremental program output.  Subprograms are
#    updated through the Mastercam dialog settings for sub-programs.
# 5) Transform subprograms are intended for use with G54.. workshifts.
$ ^4 I0 O7 L$ H% }3 {* O, O#
1 ]5 v! J* w) C# END_HEADER$
2 N3 I, z. {# D" a" X; B#
# --------------------------------------------------------------------------
# Debugging and Factory Set Program Switches  
# --------------------------------------------------------------------------
" L  X" F* N) e# G: g#Define Constants
: ~7 U* S6 Y" t/ qm_one        := -1
zero         := 0
one          := 1
" n( Z6 y$ G( g) T, ?& i; Ptwo          := 2
2 J+ [% o& S, z  L# J( p' sthree        := 3
; P; Z) p6 q4 Z1 f: l( Nfour         := 4
7 ~0 }9 M% d" Ifive         := 5
c9k          := 9999

* A& i. A$ A; [) ~" u; u1 H9 qbug4$        : 1     #Debug output with the tilde '~'.
                     #A value greater the zero applies the variable formatting with
                     #debug output (default is typically FS 1 but not a guarantee).
9 \* ^$ ?8 n1 M: G% o* P                     #A value of zero gets the value directly with NO formatting.

9 Y' G1 T& b  [+ hlinktolvar$  : 0     #Associate X tolerance variables to V9- variable?
linkplnvar$  : 0     #Associate X plane specific variables to V9- variable?
* A- U3 E2 @+ M7 @$ I. n
& `% x+ l, P2 K! h  oskp_lead_flgs$ : 0   #Do NOT use v9 style contour flags
get_1004$    : 1     #Find gcode 1004 with getnextop?
1 E( P2 E) ]5 L; R/ B* F$ Drpd_typ_v7$  : 0     #Use Version 7 style contour flags/processing?
5 U6 U/ Z4 I1 I' e: f' Vstrtool_v7$  : 2     #Use Version 7+ toolname?
tlchng_aft$  : 2     #Delay call to toolchange until move line
* z8 q7 n0 _9 P3 y: h6 H* z" rcant_tlchng$ : 1     #Ignore cantext entry on move with tlchng_aft
newglobal$   : 1     #Error checking for global variables
  W; b" E6 S$ `6 g9 J/ ygetnextop$   : 1     #Build the next variable table
tooltable$   : 3     #Pre-read, call the pwrtt postblock
3 N7 W9 y7 [6 P2 f# H* p
# --------------------------------------------------------------------------
# General Output Settings
$ L3 S$ k( Y" N. P7 q( \) v# --------------------------------------------------------------------------
2 ~: |) y; B' l6 T, @: J/ }6 zsub_level$   : 1     #CD_VAR Enable automatic subprogram support
3 V. K! f  }) Y! b; t& bbreakarcs$   : 2     #CD_VAR Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
1 ]9 M7 u: l& C0 X' earctype$     : 2     #CD_VAR Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.,
, Q3 ^  b! N3 F5 H- E                     #5 = R no sign, 6 = R signed neg. over 180
do_full_arc$ : 0     #CD_VAR Allow full circle output? 0=no, 1=yes
) s/ O, M1 ], ?/ ahelix_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
3 |2 V# L  z  d9 K6 p7 Yatol$        : 0.01  #CD_VAR Angularity tolerance for arccheck
ltol$        : 0.002 #CD_VAR Length tolerance for arccheck
7 X0 i( [. }8 }0 @vtol$        : 0.0001#System tolerance
8 O+ `( V5 ]% U! omaxfeedpm    : 500   #SET_BY_MD Limit for feed in inch/min
ltol_m       : 0.05  #Length tolerance for arccheck, metric
vtol_m       : 0.0025#System tolerance, metric
- X" G- V2 G( E4 Xmaxfeedpm_m  : 10000 #SET_BY_MD Limit for feed in mm/min
5 o8 B6 R  |5 R, x; l( eforce_wcs    : yes$  #Force WCS output at every toolchange?
spaces$      : 1     #CD_VAR Number of spaces to add between fields
omitseq$     : yes$  #CD_VAR Omit sequence numbers?
seqmax$      : 9999  #CD_VAR Max. sequence number
stagetool    : 0     #SET_BY_CD 0 = Do not pre-stage tools, 1 = Stage tools
stagetltype  : 1     #0 = Do not stage 1st tool
                     #1 = Stage 1st tool at last tool change
                     #2 = Stage 1st tool at end of file (peof)
use_gear     : 0     #Output gear selection code, 0=no, 1=yes  
, G1 s9 `( Y) J6 b+ Omin_speed    : 50    #SET_BY_MD Minimum spindle speed
nobrk$       : no$   #CD_VAR Omit breakup of x, y & z rapid moves
progname$    : 1     #Use uppercase for program name (sprogname)
! h2 J7 j: h* }6 a' Y  \' J; Sprog_stop    : 1     #Program stop at toolchange: 0=None, 1=M01, 2 = M00
* P3 y- Z( Z: |7 htool_info    : 1     #Output tooltable information?
                     #0 = Off - Do not output any tool comments or toolpable
; r+ w" k; ]. s1 Z# D" s' R0 H8 h                     #1 = Tool comments only
1 E: L  {8 G2 e" c0 v' a4 U                     #2 = Tooltable in header - no tool comments at T/C
                     #3 = Tooltable in header - with tool comments at T/C
0 u/ S8 M" a/ Ytlchg_home   : no$   #Zero return X and Y axis prior to tool change?

/ _, ^7 l0 E% V接后面。。。

duolzw

接上面。。。

# --------------------------------------------------------------------------
# Enable Canned Drill Cycle Switches
; J( j0 V3 R) x8 h+ |6 E: ~, a; k# --------------------------------------------------------------------------
2 n1 `( C' |7 s" f2 O, ~1 i$ q' ?usecandrill$ : yes$  #CD_VAR Use canned cycle for drill
5 {- O+ E5 f4 @9 D. d2 Vusecanpeck$  : yes$  #CD_VAR Use canned cycle for Peck
+ M- f( ?% [" Z( ]. K7 ausecanchip$  : yes$  #CD_VAR Use canned cycle for Chip Break
usecantap$   : yes$  #CD_VAR Use canned cycle for Tap
, b' E' i  w2 C$ V- nusecanbore1$ : 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
  T7 L  }( K' w! R) lusecanmisc2$ : yes$  #CD_VAR Use canned cycle for Misc2

6 `5 h$ h9 W* K6 m8 G3 ~) c# --------------------------------------------------------------------------
# Common User-defined Variable Initializations (not switches!)
# --------------------------------------------------------------------------
. g: c) Y4 p9 d, X& _1 Ixia          : 0     #Formatted absolute value for X incremental calculations
  n( |0 b- s+ d9 _yia          : 0     #Formatted absolute value for Y incremental calculations
zia          : 0     #Formatted absolute value for Z incremental calculations
; U9 Q/ {' L3 j5 I8 M
bld          : 0     #Block delete active
9 \" l( p0 q5 d3 ?result       : 0     #Return value for functions
sav_spc      : 0     #Save spaces
sav_gcode    : 0     #Gcode saved
sav_absinc   : 0     #Absolute/Incremental Saved Value
8 D2 F, \+ r5 }* H* X$ N2 [$ [sav_coolant  : 0     #Coolant saved
sav_frc_wcs  : 0     #Force work offset flag saved
toolchng     : 1     #On a toolchange flag
8 t" P% H; e* c1 F4 zspdir2       : 1     #Copy for safe spindle direction calculation

#Drill variables
& u2 a4 _3 J; T; q  Z7 V0 t0 U9 fdrlgsel      : -1    #Drill Select Initialize
' v" r( t7 w; C# w; F0 ]  r4 ]drillref     : 0     #Select drill reference
peckacel$    : 0     #CD_VAR Fractional percent to reduce peck2 when usecan.. : no
drlgcode     : 0     #Save Gcode in drill   
# [5 _# g$ `# g; Q5 b: Rsav_dgcode   : 0     #Drill gcode saved

& T! u  R5 K; ?8 H5 C9 v" K#Subprogram variables
1 `) k+ R/ U& K$ \6 Hmr_rt_actv   : 0     #Flag to indicate if G51/G68 is active                     
* L5 T+ Y5 q( c6 H                     #0=Off, 1=Toolchange, 2=Subprogram call/start, G68
& z7 [& d9 [/ m( C" W4 d                     #3=Absolute start, both
5 J4 B1 d. j! T& T- I% y1 _: p  B5 D" }& Zrt_csav      : 0     #C saved value
end_sub_mny  : 0     #Many tool setting captured at transform sub end
comp_type    : 0     #Cutter compensation type - 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
#Coolant variables for X style coolant
( e9 G/ u. z. N" a4 S, kcant_pos     : 0     #Read from current canned text (cant_pos1 - cant_pos20)
coolant_bin  : 0     #Binary value for current coolant command
5 H! N8 z; o; H  C) R/ o- Qcoolant_on   : 0     #Binary value holding the sum of all coolants currently on
coolantx     : 0     #Selector variable for coolant string selector
local_int    : 0     #Local variable for output of coolant off commands
result2      : 0     #Return value for functions
suppress     : 0     #Flag used to suppress redundant coolant on commands
all_cool_off : 0     #First coolant off command shuts off ALL coolant options
" M( F* z/ n7 a( K* s* e" X
" n& @: }) L9 I+ r#Variables to capture parameter values - use to set post switches in pset_mach
# r" j2 [& U; M, j4 F! Protaxerror   : 0     #Error flag - Output error message if rotary axis is detected in active axis combination
rot_ax_cnt   : 0     #Rotary axis counter
/ j0 q* l( _/ [& A8 Wcomponent_type : 0   #Component type: (See documentation for complete list - )
2 e1 d) p8 D, l5 Y& N                       #0 = MACHINE
                       #1 = STOCK_COMPONENT
: D9 Z- x& |- y; J                       #2 = MISC_COMPONENT
* \4 s) X/ Q& i$ X                       #3 = MACHINE_BASE_COMPONENT
                       #4 = LINEAR_AXIS_COMPONENT
' C1 m$ V# j& ?% B. a7 T/ ?                       #5 = ROTARY_AXIS_COMPONENT
! T, N  D( B3 E' \3 z, k                       #6 = RECT_TABLE_COMPONENT
+ L% \+ ~/ s) n6 A7 r$ l- f                       #12 = CHUCK_COMPONENT
. f# p9 Y* z; ?* _. O" L4 y                       #24 = TOOL_SPINDLE_COMPONENT
" \! \# \) F* x. n) }                       #23 = ATC_COMPONENT
ra_error     : 0     #Flag for aggregate operation

  U' F7 C! z# u9 c# ^' b5 g# --------------------------------------------------------------------------
0 c% \: w1 b. o0 R0 U7 u  w#String and string selector definitions for NC output
# --------------------------------------------------------------------------
+ j0 O" W/ A2 a1 X7 q* E1 A#Address string definitions
strm         : "M"
strn         : "N"
) W2 i: U  R5 M# istro         : "O"
& m9 b0 @" L3 Fstrp         : "P"
5 w6 I, F2 p1 Z* `( @6 msrad         : "R"
srminus      : "R-"
! Y5 M4 Y+ x" P7 l( s, O6 A9 \' ^: _sblank       : ""

#Cantext string definitions (spaces must be padded here)
5 u7 _! s  e  o6 Dsm00         : "M00"
sm01         : "M01"
1 q/ \$ Y3 k0 \0 i7 M2 x: v) fstrtextno    : ""
strcantext   : ""

#Transform mirror and rotate codes
strns_mir_on  : "G51.1" #Programmable mirror image code
strns_mir_off : "G50.1" #Programmable mirror image cancel code
strns_rot_on  : "G68"   #Coordinate System Rotation
strns_rot_off : "G69"   #Coordinate System Rotation Cancel

2 s- g& k8 A1 ]1 E! q  }#Misc. string definitions
) N% A$ N( {) @8 G- Ksopen_prn    : "("   #String for open parenthesis "("
3 Z# I) I3 }# c0 V$ F5 a, usclose_prn   : ")"   #String for close parenthesis ")"
sdelimiter   : "|"   #String for delimiter
5 Z6 e# T, Y( U4 v1 X2 a1 gsg94         : "G94" #Units per minute
sg95         : "G95" #Feed per rotation
sm29         : "M29" #Rigid tapping preperation support function
9 C6 E* a8 `7 [7 P; g2 lsg80         : "G80" #Cancel canned drilling cycle
8 t3 Y* T4 }; ~1 _6 U  I9 ^% p* p  }sg43         : "G43" #Tool length compensation
sg49         : "G49" #Tool length compensation cancel
. d4 U6 O$ |, I6 ]* Z0 m% Y6 M! f3 psg92         : "G92" #Set work piece coordinate system
sm06         : "M6"  #Toolchange
- Z- o; M) y( j4 z+ D2 ?
- e$ H: f0 k4 b) L) G& n8 ?( `# --------------------------------------------------------------------------
) c$ P( c# ~2 B) E# Error messages
# --------------------------------------------------------------------------
7 g2 M' l0 x6 B3 [$ l: w4 {- N& E* Cshomeserror  : "ERROR - WORK OFFSET USAGE DOES NOT SUPPORT TRANSFORM SUBPROGRAM"
& ?/ t) |5 |4 n+ N( x0 ?, rsprgnerror   : "ERROR - SUBPROGRAM NUMBER MATCHES THE MAIN PROGRAM NUMBER"
1 s6 D) z8 L0 ~% D+ c, dsra_error    : "ERROR - AGGREGATES NOT SUPPORTED IN THIS POST"
srotaxerror  : "ERROR - ROTARY AXIS DETECTED IN SELECTED AXIS COMBINATION- POST DOES NOT SUPPORT ROTARY AXIS OUTPUT"

# --------------------------------------------------------------------------
# General G and M Code String select tables
& H2 l' M' T; z& ^# k0 w# x5 r) n$ b0 p# --------------------------------------------------------------------------
# Motion G code selection
  ?4 r3 t9 I6 |$ w( K, esg00    : "G0"       #Rapid
sg01    : "G1"       #Linear feed
& o7 E4 t: T8 Csg02    : "G2"       #Circular interpolation CW
3 J9 O% l& `9 b' T; {# B3 N8 Lsg03    : "G3"       #Circular interpolation CCW
sg04    : "G4"       #Dwell
6 |4 u% D2 Y/ Ksgcode  : ""         #Target string
, ^+ d/ s2 R( y$ ~, X& h& @
fstrsel sg00 gcode$ sgcode 5 -1
# --------------------------------------------------------------------------
( l* o% k7 _" j3 T+ L. n' h) C# Select work plane G code
sg17    : "G17"      #XY plane code
0 D+ P1 @+ X) y3 W2 y) D: lsg19    : "G19"      #YZ plane code
0 a4 _; E% L$ ]' N, C7 ]% psg18    : "G18"      #XZ plane code
! D$ m% ]3 U$ c* W7 Isgplane : ""         #Target string

fstrsel sg17 plane$ sgplane 3 -1
# --------------------------------------------------------------------------
2 _7 \. \( o/ u0 Z#Select english/metric code
sg20    : "G20"      #Inch code
1 Q- Z% Z9 @9 e  }sg21    : "G21"      #Metric code
+ p2 X" y# x# `5 b3 lsmetric : ""         #Target string  

( G  ~& |  x# Q, ffstrsel sg20 met_tool$ smetric 2 -1
# --------------------------------------------------------------------------
1 M; `+ w* j4 a3 m6 j( {+ ^#Select reference return code
8 G( c& ~$ d) N0 ^6 I* @+ zsg28    : "G28"      #First reference point return
7 I, M9 M+ Q+ i7 d; s$ _sg30    : "G30"      #Second reference point return
, }3 k" F$ P: j7 tsg28ref : ""         #Target string

* y3 Y; h+ a" s0 Vfstrsel sg28 mi3$ sg28ref 2 -1
# --------------------------------------------------------------------------
4 K5 \7 J& j6 R: i/ V: \) q# Cutter compensation G code selection
scc0    : "G40"      #Cancel cutter compensation
scc1    : "G41"      #Cutter compensation left
2 o- U1 p/ I1 uscc2    : "G42"      #Cutter compensation right
2 i- [8 |: N( \( y# k1 fsccomp  : ""         #Target string
% c4 r) j6 T8 H0 k2 t7 b
fstrsel scc0 cc_pos$ sccomp 3 -1
/ `/ D- C- f7 z! R1 B- H# --------------------------------------------------------------------------
/ {, w7 K! t/ v# Canned drill cycle string select
sg81    : "G81"      #drill - no dwell
sg81d   : "G82"      #drill - with dwell
sg83    : "G83"      #peck drill - no dwell
' r8 r$ L- v' k$ ^) s7 S: qsg83d   : "G83"      #peck drill - with dwell
; p2 u0 j  W" ksg73    : "G73"      #chip break - no dwell
sg73d   : "G73"      #chip break - with dwell
0 P9 z* r# X3 X' e. r! Asg84    : "G84"      #tap - right hand
sg84d   : "G74"      #tap - left hand
sg85    : "G85"      #bore #1 - no dwell
sg85d   : "G89"      #bore #1 - with dwell
" ]0 p( i( E9 A* C" a8 Vsg86    : "G86"      #bore #2 - no dwell
" r- P0 m* t; dsg86d   : "G86"      #bore #2 - with dwell
, c: c2 ]" q7 G) d+ o# lsgm1    : "G76"      #fine bore - no dwell
sgm1d   : "G76"      #fine bore - with dwell
: o: Z* E: ~3 jsgm2    : "G84"      #rigid tap  - right hand
1 {2 o- ~- f% dsgm2d   : "G74"      #rigid tap  - left hand
sgdrill : ""         #Target string
' u* X$ L# v) [4 p5 O: s' _
2 i" G6 z. I2 {' vfstrsel sg81 drlgsel sgdrill 16 -1
# --------------------------------------------------------------------------
# Select incremental or absolute G code
sg90    : "G90"      #Absolute code
sg91    : "G91"      #Incremental code
' @! K& X, L1 n, ?! zsgabsinc : ""        #Target string  

fstrsel sg90 absinc$ sgabsinc 2 -1
# --------------------------------------------------------------------------
#Canned drill cycle reference height
sg98    : "G98"      #Reference at initht
sg99    : "G99"      #Reference at refht     
/ b% e9 h- A$ ]; i/ J5 P: Q& Zsgdrlref : ""        #Target string

fstrsel sg98 drillref sgdrlref 2 -1
7 n, n0 U3 S3 Y) G# --------------------------------------------------------------------------
5 [4 a; {' G" p7 _& R+ N# Generate string for spindle
sm04    : "M4"       #Spindle reverse
& p- Y, c' A# B' w& h2 [2 i/ y# Hsm05    : "M5"       #Spindle off
sm03    : "M3"       #Spindle forward
* _) Y/ X2 {2 a+ Hspindle : ""         #Target string

fstrsel sm04 spdir2 spindle 3 -1
- `9 \. y# F9 M: O- Z* a1 W% }; J# --------------------------------------------------------------------------
# Coolant M code selection for V9 style coolant
6 q/ q7 M! S5 t" v9 j# Note: To enable V9 style coolant, click on the General Machine Parameters icon
) [) s9 L+ X7 O7 G2 S#   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
+ Q9 p/ I: Y5 K( t2 x/ H1 v  Hsm08_1  : "M8"       #Coolant Mist
sm08_2  : "M8"       #Coolant Tool
1 y; D2 V. C8 o% Y4 Fscoolant : ""        #Target string

接后面。。

duolzw

fstrsel sm09 coolant$ scoolant 4 -1
# --------------------------------------------------------------------------
/ X& w0 Q& e) n8 u. \) Z3 V# Coolant output code selection for X style coolant
# Note: To enable X style coolant, click on the General Machine Parameters icon
+ m5 _& E2 H; b( P#   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
7 O" F4 P3 F) l* b8 @2 X" Xscool50 : "M8"                 #Coolant 1 on value
! I& f, @/ z5 t" n+ J, S, f; K- j, C; |scool51 : "M9"                 #Coolant 1 off value
scool52 : "M7"                 #Coolant 2 on value
scool53 : "M9"                 #Coolant 2 off value
scool54 : "M88"                #Coolant 3 on value
scool55 : "M89"                #Coolant 3 off value
- [/ X, ^7 Y4 Kscool56 : "M8(Coolant4=ON)"    #Coolant 4 on value
scool57 : "M9(Coolant4=OFF)"   #Coolant 4 off value
scool58 : "M8(Coolant5=ON)"    #Coolant 5 on value
9 r; h7 ]) [9 r- Mscool59 : "M9(Coolant5=OFF)"   #Coolant 5 off value
5 W, R( s% e4 {8 E6 K# ^% Uscool60 : "M8(Coolant6=ON)"    #Coolant 6 on value
; `( x# K" ]% x# zscool61 : "M9(Coolant6=OFF)"   #Coolant 6 off value
scool62 : "M8(Coolant7=ON)"    #Coolant 7 on value
' k8 O9 ^8 ]/ r: q* Z$ vscool63 : "M9(Coolant7=OFF)"   #Coolant 7 off value
- o# Y8 e0 w/ X. j5 r+ vscool64 : "M8(Coolant8=ON)"    #Coolant 8 on value
* h9 Z, n2 [4 S4 M6 `* Nscool65 : "M9(Coolant8=OFF)"   #Coolant 8 off value
$ g6 M/ w7 w0 o1 u+ ascool66 : "M8(Coolant9=ON)"    #Coolant 9 on value
scool67 : "M9(Coolant9=OFF)"   #Coolant 9 off value
scool68 : "M8(Coolant10=ON)"   #Coolant 10 on value
& Z! w8 a% E$ p6 [: p2 @5 cscool69 : "M9(Coolant10=OFF)"  #Coolant 10 off value
scoolantx : ""                 #Target string

fstrsel scool50 coolantx scoolantx 20 -1
# --------------------------------------------------------------------------
. p/ f( F1 e7 r1 J6 I5 U+ t#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

# --------------------------------------------------------------------------
# Define the gear selection code
flktbl  1       3       #Lookup table definition - table no. - no. entries
3 X# s  ^; Q- g- I        40      0       #Low gear range
0 d* r4 }4 D! A" l        41      400     #Med gear range
2 Y0 H& F8 O' m9 Q7 Z        42      2250    #Hi gear range

# --------------------------------------------------------------------------
# Define coolant binary value for X style coolant
flktbl  2       20      #Lookup table definition - table no. - no. entries
! i  O7 {: `# v        1       50      #Coolant 1 on value
5 S# t" w; k: Y% c/ u: P' S: }        2       51      #Coolant 1 off value
        4       52      #Coolant 2 on value
        8       53      #Coolant 2 off value
& q# J1 f" t1 A( d& d        16      54      #Coolant 3 on value
        32      55      #Coolant 3 off value
; Z( J1 V. `0 d  S" N6 O& R        64      56      #Coolant 4 on value
3 V* U# q/ g7 n0 R( O: Z4 |        128     57      #Coolant 4 off value
) l1 D6 C7 }4 p, ~7 x        256     58      #Coolant 5 on value
/ F9 v' D7 t+ B        512     59      #Coolant 5 off value
0 S9 D2 m$ R( ~        1024    60      #Coolant 6 on value
0 M2 F% \* [: N8 |, w        2048    61      #Coolant 6 off value
        4096    62      #Coolant 7 on value
8 G* F0 d9 W! ?/ E( R        8192    63      #Coolant 7 off value
8 ~4 J& G/ q3 t$ M# v        16384   64      #Coolant 8 on value
# X# X+ m! W6 i        32768   65      #Coolant 8 off value
        65536   66      #Coolant 9 on value
% {( {: s2 @6 Z        131072  67      #Coolant 9 off value
4 l3 t$ I' K5 r% v4 x  I$ f        262144  68      #Coolant 10 on value
) g( A2 {/ ^5 u4 K  p. ^& q        524288  69      #Coolant 10 off value

# --------------------------------------------------------------------------
# Month selector
+ q% x- C- ]3 i* [; ?smon0   : ""
1 w1 V. S- n; d/ Osmon1   : "JAN."
4 r- o' f5 K* ~. Ismon2   : "FEB."
smon3   : "MAR."
smon4   : "APR."
/ J% i$ p. f2 U2 F7 l$ Wsmon5   : "MAY."
- O+ U; F' {; Z) P8 A! t) bsmon6   : "JUN."
smon7   : "JUL."
0 L2 c' b$ ], |$ }4 zsmon8   : "AUG."
; `( @" \' h+ @8 o0 {smon9   : "SEP."
4 v- O( A8 d4 |0 r4 ssmon10  : "OCT."
smon11  : "NOV."
smon12  : "DEC."
smonth  : ""         #Target string
% v/ U  V) c" i) ~: {4 _
# `7 r. S, ~; f: Vfstrsel smon0 month$ smonth 13 -1
7 e6 [% D! ?2 V# --------------------------------------------------------------------------
6 X( D" B, J- m! ]) i2 f+ v& ]8 ?# Cutter Compensation Type
& J# f" e) p" s$ Oscomp   : "COMPUTER"
" o8 ^, U" \7 z5 `5 L4 Q2 V9 vscomp1  : "CONTROL COMP"
$ B' H1 D- E* d9 z$ Kscomp2  : "WEAR COMP"
scomp3  : "REVERSE WEAR COMP"
- m  L3 V1 W* c# k4 M5 zscomp4  : "OFF"
8 L, s4 c+ {0 p. d4 u! cscomp_type : ""      #Target string

fstrsel scomp comp_type scomp_type 5 -1
# --------------------------------------------------------------------------
# Format statements - n=nonmodal, l=leading, t=trailing, i=inc, d=delta
  q5 E7 D* m5 D; S' x9 A# --------------------------------------------------------------------------
  m: o4 Q: ~( o* {: u#Default english/metric position format statements
fs2 1   0.7 0.6      #Decimal, absolute, 7 place, default for initialize (
$ N; p+ e$ o. T& E- |fs2 2   0.4 0.3      #Decimal, absolute, 4/3 place
, r( f$ u" F8 ofs2 3   0.4 0.3d     #Decimal, delta, 4/3 place
) r, v& ^+ n/ H" x2 i! N#Common format statements
* E( Q, g5 b3 F3 e( `9 n& B6 j5 M: [fs2 4   1 0 1 0      #Integer, not leading
fs2 5   2 0 2 0l     #Integer, force two leading
8 h* Z$ O' f* x3 T$ Jfs2 6   3 0 3 0l     #Integer, force three leading
2 t+ N6 p3 I- @! b3 @fs2 7   4 0 4 0l     #Integer, force four leading
0 h+ l& x$ A( [' ^6 M* ]: D# S# Efs2 9   0.1 0.1      #Decimal, absolute, 1 place
fs2 10  0.2 0.2      #Decimal, absolute, 2 place
2 d( ?% z) `/ L. ?9 Cfs2 11  0.3 0.3      #Decimal, absolute, 3 place
6 P. q5 N$ f& p( `fs2 12  0.4 0.4      #Decimal, absolute, 4 place
& \0 J- Z  V. [6 wfs2 13  0.5 0.5      #Decimal, absolute, 5 place
fs2 14  0.3 0.3d     #Decimal, delta, 3 place
fs2 15  0.2 0.1      #Decimal, absolute, 2/1 place (feedrate)
fs2 16  1 0 1 0n     #Integer, forced output
4 K! m+ D. e  R$ F/ \/ o/ Lfs2 17  0.2 0.3      #Decimal, absolute, 2/3 place (tapping feedrate)

# These formats used for 'Date' & 'Time'
# E1 ?( o9 H. G0 R% h5 Q6 Lfs2 18  2.2 2.2lt    #Decimal, force two leading & two trailing (time2)
fs2 19  2 0 2 0t     #Integer, force trailing                   (hour)
fs2 20  0 2 0 2lt    #Integer, force leading & trailing         (min)
. N5 Z6 m  `( S6 s; }5 I( d6 X
# This format statement is used for sequence number output
# Number of places output is determined by value for "Increment Sequence Number" in CD
# Max depth to the right of the decimal point is set in the fs statement below
fs2 21  0^7 0^7      #Decimal, 7 place, omit decimal if integer value

# O. e3 G" _' Y( W4 y# --------------------------------------------------------------------------
# Toolchange / NC output Variable Formats
# --------------------------------------------------------------------------
7 N. u6 i2 {3 kfmt  T  4   t$          #Tool number
fmt  T  4   first_tool$ #First tool used
fmt  T  4   next_tool$  #Next tool used  
fmt  D  4   tloffno$    #Diameter offset number
4 R7 h* K3 z! d) @, zfmt  H  4   tlngno$     #Length offset number
0 A$ o) m' _* {, b' H! G& R$ jfmt  G  4   g_wcs       #WCS G address
4 P! T, Y% |; ~0 K. I& ~% O+ V* @fmt  P  4   p_wcs       #WCS P address
fmt  S  4   speed       #Spindle Speed
fmt  M  4   gear        #Gear range
7 v  ~6 d: m' L9 r! @6 ?# --------------------------------------------------------------------------
fmt  N  21  n$          #Sequence number
fmt  X  2   xabs        #X position output
fmt  Y  2   yabs        #Y position output
  B/ L2 E% O% \fmt  Z  2   zabs        #Z position output
9 U4 N# E* [6 W# yfmt  X  3   xinc        #X position output
' f9 U: H  s/ T" Tfmt  Y  3   yinc        #Y position output
' s6 n6 b" N2 _/ x6 Dfmt  Z  3   zinc        #Z position output
% ^  s- h) v6 X/ dfmt  I  3   iout        #Arc center description in X
; J* W: @# j! R' t( I0 V& |fmt  J  3   jout        #Arc center description in Y
fmt  K  3   kout        #Arc center description in Z
/ U" n1 t: L" Pfmt  R  2   arcrad$     #Arc Radius
  i/ o6 S: w* s9 Zfmt  F  15  feed        #Feedrate
fmt  P  11  dwell$      #Dwell
fmt  M  5   cantext$    #Canned text
( g1 V  d1 A7 o7 j! {* j5 Z  mfmt  F  2   pitch       #Tap pitch (units per thread)
1 l. p& y) I, P# --------------------------------------------------------------------------
#Move comment (pound) to output colon with program numbers
1 w' `7 \4 P- jfmt  O  7   progno$     #Program number
#fmt ":" 7   progno$     #Program number
! M0 V/ y* ]5 f! |, e9 afmt  O  7   main_prg_no$ #Program number
#fmt ":" 7   main_prg_no$ #Program number
fmt  O  7   sub_prg_no$ #Program number
#fmt ":" 7   sub_prg_no$ #Program number
fmt  X  2   sub_trnsx$  #Rotation point
9 Z3 F+ G- \& r  v# w; x. o5 t& ffmt  Y  2   sub_trnsy$  #Rotation point
fmt  Z  2   sub_trnsz$  #Rotation point
# --------------------------------------------------------------------------
fmt  Q  2   peck1$      #First peck increment (positive)
6 u8 O$ @& N  r7 mfmt  Q  2   shftdrl$    #Fine bore tool shift
fmt  R  2   refht_a     #Reference height
4 Q1 a4 d6 b  K% ^1 zfmt  R  2   refht_i     #Reference height
# --------------------------------------------------------------------------
* s/ X  \; l2 c9 n' `; j; G1 Rfmt "TOOL - "      4   tnote    #Note format
fmt "DIA. OFF. - " 4   toffnote #Note format
" u3 h5 a% d: f4 x* `fmt "LEN. - "      4   tlngnote #Note format
fmt "TOOL DIA. - " 1   tldia$   #Note format
fmt "XY STOCK TO LEAVE - " 2  xy_stock #Note format
, I9 Y; j9 K& k; {: m# R+ Qfmt "Z STOCK TO LEAVE - "  2  z_stock  #Note format
# --------------------------------------------------------------------------
fmt     4   year2       #Calculated year value
9 N/ G! ?% c3 ~8 A# w" e/ dfmt     18  time2       #Capture 24-hour time value into 'time2' variable
fmt     19  hour        #Hour
fmt     20  min         #Minutes
year2 = year$ + 2000

duolzw

# --------------------------------------------------------------------------
# Tool Comment / Manual Entry Section
# H* n) L8 ^: P# --------------------------------------------------------------------------
2 k8 ?7 w3 s) }! d2 l5 jptoolcomment    #Comment for tool
8 S  ]3 f7 x. p, ?" ^      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
5 T/ Q; ~; d& i0 F      if tool_info = 1 | tool_info = 3,
3 q! S% z. R* g1 a9 ]# h; Z        sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$
# D4 N0 B1 n: K7 k4 p- r9 w
$ K& z6 E0 Z$ y( Yptooltable      #Tooltable output
      sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
/ r" O. I" G7 i. ?        [if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
: p5 w5 G- h: p/ Y; j: o        [if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
        sclose_prn, e$

pstrtool        #Comment for tool
      if strtool$ <> sblank,
        [
7 a$ B, e' o% U% P* y8 u" P        strtool$ = ucase(strtool$)
  F5 X9 P! s! L5 u+ o, o        *strtool$
        ]
3 i, J3 Q, m( T/ I% i
pcomment$       #Comment from manual entry (must call pcomment2)
      pcomment2 #Required if doing boolean 'if' logic testing!

  N# R$ I- U9 J4 [0 R# @# B, d7 Jpcomment2       #Output Comment from manual entry
5 v# t" Y( c/ b7 J      scomm$ = ucase (scomm$)
      if gcode$ = 1005, sopen_prn, scomm$, sclose_prn, e$  #Manual entry - as comment
# V& |! b2 A: J6 Y  Z1 ]; Y      if gcode$ = 1006, scomm$, e$            #Manual entry - as code
& N# H) Q; e- o1 v( n8 T; Y      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$
. e5 ^  V: }8 L- G4 k      if gcode$ = 1008, sopen_prn, scomm$, sclose_prn, e$  #Operation comment
- c# k/ v% l* P      if gcode$ = 1051, sopen_prn, scomm$, sclose_prn, e$  #Machine name
- u/ b" n* a+ a: q  u- @& E; W9 q      if gcode$ = 1052, sopen_prn, scomm$, sclose_prn, e$  #Group comment
& |. B' o- b$ C% n7 B) D- ]      if gcode$ = 1053, sopen_prn, scomm$, sclose_prn, e$  #Group name
2 n( n3 G; G- q3 d; \: x" `: J2 S* Y4 C      if gcode$ = 1054, sopen_prn, scomm$, sclose_prn, e$  #File Descriptor
  h! r. W/ X2 {6 o8 K. K* m
! }8 C! v% i6 W4 v; N7 }1 J- ]# I* u# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
ptime           #Convert 24-hour time format into 12-hour AM/PM format
      if time$ >= 13, time2 = (time$ - 12)
      else, time2 = time$
      hour = int(time2), min = frac(time2)
      *hour, ":", *min,
) P5 P7 k0 l* `! r2 f9 N& Y! |      if time$ > 12, " PM"
  O# M3 P  e  R$ a! w" q      else, " AM"

pheader$         #Call before start of file                        
      "%", e$
! @4 `- {* V3 d9 g      sav_spc = spaces$
  n$ L5 m, y' `1 p      spaces$ = 0
* n( `5 L5 Q& ^( E. _0 f- {& h      *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
' e% S: \* |! @  z      #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
      #sopen_prn, "TIME - ", time$, sclose_prn, e$  #24 hour time output - Ex. 15:52
9 O. J0 w" X2 S- m7 Z      #sopen_prn, "TIME - ", ptime sclose_prn, e$  #12 hour time output 3:52 PM
1 `$ m  r! l9 A! \/ K% F9 M      spathnc$ = ucase(spathnc$)
, C: \3 }, S' `) N4 E      smcname$ = ucase(smcname$)
$ O3 h7 j% t( g' U/ S6 t      stck_matl$ = ucase(stck_matl$)
6 @# r. u( C" @. w# v# ?3 O  X      snamenc$ = ucase(snamenc$)
2 {. C4 f& H: p      sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$
) d, A: B' s3 {0 O: u! J. ~" |5 _! _      sopen_prn, "NC FILE - ", *spathnc$, *snamenc$, *sextnc$, sclose_prn, e$
5 |1 N% L1 U# W' m" F' ?& b      sopen_prn, "MATERIAL - ", *stck_matl$, sclose_prn, e$
% r9 Y! i7 D% U      spaces$ = sav_spc

psof0$           #Start of file for tool zero                        
      psof$

psof$            #Start of file for non-zero tool number            
      if ra_error = 1, [if mprint(sra_error, 2) = 2, exitpost$]
. S% \. q+ i( ?  {4 L: s) W      toolchng = one
      if ntools$ = one,
! R" {4 k" C( D        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
( l' F5 B+ N# F$ U' ~; {3 w        !next_tool$
        ]
6 S7 |+ z* G; C- v      pbld, n$, *smetric, e$
      pbld, n$, *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, e$
" O$ X' t8 i$ W! t. p      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
" s9 D- J  F  S9 S. d        [
0 T/ d# H: j4 }- q$ u        absinc$ = one
        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
7 s! Q" j7 I1 c) D- `) q# b        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
  m# v; U9 S6 y7 b5 h5 [+ ?2 N, M" S        absinc$ = sav_absinc
! ?6 N$ C! p$ A1 j% C$ \5 A        ]
: r: V8 A# N+ P1 E      pcom_moveb
      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
& x$ @# T9 C5 k& i& W4 I      comment$
( ?/ g  J/ e9 T. _, ]! J. k6 \      pcan
      pbld, n$,sm06, *t$,  e$
' I1 r5 y+ X( S7 O: ], B' s      if mi1$ > one, absinc$ = zero
# J) W5 y9 q; N3 Z4 T+ X      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
" {8 u$ p7 D7 j        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
      absinc$ = sav_absinc
      pcom_movea
* k8 Q0 l4 q0 }( P7 |* d      toolchng = zero
      c_msng$ #Single tool subprogram call

ptlchg0$         #Call from NCI null tool change (tool number repeats)                        
      pcom_moveb
6 v, q" m/ F' y% O" g) l5 Q      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
- @# n8 y; U$ _# n8 L6 j      comment$
      pcan
      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n$, sgplane, e$
      pspindchng
      pbld, n$, scoolant, e$
/ L9 J7 B; V' l$ W0 l. K      if mi1$ > one & workofs$ <> prv_workofs$,
        [
        sav_absinc = absinc$
        absinc$ = zero
4 O; H, E% m# R% `$ t; L0 m        pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, e$
9 i& y' V: ]' v- `        pe_inc_calc
/ K- ?& E2 q% O9 v        ps_inc_calc
        absinc$ = sav_absinc
        ]
      if gcode$ = one, plinout
      else, prapidout
      pcom_movea
      c_msng$ #Single tool subprogram call
/ j  }, ~" x2 b4 ]9 Q* o5 J; M' m0 \
5 w$ f6 H  J" K, y3 J8 ]+ F! `ptlchg$          #Tool change                                       
) k" p2 M" s  S, @8 n* g      toolchng = one
7 U# w7 J! n1 h% k      if mi1$ = one, #Work coordinate system
        [
! P6 K& W' W) S* f; \$ v$ {        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
, {' Q( p. r# J* Y9 r        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
        ]
+ B' h2 W- z, m$ N      if prog_stop = 1, pbld, n$, *sm01, e$
      if prog_stop = 2, pbld, n$, *sm00, e$
      pcom_moveb
, z9 N1 p0 j( Y+ A5 ~. z      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
      comment$
! Y( ?. t( N% ?4 t- p) G% R- u      pcan
) z* b( g3 h6 n0 k& l) j      result = newfs(15, feed)  #Reset the output format for 'feed'
( e5 p0 M6 m9 X' C      pbld, n$, *t$, sm06, e$
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
. Q; J# x* c1 u5 B$ y5 o, C- Z4 n        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
/ D/ e8 N, K* ^0 q% x      pbld, n$, sg43, *tlngno$, pfzout, scoolant, pstagetool, e$
" j+ Z8 |2 g0 |6 |$ S      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call
; ~2 @* O' P7 U! G' j
pstagetool      #Pre-stage tools
      if stagetool = 1,
        [
$ p$ M0 F" V) u( g8 @8 s& c4 a        if ttblend$,  #Check for last toolchange
          [
          if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
          ]
! }3 k5 Y: J# [9 H) M: @        else, *next_tool$ #stage tool at every toolchange
        ]

! U: J. K% h5 H1 c5 g) O" \pretract        #End of tool path, toolchange
      sav_absinc = absinc$
, }3 z3 \1 o4 A1 L      absinc$ = one
      sav_coolant = coolant$
      coolant$ = zero
. b3 _* M4 y4 u) L7 P" z
#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
4 K- E# P' `" F' z9 U        [                 #  explicitely turned off through a canned text edit
        if all_cool_off,
          [
          #all coolant off with a single off code here
          if coolant_on, pbld, n$, *sall_cool_off, e$
& \( D* t4 m5 e# A; D( F          coolant_on = zero
! E% g/ s& R1 L4 a6 T* `6 m          ]
; S8 d7 ^  x! b9 Q9 u        else,
& `# a% p& T' |6 g) s. r          [
- A( I. E: D5 M" J6 v4 s          local_int = zero
8 O5 Z  N7 ^$ Y/ N7 ~          coolantx = zero
: |1 ~0 M* m9 v          while local_int < 20,
/ m' J  o7 i2 Y; O' o- s+ U, K            [
$ ~1 c4 a8 |! Z2 M! C- W1 t            coolantx = and(2^local_int, coolant_on)
( ~1 R% J0 R, w% X2 y! c0 x; B# M4 _            local_int = local_int + one
2 h% k9 @: T  Q8 Q9 x" r9 F            if coolantx > zero,
              [
) Y. t2 @8 X. |7 e* M; w8 c: E) ^( |1 V) q              coolantx = local_int
              pbld, n$, scoolantx, e$
              ]
            coolantx = zero
2 W& U8 o: L0 f4 I* e! W            ]
$ \' r+ Q+ p7 p6 h/ P          coolant_on = zero
          ]
- ]6 @8 x* w/ n1 F0 G7 T8 O' v2 ]        ]
! R7 u% [+ ?& M/ B7 d. O; K5 X      #cc_pos is reset in the toolchange here
      cc_pos$ = zero
) A3 f/ C. s, i( {% }8 ?; z      gcode$ = zero
      pbld, n$, sccomp, *sm05, psub_end_mny, e$
      pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$
      if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", e$
      absinc$ = sav_absinc
      coolant$ = sav_coolant

" Y& M+ r$ N4 r6 Npeof0$           #End of file for tool zero               
! X5 K! J* j) u+ H! d  I      peof$
& z' O+ S/ h( N) R# \1 C- N& a
, |' v5 O) i4 E3 U* Tpeof$            #End of file for non-zero tool           
      pretract
      comment$
      if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$
5 E) T6 r1 D' G' q) o      n$, "M30", e$
      mergesub$
% R+ F' n1 J- B+ }! D( B5 g      clearsub$
1 O2 }+ t: _  q- r6 w      mergeaux$
0 T3 E, R- n6 `9 z      clearaux$
      "%", e$
, k% a: e% l& y0 s! x* Q& z% L
pwcs            #G54+ coordinate setting at toolchange
      if mi1$ > one,
        [
- u" K' U! I* I: y        sav_frc_wcs = force_wcs
        if sub_level$ > 0, force_wcs = zero
: x( u5 r6 I' p, |3 `        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
          [
          if workofs$ < 6,
            [
            g_wcs = workofs$ + 54
* q" X: z6 T7 Q; C- f/ a( J            *g_wcs
8 }8 R: Q; ]  ~0 Y0 W            ]
1 v4 s! C% n* b& G2 j          else,
            [
            p_wcs = workofs$ - five
! y1 t* u% V4 q, ]9 j            "G54.1", *p_wcs
! t' I6 l: U1 D" C' K2 H+ V            ]
3 i1 X# S9 D; i          ]
        force_wcs = sav_frc_wcs
        !workofs$
        ]
7 |: L  w% `% J( t0 u  e7 F9 c$ z
pgear           #Find spindle gear from lookup table
, }" A0 ]0 N& ]' o      if use_gear = one,
        [
9 m8 e: w1 d! I8 Y1 s        gear = frange (one, speed)
9 s: b# ~9 ^; f# P        *gear
        ]
" A$ ?8 X4 E5 K" g
#Toolchange setup
pspindchng      #Spindle speed change
      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n$, *sm05, e$
. f: E' l+ ?$ L1 g      if prv_speed <> speed | prv_spdir2 <> spdir2,
; l! ?7 |& M- ?9 N6 s        [
0 j4 p2 A% O) \" y3 c" c1 g0 a8 \4 `% O        if speed, pbld, n$, *speed, *spindle, pgear, e$
        ]
      !speed, !spdir2

pspindle        #Spindle speed calculations for RPM
      speed = abs(ss$)
      if speed,
        [
! N  ~" E% [# l# m        if speed > maxss$, speed = maxss$
( J, [* N+ d: w) C  Y        if speed < min_speed, speed = min_speed
        ]
7 M4 A: _) k/ K- C7 Q" x4 \/ K) ]      spdir2 = fsg3(spdir$)

  z+ y) h; D! _) c; M0 ipq$              #Setup post based on switch settings
3 j% j' [7 b$ u/ u      stagetool = bldnxtool$  #Set stagetool from CD setting
% y6 [7 h2 x% n6 @5 ~; x; r
ptoolend$        #End of tool path, before reading new tool data               
      !speed, !spdir2