UG 3B格式线切割后置处理的开发

李双虎

一．前言
  X1 N" w" L4 y7 l+ |) ^9 b& c
  

+ ]% o6 L5 i5 \" R! @( s! w  
/ D, D  K4 g) W
- {6 P* e; \, u! |, S- O线切割能加工各种窄槽、小凹圆角，对硬度不敏感、特别适合淬火后加工，并且成本低、操作方便，故在加工行业中是一种不可缺少的工艺手段。近年来线切割机床也迅速发展，控制系统也逐渐与世界接轨，G代码的控制系统逐渐成为主流，但在一些低端产品，尤其是老式机床中，3B格式的控制系统却几乎一统天下，我们厂是汽车模具专业生产厂，目前就有多台老式快走丝线切割机床。虽然我厂也有先进的慢走丝机床，但因快走丝机床加工成本低，对环境要求也低，所以一直是线切割工段的主力。

0 ^9 S8 w, e1 |6 P; D# o# h
- a; ]$ i$ w% u1 X
    二．3B代码的编程规则
6 M1 r+ d- ^. P; D' P
   
1 B. Y# G+ l' \5 c
1．3B代码的格式为：B x   B y  B j  G   Z
3 W0 X9 R" g  H
，B为分割符号，x，y，j为数值，以微米为单位。j为计数长度，G  为计数方向，Z 为加工指令。
  w% r; z- Y- Y4 p
8 t. Z' r: l& Z2 \7 w2 x

    2．加工指令共有12种。

1 ^6 v% W8 L) y& b. j

   
/ r% A& T1 r4 e( v
  x+ x0 x7 a7 F( h" y- s9 ?a．加工直线时，以起点为坐标原点，终点在坐标轴上时，x、y值为零，计数长度j为线段长度，按X+，X-，Y+，Y-，四半轴计数方向与加工指令分别为，GX

L1，GY L2，GX L3，GY L4。
, \" |7 z1 S# T  U
   
5 s' W1 ?  A1 y* h+ ^
b．加工直线时，以起点为坐标原点，终点在各象限内时，x，y为终点相对起点坐标值，可同比例放大或缩小，计数长度j为线段在计数方向的投影长度，按终点在1、2、3、4象限，加工指令分别为L1、L2、L3、L4。各象限以45度线分割后，终点贴近X轴，则计数方向为GX，反之为GY。

   
2 ^6 p( T% n" D4 c' p% c& ?7 P6 y/ j/ t
c．加工圆弧时，加工圆弧时x，y为起点相对于圆心的坐标值，圆弧起点相对圆心在1、2、3、4象限时，顺时针圆弧分别为SR1、SR2、SR3、SR4，逆时针圆弧分别为NR1、NR2、NR3、NR4。各象限以45度线分割后，终点贴近X轴，则计数方向为GY，反之为GX。

$ x8 L2 p1 r8 l7 f" [$ V  f3 i
9 T" s+ l! b( @  U8 n' o6 [9 m9 B
  
- r9 @5 a2 m0 G3 C4 L0 F
6 H* |% H# Q. `8 v  ^$ K 例：
1 I& n+ c" O2 P
  n% V" _* s* n2 f           
" S( S) i( }/ @8 \" @. f
                  
, Q8 X8 M2 B- u/ G' a. ~* u
+ z5 F$ w% P: A8 `: B



2 C1 C$ x/ h1 Y 1.jpg

8 I! A. o0 A- p4 I1 T' O% @(10.27 KB)

/ h& v4 I* u" a. I/ j3 _' @
7 Z9 s% @: m- ^; [; }' L8 m
' Q7 _% d/ S( D4 J# v1 s' r2007-6-6 12:51
1 m0 j! B& d4 U
: ]* r$ s; C; s& ~1 [


6 Y6 Y0 U. G! d
% s; D6 {1 A+ I  l' H
9 @0 z1 t' u* c( D% A  F) y
   
# O$ M+ W& [' M$ V! t, I
三．分析


; A0 ]  e4 p: D; {, F. k7 b6 A! H
    ug
' b' I/ I& f1 H8 y8 k+ X. U
8 S- ?3 a7 i+ R在后置处理为G代码程序时有直线（G01）、顺时针圆弧(G02)、逆时针圆弧(G03)几种格式，如果能编写一段代码将直线及圆弧按3B格式分类计算，那么处理成3B格式就容易了。
, S0 E& J& B' V


   

为方便介绍，将每一步的终点坐标为X、Y，起点也就是上一步终点为X0、Y0，圆心点Xc，Yc。
2 S# U0 x+ G& M
" Y4 D3 l0 X( z, I

7 C9 n" c. {2 D$ U$ W* n

" @" b1 h' g1 E- v

2.jpg
0 D- a" R4 ~$ }4 ]# X8 ^  {
(7.2 KB)
8 }6 h( Q$ `4 X$ ]* k6 Y6 Z2 M


2007-6-6 12:51
% F+ x2 S8 h/ [1 B1 A# d

- ^9 P/ Z5 n% P, @) Z7 Y' P
, F" c& i+ e0 u图2
4 T# p% I* B6 x& B
% b+ _2 k; H, N* J

  

  区域划分：

3 Q* j: Q# k  Z" J   
1 K! R$ F% j4 d! K: r5 V8 W
. w: m5 S0 A0 P. T3 @( {3 s) T) q+ d1．直线运动时，终点相对于起点在X+半轴的条件为：X>X0，Y=Y0，计数长度为：|X-X0|，指令为：GX L1;
6 s# t; o9 Y4 K
    同理X负半轴:

& Q2 [3 E% ^# z% E% O! ^' H* G条件X    Y正半轴: 条件X=X0，Y>Y0， 计数长度|Y-Y0|，GY L2;
' R6 W" z( |* Z  L6 a/ W
    Y负半轴: 条件X=X0，Y

" V0 q. W& H; G: L; I0 L

: C, c+ o1 j( f+ x

, x+ W; O% l; M  N* X+ n, t    2．直线运动不在坐标轴上时，按如图2所示划分为8区域：
' [1 Z7 K  P# c  X. i! Z
2 M6 A' ?/ G0 _$ t   

1/8区：条件X>X0，Y>Y0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L1;

   

- x; W( H( T! R, h5 \" w2/8区：条件X>X0，Y>Y0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L1;

   

3/8区：条件XY0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L2;
- s1 z0 A8 J' B- _
6 c; f! Z0 O4 A8 D   
, G4 |+ I$ D& S/ I
) l6 J: x3 C0 j  y7 w) l8 H# K( U4/8区：条件XY0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L2;

   
" Y: R! ]/ O1 e/ k
5/8区：条件X=|Y-Y0|，计数长度|X-X0|，指令GX L3;
+ G) N; J! R7 z5 N6 Y0 a
. Q; o* X4 y: a# J9 _0 y4 E; o    6/8区：条件X  
' o0 _3 n% a' C
3 q9 p, ~( h0 \) C/ ]$ \  7/8区：条件X>X0，Y    8/8区：条件X>X0，Y=|Y-Y0|，计数长度|X-X0|，指令GX
! \5 _) X3 b- i3 E: f
L4;

/ P6 z$ x3 X; C
1 H6 J+ u( D. i
   

3．圆弧划分较为麻烦：

  

  
7 l. L3 ]7 v$ K
按方向，分为顺时针，逆时针；按起点象限分为1、2、3、4象限，按终点分图2所示的8区域。下面仅以逆时针，起点在1象限的圆弧加以分析：
! i$ V7 [% b+ e0 n  U' h
   

1/8区：(优弧)条件Y>Y0，计数长度|Y-Y0|，指令GY NR1;
- K5 q% V& X* z9 n; W# ?- H
4 \  N; I: D: ^  

1 _( X0 ]# f, Y1 a) o+ Q      （劣弧）条件Y<=Y0，计数长度4R-|Y-Y0|，指令GY NR1;

3 s, w7 r; E9 M  S

7 Z6 W( x' I7 t+ ?# ~/ J. c    2/8区：(优弧)条件X     

   (劣弧)条件X>=X0，计数长度4R-|X-X0|，指令GX NR1;

   

# v8 o5 m1 t9 V4 q- s! o8 ]5 _3/8区：计数长度|X-X0|，指令GX NR1;

2 M9 M' m( N, n% ]    4/8区：计数长度2R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

  
8 _0 @  L6 v/ ]! K1 Q1 j
* H/ |" D* F% {* ~5 ?  5/8区：计数长度2R-|Y0-Yc|+|Y-Yc|，指令GY NR1;

* p, a3 j; Y* D+ a; N9 c8 j    6/8区：计数长度2R+|X0-Xc|-|X-Xc|，指令GX NR1;

    7/8区：计数长度4R-|X0-Xc|-|X-Xc|，指令GX NR1;

    8/8区：计数长度4R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

  

  起点在2、3、4象限的圆弧以及顺时针圆弧同理。
, b" h* e- A+ n' i4 ~* q$ T1 V

$ q, K6 Z6 K0 b7 J8 e* r( y
! q+ w3 n  e, f    四．实施

5 R3 B7 T1 g: l- m) w: F# o   

先看看UG后处理的构成，UG后处理主要由两个文件组成，*.DEF与*.TCL。前者主要定义了一些格式，后者主要定义了一些运算，我们所要加的程序代码就在后者中。
3 {. x! K) T6 F
, A& e0 s6 D# ?6 e  D

   
( X$ J( u9 z# Z$ |* u$ T
7 c; _. K2 K6 g/ g9 e打开*.TCL，找到程序段proc MOM_linear_move { } { ……}，直线运动的运算就在该段内运算，圆弧运动在程序段proc

MOM_circular_move { } {

……}中。UG后处理中定义了一些变量，mom_prev_pos为前一点坐标，即起点坐标，mom_pos为终点坐标，mom_pos_arc_center为圆弧运动的圆心点坐标，mom_arc_radius为圆弧半径值，mom_arc_direction为圆弧旋转方向，等等，可从post
1 T8 u! d# x& H+ w& L2 m$ R! _
, n9 N* P& Y/ ^* p6 I/ ~) h0 O; y( Qbuilder 中查得。
; W% j4 K0 u  J8 Z( }8 T/ f& L8 y5 a


- [4 v5 x% b" B: C, Q3 n# ~* y   
2 Q2 _- C5 v$ J; v( u; f
由于UG在运算时按允差计算，并进行四舍五入，在判断相等时不要用相等，而是判断差值小于允差。



8 _5 i. D2 f0 w" [( z    有了这些准备，就可以动手编程序了。当然也可以利用post
% R$ v+ I6 H: M( @$ J; a  R
builder做一个用户自定义指令，但核心内容不变，仍需自己编写。限于篇幅，仅示例直线运动的一部分。
7 ~7 m6 l8 M9 P9 j4 ~7 [
   
6 j4 X7 Q1 w8 z1 L9 c# j! N" @
global  mom_l_code   自定义变量其值为：1，2，3，4
9 l1 \$ B% e; V5 c5 j9 P: C, ^9 F
   
% h, X0 J6 V/ ]- ?  x5 c
global  mom_gxy      自定义变量其值为：X，Y

  

4 q: ?$ ?# E# ?' V2 D2 U- j  global  mom_ba     自定义变量，第一个B

的值，即第二部分介绍的x值

; `& q1 \1 ?0 L) K6 o    global  mom_bb  自定义变量，第二个B

& Q$ ?* q! r  l+ u( U! q7 J的值，即y值

    global  mom_bc  

; G3 I) C  L. f) u    自定义变量，计数长度，即j值
# x3 v! Y% K- U% C
- X* P7 A0 m5 L2 _0 @% H  h   
' s/ }7 K* L5 c: o( u
global  mom_pos  终点变量
! j/ i) l, j! B: T1 ^
; O1 D6 b6 Y8 _! m+ [" r) Z  

3 f8 }! t& M' V; i" |; g  global  mom_prev_pos 起点变量   

  
! h( a& A/ I. B. q- A5 M
2 ^$ m0 O& @( g( T3 I  v      set mom_ba abs($mom_pos(0)-$mom_prev_pos(0))
* Z; a! _- D2 \6 a! s
- }& [; [1 f$ A3 R  

2 _( R. x* @+ n- I7 m' [: F      set mom_bb
; V3 b6 v1 I5 b: r4 f/ F  H$ Y$ T7 m
abs($mom_pos(1)-$mom_prev_pos(1))         
  H! W8 _1 w$ {$ L& V
        if
! \2 H0 Y9 n8 w1 i
. U0 Q$ D' C( e: Q! n8 u3 c4 N{abs($mom_pos(1)-$mom_prev_pos(1)) < 0.001} {
% d7 I, k: u5 j+ J% ^1 Q+ r; s
     

   if {[EQ_is_gt  

$mom_pos(0)  $mom_prev_pos(0)]} {

' x. i# ^1 m$ [9 u/ u7 B  u2 i    #X正半轴
0 Y& c6 \, u6 Q% j% b. `
        set

mom_ba 0

4 }9 F) z- ]6 z2 z     

5 Y- p4 i' I5 n0 G0 V9 n   set mom_bb 0
: C& T+ ], e1 Z. Y  \( O4 Z
, q( X* [% o6 B7 ^& X5 \1 S     
  N" `0 n8 s2 T# ?
   set mom_bc $mom_pos(0)-$mom_prev_pos(0)

& S0 ^) ?1 P1 a. j# D6 B  
3 |" C% b. H. D. q, @0 p
       set mom_gxy X

     
! D5 p) R; J0 M0 ~2 T1 J7 I
   set mom_l_code 1

            }
, N; M5 s& ~7 T- O, T5 D
else  {

4 W* q# z" J5 ~4 `- u7 d    # X负半轴
0 Z% ~1 [( }! p4 F0 V7 {7 v  Q, `
        set mom_ba 0

% c$ P! z7 A' T! C% C2 b  

5 ?" U) E1 B! B5 i" s/ n      set mom_bb 0
; m( z$ m$ W) i' ^3 Y. i' C2 ?3 i
     
; j6 ?- T' {+ A7 i3 B
( ~& E+ M% D- `. o7 i   set mom_bc $mom_pos(0)-$mom_prev_pos(0)
% b$ l$ H" }. X+ q
  b8 f% C) ?0 u) d     

   set mom_gxy X
( F8 ?5 ~7 D5 N  `+ Z
  

      set mom_l_code 3

        

- x: U5 A. A1 k$ X) P    }
* R$ `  o, f+ E' ^, e: v5 k# t
/ }( K: v* A! v" ~     
% V' B$ H: d* J6 @# s0 }1 B- p
# |! k  z+ c, K: [: A9 s   } elseif  {abs($mom_pos(0)-$mom_prev_pos(0)) <

0.001} {
' M* @. c! W8 S! z
        if
: ~  t+ d5 G5 Q: E+ @
{[EQ_is_gt  $mom_pos(1)  $mom_prev_pos(1)]} {
, z7 m$ M4 g) Z1 U
7 X. ?+ M, W! Q! W" s    #
6 _8 j/ i- y9 J: V3 v" r. X& g
Y正半轴
! U$ [: d: D5 [( F
     

- K0 w8 z6 J1 q% k# u: \   ……

/ q% W* t$ d- E% N: P# ^+ n% f        } else {

    # Y
- W- m* `9 F. M7 D% ~
负半轴
! ^* {, I+ e5 w& q5 B" @
  
# f# z6 ~9 h5 ~5 j/ L6 v
      ……

  

          }
, k  U4 M4 G' C/ O
     

/ {% S7 A3 s, v; B: C8 g% @; u   }  elseif  {[EQ_is_gt

- w( p# s% Z1 I: w4 o8 t! R* m$mom_pos(1)  $mom_prev_pos(1)]}  {
3 i2 Q: E6 h; s1 O8 |+ Y
        if

! m* s; m% @4 W6 E{[EQ_is_gt  $mom_pos(0)  $mom_prev_pos(0)]} {

7 s2 T% J9 E3 N     
' M5 e, f0 V6 c$ F" I2 ^! d# A
) S2 v, @# a. U: X2 m1 `( G/ C   if{abs($mom_pos(0)-$mom_prev_pos(0))>

abs($mom_pos(1)-$mom_prev_pos(1))} {
6 c) ]% J2 q& y* I
  
$ i0 d0 ]6 }" a; D% B/ K6 ^
  # 终点在第1/8区域

     
/ i; R: n$ C# [' n/ Y: k
0 E9 c( P  A7 W: g   set mom_bc abs($mom_pos(0)-$mom_prev_pos(0))

9 g% H- {$ W9 j3 g9 m- O: h        set mom_gxy X

  

      set mom_l_code 1

  

* X. i7 Y2 L( q2 X# p4 B9 c4 ]          } else  {

    # 终点在第2/8区域

     
* g. @+ S% t$ ?" ?9 t8 X$ ~
   set mom_bc abs($mom_pos(1)-$mom_prev_pos(1))

     

& p2 N1 C$ G+ k: Y! }% E% I   set mom_gxy  Y
! x$ q( M% g0 i* P# u" S  p  Q
        set mom_l_code 1
; I- t7 B) b6 h& r3 D
  
9 @) Y' M1 B) b# Y, p# _0 R
          }

% I9 {* b+ y, M+ W  N6 w( A     

4 S& g4 K& i1 H( A$ ~: P5 G   } else {
5 K( l! k/ p! }3 d  K( Z& Q5 V
% v6 n1 F: E4 J* P( L1 M, B   
5 ~/ d6 ?8 g0 @% b* z) G9 P
if{abs($mom_pos(1)-$mom_prev_pos(1))>abs($mom_pos(0)-$mom_prev_pos(0))}{
! K+ G1 e+ o4 ~. v' l1 F$ [! z
8 e3 ~) G; x' S7 l8 }4 d( {' B    # 终点在第3/8区域
8 V" E: \. k! w0 w: c: J
           
: z9 z* \' E/ b7 {% F
……   
# [# `& F& t# }' V0 t
    #

终点在第8/8区域
' b; ^/ p& ~* x3 W$ k! s0 m5 E
% Z- u0 Z: |! b$ \3 k% r( K, T$ j           

} else  {

  

4 y: Q: g3 b5 a2 U( _          set mom_bc
" s; t& a2 m) M3 c: @' d) O: D
/ d3 ^# ~% H* B' Q! e8 S3 r! @8 |abs($mom_pos(0)-$mom_prev_pos(0))

  
* U. b% F1 J9 v  X
) m1 u4 v8 ?0 P, j5 p7 F          set mom_gxy  X

            set

mom_l_code 4

  

0 M$ ~! ^/ z5 @. r          }
6 i* J% e7 N1 P  I& G- l3 _' |
% A4 W% d6 s  @" [- ?& g% o' ^4 _+ E  
; Q. b& s6 G& W  N: [
          }
0 q' b! t9 _, s# W* x
     

0 ~* y2 w* r, k% _       }        
4 o( y. V% B4 j' `; E
    其他部分略。

) v4 o1 v/ x' J9 R. U
7 X( f) y( g9 b! m8 _4 m
  

  五．结束语

   

$ }+ @5 a/ _8 E' W- o# c如图2所示的图形由ug后处理出的程序如下所示，我厂的线切割需手工输入，为方便程序阅读，加入了坐标值，如果为自动传输，略加修改即可。
* B( Z) n2 N2 x6 U
) d  n( _% K- h' F

Deaton

2 B; s% m1 m1 ?7 p
, {: z- `3 q0 \& F  W1 x非常详细实用，谢谢！
6 Z3 r5 _( u: J8 C- Z
附一个 Sodick 的后处理，已实现上下异形，子程序调用，供各位同学参考。
/ }0 A8 B) T; S
, M" M& m2 T: e6 w, a. p########################## TCL Event Handlers ##########################
& _4 @- K' P  C: B( p#
9 E  o# m; k( U8 [7 D/ j. u#  Created by Supervisor  @  Mon Oct 09 15:07:32 2005 中国标准时间
#  with Post Builder version  3.4.1.
- f; q+ {# h3 Z) F' A  w: a#
########################################################################

4 V- P7 ~. E: v* ?$ h  set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
/ _( v6 P3 Y( U/ \) g; Y* F

' `, e: Q. s, Y2 S1 i2 j' Z  if { ![info exists mom_sys_post_initialized] } {

     source ${cam_post_dir}ugpost_base.tcl
8 u/ I# U2 j+ g! c! V% Y4 v4 F
& o' u2 j5 W  w" U     proc MOM_before_each_add_var {} {}
     proc MOM_before_each_event {} {}
9 b6 G' `) F1 q8 B. s. f
#     set cam_debug_dir [MOM_ask_env_var UGII_CAM_DEBUG_DIR]
2 `/ \  u: }: E2 z#     source ${cam_debug_dir}mom_review.tcl

  L3 q) d8 B# Q. ~& Y2 {5 e     MOM_set_debug_mode OFF

! L7 `8 Z/ [5 |
+ c$ [& x2 `3 I5 u& B: R2 q5 }: _   ####  Listing File variables
     set mom_sys_list_output                       "OFF"
     set mom_sys_header_output                     "OFF"
     set mom_sys_list_file_rows                    "40"
; O. l0 ?7 A% V! B2 Y$ G     set mom_sys_list_file_columns                 "30"
     set mom_sys_warning_output                    "OFF"
     set mom_sys_group_output                      "OFF"
' x% l' O7 m! W9 F     set mom_sys_list_file_suffix                  "lpt"
     set mom_sys_output_file_suffix                "NC"
( d* c# X; C! J/ b$ a' r# ?" u     set mom_sys_commentary_output                 "ON"
     set mom_sys_commentary_list                   "x y z 4axis 5axis feed speed"

     set mom_sys_control_out                       "("  
% {; ~( c7 o) t+ V2 B! b     set mom_sys_control_in                        ")"  
4 p) I( }* x6 t! l% x5 P% W
     set mom_sys_post_initialized 1
  }

1 I+ g5 t- |0 X: p
########## SYSTEM VARIABLE DECLARATIONS ##############
  set mom_sys_rapid_code                        "0"  
4 V2 n3 u! M& O  n  set mom_sys_linear_code                       "1"  
  set mom_sys_circle_code(CLW)                  "2"  
4 x" R0 r" u  B7 c+ i: Z! d  set mom_sys_circle_code(CCLW)                 "3"  
- M; M' o* Z( f+ Q. N9 M2 X7 u  set mom_sys_delay_code(SECONDS)               "4"  
  ], `( n9 b6 k+ i9 u3 [5 k  set mom_sys_cutcom_code(OFF)                  "40"
  set mom_sys_cutcom_code(LEFT)                 "41"
  set mom_sys_cutcom_code(RIGHT)                "42"
  set mom_sys_unit_code(IN)                     "70"
% @: E( M) P* {+ U& I# F& ]  set mom_sys_unit_code(MM)                     "71"
  set mom_sys_output_code(ABSOLUTE)             "90"
+ A) f; g9 t3 a7 o% Y- X  set mom_sys_output_code(INCREMENTAL)          "91"
9 j& r% {, ?7 N  set mom_sys_reset_code                        "92"
  set mom_sys_program_stop_code                 "0"  
  set mom_sys_optional_stop_code                "1"  
* K; s% J" {# [! @  set mom_sys_end_of_program_code               "2"  
  set mom_sys_rewind_code                       "30"
  set mom_sys_thread_wire                       "20"
: G# v! k" P6 Z" z  set mom_sys_cut_wire                          "21"
8 K4 w9 p' v" v# X& c. f- p  set mom_sys_flushing_on                       "80"
  set mom_sys_flushing_off                      "81"
: Y( O1 A: N% R5 {  set mom_sys_power_on                          "84"
  set mom_sys_power_off                         "85"
  set mom_sys_wire_on                           "82"
3 ?& q: B- l- K4 |$ a( z, G) [  set mom_sys_wire_off                          "83"
  set mom_sys_cir_vector                        "Vector - Arc Start to Center"
  set mom_sys_rewind_stop_code                  "\#"
  set mom_sys_home_pos(0)                       "0"  
' Y3 ]1 i; |/ D) K  set mom_sys_home_pos(1)                       "0"  
  set mom_sys_home_pos(2)                       "0"  
  set mom_sys_zero                              "0"  
, T* X2 w7 W6 ]! j" o3 e% @  set mom_sys_opskip_block_leader               "/"  
  set mom_sys_seqnum_start                      "10"
) I' q5 t8 Y  Q: m  set mom_sys_seqnum_incr                       "10"
0 d: x5 D5 c2 W0 |) G  set mom_sys_seqnum_freq                       "1"  
3 `: N+ J1 O! Y+ ?  set mom_sys_seqnum_max                        "9999"
  set mom_sys_leader(N)                         "N"  
  set mom_sys_leader(X)                         "X"  
0 b1 o. ?" T% r5 {* {$ R1 D( X9 W/ O  set mom_sys_leader(Y)                         "Y"  
" z( a5 _5 }2 {; Q  set mom_sys_leader(Z)                         "Z"  
  set mom_sys_leader(U)                         "U"  
8 X. J( c! U3 k0 i9 x  set mom_sys_leader(V)                         "V"  
( G1 x, ^- H/ y* t  set mom_sys_contour_feed_mode(LINEAR)         "MMPM"
. @5 h3 d# u5 J  set mom_sys_rapid_feed_mode(LINEAR)           "MMPM"
9 B, A! s: _0 p, L" J. ]! H  set mom_sys_cycle_feed_mode                   "MMPM"
  set mom_sys_feed_param(IPM,format)            "Feed_IPM"
  set mom_sys_feed_param(MMPM,format)           "Feed_MMPM"
2 V1 |1 \2 x9 n0 [* h$ [  set mom_sys_feed_param(MMPR,format)           "Feed_MMPR"
) Z# M9 ~0 `, B7 z: \  set mom_sys_post_description                  "Unigraphics NX 4.0 WireCut Poster for Sodick.\n\
) Q# v0 m4 d6 i, i0 `                                                 Version: 2.0\n\
                                                 Date: 2006/03/15\n\
" M, h' q, o9 _7 _                                                 By Deaton, Cheewah Toys Ltd., Co.\n\
                                                 Email:deaton@21cn.com\n\
7 o, A9 N# q: Q8 ?8 ]2 G, T# A                                                 Tel:0756-8277824, 13802674804\n\
                                                 Rule and Conic are both supported."
8 W/ _" g: l: U  set mom_sys_ugpadvkins_used                   "0"

1 r1 O, z! o, L) S+ G8 E# }####### KINEMATIC VARIABLE DECLARATIONS ##############
5 |$ g: y+ z8 t$ H' [$ e  set mom_kin_arc_output_mode                   "FULL_CIRCLE"
+ v: ^  g, I2 d' u8 n7 Q  set mom_kin_arc_valid_plane                   "XY"
  set mom_kin_clamp_time                        "2.0"
5 a: Q+ ?: p7 D; C0 o& }- t  set mom_kin_flush_time                        "2.0"
% Q) b/ S- P6 e: \" l* h6 J  set mom_kin_linearization_flag                "1"  
) B) g) {; f1 L+ g6 v  set mom_kin_linearization_tol                 "0.001"
) B9 R2 x! R/ B# f  set mom_kin_machine_resolution                ".001"
  set mom_kin_machine_type                      "4_axis_wedm"
  set mom_kin_max_arc_radius                    "99999.999"
  set mom_kin_max_fpm                           "10000"
6 N7 H1 g( B9 A9 j  set mom_kin_min_arc_length                    "0.001"
* _8 G% L0 l- r- g3 ?1 ~  set mom_kin_min_arc_radius                    "0.001"
7 m9 r, K  R  n( |% Y4 X  set mom_kin_min_fpm                           "0.01"
6 |  K) k" X( |8 y; [  set mom_kin_output_unit                       "MM"
& U& W+ N; \3 H" C3 ?5 ^. j* g; C  set mom_kin_post_data_unit                    "MM"
  set mom_kin_rapid_feed_rate                   "15000"
  set mom_kin_tool_change_time                  "12.0"
( c8 K% F$ j! l& z+ d  set mom_kin_wire_tilt_output_type             "COORDINATES"
& e! [% k' k5 [8 G, A  set mom_kin_x_axis_limit                      "1000"
4 N1 E2 E/ R0 }7 w* F8 O" \  set mom_kin_y_axis_limit                      "1000"
9 \' M# c4 l3 C% f3 z  set mom_kin_z_axis_limit                      "1000"
2 L$ \0 f. I9 b
' Y. G& s( t" g6 X


* c2 A. e, g1 N: @/ {# X5 n1 \" @if [llength [info commands MOM_SYS_do_template] ] {
   if [llength [info commands MOM_do_template] ] {
      rename MOM_do_template ""
8 i) I8 w* E& T% A. z   }
   rename MOM_SYS_do_template MOM_do_template
7 `  U  M( ~" }3 `7 c  [: ]2 Q}




; U$ C. p, Y2 J$ Z- w9 ?) P#=============================================================
+ e! F( b9 Z0 z# f  G9 ^3 q) Sproc MOM_start_of_program { } {
/ Y/ k7 G, E) A, P- T+ k#=============================================================
0 v7 |2 z; m$ p' l  global mom_logname mom_date is_from
  global mom_coolant_status mom_cutcom_status
  global mom_clamp_status mom_cycle_status
  global mom_spindle_status mom_cutcom_plane pb_start_of_program_flag
  global mom_cutcom_adjust_register mom_tool_adjust_register
  global mom_tool_length_adjust_register mom_length_comp_register
( k( r5 E* x* }4 k  g  global mom_flush_register mom_wire_cutcom_adjust_register
5 u# Q, i5 x! S% ]& s" u  global mom_wire_cutcom_status
0 |' @7 f( Q, ^+ |& U: X
0 q* |' }" s5 a- N    set pb_start_of_program_flag 0
8 x0 D; _7 j4 B  Q) b    set mom_coolant_status UNDEFINED
    set mom_cutcom_status  UNDEFINED
    set mom_clamp_status   UNDEFINED
    set mom_cycle_status   UNDEFINED
% _5 C& G+ x# W2 f! F    set mom_spindle_status UNDEFINED
  O1 s/ N/ b0 x9 x7 y. q    set mom_cutcom_plane   UNDEFINED
4 S# ^( ]0 W; J3 B; j    set mom_wire_cutcom_status  UNDEFINED

    catch {unset mom_cutcom_adjust_register}
2 x) i0 l) K1 v* V: h    catch {unset mom_tool_adjust_register}
/ L+ r/ b, V# h3 |$ c+ j    catch {unset mom_tool_length_adjust_register}
# q. {0 k9 u) e( B    catch {unset mom_length_comp_register}
    catch {unset mom_flush_register}
/ h1 c$ G; }1 w7 ?$ D    catch {unset mom_wire_cutcom_adjust_register}
- k- |0 p. d. x. k9 t8 ?3 W9 I
    set is_from ""
! T- E# E+ z0 {0 A+ C* K4 p# ?2 L
; I# C& G4 l! E) n% C    catch { OPEN_files } ; #open warning and listing files
    LIST_FILE_HEADER ; #list header in commentary listing
( N$ U4 l% [" D! ?4 [  R. o  V5 P! G

3 z$ F" _8 l4 t
; T* r, M, P4 p( X& K  global mom_sys_post_initialized
  if { $mom_sys_post_initialized > 1 } { return }
! B* t- k# s+ f! U6 T0 c

#************
uplevel #0 {

2 V/ g$ X3 Z! E7 Y( A( @5 ]
#=============================================================
2 O* X( d; T1 t6 m% `0 Nproc MOM_sync {} {
7 @3 s6 G1 R2 V- y! w7 m#=============================================================
' X& X% q7 }; b6 C  Z4 H/ i5 L  if [llength [info commands PB_CMD_kin_handle_sync_event] ] {
    PB_CMD_kin_handle_sync_event
* M+ t! g% K2 Y  }
2 A/ P0 F# V% \) c( N7 X}

+ t6 g1 j+ E! n  M
& o- G: C) @6 R% O6 }$ J0 u5 r#=============================================================
proc MOM_set_csys {} {
#=============================================================
  if [llength [info commands PB_CMD_kin_set_csys] ] {
    PB_CMD_kin_set_csys
  }
# T! L- ?2 R/ ?5 }6 g}


0 W0 ~$ ]) E8 @' H9 [, H#=============================================================
proc MOM_msys {} {
9 P3 d) t! D, C+ G#=============================================================
}

9 @& s7 Z  H% h: j6 G! E4 j  h
# w$ I$ z  e% U+ ~6 I#=============================================================
proc MOM_end_of_program { } {
4 o7 y# T0 N9 I2 t: p; j5 v: [#=============================================================
   PB_CMD_end_of_file
   PB_CMD_calc_machine_time
" v% e8 o6 z# Z4 c) K9 K6 q6 G( J
#**** The following procedure lists the tool list with time in commentary data
3 R: i% @- ?. C! _3 J" z: p! f   LIST_FILE_TRAILER

% g( t# x2 _9 Z8 V2 q& z% ]#**** The following procedure closes the warning and listing files
   CLOSE_files
% U* A* y9 ]* V; T}


' A6 d" h4 R+ f/ t* H3 X  incr mom_sys_post_initialized

3 M0 a. U6 e" _- K+ n
} ;# uplevel
#***********
2 L" r" }0 V3 _$ P& _6 @+ |' V  r
- y; |3 h: K( m1 l2 t2 ?# `, d
3 l) r+ f4 Q- V% `' Y9 J}
3 v1 y( B* E2 W+ P
5 K4 X5 _* P! F8 q$ A8 B! y, }- b
7 t4 R+ a0 {" i; x9 y#=============================================================
, V: J: [% T5 M+ i" aproc PB_DELAY_TIME_SET { } {
#=============================================================
  global mom_sys_delay_param mom_delay_value
6 N* L3 R. ~. |  global mom_delay_revs mom_delay_mode delay_time
! N) Y: Y5 N# l; X4 C
   # post builder provided format for the current mode:
( U8 T2 o4 @" |2 B    if {[info exists mom_sys_delay_param(${mom_delay_mode},format)] != 0} {
6 m$ t+ E/ C; B1 m      MOM_set_address_format dwell $mom_sys_delay_param(${mom_delay_mode},format)
* F  R' {- A. @+ y0 X    }

7 m: J) H: z+ D* e; V& y6 v    switch $mom_delay_mode {
      SECONDS {set delay_time $mom_delay_value}
- B8 g, @% F, P1 A. @      default {set delay_time $mom_delay_revs}
    }
}


, k6 L) u$ H/ w6 S' F#=============================================================
proc MOM_before_motion { } {
#=============================================================
  global mom_motion_event mom_motion_type

    FEEDRATE_SET
3 w: M) k9 L+ ~9 ~  A$ i. l2 y1 o2 H7 ~
1 j: \/ ]6 _* f0 g4 }7 a/ [( @" a
    switch $mom_motion_type {
  Q; @; M1 R& s2 F1 N1 h9 h      ENGAGE   {PB_CMD_kin_wedm_engage_move}
& r! S- u3 F9 c1 X      APPROACH {PB_approach_move}
0 k4 J& a0 E* g" F* H0 X      FIRSTCUT {PB_first_cut}
* L3 @7 ?* n8 q      RETURN   {PB_return_move}
" \* G9 M8 a- C1 C. r4 f    }

8 e/ z" {# G9 R    if [llength [info commands PB_CMD_kin_before_motion] ] { PB_CMD_kin_before_motion }
    if [llength [info commands PB_CMD_before_motion] ]     { PB_CMD_before_motion }
}
, L3 Y8 N5 c5 c4 |3 j
& t8 c7 p  }( |. ?" ?# j
3 g) P6 s- M3 i2 s1 q#=============================================================
& K( f1 Z, c" F) w% x8 q5 e$ l* f% e0 xproc MOM_start_of_group {} {
#=============================================================
  global mom_sys_group_output mom_group_name group_level ptp_file_name
  global mom_sequence_number mom_sequence_increment mom_sequence_frequency
  global mom_sys_ptp_output pb_start_of_program_flag
( M* I" z& d- i
, o/ \" W+ c. v* s! p# w; @$ r    if {![hiset group_level]} {set group_level 0 ; return}
# A/ I; h3 h) J( @+ @7 b6 q2 ?
# E  e% X7 Z% M3 E    if {[hiset mom_sys_group_output]} {if {$mom_sys_group_output == "OFF"} {set group_level 0 ; return}}

    if {[hiset group_level]} {incr group_level} else {set group_level 1}
    if {$group_level > 1} {return}
% _+ u8 Y  {5 g  x' A4 s$ ]4 l
    SEQNO_RESET ; #<4133654>
$ R& p( A9 y" O, n$ b    MOM_reset_sequence $mom_sequence_number $mom_sequence_increment $mom_sequence_frequency

    if {[info exists ptp_file_name]} {
( s7 b! j( N6 n8 ^: {- x      MOM_close_output_file $ptp_file_name ; MOM_start_of_program
      if {$mom_sys_ptp_output == "ON"} {MOM_open_output_file $ptp_file_name }
4 [1 {, }3 g$ {9 a& `    } else {
      MOM_start_of_program
- n, C1 J- m$ H( d! b2 _    }

+ D  l8 Y' |0 z" P    PB_start_of_program ; set pb_start_of_program_flag 1
. l, l$ E. C7 C: V4 J}
% ^' `$ R/ @6 Q/ b" R& Q' M

#=============================================================
+ A% l% y6 ]5 W9 e. _5 T, Uproc MOM_machine_mode {} {
#=============================================================
  global pb_start_of_program_flag
  Z3 B1 v1 [0 i5 `5 y4 _# x' \  global mom_operation_name mom_sys_change_mach_operation_name
8 C# I/ m  F$ z- [9 N
  v. c) H5 Y. E9 Q   set mom_sys_change_mach_operation_name $mom_operation_name
1 j/ A+ d6 v6 T: W; r, O: V
) p" I( m& X+ y    if {$pb_start_of_program_flag == 0} {PB_start_of_program ; set pb_start_of_program_flag 1}

    if [llength [info commands PB_machine_mode] ] {
% v: d( J: m* T8 D. v       if [catch {PB_machine_mode} res] {
          global mom_warning_info
9 h: K5 }. a! `7 n; J9 S& A          set mom_warning_info "$res"
          MOM_catch_warning
       }
( t* m& A& r: L) H% h8 y4 @    }
}


#=============================================================
1 \8 k9 x) S6 a7 x7 Hproc PB_FORCE { option args } {
1 c% K) t1 i  j* L6 F#=============================================================
   set adds [join $args]
   if { [info exists option] && [llength $adds] } {
; b. F2 }! A8 v1 C6 z) T0 s! r  m      lappend cmd MOM_force
& R' W! W. d) p1 C; c      lappend cmd $option
+ L& [5 ^3 D, @      lappend cmd [join $adds]
      eval [join $cmd]
* }' B5 F' M( l5 ?. I   }
}
2 L' }7 ~8 @  ~: \' }$ D* N9 C4 W/ a
0 `1 f. x. }& g- g$ e1 D) r
#=============================================================
proc PB_SET_RAPID_MOD { mod_list blk_list ADDR NEW_MOD_LIST } {
  C5 n3 ?# J1 N1 m) p) z6 i#=============================================================
  upvar $ADDR addr
; P) ~  J9 Y5 _* a; r  upvar $NEW_MOD_LIST new_mod_list
/ l/ \" W( I+ K7 h1 T3 d  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2
' |# t7 C# |, v9 G" g" j4 n; b" B0 w

: ?# y& c& O1 W. R7 w" Y: M( [   set new_mod_list

   foreach mod $mod_list {
4 ^5 Z& b% j  c. ^9 J      switch $mod {
         "rapid1" {
            set elem $addr($traverse_axis1)
            if { [lsearch $blk_list $elem] >= 0 } {
               lappend new_mod_list $elem
            }
         }
         "rapid2" {
            set elem $addr($traverse_axis2)
1 q: T. ]9 z# a; n, T9 o            if { [lsearch $blk_list $elem] >= 0 } {
6 ?: H6 V. b+ l6 b8 o               lappend new_mod_list $elem
            }
* P- C+ b; R+ a0 b6 A  v         }
0 V& {6 B5 ^" m" i         "rapid3" {
            set elem $addr($mom_cycle_spindle_axis)
            if { [lsearch $blk_list $elem] >= 0 } {
: o9 g5 C$ g/ ^! C               lappend new_mod_list $elem
            }
# R: M$ I, ]+ }. `  a. j         }
         default {
            set elem $mod
            if { [lsearch $blk_list $elem] >= 0 } {
               lappend new_mod_list $elem
& ]6 F6 I0 i1 P" C            }
3 G3 [2 _1 M! M         }
      }
   }
}

) T8 ?* R! D; c$ ^  m- E5 G' Z
% a2 A* t( a. W8 ^( H( j########################
5 o5 f. |8 J7 F1 U0 `3 n: s" i# Redefine FEEDRATE_SET
  L# I8 L* g, l/ D6 }8 u; R8 b########################
if [llength [info commands ugpost_FEEDRATE_SET] ] {
   rename ugpost_FEEDRATE_SET ""
}

if [llength [info commands FEEDRATE_SET] ] {
   rename FEEDRATE_SET ugpost_FEEDRATE_SET
} else {
   proc ugpost_FEEDRATE_SET {} {}
}

( a1 \. g$ l' m3 y8 W" O
#=============================================================
proc FEEDRATE_SET {} {
" F5 J' F% x  l1 Z" k#=============================================================
   if [llength [info commands PB_CMD_kin_feedrate_set] ] {
  i" x$ B$ P( \0 d0 P3 I6 P: d      PB_CMD_kin_feedrate_set
   } else {
      ugpost_FEEDRATE_SET
$ I: K3 T% S( S" o   }
- U1 k% |; w5 Q8 I}

2 Q0 V+ `) m. A' d, o9 \7 A" O
- D% s1 L# X8 C- v* j#=============================================================
* ^6 b6 L/ ]; c/ A. Gproc MOM_wire_cutcom { } {
#=============================================================
  global mom_wire_cutcom_status mom_wire_cutcom_mode
  global mom_cutcom_status mom_cutcom_mode

9 |: g/ i6 A- V  B/ s) D    set mom_cutcom_status $mom_wire_cutcom_status
    set mom_cutcom_mode $mom_wire_cutcom_mode
* x8 U4 N7 G2 C  a; f/ c
    switch $mom_wire_cutcom_status {
. P0 \5 K! a8 A! J, P# d% Y- x       ON  { MOM_cutcom_on }
       OFF { MOM_cutcom_off }
" I& q4 b* ?$ N+ f% M3 l    }
( S1 v! O6 N9 V* R- P8 o}
6 f  p. {4 H9 }% l6 @& @" ~+ N
/ ]6 D9 T8 w1 V! z
$ @0 u! N! c; V8 K  E* X############## EVENT HANDLING SECTION ################
) V" G! _4 d/ E3 W' t

: A* |0 r8 q; S6 [#=============================================================
7 U9 h5 |; s( @0 ~! x: Zproc PB_start_of_program { } {
3 T3 k/ p1 X9 t: `3 V#=============================================================

   if [llength [info commands PB_CMD_kin_start_of_program] ] {
      PB_CMD_kin_start_of_program
  I3 \2 a2 B2 x- V$ b$ V, [) d   }

/ F2 r9 n- `& q9 S5 _3 S8 T   PB_CMD_start_of_file
& s9 u& x: o0 A- x3 r; d& ^; [$ G   PB_CMD_start_of_program
/ ?$ [$ S' Y$ T! i) F& x   PB_CMD_start_of_conic
   PB_CMD_first_move
; N8 y1 M+ i+ m   PB_CMD_drill
) O: z0 b# R1 p1 d}

" E: }1 g' E% A' {
4 B! {; }! F, ]; [$ T#=============================================================
proc MOM_start_of_path { } {
& {8 i: k- b' X" R" J& F; r. ?#=============================================================
1 _8 b8 t. L7 S  global mom_sys_in_operation
   set mom_sys_in_operation 1
+ u# M/ D1 u( q# C3 ?+ o
; X* X, M6 K  U5 |& z6 K6 ~  global first_linear_move ; set first_linear_move 0
   TOOL_SET MOM_start_of_path

   if [llength [info commands PB_CMD_kin_start_of_path] ] {
- j9 ?2 c' a- {8 n; p      PB_CMD_kin_start_of_path
& w( r3 ~% ?! S/ g& I+ x* R' I& B   }
# T, a4 ]: `) A& C( i; q
   PB_CMD_start_of_program
}

. J) i) p2 f# S; n3 U6 v
% x2 w6 s, n; L/ L#=============================================================
) {2 L+ M  {( m1 }- r* s" Y$ _proc MOM_from_move { } {
1 z# m/ \) X* T$ R7 x, t#=============================================================
4 m, y7 C+ N, R& |" ~+ N  global mom_feed_rate mom_feed_rate_per_rev  mom_motion_type mom_kin_max_fpm
3 V1 n( T% a- }   COOLANT_SET ; CUTCOM_SET ; SPINDLE_SET ; RAPID_SET
; k4 z$ H: e6 i4 m* k, U7 c: `}
$ H4 D$ `/ _% c8 [

#=============================================================
/ U+ ]* s9 @( y9 b4 Fproc PB_approach_move { } {
#=============================================================
0 u; X1 X! Z) V) U( B$ G1 w}
( J3 @1 S8 W/ @# q+ W2 i

#=============================================================
proc MOM_start_of_pass { } {
#=============================================================
) R- e& u7 Z% w1 N) r  global mom_sys_start_of_pass
, R% b# m! e9 R* d7 i( A% N  set mom_sys_start_of_pass 1
% V0 M: q0 G' q- F, J   PB_CMD_start_of_pass
" \& k! G$ _$ d  I, W}

# i$ F( n+ ^8 L2 R3 S4 u( x
#=============================================================
! ^3 ]+ x) k8 vproc PB_cutcom_move { } {
#=============================================================
}
+ `' p3 U( g$ ~

#=============================================================
proc PB_lead_in_move { } {
. L+ U2 l: S/ S5 J) z) C3 |  }#=============================================================
7 \+ s( o9 B. v. @3 U}

& P' d$ v1 d# ^1 b2 @: y
! D% a5 C( ?8 o#=============================================================
# }/ }' H. u* q- E% d5 x7 R4 Oproc PB_lead_out_move { } {
#=============================================================
( f6 j1 u# k2 p- ]  M, U}

5 R) g7 ]% E" F7 ?2 r8 w- i+ Z
#=============================================================
( C: W- @2 \8 f; Y: Yproc MOM_end_of_pass { } {
7 c/ B' r7 F1 u5 Z! j. F#=============================================================
! s, v+ x3 q% e, b9 \  PB_lead_out_move
   PB_CMD_cutcom_off
% ?. P* ^: @, Y  {}
* w" B) Q' Z' U* b) t; L  d
  L+ S8 p9 C: J0 L) C" |  g8 O6 S
3 S4 w8 [6 k8 u) q#=============================================================
proc MOM_gohome_move { } {
#=============================================================
. C- [+ ]) O6 v0 D   MOM_rapid_move
6 a$ |& Z7 e% {( u: y; |* k+ c}
& P* I2 b2 Q  G! r) G/ \; _

! G7 S( }* y% g7 h" j, r#=============================================================
, b0 o% G" ?: B* F0 fproc MOM_end_of_path { } {
#=============================================================

   if [llength [info commands PB_CMD_kin_end_of_path] ] {
% f1 q: H+ J5 j3 x7 J+ u      PB_CMD_kin_end_of_path
   }

   global mom_sys_in_operation
  L9 h! }! e7 f2 P% e3 ^   set mom_sys_in_operation 0
}
, t! e2 n( O2 Z3 ^

' y1 G( Z* W/ U" w#=============================================================
proc MOM_thread_wire { } {
" H0 Y- a; \# F  k  [6 v( H#=============================================================
5 r2 b' ]- X9 k  I$ x8 n6 D% w}
! Q. Q- H/ e% d
& O0 b& t! y9 n
#=============================================================
" S* T! ~! y5 F' ?proc MOM_cut_wire { } {
0 q* E' y. ^( h. ~#=============================================================
2 T: ^* Q9 W5 u$ n7 |' T/ e}


#=============================================================
proc MOM_wire_guides { } {
8 |( E$ E2 J4 l2 J1 V1 z6 v$ M2 t#=============================================================
   PB_CMD_work_coordinate
* v+ Q* H& o! |5 i}
; s9 I1 Q) p; [
. g, v& v9 F; {6 p6 c
#=============================================================
proc MOM_set_mode { } {
( t  }  ]+ Z! O" q#=============================================================
9 P2 |8 G# D) c3 N; O: V! k9 z1 V}
# p8 c& V6 O( z8 _

#=============================================================
1 g8 G1 C. Z5 ]  {* @proc MOM_cutcom_on { } {
6 ]" h9 P  V7 K) z#=============================================================
# q; ]; V- n6 f( C1 r   CUTCOM_SET
% }) m# B! r" p% ^# {   PB_CMD_cutcom_on
}

' y8 [& R6 D0 S5 E. m; ?
#=============================================================
proc MOM_cutcom_off { } {
#=============================================================
   CUTCOM_SET
   PB_CMD_cutcom_preoff
}


, j% y- L( w# T# @# L#=============================================================
proc MOM_feedrates { } {
#=============================================================
6 k: y$ G( f* D+ y# S}

$ S7 a" S+ W+ M. k  C, A
#=============================================================
proc MOM_delay { } {
) D5 Q& p6 a0 d7 \0 N#=============================================================
   PB_DELAY_TIME_SET
   MOM_do_template delay
}
4 G# {) p# ]7 p; X
# M# w% ~) S, U" N& V8 A7 a' H
" i$ s: O1 K$ o' u5 J5 c$ T#=============================================================
proc MOM_auxfun { } {
#=============================================================
}


#=============================================================
proc MOM_prefun { } {
1 q3 ]3 V# o3 e  ]#=============================================================
}
5 W8 Q6 I: v, W' U/ q- B
( f; F0 ~2 u2 d6 W' Q) X* ~' l1 ^
#=============================================================
" b5 J% ~5 [) k: S1 n) Sproc MOM_stop { } {
#=============================================================
, Z+ w4 E+ m9 O. J. L4 V6 m+ h   MOM_force Once M
   MOM_do_template stop
6 J8 }8 z( L% o% x6 u) T  e% w* r}
2 |" n: C' ?0 w7 }: n. _: h

#=============================================================
! r# _1 F6 R3 ~$ @4 _  w8 yproc MOM_opstop { } {
#=============================================================
( Y; }- `5 G' ], v* Y' M8 S  f6 A   MOM_do_template opstop
# ?% z- ?8 _8 `( Z4 ], V( m}

: \+ C, u  R  O
#=============================================================
proc MOM_linear_move { } {
#=============================================================
  global feed_mode mom_feed_rate mom_kin_rapid_feed_rate
) s8 S" s- I1 p5 ^! I
   if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
1 i+ Z3 q8 L8 D$ Y- |: W7 m# C      if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
         MOM_rapid_move
0 w% M' `* F. J         return
5 k4 V  W2 o0 i4 n$ l5 U4 z( \      }
   }
/ ]' B+ W2 y# C( r8 A
1 m% A! f9 m% N" H. F% Q; h2 U" K   PB_CMD_linear
7 _5 g! M' X/ n4 Z}
% Y1 f$ j) V4 m; O& m

/ w' V. c* `* F* \8 j4 w5 r+ p5 a#=============================================================
proc MOM_circular_move { } {
#=============================================================
   PB_CMD_circular
}
7 F$ C8 X1 r9 G' k. \) f

#=============================================================
proc MOM_rapid_move { } {
#=============================================================
  global rapid_spindle_inhibit rapid_traverse_inhibit
  global spindle_first is_from
8 ^* e5 z, H! X: r$ J  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2
  global mom_motion_event
3 H. O4 d7 W3 ^! l
% s9 k. l$ C; t   set aa(0) X ; set aa(1) Y ; set aa(2) Z
   RAPID_SET
8 z! S" h" _: i/ k8 p2 o   MOM_do_template rapid_move
/ ^' |/ l9 T7 z3 ~% m% B' m}
) t& }* \$ _" k' o, a0 U

4 R5 \9 H* M& J& N8 j3 b) H( D1 M#=============================================================
. T( m3 H9 Y* j' i. W. {proc MOM_cycle_parameters { } {
4 t& T: }! N" Z$ }0 g4 f#=============================================================
' _0 v7 m5 {0 T6 \; d  \" d: U}


#=============================================================
* p; [5 \& f. sproc MOM_sequence_number { } {
#=============================================================
   SEQNO_SET
6 E0 m+ D6 z1 C1 ^, s& U5 i% `8 ]& u}
! D: r& F, w% [0 z1 w4 E

#=============================================================
proc PB_CMD_before_motion { } {
, K# I7 z& q. C; @1 w#=============================================================
global mom_motion_type
2 b5 d. R; J8 j& [. ?: Iglobal mom_current_motion
4 ], `6 A4 U1 a  B+ x/ Lglobal mom_motion_distance
* t2 V8 `. v' n8 W) D. E2 k0 L' \global momPathLength
& K$ [$ m: [9 @3 L1 S, U
MOM_reload_variable mom_motion_type
' X& p* Z0 C$ J  Q' h  U& D* Z9 uMOM_reload_variable mom_current_motion
# z) u4 B8 H: G6 n9 o8 c5 [
% f/ k' f$ \  I: z4 T3 @if { ($mom_current_motion == "first_move") && ($mom_motion_type == "RAPID") } {
   ## Set location point befor First Move:
   MOM_output_literal "/G05"
   MOM_output_literal "/G06"
8 R! \4 ]3 i9 X   MOM_output_literal "/G08"
   MOM_do_template rapid_move
2 g/ i6 O% v* W( D% V   MOM_do_template location_start_point
   return
% h6 ]. F6 b" P} elseif { $mom_motion_type == "RAPID" } {
- g; {) e" C: ]3 k6 Q   ## When rapid move, insert and append pause activation:
   MOM_output_text " "
1 c3 \+ r5 f( v: V$ z   MOM_output_literal "M00"
   MOM_do_template rapid_move
   MOM_output_literal "M00"
   MOM_output_text " "
/ x- J2 Y$ I5 X/ k+ r   return
} elseif { $mom_motion_type == "CUT" } {
/ V5 K9 J0 N# M9 S" A( q   set momPathLength [expr $momPathLength + $mom_motion_distance]
+ `/ U& V8 C5 c% l; L' O}
6 |9 R& U/ u" n' W! @  t# ~}


( V7 Z* Y$ H- {: m1 r/ N7 z#=============================================================
3 g0 a/ i" w" D3 U+ l4 F8 nproc PB_CMD_calc_file_size { } {
#=============================================================
% g( ]/ l/ @. }/ o9 P7 E/ x3 \& t" |* Sglobal ptp_file_name

MOM_close_output_file   $ptp_file_name
- _3 b. h) X9 }set ptp_size [file size $ptp_file_name]
MOM_open_output_file   $ptp_file_name

MOM_output_literal "( NC file size = $ptp_size bytes )"
7 G; C5 ^$ m/ s: q  Z) B' o}

3 X9 D" z+ s/ r  H; B3 D7 `
#=============================================================
$ s; v+ J0 q6 _+ M9 X. W6 S7 n0 }! hproc PB_CMD_calc_machine_time { } {
#=============================================================
7 f# z7 \& J7 d) E$ Y- [global momPathLength
global mom_wire_guides_lower_plane
+ c% H, K) ^7 M" G' d" W+ Q6 cglobal mom_wire_guides_upper_plane
global mom_feed_rate
global mom_wire_feed_rate
$ {/ v; [) e, l: H0 I# C! b
global mom_kin_machine_type
global mom_machine_mode
) a# C& Y1 q" A4 G

if {$mom_machine_mode == "WIRE" } {
   MOM_output_literal "( Toolpath Length = [format "%6.2f" $momPathLength] mm )"
& r  P- C) N6 _, B" X   set momMachineTime  [expr $momPathLength *  ($mom_wire_guides_upper_plane - $mom_wire_guides_lower_plane) / $mom_wire_feed_rate ]
   MOM_output_literal "( Machine Time = [format "%4.0f" $momMachineTime] min. )"
5 o) t+ y. `- w
   PB_CMD_calc_file_size
}
}
. o# O2 a8 w( [8 M
+ n7 ?5 n7 x* K# y
#=============================================================
# ~2 }+ ?3 R. i# c( j- C9 y3 ?proc PB_CMD_circular { } {
6 C9 C; K: Z. Y$ L+ P#=============================================================
global mom_tape_status
& m0 B8 P) Q  Q; m2 \0 f7 ?' @5 aif { ($mom_tape_status == "ANGLE") || ($mom_tape_status == "NONE") } {
   MOM_force Once G_motion X Y I J
6 g+ q# H) x# ~9 a! b: D/ b& {   MOM_do_template circular_move
} elseif { $mom_tape_status == "CONIC" } {
   MOM_force Once G_motion X Y I J
   MOM_do_template circular_move_conic
4 g3 m3 ?* R$ Y5 [. {& L} else {
   MOM_force Once G_motion X Y I J Text G_motion_upper X_upper Y_upper I_upper J_upper
   MOM_do_template circular_move_complex
}
}
+ o& ]7 a4 J4 L$ D. T& K

#=============================================================
( h# Q9 T8 u# j" p* D9 Xproc PB_CMD_cutcom_off { } {
#=============================================================
% _2 w5 x9 k2 zglobal mom_wire_guides_lower_plane
' d9 C$ o' o  N3 h/ I7 ?global mom_wire_guides_upper_plane
global mom_tape_status
global mom_sys_cutcom_code(OFF)
global momComplex

if { $mom_tape_status == "CONIC" } {
$ n9 V. A+ T) M+ T4 j   MOM_output_literal "G75"
}

8 a# A9 r( Q: B8 m0 F' e/ nif { $mom_tape_status == "COMPLEX" } {
   if [info exists momComplex] { unset momComplex }
% F2 K: U+ [0 g% j- u} else {
+ g9 ~8 u6 F4 n* u   if { $mom_tape_status == "ANGLE" } {
; E- ?% ^& s, V9 P- ]+ ~3 g& M/ S9 H      MOM_output_literal "G40"
      MOM_output_literal "G50"
( _  P: h6 J5 Z) c   } else {
      MOM_output_literal "G40"
! u2 L5 F  {  D( R1 T* [1 ?   }
}
}

: G& w1 K* t0 S3 F& i% T: r
' J+ |; n# j9 Q+ \+ m, z#=============================================================
# l# G2 ?( p) Q$ yproc PB_CMD_cutcom_on { } {
; o5 F% _+ N) P#=============================================================
global mom_wire_guides_lower_plane
* i" v6 `* e$ v0 O; {3 a% Eglobal mom_wire_guides_upper_plane
- S! M) B/ S# k1 m  p$ Qglobal mom_tape_status
global mom_sys_cutcom_code
  z/ z8 ~# Q* {6 bglobal momComplex
global momConic
global mom_wire_angle_command
2 a9 T% U+ }* @' l! z
global mom_sys_cutcom_code(LEFT)
: N9 F: w- J5 P5 Q3 p' Tglobal mom_sys_cutcom_code(RIGHT)
% l5 K1 y- M- Y& O9 Uglobal mom_sys_cutcom_code(OFF)
9 c2 u7 a$ A- U4 N% B( u# oglobal mom_wire_cutcom_mode
% b9 v* `8 _. I) v: U  P3 ?( nglobal mom_wire_cutcom_status
global mom_wire_cutcom_adjust_register
global mom_wire_cutcom_user_register
( L' D4 p" I! O, y
6 @, \  J4 W" ^" g" J. \" _MOM_reload_variable mom_wire_cutcom_user_register
9 f% C; Y, s. `0 _MOM_reload_variable mom_wire_angle_command
7 ~3 R1 k  h# [( ]" X- M' k. U% A  UMOM_reload_variable mom_wire_cutcom_adjust_register
MOM_reload_variable mom_tape_status

if { $mom_wire_cutcom_user_register != $mom_wire_cutcom_adjust_register } {
   set mom_wire_cutcom_adjust_register $mom_wire_cutcom_user_register
}
9 s0 S" s& X9 a* R7 L+ ]! Q: _
if { $mom_tape_status == "COMPLEX" } {
   MOM_do_template cutcom_on_complex
& c5 s* ]1 W  n# l9 Y0 ~: s* J   set momComplex 1
} else {
   if { $mom_tape_status == "ANGLE" } {
* D1 O; K/ a( c% e# T, |      if { ![info exist mom_wire_angle_command]} { set mom_wire_angle_command "G551 A0" }
8 K7 x: N$ K, i' b5 G9 f7 D$ o      MOM_output_literal $mom_wire_angle_command
. P0 B: e; X) C( V   }
% e5 b- Y' X6 _1 W# p- Z   if { $mom_tape_status == "CONIC" } {
      set momConic 1
   }
   MOM_do_template cutcom_on
}
! r" T4 J$ |7 E1 H4 W}

- D/ ]$ d1 n: }' H7 F
. }) s  J' r0 V9 p0 U& i' N#=============================================================
proc PB_CMD_cutcom_preoff { } {
' [0 s7 b* y8 H; `#=============================================================
global mom_wire_guides_lower_plane
& v8 H9 _( D) `$ C, m. }0 h- Aglobal mom_wire_guides_upper_plane
global mom_tape_status
8 }0 L6 V. @: B9 iglobal mom_sys_cutcom_code(OFF)

MOM_output_literal "M00"
& W4 i: `# s9 j- H" ~- Oif { $mom_tape_status == "ANGLE" } { MOM_output_literal "A0" }
if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "D000" }
}

" z! X$ a: C. I( g' [8 D7 W0 m; \
1 _9 J$ c* N3 Q% O# Q#=============================================================
proc PB_CMD_drill { } {
* [; S/ O; B' C0 z5 p#=============================================================
% C( w$ p5 P9 Vuplevel #0 {
& ?6 B5 d, {8 e  K) v
   set mom_kin_wire_tilt_output_type "COORDINATES"
, `8 f( W: @. C& ?- ?' {   #MOM_reload_kinematics
8 D5 T% D/ [7 o0 w3 M
   proc MOM_drill_move {} {
      global mom_pos
+ X6 V/ ?3 O7 _' h% ]# U
) f6 i4 \8 b. I- @; H      MOM_output_text " "
' B, H1 q. w1 u4 x) [) F( M      MOM_do_template rapid_move
$ ^' j; Z& ~; g* O% E      MOM_output_literal "M00"
7 x$ |" b) M; U$ D, R      MOM_output_literal "M98 P8888"
   }
* L& [  i  u7 `
3 @5 o% U) z; p( S}
. b( t- i- k* e. W3 L9 J}

, }" I, G+ g" |( p8 a( ]
#=============================================================
: y& d* P- W2 q& N: G6 R- S$ Eproc PB_CMD_end_of_file { } {
$ h( g% \/ y2 G! |7 e! Q#=============================================================
7 [0 R9 F) S$ x: Y& `1 s8 IMOM_output_text " "
: N4 \+ X6 {2 l- BMOM_output_literal "G40 G50 G75"
MOM_output_literal "G90 G09"
( d, S; w! ]& x$ ?. [  nMOM_output_literal "T81"
MOM_output_literal "T97"
5 k4 s; e0 p1 l* ^2 V' m/ Y  EMOM_output_literal "M00"
1 ?3 e$ y5 G) j, Y5 g: ^) LMOM_output_literal "M02"
MOM_output_literal "%"
: w' }8 e* @3 |3 dMOM_output_text " "
}

, i$ C( F6 z7 M
#=============================================================
proc PB_CMD_first_move { } {
#=============================================================
uplevel #0 {
# Z0 Q) b. I% e% q) z$ }   proc MOM_first_move { } {
8 T( O, Y. C4 O      MOM_output_text " "
      MOM_abort_event
7 b3 W& e1 p0 `' B5 R- B" J      return
$ B: _- B, n2 p$ S   }
}
9 }% W6 J; T2 E( w! B# C) C1 J2 q}
6 [7 g0 s5 p# p* [0 P# j% X3 k) \

#=============================================================
$ @( ?" \; Q4 o6 L2 \proc PB_CMD_kin_before_motion { } {
* l" ?* {- I9 A- ]#=============================================================
}
( ?% j& `. b' c# |7 K0 {9 ~( `
1 {& I3 W3 k7 Q; X9 p& N; n
#=============================================================
proc PB_CMD_kin_feedrate_set { } {
9 V# g; {+ k. ]) I; b  p0 z#=============================================================
# This procedure supercedes the functionalites provided by the
# FEEDRATE_SET in ugpost_base.tcl.  Post Builder automatically
: H3 o6 j, ]% ?3 `+ |8 X3 F0 d# generates proper call sequences to this procedure in the
# Event handlers.
: _' v4 t7 k( `" ^$ Y#
# This procedure must be used in conjunction with ugpost_base.tcl.
#
  global   feed com_feed_rate
- E% Y( S# I, {  global   mom_feed_rate_output_mode super_feed_mode feed_mode
: `% ~9 s1 v* a8 `4 t8 ?# {  [  global   mom_cycle_feed_rate_mode mom_cycle_feed_rate
  global   mom_cycle_feed_rate_per_rev
3 _4 |4 g, j$ M+ S) N  global   mom_motion_type
. `2 O1 m$ y: B: `1 n6 o  global   mom_warning_info
  global   Feed_IPM Feed_IPR Feed_MMPM Feed_MMPR Feed_INV
& M# x- X. v# T" f# o( A  global   mom_sys_feed_param
9 \6 l/ |  [- Z  global   mom_sys_cycle_feed_mode


  set super_feed_mode $mom_feed_rate_output_mode

  set f_pm [ASK_FEEDRATE_FPM] ; set f_pr [ASK_FEEDRATE_FPR]

  switch $mom_motion_type {

    CYCLE {
% w& ]- M# L3 S      if [info exists mom_sys_cycle_feed_mode] {
# u3 E! E; B& V) H         if { $mom_sys_cycle_feed_mode != "Auto" } {
            set mom_cycle_feed_rate_mode $mom_sys_cycle_feed_mode
         }
      }
      if {[hiset mom_cycle_feed_rate_mode]} { set super_feed_mode $mom_cycle_feed_rate_mode }
      if {[hiset mom_cycle_feed_rate]} { set f_pm $mom_cycle_feed_rate }
# p" t+ b+ O4 m7 p      if {[hiset mom_cycle_feed_rate_per_rev]} { set f_pr $mom_cycle_feed_rate_per_rev }
    }

$ _4 P1 L- X" T3 d, d    FROM -
0 S* L2 d+ I/ H( |. M    RETRACT -
5 \. B0 A$ \2 z    RETURN -
2 _+ V( H7 Y" T% U/ c8 k    LIFT -
    TRAVERSAL -
    GOHOME -
; _5 A7 `, f. d4 X6 Q' `7 `( F* r    GOHOME_DEFAULT -
    RAPID {
; }) w  z% H5 i( }3 @( l% L      SUPER_FEED_MODE_SET RAPID
    }

    default {
6 t, [4 Z: j4 H) A8 w6 O& d( \      if {[EQ_is_zero $f_pm] && [EQ_is_zero $f_pr]} {
        SUPER_FEED_MODE_SET RAPID
& g$ X) g; r& I      } else {
        SUPER_FEED_MODE_SET CONTOUR
      }
5 r1 y; c6 r( k) u    }
  }

% n1 S% S( E- z- y3 n$ z2 I
+ J& y/ C* ~0 z  set feed_mode $super_feed_mode
" L- `2 _  }8 t9 Q: z' ^% K

; Z' }* i! H7 X4 [' I) \  v: p# Adjust feedrate format per Post output unit again.
  global mom_kin_output_unit
+ {* Y# ^! W9 T% ^# e4 d( E  if { $mom_kin_output_unit == "IN" } {
2 ~" Q6 x3 {% T* z8 S9 j! Q+ i     switch $feed_mode {
       MMPM {
  J- m( x. a2 Y  J5 n         set feed_mode "IPM"
0 P2 r9 C7 L! P' }' h6 {         CATCH_WARNING "Feedrate mode MMPM changed to IPM"
       }
       MMPR {
" \) E) W" Q1 _/ `         set feed_mode "IPR"
. g# n9 s  F( M, o1 q9 Y  ]         CATCH_WARNING "Feedrate mode MMPR changed to IPR"
       }
     }
& U8 u0 b2 d1 _9 ]* K8 T1 A  } else {
1 O  T1 K/ E8 B+ z* ^1 z9 Y     switch $feed_mode {
       IPM {
" T# d7 Y# |# R% q$ j; h9 N+ \         set feed_mode "MMPM"
         CATCH_WARNING "Feedrate mode IPM changed to MMPM"
       }
       IPR {
) D# T- b, \' j: k- ~1 k         set feed_mode "MMPR"
         CATCH_WARNING "Feedrate mode IPR changed to MMPR"
       }
     }
  }
; `6 ^. s9 q) K% ?
( F; @1 G+ ^4 ~, v1 P2 s  g. i
  switch $feed_mode {
) G$ e* _& o5 L0 [/ `) G    IPM     -
$ J* c2 u8 p$ |- g% N/ l    MMPM    { set feed $f_pm }
. Q2 P: T/ ~- K: X, P; G" ?% m0 n8 }    IPR     -
    MMPR    { set feed $f_pr }
    DPM     { set feed [PB_CMD_FEEDRATE_DPM] }
    FRN     -
$ S) Y! c6 h! j9 Z0 Y$ [    INVERSE { set feed [PB_CMD_FEEDRATE_NUMBER] }
    default { set mom_warning_info "INVALID FEED RATE MODE" ; MOM_catch_warning ; return }
5 ~- f  m9 _1 @% [) V- i7 R' q  }
+ r' z- Y+ C$ s2 P+ {$ u# j1 L
5 p- R( t' s5 z( E4 r) o, ?, p
# Post Builder provided format for the current mode:
  w0 V+ a- s6 g3 v' S: U  if [info exists mom_sys_feed_param(${feed_mode},format)] {
; V  j+ s7 @/ p) H8 d  r    MOM_set_address_format F $mom_sys_feed_param(${feed_mode},format)
  } else {
+ i  X7 v: C# c* r    switch $feed_mode {
      IPM     -
  c6 U2 \0 J- i/ |. a      MMPM    -
      IPR     -
1 W; |' y6 m7 P6 k      MMPR    -
      DPM     -
      FRN     { MOM_set_address_format F Feed_${feed_mode} }
      INVERSE { MOM_set_address_format F Feed_INV }
    }
' v  u+ Q* o7 @; V9 a  }
% A# W! e  V) F% R6 B% I" u( L
  `4 L7 [% [1 [# Commentary output
% \2 @8 ]: _* O$ E) K* ?, X4 n7 m, X$ z  set com_feed_rate $f_pm
4 u, O( d+ b7 c1 ~' Z' g3 \

# Execute user's commnad, if any.
$ M  X6 T& L. i9 u0 i; }" n  if [llength [info commands "PB_CMD_FEEDRATE_SET"]] {
& [+ y+ d3 C* j2 e9 {0 T     PB_CMD_FEEDRATE_SET
$ I6 V  d* P5 N2 A+ Q; t; }  }
# w5 I, E  ]( L+ A( x' T}
8 L2 l8 ~# G$ \' x6 E; H- S4 V0 L" J8 n
. b; k: t& y' `0 f1 z
' I5 K+ [3 ~6 l5 F7 R) ]/ n& a- @#=============================================================
proc PB_CMD_kin_init_mill_turn { } {
* Q5 ]9 L7 s5 E: l#=============================================================
}

7 T  K1 `4 C# p. e- |1 o
#=============================================================
proc PB_CMD_kin_init_mill_xzc { } {
1 L9 V3 {2 D* H! X" P" ^4 b#=============================================================
* ?; i% l! C6 q3 Y( e- ~; c$ Q}


#=============================================================
0 T, ]1 t' u* v2 n. G; F( F  Fproc PB_CMD_kin_init_rotary { } {
#=============================================================
5 Z: D( Z' u- I0 `1 b, w. S% `) F4 R}
4 u5 @9 `9 q2 M( g" \

#=============================================================
& Q) C6 j& D( Bproc PB_CMD_kin_linearize_motion { } {
#=============================================================
}
9 v! p" D% b1 Q0 p
! J3 r' V% f- o  K' e6 n
#=============================================================
proc PB_CMD_kin_mill_turn_initialize { } {
#=============================================================
}


) W1 h' }/ p: {9 ]$ \  a4 y#=============================================================
proc PB_CMD_kin_mill_xzc_init { } {
; m! y& T3 ^3 U- e- F$ L& l#=============================================================
0 p* K( y* b1 b& d5 \: X6 ?: ?0 f$ J}
. o$ Z+ l( z6 a' X+ K

5 o& H$ G* d. s4 q#=============================================================
3 T$ n6 O2 E/ _1 u* Wproc PB_CMD_kin_set_csys { } {
' w  d& z" ^) V#=============================================================
   if [llength [info commands PB_CMD_set_csys] ] {
7 {9 Q% t* n  H3 S7 Q" K      PB_CMD_set_csys
& Y( [' u" V' c. g   }
1 D) x6 t9 h5 @5 e3 e}

5 U( n) z$ U' L8 h" }
% K% \( l$ j+ ^/ d8 o) A+ U#=============================================================
proc PB_CMD_kin_start_of_path { } {
#=============================================================
#
5 w, M7 d2 I  x! `6 e5 U  I( I#  This procedure is executed at the start of every operation.
5 y+ M" d, y% i3 c, B6 j#  It will check to see if a new head (post) was loaded and
#  will then initialize any functionality specific to that post.
- x2 w; a0 e! ?% j* E" W#
#  It will also restore the initial Start of Program or End
$ o# O% ?! W$ R6 K. d#  of program event procedures.
* I5 g, G3 E/ ?- c#
#  DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING.
#  DO NOT CALL THIS PROCEDURE FROM ANY OTHER CUSTOM COMMAND.
#
# E2 U) N# q. V/ Q+ {. l! J. m  global mom_sys_head_change_init_program
; m/ m! a1 z: N- ^
   if [info exists mom_sys_head_change_init_program] {
& s: K( [( d; X. r! K* S) O
: l9 |* r& n! N. }      PB_CMD_kin_start_of_program
      unset mom_sys_head_change_init_program

7 P& z' [- A  b0 e     # Restore master start & end of program handlers
      if [llength [info commands "MOM_start_of_program_save"]] {
         if [llength [info commands "MOM_start_of_program"]] {
            rename MOM_start_of_program ""
$ u  K( B/ f4 g3 n% f         }
         rename MOM_start_of_program_save MOM_start_of_program
0 y6 [' T3 Q7 j0 A- u/ j% U      }
9 N+ D7 H2 C6 a5 N) f4 Z      if [llength [info commands "MOM_end_of_program_save"]] {
         if [llength [info commands "MOM_end_of_program"]] {
# G" `9 V' `' s; [5 u0 m5 A            rename MOM_end_of_program ""
         }
         rename MOM_end_of_program_save MOM_end_of_program
& c1 K: \" W3 J      }
4 n# e& Q$ H+ Y' m7 Y" g: U
1 w) h1 b9 [% V% @3 O     # Restore master head change event handler
7 _( _/ d) Y& t  T/ M      if [llength [info commands "MOM_head_save"]] {
         if [llength [info commands "MOM_head"]] {
            rename MOM_head ""
         }
" D9 G# e$ r" B' ]3 D4 }4 U         rename MOM_head_save MOM_head
) g5 [. r' q2 H$ @8 i, |2 _4 A      }
7 a0 D" y1 Z4 D   }
- _& b  x, \3 [2 i; j: F/ H- e}


4 ?2 ]; y" c7 l( V#=============================================================
3 F8 G# w/ c% J. Sproc PB_CMD_kin_start_of_program { } {
$ @# I/ o7 c0 k8 \#=============================================================
: t6 b, c# b4 @3 }#
#  This procedure will execute the following custom commands for
7 q0 e9 V$ G& f3 u1 i) [' Y6 h7 W#  initialization.  They will be executed once at the start of
#  program and again each time they are loaded as a linked post.  
' }9 w% T4 c2 J. `5 w#  After execution they will be deleted so that they are not
#  present when a different post is loaded.  You may add a call
" r* g8 ~! ]. ~; k2 r1 P#  to a procedure that you want executed when a linked post is
#  loaded.  
#
#  Note that when a linked post is called in, the Start of Program
#  event marker is not executed again, only this procedure.
8 r# c0 l$ C1 L- Z& E#
7 v2 Q; ^5 E2 p- v* E- p2 N#  DO NOT REMOVE ANY LINES FROM THIS PROCEDURE UNLESS YOU KNOW
#  WHAT YOU ARE DOING.  DO NOT CALL THIS PROCEDURE FROM ANY
4 n) `) y7 m  Y& u/ B) M#  OTHER CUSTOM COMMAND.
! l% x; i) J8 ~& O0 r+ N#

' G9 t* s' q, h   global mom_kin_machine_type
1 q2 l0 A; I; b) ^' k
   set command_list

1 k# n9 P& i( S6 i4 [# S
$ S$ D$ t4 y4 H8 e   if [info exists mom_kin_machine_type] {
      if { ![string match "*3_axis_mill*" $mom_kin_machine_type] &&  ![string match "*lathe*" $mom_kin_machine_type] } {

         lappend command_list  PB_CMD_kin_init_rotary
      }
   }
" {3 H; V) j  z  r( t! k5 H
   lappend command_list  PB_CMD_init_auto_retract
   lappend command_list  PB_CMD_initialize_parallel_zw_mode
8 S- Y. Y; S# B' s   lappend command_list  PB_CMD_init_parallel_zw_mode
  ~- A" Y& L0 U; \   lappend command_list  PB_CMD_initialize_tool_list
   lappend command_list  PB_CMD_init_tool_list
   lappend command_list  PB_CMD_init_tape_break
   lappend command_list  PB_CMD_initialize_spindle_axis
2 j2 x: z. Q) E; N* C1 b   lappend command_list  PB_CMD_init_spindle_axis
0 k+ M  V3 h0 v* _/ F7 B) d  K   lappend command_list  PB_CMD_initialize_helix
: N0 v8 y8 l, [  S1 ]" ^8 o   lappend command_list  PB_CMD_init_helix
4 v% T8 H7 }- |: k% V   lappend command_list  PB_CMD_pq_cutcom_initialize
   lappend command_list  PB_CMD_init_pq_cutcom

" |" p! K0 T9 O/ B" _( ?9 ?- w   if [info exists mom_kin_machine_type] {
3 C5 U' o- \% T, |      if { [string match "*3_axis_mill_turn*" $mom_kin_machine_type] } {

          lappend command_list  PB_CMD_kin_init_mill_xzc
          lappend command_list  PB_CMD_kin_mill_xzc_init
          lappend command_list  PB_CMD_kin_init_mill_turn
, T; g$ D! k4 J2 P5 K          lappend command_list  PB_CMD_kin_mill_turn_initialize
      }
: }  G( U) R" |; R! |   }
5 h, _5 ?6 J6 ^( j
; G5 i* o- e8 r- u1 `* d+ ~   foreach cmd $command_list {
9 I/ X% K" R7 z" D
- ~% ^* q% ?. m) ], l      if [llength [info commands "$cmd"]] {
        # Skip execution of commands that exist in v2 mill-turn posts.
         switch $cmd {
            "PB_CMD_kin_mill_xzc_init" -
) M8 J7 j& C# D( J% Z0 b+ s            "PB_CMD_kin_mill_turn_initialize" {}
9 z$ Z# q" U2 G! ~: r7 o            default { $cmd }
         }
# O! z3 v, C  u! z- B2 K         rename $cmd ""
4 v9 a" J' \' t+ F% t         proc $cmd { args } {}
      }
   }
}
+ V+ i/ r1 q4 l. d# Q
& ]5 u  u, v/ n" l2 t
! S; L! ?8 M- D% M#=============================================================
proc PB_CMD_kin_wedm_engage_move { } {
/ k; ]) s6 @; p6 }2 ~#=============================================================
#
# This procedure is called automatically in MOM_before_motion
: ?* ?- `  O  I+ Z# to handle the Engage move for Wire EDM operations.
#
   global mom_sys_start_of_pass

8 Y  L9 F7 x6 Y; g- q# {: g3 H! z   if { [info exists mom_sys_start_of_pass] && $mom_sys_start_of_pass } {
      global mom_lead_in_cutcom_distance
      global mom_lead_in_method
      global mom_lead_in_cutcom_angle
; b% \+ `& u# m4 ]% q      if { $mom_lead_in_cutcom_distance == 0 ||  ($mom_lead_in_cutcom_angle == 0 && $mom_lead_in_method == 1) ||  $mom_lead_in_method == 0} {         
* u; s" {$ ]. B  d! n5 N; Y         PB_lead_in_move
      } else {
         PB_cutcom_move
      }
      unset mom_sys_start_of_pass
   } else {
$ g9 D0 [& }6 M- E% {" F9 f      PB_lead_in_move
   }
}
7 F7 d2 s0 \9 _0 H" F

" s- W0 }$ M: I6 @#=============================================================
) k9 J$ S1 e# Q, h) Bproc PB_CMD_linear { } {
#=============================================================
; ]' b9 t/ I% b" D: lglobal feed_mode mom_feed_rate
global mom_kin_rapid_feed_rate
global mom_tape_status
global suppress_output      
global mom_motion_type
( @0 I$ w; D* S0 wglobal mom_current_motion
global mom_pos
2 \+ r0 R* @! p. Eglobal momComplex
global momConic
( }& y" K+ c7 Q) U6 o2 }
- N& V) |4 j! _3 g$ Pif { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
   if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
      MOM_rapid_move
: o. t0 E8 m9 q8 V      return
   }
7 S6 D* W! |; b+ H2 X) C3 {}

if { $mom_tape_status == "ANGLE" } {
   MOM_force Once G_motion X Y
   MOM_do_template linear_move
   return
( b/ j& z/ L4 p5 g3 [( w- u} elseif { $mom_tape_status == "CONIC" } {
. W% u3 A4 O5 D" }" z9 D" a! h   MOM_force Once G_motion X Y
   if { $mom_motion_type != "CUT" } {
      set mom_pos(3) 0
( d* _$ C$ ?$ b8 |* ]& g" k      set mom_pos(4) 0
" M& E' _5 ^$ x: R3 I* o   }
, _$ b* P& n+ ?4 v   MOM_do_template linear_move_conic
   return
# t6 c( }: d8 w" A# |9 a: K8 c} elseif { $mom_tape_status == "COMPLEX" } {
# O0 p, d+ M/ _, q   if [info exists suppress_output] {MOM_abort_event}
) b) r! T2 X8 Q3 e  _8 g+ y   if ![info exists momComplex] {
1 n7 q2 D) ~( O2 r# A/ F, u      MOM_force Once G_motion X Y
. x; m! ?3 G& P" R  \* f* w& T" r      if { $mom_motion_type == "RETRACT" } {
/ D, k6 q6 ]1 B         set mom_pos(3) 0
" ^: A* f) O7 J) ^2 p+ \. T5 y         set mom_pos(4) 0
         MOM_do_template linear_move_complex
7 ~* q, G; [5 ?& M( f         MOM_output_literal "G140"
      } else {  
8 a5 ]) v/ ?3 q/ }$ D7 K) q) d' @         MOM_do_template linear_move
& V8 `7 x; B1 |3 K" r) B& l      }
   } else {
* \5 I' d+ g2 ^      MOM_force Once G_motion X Y Text G_motion_upper X_upper Y_upper
# i. e# V) P0 u, I: ~, F* I0 s      MOM_do_template linear_move_complex
   }
   return
, G- w9 E# m; M- y0 ?0 V4 i! K} elseif { $mom_tape_status == "NONE" } {
   MOM_force Once G_motion X Y
  V$ [% H) k1 N- Q( ^, h/ |   MOM_do_template linear_move
, t3 c6 ~3 L. [* _, h   return
}
9 W6 z5 ~8 t) n) [+ j, m+ z& b# ]}


#=============================================================
proc PB_CMD_output_tape_per_operation { } {
+ s  G9 M% |# _) L* }#=============================================================
5 K1 Q8 u. W% x: X% g#
#  This procedure can be used to output an N/C tape with each operation.
#  Place this custom command at the VERY begining of the Start of Operation
0 v- r7 ?9 C1 k$ {#  event marker.
#
#  This proc will also delete the initial program tape and rename it to
#  {operation_name}{sequence number}{extension}.
#  Any N/C code output with the Program Start sequence will be lost.
  G  j. r8 m3 v#
& ?0 n5 F; d+ X( r2 ^% T+ V8 Y   global ptp_file_name
   global mom_output_file_directory
% M( V$ a! j' L! d; Z9 b   global mom_operation_name
   global mom_output_file_basename
   global mom_sys_output_file_suffix
3 w4 K+ _+ Z! y
#
# Remove next two lines of code if you don't want the original nc tape
) h8 ^& U) y! ^, o7 M# with the start of program info to be deleted.
! [  o, r) n6 g. P+ {$ q4 `; `" X#
: S8 \; i) X7 C: U4 r+ ~: p0 ^+ X. E   set fn ${mom_output_file_directory}${mom_output_file_basename}.${mom_sys_output_file_suffix}
   if [file exists $fn] {MOM_remove_file $fn}
/ K+ X7 Y) \6 }+ k
   MOM_close_output_file $ptp_file_name

   set ptp_file_name "${mom_output_file_directory}${mom_operation_name}.${mom_sys_output_file_suffix}"
   MOM_remove_file $ptp_file_name
% n. j' p* f  u5 I4 D: u5 ~   MOM_open_output_file $ptp_file_name
2 G9 W, N. m. v. f}

6 b  l; E# I/ r- [5 y$ E
#=============================================================
+ ~" c5 i- I2 ^4 wproc PB_CMD_pause { } {
+ }5 ~" S  ?; X6 @$ H#=============================================================
3 y/ u& W7 Y4 K. Q/ |# This command enables you to pause the UG/Post processing.
7 |+ _" t2 v- H7 E3 a* E#
  PAUSE
) Z! L4 k3 Q0 _$ Z}
6 R5 {4 O# U/ Y4 U* M7 R+ W' t
3 c/ ?% D) c2 N7 _# ~" _' Q# e
" e/ N0 h2 }  H: `# j* S. e2 c  O#=============================================================
proc PB_CMD_start_of_conic { } {
#=============================================================
uplevel #0 {
4 {7 ?( F! e' l6 S% h" q+ J   set mom_kin_wire_tilt_output_type "COORDINATES"

   MOM_reload_kinematics

+ K, L: o6 z( s) ^: q, U9 ?# D   proc MOM_start_of_conic {} {
5 c  C$ i, ~: j: ?2 w% _) z      global mom_upper_arc_direction
( p* Q, ~# M9 w* k  p9 Y& O      global mom_arc_direction
0 i0 {* A0 G* g3 Q8 O' D3 Y- O7 Y8 o      global suppress_output
      global mom_prev_pos
      global mom_conic_motion_type
" D$ K/ M; v  J# Z. F0 U2 ^" D      global mom_tape_status

      set suppress_output 1
7 \1 E+ x6 y+ L8 t      if ![info exist mom_upper_arc_direction] {set mom_upper_arc_direction CLW}

$ Y+ p) t* j+ @- W      if { $mom_conic_motion_type == "LINEAR" } {
         #if { $mom_tape_status != "COMPLEX" } {
+ ^1 A+ [* ?# |; E$ J5 d            PB_CMD_linear
         #} else {
         #  if [info exists suppress_output] {MOM_abort_event}
: _+ W; d  x1 U. q- }1 R         #  MOM_do_template linear_move_complex
6 u2 E7 v( X( @! P  g         #}
: p' c6 V1 C; I" ^# h      } else {
         PB_CMD_circular
         # MOM_do_template circular_move_complex
7 E; {6 G' w1 c8 N4 C$ ]; {/ r7 G9 e% W      }
   }
8 q5 n0 l$ B. S$ _6 u! H5 R% N
   proc MOM_end_of_conic {} {
! T5 D7 |. s. [1 i5 Z1 f3 K      global suppress_output
9 h. o( d( N% g: T/ ~6 `5 g      if [info exists suppress_output] { unset suppress_output }
6 ?+ H5 o. v& u8 E! R   }
}
}


9 O, Y' [" B! o5 \4 i7 R- S1 d#=============================================================
proc PB_CMD_start_of_file { } {
#=============================================================
global mom_ug_version
global mom_event_handler_file_name
global mom_path_name
global mom_part_name
global mom_output_file_basename
6 U" q* P4 ]5 G" ~6 pglobal mom_output_file_directory
  J4 H8 |# T! a) K/ u, X/ Zglobal mom_output_file_suffix
4 O# r" n8 }2 g# I1 v4 Hglobal mom_logname
global mom_date
global mom_machine_mode
global mom_power_value
7 L' O! v+ C  J+ Oglobal mom_auxfun
5 r( @1 N) t8 @1 {/ {global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
- i: G) c. E# S8 a' yglobal momPathLength
global momPoster
global mom_cut_type
- {" J& [, z2 \. aglobal momWorkstation
global momLogonDomain
global momPathNext
global mom_kin_machine_type
5 e  R# t# O( Hglobal momComplex

! h3 }' ]6 _) T, MMOM_set_seq_off
- c+ H" A* n, b1 i/ V
set momPathNext 100
MOM_output_literal "( Unigraphics WirePost for Cheewah, Ver 1.1 )"
( v) p% @; c! e, F* t0 GMOM_output_literal "( Design by Deaton, 2005/09/19. )"
MOM_output_literal "( Email: deaton@21cn.com, Tel: 13923361400 )"
set momPoster "CMDEATON"
set momWorkstation [MOM_ask_env_var ComputerName]
set momLogonDomain [MOM_ask_env_var UserDomain]
+ L% g8 L' j. H8 \( G+ i; HMOM_output_literal "(================================================================)"
MOM_output_text "( Activate Version: $mom_ug_version )"
! Q8 g. R* C* V5 O% u. o5 c! d( GMOM_output_text "( PostFile: $mom_event_handler_file_name )"
4 L0 k0 t/ f* oMOM_output_literal "(================================================================)"
0 ~0 @8 W5 E4 o5 V# O0 l+ ?MOM_output_text " "
MOM_output_text "( Current Part File: $mom_part_name )"
! m% f: E4 C0 @5 m) ?MOM_output_text "( Toolpath: $mom_path_name )"
: K  Q3 @( S4 R$ Y  k' fMOM_output_text "( NC Output Directory: $mom_output_file_directory )"
MOM_output_text "( NC Filename: $mom_output_file_basename.$mom_output_file_suffix )"
MOM_output_text "( DNC Machinical: $mom_machine_mode )"
$ \* @' N6 c! g9 J  L9 T1 H' CMOM_output_text "( DNC Machine Tool: $mom_kin_machine_type )"

if [info exists mom_cut_type] {
, N5 @3 Y# E( j3 X1 n   switch $mom_cut_type {
+ h, W0 P' }5 o7 n: _. f      0 { MOM_output_text "( Toolpath method: External Trim )" }
3 q1 x- M# j. n6 k* J: [! J      1 { MOM_output_text "( Toolpath method: Internal Trim )" }
3 ?5 q# j5 I$ G3 o+ B      3 { MOM_output_text "( Toolpath method: Open Profile )"  }   
( O) g6 h; O( N0 ~   }
}

% q; V2 P% s. Y, ?( X7 j6 AMOM_output_literal "(================================================================)"
- j$ z+ ]$ t8 e+ }; i! m8 N+ H) KMOM_output_text " "
MOM_output_text "( CAM Workstation: $momWorkstation )"
5 Z8 D1 K# j( p- i  Z- s9 zMOM_output_text "( NC Programmer: $mom_logname )"
MOM_output_text "( Logon Domain: $momLogonDomain )"
- d7 b  \( _3 fMOM_output_text "( Post Date: $mom_date )"
, e  Z& J( [% o1 FMOM_output_literal "(================================================================)"
MOM_output_text " "
6 j0 j: Z0 X6 E$ }: l9 |; U$ c. g
* K  `& X. l6 b* \- @1 kMOM_output_literal "(NO    =     ON OFF  IP  HP MA SV  V   SF  C  WT  WS  WP  WC)"
- D5 @5 C( ?  r% WMOM_output_literal "C001   =    005 010 017 001 14 05 02 0004 00 000 000 000 000"
MOM_output_literal "C991   =    004 015 017 001 17 06 02 0005 00 000 000 000 000"
MOM_output_literal "C992   =    000 019 017 001 19 05 03 0006 00 000 000 000 000"
, S$ P& Y9 C: \. i' eMOM_output_literal "C993   =    003 016 017 001 17 03 03 0005 00 000 000 000 000"
MOM_output_literal "C997   =    005 010 016 003 12 08 01 2004 00 000 000 000 000"
MOM_output_literal "C998   =    002 002 015 000 00 04 00 2004 02 000 000 000 000"
MOM_output_literal "C999   =    005 012 016 003 12 05 01 2004 02 000 000 000 000"
MOM_output_literal "(================================================================)"
4 A. l( U0 O* @6 W9 Q/ X1 ]9 z2 `MOM_output_text " "

; V* |/ J% D2 D1 x) B5 x- Hset momPathLength 0

) a7 S" X; u. W# u' E' g6 qMOM_output_literal "G40 G50 G09 G75"
MOM_output_literal "G90 G11 G21"
MOM_output_literal "G958"
MOM_output_literal "G04 X+2500"
MOM_output_literal "G92 X0 Y0"
) v6 Y/ G0 G& R! E! K" \2 AMOM_output_literal "G54"
% t% L0 d; L! o% T* z/ vMOM_output_literal "C890"
MOM_output_literal "(================================================================)"
- ]1 v; J. _/ c' l4 J- [2 Q6 `MOM_output_text " "
}

2 t9 ^# C6 Q6 O4 _, x6 t6 i$ b
6 {& o. O, R/ D5 Y9 _#=============================================================
proc PB_CMD_start_of_pass { } {
, j& Q% M7 ^2 G. L/ x#=============================================================
global mom_wire_guides_lower_gap
9 I5 l) h, M2 K& Hglobal mom_wire_guides_upper_gap
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
5 N9 k; c( n! L2 Wglobal momPathNext
global mom_tape_status
' I2 X& X0 `  n$ aglobal mom_wire_angle_text
. W4 ]9 \1 N# g/ iglobal mom_flush_pressure
; `; r2 ?3 o& n& h9 cglobal mom_power_value
global momWorkstation
global momLogonDomain
. k* S. H( M4 H' D( Y2 Z" v: mglobal momPoster
' @6 p. s/ A  E0 X- Z% Q. tglobal mom_sys_cutcom_code(LEFT)
global mom_sys_cutcom_code(RIGHT)
. @; D2 z. i. z, Uglobal mom_sys_cutcom_code(OFF)
global mom_kin_arc_output_mode
$ s$ a0 w3 E: W3 Z9 Pglobal mom_kin_wire_tilt_output_type
$ U7 _$ D( ]8 v/ Z- y& Nglobal mom_wire_cutcom_adjust_register
6 D  m, w# e8 Eglobal mom_wire_cutcom_user_register
& ]! w1 V( C& m+ T6 D9 M2 d
if { $momWorkstation != $momPoster }  {
4 E4 G4 Y8 I0 q! T1 R0 o1 e   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
}
if { $momLogonDomain != $momPoster }  {
# d) z7 z% ~$ q) n3 i" R   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
" `3 L3 g. F. L% Q& ^( S) m3 u}
7 T4 p! M- ]- e. S5 yif { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
$ n3 H1 q; J3 x   MOM_abort  "Error occurred. Postprocessing has been aborted"
4 D' B' G( c# V/ W2 b5 K# g) O}

, U; @. e. u0 |/ RMOM_reload_variable mom_wire_guides_lower_plane
2 @# t" ]8 G( d0 P! A! w- X+ FMOM_reload_variable mom_wire_guides_upper_plane
MOM_reload_variable mom_wire_guides_lower_gap
MOM_reload_variable mom_wire_guides_upper_gap
MOM_reload_variable mom_tape_status
5 H" l  [4 Q# \$ m7 vMOM_reload_variable mom_wire_angle_text
MOM_reload_variable mom_flush_pressure
MOM_reload_variable mom_power_value
MOM_reload_variable mom_wire_cutcom_user_register

MOM_output_text " "
/ d9 ?0 N9 T2 Y
if { [info exist mom_tape_status] } {
" P/ [0 W$ y& Q; |' c; D7 z& B0 |( l1 g   switch $mom_tape_status {
+ @% x& v6 e- g: k      "NONE" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
         set mom_kin_arc_output_mode "FULL_CIRCLE"
      }
! l9 y. M) |  L" O: x" j3 O# Q* q      "ANGLE" {
         set mom_kin_wire_tilt_output_type "ANGLES"
         set momPathNext [expr $mom_wire_guides_upper_plane - $mom_wire_guides_upper_gap]
         set mom_kin_arc_output_mode "FULL_CIRCLE"
         MOM_do_template tpset
         MOM_do_template tnset
* @3 g( Z. H8 N6 L$ B, e, K; s         MOM_output_text " "
      }
      "CONIC" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
6 B7 x" E* ~) H/ x/ {, k6 a8 ]         set mom_kin_arc_output_mode "LINEAR"
4 e- d6 F' u, q3 ~* N2 U#         set mom_kin_arc_output_mode "FULL_CIRCLE"
         set momPathNext $mom_wire_guides_upper_plane
         MOM_do_template tpset
         MOM_do_template tnset
" m- I! e' x8 F' D6 x8 {2 j; j         MOM_do_template tuset
* A$ I' T) |" i- D2 L         MOM_output_text " "
4 M8 C5 p1 L6 o! F4 Q. d      }
3 S' b& P3 I& S( a# b$ F      "COMPLEX" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
         set mom_kin_arc_output_mode "FULL_CIRCLE"
( P6 O7 N7 h: W         set momPathNext $mom_wire_guides_upper_plane
         MOM_do_template tpset
         MOM_do_template tnset
         MOM_output_text " "
         set mom_sys_cutcom_code(LEFT) 141
         set mom_sys_cutcom_code(RIGHT) 142
% n' ?7 i; M; f& N         set mom_sys_cutcom_code(OFF) 140
      }
   }
}
4 C* m+ l6 P1 S; ?. C/ |% N
if { [info exist mom_flush_pressure] } {
) L$ O2 _) m* {% |   if { $mom_flush_pressure == "LOW" } {
  g  O) t# d2 N" ]& x      ## Flush off
      MOM_output_literal "T89"
      MOM_output_literal "M00"
5 _; ]- v' ?. ~      MOM_output_literal "T85"
6 K& G$ X$ a0 j( R   } elseif { $mom_flush_pressure == "MEDIUM" } {
      ## Flush Low with tank
* ~: b( @& \9 [% j      MOM_output_literal "T94"
      MOM_output_literal "T96"
! [; F8 B5 k/ t" W8 v9 F      MOM_output_literal "M00"
1 x& R) t3 T$ [/ F9 t; d& S0 s      MOM_output_literal "T85"
   } elseif { $mom_flush_pressure == "HIGH" } {
+ v. j7 P2 d4 T; C0 C# \9 p) z      ## Flush Low with tank
8 x! N* E: k$ z      MOM_output_literal "T94"
7 ^, V* y. k9 d! Q( [$ ^6 U      MOM_output_literal "T96"
+ R! P3 z' B+ ~* k$ a      MOM_output_literal "M00"
      MOM_output_literal "T84"
   }
4 E+ q, y' L# Z) Z! T% U8 @  G& x$ s4 ]}
2 m6 t  _2 ?  s; e
( m! |! X* Y; ^- Q* Y# \MOM_output_text " "
; s/ ~, S4 z* V$ g& C3 o; }: w; |5 DMOM_do_template condition
0 X; B9 a& F( r$ B7 n5 j
+ l% Z: ?4 m) j0 e2 D3 O# [0 Jif { [info exist mom_tape_status ]} {
: c( ]& `3 c8 m$ ]+ V   if { $mom_tape_status == "CONIC" } {
4 e# e" [& M8 ]/ c5 j$ k      MOM_output_literal "G74"
   } elseif { $mom_tape_status == "ANGLE" } {
! L, u4 ^5 [, l; M4 \8 }$ N      MOM_output_literal "G51 A0"
   }
5 ?4 V" w. ^0 T2 v: A7 o+ W) n/ x7 q   if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "G41 D000" }
+ Z. w) @- o, v5 m& ~  [# `% N}
6 ]4 z2 b/ d: K, q; Q}

) W2 R8 O9 m8 j* `
+ h! H4 G: X* b( ~7 k1 `#=============================================================
proc PB_CMD_start_of_program { } {
& b4 e4 U/ Y* c! h) o  o#=============================================================
global momWorkstation
+ ~1 d* p3 t# c0 \+ Pglobal momLogonDomain
+ O" ]- R3 Y: A) r( q, U" wglobal momPoster
$ ~; x! J9 b7 P" Iglobal mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane

' T4 N4 O2 o6 ^; ^* C+ Mif { $momWorkstation != $momPoster }  {
+ N( k; P5 V6 @, W& `3 @5 S6 D   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
" a* R) R2 H- ~/ E}

  [5 ?7 W, k' x4 l! O  s$ F  Kif { $momLogonDomain != $momPoster }  {
0 d5 c4 I8 y% `5 w- B   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
1 C  z; @3 }, W9 l; y2 `}
) y7 W' ?# n; O5 b. o4 o
- K5 t7 c/ A+ }1 J#PB_CMD_start_of_conic
9 W' [6 z4 ?$ l2 D
# ?- H0 q8 _4 S. y( y6 o! P2 S, V2 mif { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
   MOM_abort  "Error occurred. Postprocessing has been aborted"
}
8 @+ m" S/ i1 r% O6 P- T}


#=============================================================
9 i$ {3 I0 \1 u9 g8 s' G. ~# @proc PB_CMD_suppress_output { } {
#=============================================================
( |7 y3 q$ i2 p
' z# M9 J2 G5 [7 ?& y  Uglobal suppress_output
! Y4 U* }  a- C0 v; Y! s0 y- g
: P4 Z4 u* k$ ]. q5 O) lif [info exists suppress_output] {MOM_abort_event}
; D; v; Q& V) `5 _}

" e8 e$ U) c9 J. i0 a( \4 Z% S; p
#=============================================================
3 l8 @8 m# O  r- [. @proc PB_CMD_work_coordinate { } {
#=============================================================
global mom_work_coordinate_number

/ F7 `9 s$ \# a) r5 O& w# tMOM_reload_variable mom_work_coordinate_number
$ X4 g2 n/ M" g/ ZMOM_output_literal "G90 G$mom_work_coordinate_number"
}


- ~5 b2 {1 l) @' Y) q7 l#=============================================================
  ]3 W7 d. u8 ]proc PAUSE { args } {
5 N0 B5 I% g5 y8 w5 ^9 y2 e#=============================================================
' ^0 H& l' R5 V  H1 P/ y  global env
" M1 ]( `4 N4 p2 ~% g% _
. o2 J* l% t/ h  P( x1 E- N% |2 ?$ g& A  if { [info exists env(PB_SUPPRESS_UGPOST_DEBUG)] &&  $env(PB_SUPPRESS_UGPOST_DEBUG) == 1 } {
return
  }

4 X; \/ J9 n  F1 W
1 F! B5 _* w+ V: E$ ~9 ?5 ^  set cam_aux_dir  [MOM_ask_env_var UGII_CAM_AUXILIARY_DIR]

& r, q) |" `, f' N  global tcl_platform

. Y) |* J% J, ]( v* ^. O, R/ `  if [string match "*windows*" $tcl_platform(platform)] {
     set ug_wish "ugwish.exe"
  } else {
     set ug_wish ugwish
  }
, G( v* H6 p$ v5 u
  if { [file exists ${cam_aux_dir}$ug_wish] && [file exists ${cam_aux_dir}mom_pause.tcl] } {
" ^! n: `9 w: i4 F
     set title ""
     set msg ""
3 S6 G9 n+ G  E6 ^' Y" A# [9 Z
     if { [llength $args] == 1 } {
       set msg [lindex $args 0]
" I# M; {$ h: _9 N- w     }

     if { [llength $args] > 1 } {
       set title [lindex $args 0]
  }& j+ J# i8 Y7 m4 n& S       set msg [lindex $args 1]
     }

5 A: M. h5 G, r+ C: \9 `6 a3 p     exec ${cam_aux_dir}$ug_wish ${cam_aux_dir}mom_pause.tcl $title $msg
  }
}
% e9 j( b+ H, c

#=============================================================
proc EQ_is_zero { s } {
  C: S; z; K6 `1 z6 M#=============================================================
   global mom_system_tolerance

   if [info exists mom_system_tolerance] {
  H9 e5 f0 m1 g6 e7 d3 G      if { [expr abs($s)] <= $mom_system_tolerance } { return 1 } else { return 0 }
   } else {
9 x% d$ o/ l  l2 z0 y& ^6 s$ D1 t      return 0
3 u2 z) B* L$ U5 J   }
' Y6 |4 o+ J" W$ k}

! E. I# g$ G7 o1 E; g1 N! L& G( Z
#=============================================================
proc CATCH_WARNING { msg } {
/ M+ T; z# c& s! w  z- h5 K7 O#=============================================================
$ F% S% f7 G' Z- B3 s! X4 w$ J  global mom_warning_info
3 e% _6 w/ u$ S( f) R  global mom_motion_event
3 o4 U+ ^* y) t4 d7 p" P$ y  global mom_event_number

   set level [info level]
; z$ T4 s# a$ g& m* ^9 M- q& R- K   set call_stack ""
   for {set i 1} {$i < $level} {incr i} {
      set call_stack "$call_stack\[ [lindex [info level $i] 0] \]"
   }
7 R$ S( z% H7 d9 P- ^+ G5 [   set mom_warning_info "$msg ($mom_motion_event $mom_event_number) $call_stack"
2 H0 t" A# _2 A4 I- F   MOM_catch_warning
0 S) l# O  \9 \8 [5 {% [}

3 m  c7 M' n! T
% u( l7 j$ U" H) z2 I#=============================================================
8 `; N. h- `( F6 Zproc WORKPLANE_SET {  } {
2 p$ X- |* B# ~8 D0 }0 _#=============================================================
2 g9 H  w, [/ X! s' V   global mom_cycle_spindle_axis
   global mom_sys_spindle_axis
0 `& H4 C; H2 e& x   global traverse_axis1 traverse_axis2

   if { ![info exists mom_sys_spindle_axis] } {
" f# i3 Q+ j$ q3 R/ Z( k$ i) G7 q      set mom_sys_spindle_axis(0) 0.0
$ b7 s% V2 {5 ]8 k7 {      set mom_sys_spindle_axis(1) 0.0
      set mom_sys_spindle_axis(2) 1.0
% F% V/ B5 Q3 |5 _   }
- j1 q+ G) L. I" ~1 c1 h* G( x
' R) U6 J0 S% n4 p9 y  P" _   if { ![info exists mom_cycle_spindle_axis] } {
3 X2 k- F! v$ ^      set x $mom_sys_spindle_axis(0)
      set y $mom_sys_spindle_axis(1)
      set z $mom_sys_spindle_axis(2)

, l5 J, _% l# k+ z/ [$ y2 C" ^3 F      if { [EQ_is_zero $y] && [EQ_is_zero $z] } {
! X5 w& h: a$ o         set mom_cycle_spindle_axis 0
      } elseif { [EQ_is_zero $x] && [EQ_is_zero $z] } {
1 [9 `4 {; X1 t, Z- |2 j         set mom_cycle_spindle_axis 1
      } else {
" t: {. J1 V  Y* {! P         set mom_cycle_spindle_axis 2
      }
   }
% |% k' v$ t& a( X+ M6 m
  ^' l" }  r" E' e1 w) V+ {  O0 R: t   if { $mom_cycle_spindle_axis == 2 } {
      set traverse_axis1 0 ; set traverse_axis2 1
4 _+ q( e- J( S. ~   } elseif { $mom_cycle_spindle_axis == 0 } {
3 V+ \0 t+ [5 s5 l' i0 N7 R      set traverse_axis1 1 ; set traverse_axis2 2
   } elseif { $mom_cycle_spindle_axis == 1 } {
      set traverse_axis1 0 ; set traverse_axis2 2
   }
$ m0 a0 F) g8 z. Q/ R5 E" e}


" I) U5 W2 C0 b/ I# c$ @#=============================================================
proc EQ_is_equal { s t } {
#=============================================================
   global mom_system_tolerance

   if [info exists mom_system_tolerance] {
4 b. `# Y; m( f/ u      if { [expr abs($s - $t)] <= $mom_system_tolerance } { return 1 } else { return 0 }
   } else {
      return 0
3 e, L& g9 c- B   }
}
0 Z9 E5 w' v! z

2 p$ v3 F( i% L
  F1 b2 i* k& h" ~

; f$ ^$ y: }# I
+ H5 z* P! ^2 B9 \+ N, s#=============================================================
' |. G, E) C% Bproc TRACE {  } {
#=============================================================
9 d9 i4 v0 Q2 f- E  h! V' K! B   set start_idx 1

   set str ""
   set level [info level]
# d/ Q+ ?0 p; X4 e( a; O0 k   for {set i $start_idx} {$i < $level} {incr i} {
$ o' N5 k  n7 B# V      set str "${str}[lindex [info level $i] 0]\n"
- G5 V# U* e+ ~# z   }
0 S2 F7 e) e0 ~) Q0 }* [  P
$ C$ Y% H, f! V: j2 C! Zreturn $str
+ _3 i! i! z8 i7 {; Y}

7 W. x! @' _: t5 Q9 Z
if [info exists mom_sys_start_of_program_flag] {
, e: ^6 h9 \- x3 h/ Y% R) F   if [llength [info commands PB_CMD_kin_start_of_program] ] {
      PB_CMD_kin_start_of_program
" q! K- {2 y1 M  ?' U5 S   }
& b+ F. A) u7 B} else {
2 Z6 w2 n& z) u* o9 S/ E  D   set mom_sys_head_change_init_program 1
4 X/ v! ]# {+ g2 d6 {7 f  H7 ~/ f   set mom_sys_start_of_program_flag 1
' Z/ M' w; w$ V}

pengke

有4B的吗

wjc1249

有没有做好的*.DEF与*.TCL文档？？
* g! o$ l# m; T3 T' @谢谢

杨亚林

做好了让大家试一下，纸上谈兵没用

sn604807478

多谢分享！ 看看你的好东东！

wyyjsguolu

要是用普通的 线切割机器（不带回转轴的），完全没必要 用 nx 一类来做3B代码呀，
2 i: p% P% \: }& v( K$ a; d: S6 nNX出个代码太慢了，直接用caxa 线切割，超级快，破解版的 还多，现在 官方出的试用版的也很好用，还是全功能的，不过试用期一个月，到期重新安装个 就好了，
& i7 F4 \) W0 G7 f* S要是带回转轴的 线切割，我也在考虑怎么用 nx出3B 代码。。

wanlei1985

谢谢你们