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

李双虎

一．前言

  
7 E$ b. g) w8 J! A# ?- k
  
! r5 h+ L" P* e- f% r8 M
线切割能加工各种窄槽、小凹圆角，对硬度不敏感、特别适合淬火后加工，并且成本低、操作方便，故在加工行业中是一种不可缺少的工艺手段。近年来线切割机床也迅速发展，控制系统也逐渐与世界接轨，G代码的控制系统逐渐成为主流，但在一些低端产品，尤其是老式机床中，3B格式的控制系统却几乎一统天下，我们厂是汽车模具专业生产厂，目前就有多台老式快走丝线切割机床。虽然我厂也有先进的慢走丝机床，但因快走丝机床加工成本低，对环境要求也低，所以一直是线切割工段的主力。
/ E) o0 d# i3 G; a) J" A9 p& N
- {0 q7 ~: c9 ]  G' K

    二．3B代码的编程规则

- a' Q5 A/ p* a4 M   

5 \8 }/ x: [: q$ C- t1．3B代码的格式为：B x   B y  B j  G   Z
3 U, z% S% T6 z; M, ]
，B为分割符号，x，y，j为数值，以微米为单位。j为计数长度，G  为计数方向，Z 为加工指令。
8 c* a; p: F  c6 L# A5 ^9 a* A


    2．加工指令共有12种。
% `. ^9 }" Q$ U4 |

- p' k5 B5 u' x8 E# ~8 {6 l" j- G7 n
3 Z( ~0 e1 z3 E2 O. u   

a．加工直线时，以起点为坐标原点，终点在坐标轴上时，x、y值为零，计数长度j为线段长度，按X+，X-，Y+，Y-，四半轴计数方向与加工指令分别为，GX

L1，GY L2，GX L3，GY L4。

! o: r: P- i$ [1 _   
+ V8 \' |% {7 s0 {- B
b．加工直线时，以起点为坐标原点，终点在各象限内时，x，y为终点相对起点坐标值，可同比例放大或缩小，计数长度j为线段在计数方向的投影长度，按终点在1、2、3、4象限，加工指令分别为L1、L2、L3、L4。各象限以45度线分割后，终点贴近X轴，则计数方向为GX，反之为GY。

& i  H. n' P* ^' e   

9 e2 l+ @/ ]5 @" l9 ic．加工圆弧时，加工圆弧时x，y为起点相对于圆心的坐标值，圆弧起点相对圆心在1、2、3、4象限时，顺时针圆弧分别为SR1、SR2、SR3、SR4，逆时针圆弧分别为NR1、NR2、NR3、NR4。各象限以45度线分割后，终点贴近X轴，则计数方向为GY，反之为GX。
3 z+ u( f3 z9 S  L
. G3 y( J+ L- C4 w
2 D" B4 t7 |3 b
% x; z5 W* A7 e$ D0 b  

& n% p3 f8 M; k6 ]+ h& S! H6 s 例：
, Q0 \3 @- W0 W  u$ |9 ]
+ w$ O1 _4 R) S. l3 C3 i  v3 k           

                  
  f* p# ~. }, M9 g7 K


+ [6 C* s( F8 |1 ?! o

/ }2 i* b6 u9 G; V' J( K1 E 1.jpg

(10.27 KB)


' n- S, u$ V9 _+ |& c' O9 {5 i
2007-6-6 12:51

; \5 c; b6 X6 W4 S- e' Q% J
( L  T  p- q" q( ~8 i, f4 t

; e- C! Z+ b0 G$ V6 E5 _7 \


   
, Z" ~% V- x" {6 [: N, j! J
" u, D2 I/ u: G; k% \3 o三．分析

2 Q) x# a  ^# f  m

    ug

在后置处理为G代码程序时有直线（G01）、顺时针圆弧(G02)、逆时针圆弧(G03)几种格式，如果能编写一段代码将直线及圆弧按3B格式分类计算，那么处理成3B格式就容易了。

; w0 M$ R% B; ?8 I4 a9 j

" f  V. F' }2 a) g  ]   

为方便介绍，将每一步的终点坐标为X、Y，起点也就是上一步终点为X0、Y0，圆心点Xc，Yc。

! f" s8 u# O1 T  g0 f
( [4 S6 A) ?: y: W+ I1 ^( X


8 t1 w/ h% N: E8 }$ U: `7 j, ^

2.jpg
- {/ E0 j, v) Z* ]
/ s2 U; `* _) K* p  j(7.2 KB)


7 ?+ t& Q) H6 F! l4 _! N5 M1 g
& w* V; A+ @, G; F% Y2007-6-6 12:51


) n( J- w4 u3 ^( h" @
图2
+ V' A- [" }8 w2 R4 ^

& b7 @7 I; f! h, w3 ?; `
7 L. Q8 w% c0 b1 r  

  区域划分：
2 `% S& q, L% U8 u: y2 r
   
( F, j8 y6 f( w! {5 z
0 c2 I! `/ Z/ ~; F8 B1．直线运动时，终点相对于起点在X+半轴的条件为：X>X0，Y=Y0，计数长度为：|X-X0|，指令为：GX L1;
6 j/ v3 {, t9 n
    同理X负半轴:

7 C/ D4 _! T' Q. h" J条件X    Y正半轴: 条件X=X0，Y>Y0， 计数长度|Y-Y0|，GY L2;
! Z3 @# M6 M8 Y
    Y负半轴: 条件X=X0，Y

2 r; Z1 b3 S3 c5 N) d
7 _. S2 T! K8 B/ ^- V; z
! @- [8 ]" d" M9 y, ~

    2．直线运动不在坐标轴上时，按如图2所示划分为8区域：

: U$ i6 x+ {3 w5 g   

6 _2 s. S1 V4 s. q0 Z/ W1/8区：条件X>X0，Y>Y0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L1;

$ b, O3 @; \9 J, a+ `& b   
' [9 n  B6 i% ~. s/ r5 R( h
$ M2 w7 M3 B4 i0 ]2/8区：条件X>X0，Y>Y0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L1;

   
; F+ n4 S- G( T
3/8区：条件XY0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L2;
0 f7 X0 s; I2 ]5 N$ l
   

$ E5 i3 J1 W* Z+ d8 Q6 ]4/8区：条件XY0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L2;
( i2 b4 F% B0 X/ L. t% K$ U% a/ G& c
$ t8 X9 R. o  U* m; J   

5/8区：条件X=|Y-Y0|，计数长度|X-X0|，指令GX L3;
( h7 K! X3 r) T# ?. D2 Y* K
" Y; ~5 V$ X' W9 c% S/ J    6/8区：条件X  

* O2 F& I5 C: _: o6 a0 v0 \6 F  7/8区：条件X>X0，Y    8/8区：条件X>X0，Y=|Y-Y0|，计数长度|X-X0|，指令GX

2 v- r' `# d$ ]5 G+ i5 EL4;


0 `1 J6 t( t6 R: U/ Z6 x! J1 K
9 E$ d6 g) E6 m9 S   

) _/ I/ g1 J4 _3 [- W& R. ]5 i3．圆弧划分较为麻烦：

  
' E! R, g+ Z* t/ H& C6 |4 n
  
8 u( b7 J( Q- G1 j
, D  S, |" d9 G) }6 O按方向，分为顺时针，逆时针；按起点象限分为1、2、3、4象限，按终点分图2所示的8区域。下面仅以逆时针，起点在1象限的圆弧加以分析：
7 G; U! x4 h8 N7 _4 I) B# q8 v7 B
/ |6 Q" E. t5 p# F8 z$ w+ Q   

6 I9 `2 Q# d# _& X+ l1/8区：(优弧)条件Y>Y0，计数长度|Y-Y0|，指令GY NR1;
) ?7 |! A7 C  b+ a' d& N( \9 c
. W' `6 q( s* o% [( w6 ?  

      （劣弧）条件Y<=Y0，计数长度4R-|Y-Y0|，指令GY NR1;

  ~9 m! U5 T4 X; |7 o
% u# {, o9 c) h) D6 U% ~+ B5 J
    2/8区：(优弧)条件X     

/ Z8 S( M4 F% h" |% M- U0 R   (劣弧)条件X>=X0，计数长度4R-|X-X0|，指令GX NR1;

   
* I9 b2 |. B2 ~7 A
) v2 j9 G% F6 r! Y* q) x3/8区：计数长度|X-X0|，指令GX NR1;
2 L5 y  o/ C5 \
3 m. r, B: }2 k- O) f    4/8区：计数长度2R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

; v- K) X, B% z2 F2 _9 U0 T6 h  
! K- q1 F* q# F) ]/ z
  5/8区：计数长度2R-|Y0-Yc|+|Y-Yc|，指令GY NR1;
( S, {- f' M( c3 q/ y" P
0 ]9 c8 j- B6 S7 k    6/8区：计数长度2R+|X0-Xc|-|X-Xc|，指令GX NR1;

# O$ f- B5 r# h1 ~: l    7/8区：计数长度4R-|X0-Xc|-|X-Xc|，指令GX NR1;
  ^: U& p' T2 A7 d4 G: }+ O
    8/8区：计数长度4R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

  
7 K( D1 z, d6 g: V+ v( Z) [/ S$ R
  起点在2、3、4象限的圆弧以及顺时针圆弧同理。
' O. d; Q# J/ `4 y3 b1 e

3 Z+ r8 X$ T( ~) `! n  ^' F
/ Y- @! f5 Z1 S# Q, X    四．实施

( @& ?5 h- Y2 ?+ V* G; z   
9 M- w, K( x% ?; i6 D3 J
+ K7 S0 A  q) q, N先看看UG后处理的构成，UG后处理主要由两个文件组成，*.DEF与*.TCL。前者主要定义了一些格式，后者主要定义了一些运算，我们所要加的程序代码就在后者中。

  T$ E* h& ?7 o

5 o9 Q( E. ]' r% x   
/ N* U- r' J" k% o  _' ~, \
4 I3 |9 R# q% {1 |! p4 l1 x打开*.TCL，找到程序段proc MOM_linear_move { } { ……}，直线运动的运算就在该段内运算，圆弧运动在程序段proc
. S' P, N- g6 h; n; Y4 S) m
2 z* T5 b# \+ E5 bMOM_circular_move { } {
( K" Y! h  _5 k4 F
4 A. a  u7 z5 S: }: ]* v……}中。UG后处理中定义了一些变量，mom_prev_pos为前一点坐标，即起点坐标，mom_pos为终点坐标，mom_pos_arc_center为圆弧运动的圆心点坐标，mom_arc_radius为圆弧半径值，mom_arc_direction为圆弧旋转方向，等等，可从post

" g( p# m1 N7 D% F2 lbuilder 中查得。


6 H$ @* S9 v+ D) A8 g" N/ N
# z9 D; A% H% [8 s, b   

由于UG在运算时按允差计算，并进行四舍五入，在判断相等时不要用相等，而是判断差值小于允差。
: A+ w; H- Q5 {2 o% j% Z" E
! d+ j, n& s+ W& N6 h8 _

    有了这些准备，就可以动手编程序了。当然也可以利用post
. k' B3 G" y6 a
builder做一个用户自定义指令，但核心内容不变，仍需自己编写。限于篇幅，仅示例直线运动的一部分。
; s' m+ C: A$ ?4 V6 h5 E7 \& _
8 @9 C# f; \7 f% A6 p% n2 {: z; U! z   

global  mom_l_code   自定义变量其值为：1，2，3，4
1 V% }" D, K1 F& w: A. o
   

1 M3 d7 k  Q1 ?  J* f8 T: oglobal  mom_gxy      自定义变量其值为：X，Y
* x3 L$ a1 `: R7 b9 K  H
  

  global  mom_ba     自定义变量，第一个B
. \% ?( H) c  g5 h) F8 I" P0 J# i
9 y- w% i$ O7 e的值，即第二部分介绍的x值

) I1 Z+ y4 T8 t1 Z    global  mom_bb  自定义变量，第二个B

的值，即y值

    global  mom_bc  
7 e" }0 f: p+ u: ?# G4 `
    自定义变量，计数长度，即j值
- T6 |( Y3 J5 {( [  L# N
0 K( {2 A- g7 x* _% N   

; W: E9 v8 R7 t6 }9 T( }  l9 }) U5 qglobal  mom_pos  终点变量

  
- h) W! B6 U/ n: D
  global  mom_prev_pos 起点变量   

  

; r: C$ A& {: f7 Q      set mom_ba abs($mom_pos(0)-$mom_prev_pos(0))
5 @1 C0 A0 k. u% j$ B$ F4 h9 a
3 P# v  J* s2 y; h' [8 C7 j" `  
, L; ~+ K4 u/ {, G( S
# t8 S* o# C8 N  \9 v      set mom_bb
4 J; m" T+ ]: a
0 j' M  i: `( a$ Rabs($mom_pos(1)-$mom_prev_pos(1))         
6 }, v, W, r6 s7 X& x& O$ j
        if
" m5 Q1 ]" F4 s2 H& e0 B5 G
  j( o3 x( t' B{abs($mom_pos(1)-$mom_prev_pos(1)) < 0.001} {
0 Y( |1 q, q( u+ r2 n
     

: j' c% f" V4 j# a   if {[EQ_is_gt  
, B5 L0 y% k  `2 O$ e
1 P; P9 k: [( z $mom_pos(0)  $mom_prev_pos(0)]} {
; f# i% Q0 H1 w2 f: b4 A8 G0 z
    #X正半轴

        set
! c3 m6 p1 `7 G2 q5 F/ x* ^
mom_ba 0
8 c( E' e4 U2 c
     

   set mom_bb 0

     

   set mom_bc $mom_pos(0)-$mom_prev_pos(0)

  

8 _1 N1 F9 H& M( h( F1 U       set mom_gxy X
; _. T9 l% @* Z* H# W
; O5 u/ H6 ^# R' g2 C     
% |  J% q, L- v7 q& r
. o1 v. K7 e, C) G5 x3 C7 B/ L8 x   set mom_l_code 1
) x' K+ w% F# O' k) E- i
            }

else  {
: z! q% |# I+ ~3 m+ m/ p
: T4 b# o3 |9 X! J    # X负半轴
# `) T% \7 p. v5 e; J$ C6 V
9 |3 i. l( d# d" p4 l4 R4 W. z0 @        set mom_ba 0
% \: L) |- d' `5 O" T1 ?
  

      set mom_bb 0
$ K2 _# {, r4 f/ H" w$ {4 L# {
& T* \3 U3 b9 A) I8 O( b     

% C# I2 v/ P& b- k- b8 W! k, R   set mom_bc $mom_pos(0)-$mom_prev_pos(0)
4 ?! g  `6 ], b- ^. e
     

   set mom_gxy X
" d/ M+ b2 L) {" _) q; R6 V
  

! }( x0 B9 F8 y! K5 ^7 Z$ [      set mom_l_code 3

        

    }
/ g* A" o# F( c4 x: r) L6 ]! S
     
' x2 o( s1 ~$ v8 O3 I0 K2 Y
( b- v& J, b# H4 u4 n8 F! D   } elseif  {abs($mom_pos(0)-$mom_prev_pos(0)) <

0.001} {
' h7 ^- e( u% j. Z0 U7 c
6 P$ P* o0 p4 L) ^        if
7 n6 y& k7 z5 E9 ~
{[EQ_is_gt  $mom_pos(1)  $mom_prev_pos(1)]} {
: z9 o) J% ^; a0 S
    #
  h. H% [& A5 U6 H2 e9 K0 c
! w( b* q- _; l) S; `% ?Y正半轴
6 J1 Q4 b8 q5 Z2 Y. G$ l% v; r
+ i/ \( e# u' g! E9 H2 \$ Z; M8 i     

   ……
. d. u, y# E- r' ^, G1 s1 I
        } else {

1 y& @2 j  |- Y/ m; d/ w    # Y
* b  u6 A7 z! k4 m
- ^2 f% d+ Q0 V8 Q负半轴
' m+ \! o2 P/ ~0 ]7 Z% R( ]% S
/ X* Y# J$ q; P  x( F  

      ……

5 S9 I" E3 {5 D# S0 x$ T  u  
& K& x; b) I, K) L+ D
          }

     

4 t+ g5 ]9 ^3 R' O& L4 O   }  elseif  {[EQ_is_gt
6 [, }5 m5 R( g! }
$mom_pos(1)  $mom_prev_pos(1)]}  {
$ t7 Y6 z) d! r) X5 W2 ]: G& Y
' u  H, k# `+ m: V# U        if
7 ]# |/ x  J/ v4 ~! s
4 b: s6 d& M2 ^5 q- O% J/ t{[EQ_is_gt  $mom_pos(0)  $mom_prev_pos(0)]} {

     

   if{abs($mom_pos(0)-$mom_prev_pos(0))>
1 c0 d# I, @* R* ~1 p. Z/ P
" o6 Q4 A4 M/ r6 `0 j4 u7 vabs($mom_pos(1)-$mom_prev_pos(1))} {

  

+ |9 G9 k, D: j; S. t6 o/ Q4 B  # 终点在第1/8区域

     
4 t0 F' l) R1 n- E4 i) `
   set mom_bc abs($mom_pos(0)-$mom_prev_pos(0))
: |/ U) A6 Z1 ]. y7 @5 n  ~
        set mom_gxy X

8 J  I# w+ ?- Z1 q) P  
8 J3 r, ~3 C5 N6 K  t  }
, e: O  k: T7 M1 {4 p  J9 b2 O      set mom_l_code 1
) P6 x. `$ \) y9 G
  
& k( {+ C+ A& j9 t1 {, i
& S8 n2 B$ N- |( ~9 R          } else  {
! W: z: |6 e% a0 _
    # 终点在第2/8区域

+ u6 ?1 [! z! j% I! ]1 Y     

   set mom_bc abs($mom_pos(1)-$mom_prev_pos(1))

     

2 g! W6 t$ K: T) M5 _* y   set mom_gxy  Y
' J2 N6 ^6 T  j" y4 @. _0 ^
, Y# M, V$ A1 ~# S* U( x        set mom_l_code 1

) j7 c& V0 r8 _1 k$ V, @5 Z  
$ h0 v2 F& O* n& p# b0 y
- ]7 V; ?; h4 ~' ?% Q" L/ F5 ~. k          }
( O! ]! k, Q; _1 H9 N7 K% z- y
     
$ e! X$ A$ _0 r9 E3 u; _( y% c
% w# U* d4 b) |- d9 W   } else {

   

if{abs($mom_pos(1)-$mom_prev_pos(1))>abs($mom_pos(0)-$mom_prev_pos(0))}{
* V* T3 _& k( R' n# v
& h2 s# t- d' [1 [! m4 N9 |    # 终点在第3/8区域

; ?0 k0 _' V1 M; t           

……   

/ d/ e4 j1 w* D/ N0 n0 }    #

终点在第8/8区域

+ p4 O+ p$ O9 x! B, {( n7 G           
& H& K5 k1 T* y
} else  {

  
6 L( Q2 u9 V! s: H# M/ u0 u: K# L
* G, a& B# J7 Q0 n: `3 C' W          set mom_bc
1 U$ \! _  m; y8 L# D; I
abs($mom_pos(0)-$mom_prev_pos(0))
5 _: M9 ]7 F+ Z# B5 X. r* ~
  

          set mom_gxy  X

            set
' O" L  v" ]) h8 e7 r. a
! q/ u1 i: `( vmom_l_code 4

  
7 S4 j, ?3 s( w8 K  `
9 d1 m+ l! t/ t, U8 Q0 g" |          }

) t! a1 v/ ]& }3 E) ^7 P* \7 o  
  y5 Q& u9 n# X# ^! C1 |5 I- [) F
% Y  ^: L/ |6 V& g          }
0 M  o' E# z4 z9 @4 \
     

; i1 c! n' P1 ~4 K' t0 o       }        

  z8 n% P2 U" M4 G( F. x    其他部分略。
  J* [5 c6 G$ }( Y( T3 p
5 {% z# I( ~7 U9 {) T! `: N
1 P$ S: [6 m9 E; _
  

  五．结束语
0 @) ^  g7 v" ?; c
   

如图2所示的图形由ug后处理出的程序如下所示，我厂的线切割需手工输入，为方便程序阅读，加入了坐标值，如果为自动传输，略加修改即可。

Deaton

8 C0 e  k( G. d) J& k' u; J; {) R
" @6 v- @, q! h  x9 h0 N# z" V/ P! A非常详细实用，谢谢！

, O% l/ a) N3 c附一个 Sodick 的后处理，已实现上下异形，子程序调用，供各位同学参考。
% k# {3 u9 G# Z; M( s2 Z
########################## TCL Event Handlers ##########################
#
  F! j9 L9 T# r) v+ r#  Created by Supervisor  @  Mon Oct 09 15:07:32 2005 中国标准时间
#  with Post Builder version  3.4.1.
3 }, k: H$ O( M! D  \: E#
########################################################################
( u, w) M- Q# D7 f/ c' t; J
% T' e. c" T( V8 e( Y2 `  set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
* b. Z5 r; V( `) x2 N) ?+ @2 E

  if { ![info exists mom_sys_post_initialized] } {
3 ?6 |# I0 ]) ^! J$ P3 m
$ {  {: i- N, n; H- B     source ${cam_post_dir}ugpost_base.tcl
- i7 ?4 O( A7 o5 A( t+ A' q
     proc MOM_before_each_add_var {} {}
9 @2 t# L# j* T9 U" L     proc MOM_before_each_event {} {}
: A. l# |: [. x6 h2 F
#     set cam_debug_dir [MOM_ask_env_var UGII_CAM_DEBUG_DIR]
' W! t* Q7 _% h! L! k2 e! D#     source ${cam_debug_dir}mom_review.tcl

     MOM_set_debug_mode OFF
( W4 W/ g, Q/ P( }6 m+ U
2 w5 K7 j3 k: C: F: N* g/ l
   ####  Listing File variables
% R$ r$ r2 O7 S     set mom_sys_list_output                       "OFF"
. Z7 a, a* B$ W- C     set mom_sys_header_output                     "OFF"
8 l5 X7 F) k" {7 k: m$ w     set mom_sys_list_file_rows                    "40"
     set mom_sys_list_file_columns                 "30"
5 K0 h2 S  S) X/ g, k     set mom_sys_warning_output                    "OFF"
: {8 N, b+ D0 d3 k     set mom_sys_group_output                      "OFF"
7 O4 _" K6 [* y. g$ H     set mom_sys_list_file_suffix                  "lpt"
" [% |& y) G3 N* j; _2 k     set mom_sys_output_file_suffix                "NC"
# f0 r# v, C) V$ t; c6 M# n     set mom_sys_commentary_output                 "ON"
4 ]5 H" b# L5 R( |     set mom_sys_commentary_list                   "x y z 4axis 5axis feed speed"

2 m/ P) K! C: ]     set mom_sys_control_out                       "("  
     set mom_sys_control_in                        ")"  

( `+ C2 |1 M4 N" i# P  o; e- U0 g     set mom_sys_post_initialized 1
  }
% A$ x* [# P4 c- \2 W/ k0 E

########## SYSTEM VARIABLE DECLARATIONS ##############
  set mom_sys_rapid_code                        "0"  
7 T4 A; u0 u& M( Y; `  set mom_sys_linear_code                       "1"  
; w9 r1 v' x2 u  r  set mom_sys_circle_code(CLW)                  "2"  
/ ^/ M5 t0 m5 v3 F  set mom_sys_circle_code(CCLW)                 "3"  
  set mom_sys_delay_code(SECONDS)               "4"  
- \3 m1 d1 z4 E9 T/ R+ h0 Q  set mom_sys_cutcom_code(OFF)                  "40"
  set mom_sys_cutcom_code(LEFT)                 "41"
) q$ n0 ^3 c; P' z  set mom_sys_cutcom_code(RIGHT)                "42"
  set mom_sys_unit_code(IN)                     "70"
0 T$ T" [' p) k$ G* _& s: Q  set mom_sys_unit_code(MM)                     "71"
  set mom_sys_output_code(ABSOLUTE)             "90"
  set mom_sys_output_code(INCREMENTAL)          "91"
  set mom_sys_reset_code                        "92"
  set mom_sys_program_stop_code                 "0"  
  set mom_sys_optional_stop_code                "1"  
( \, T3 [' a$ S' `. @  set mom_sys_end_of_program_code               "2"  
0 t! d& E* e) ?* p  set mom_sys_rewind_code                       "30"
  set mom_sys_thread_wire                       "20"
, j6 c, f! c  n% ?3 L  set mom_sys_cut_wire                          "21"
9 Y; @9 ]* ^1 j4 I7 b  set mom_sys_flushing_on                       "80"
- S& x5 A8 o! ~  set mom_sys_flushing_off                      "81"
+ H% v# G2 `. o8 H/ |  set mom_sys_power_on                          "84"
  set mom_sys_power_off                         "85"
3 p/ v! L  p8 R6 O  set mom_sys_wire_on                           "82"
  set mom_sys_wire_off                          "83"
  set mom_sys_cir_vector                        "Vector - Arc Start to Center"
5 I! A( ~  z' D" j' t3 Q  set mom_sys_rewind_stop_code                  "\#"
9 j+ D9 Z3 _' D  T& k) _  set mom_sys_home_pos(0)                       "0"  
  set mom_sys_home_pos(1)                       "0"  
  set mom_sys_home_pos(2)                       "0"  
  set mom_sys_zero                              "0"  
/ C( R' s8 i2 ^7 Q  set mom_sys_opskip_block_leader               "/"  
  set mom_sys_seqnum_start                      "10"
% I) s2 I0 [3 m- N! O+ J  set mom_sys_seqnum_incr                       "10"
  set mom_sys_seqnum_freq                       "1"  
8 S9 q+ _# F0 i  set mom_sys_seqnum_max                        "9999"
  set mom_sys_leader(N)                         "N"  
) |# o3 O, q7 Q  set mom_sys_leader(X)                         "X"  
# [7 y5 R8 ]2 M6 l  o  set mom_sys_leader(Y)                         "Y"  
$ ^) a' B( n. u( E: ?  set mom_sys_leader(Z)                         "Z"  
  set mom_sys_leader(U)                         "U"  
$ c/ S& U0 o% u% |( J6 I  set mom_sys_leader(V)                         "V"  
" s  F3 _' _9 Y' ~8 k# t. M  set mom_sys_contour_feed_mode(LINEAR)         "MMPM"
$ ]7 ]& Y* Y: K  }8 {  set mom_sys_rapid_feed_mode(LINEAR)           "MMPM"
  set mom_sys_cycle_feed_mode                   "MMPM"
" z8 h+ O! a- G& T  set mom_sys_feed_param(IPM,format)            "Feed_IPM"
6 R& h. P% }0 u9 P1 J0 i4 Q9 p  set mom_sys_feed_param(MMPM,format)           "Feed_MMPM"
  set mom_sys_feed_param(MMPR,format)           "Feed_MMPR"
. z$ b. z. q$ a6 Y" o: G/ `  set mom_sys_post_description                  "Unigraphics NX 4.0 WireCut Poster for Sodick.\n\
: K% Q" @$ }  d* y. j5 {+ E/ g                                                 Version: 2.0\n\
; G# U- _* J$ s, F% k3 O/ g                                                 Date: 2006/03/15\n\
                                                 By Deaton, Cheewah Toys Ltd., Co.\n\
                                                 Email:deaton@21cn.com\n\
                                                 Tel:0756-8277824, 13802674804\n\
                                                 Rule and Conic are both supported."
  set mom_sys_ugpadvkins_used                   "0"
8 G0 W! e. z+ ~0 Y" ?
* P  I$ h" @- ~& X4 v####### KINEMATIC VARIABLE DECLARATIONS ##############
+ o' }1 |7 C" l+ y9 b  set mom_kin_arc_output_mode                   "FULL_CIRCLE"
  set mom_kin_arc_valid_plane                   "XY"
6 b& ^! }$ V+ @" q' L/ f  set mom_kin_clamp_time                        "2.0"
' m7 b4 u" X# ~; b0 ~  set mom_kin_flush_time                        "2.0"
; v! }& ^6 t' m  set mom_kin_linearization_flag                "1"  
# i( B7 @6 ~' ^- p% h4 u  set mom_kin_linearization_tol                 "0.001"
/ U2 I/ T9 J" X- s& u( R" T% Z2 b  set mom_kin_machine_resolution                ".001"
  set mom_kin_machine_type                      "4_axis_wedm"
  set mom_kin_max_arc_radius                    "99999.999"
, [0 Z! m# H7 O  ]- @  y% ~  set mom_kin_max_fpm                           "10000"
  @+ M# ]3 L' c! E8 W1 m) ]  set mom_kin_min_arc_length                    "0.001"
  set mom_kin_min_arc_radius                    "0.001"
+ m1 M- g# _. L% Z; H2 h  set mom_kin_min_fpm                           "0.01"
1 J: Q; u% U- G1 U  set mom_kin_output_unit                       "MM"
& F/ `3 n% E7 j+ E, [  v& D( ^  set mom_kin_post_data_unit                    "MM"
: v+ |6 s7 u8 y  set mom_kin_rapid_feed_rate                   "15000"
, d3 K* N0 A7 g  O6 ^: k$ |  set mom_kin_tool_change_time                  "12.0"
3 O( [  w; M2 a$ \9 z  set mom_kin_wire_tilt_output_type             "COORDINATES"
: [7 B$ D1 V' T# x; D  set mom_kin_x_axis_limit                      "1000"
  set mom_kin_y_axis_limit                      "1000"
- G" f7 r5 h! `+ J0 @8 [7 E  set mom_kin_z_axis_limit                      "1000"


1 @8 H  R4 J/ O7 g% f, [7 _
9 R) o9 |# z. }1 b% B
& z  }5 J+ J4 ]& h! ~if [llength [info commands MOM_SYS_do_template] ] {
   if [llength [info commands MOM_do_template] ] {
      rename MOM_do_template ""
   }
   rename MOM_SYS_do_template MOM_do_template
2 C+ Q* ^: R  H7 t}




#=============================================================
* k9 f8 N' N/ P8 ^1 N. A! Zproc MOM_start_of_program { } {
#=============================================================
  z+ ]/ B. s$ G# @% \) I: k  global mom_logname mom_date is_from
( H) E* o, G4 Y! j  global mom_coolant_status mom_cutcom_status
  global mom_clamp_status mom_cycle_status
- q( a; ^* d4 Y  J8 r! z  global mom_spindle_status mom_cutcom_plane pb_start_of_program_flag
0 C3 R9 `3 E7 b5 N6 C$ n' W  global mom_cutcom_adjust_register mom_tool_adjust_register
- ]9 V* H: N( f, y  global mom_tool_length_adjust_register mom_length_comp_register
  global mom_flush_register mom_wire_cutcom_adjust_register
  global mom_wire_cutcom_status

    set pb_start_of_program_flag 0
    set mom_coolant_status UNDEFINED
% H' `/ u0 p1 ^) g    set mom_cutcom_status  UNDEFINED
    set mom_clamp_status   UNDEFINED
    set mom_cycle_status   UNDEFINED
    set mom_spindle_status UNDEFINED
! f3 Q8 j" e, c) @% F/ o    set mom_cutcom_plane   UNDEFINED
    set mom_wire_cutcom_status  UNDEFINED

    catch {unset mom_cutcom_adjust_register}
    catch {unset mom_tool_adjust_register}
% K0 T+ {. `: a8 q+ V# r6 |  A/ }! V6 s    catch {unset mom_tool_length_adjust_register}
    catch {unset mom_length_comp_register}
    catch {unset mom_flush_register}
5 T5 e4 M' F/ N! m    catch {unset mom_wire_cutcom_adjust_register}

# Y8 G5 O/ ^/ T2 N' V& v+ v. j7 Z    set is_from ""

    catch { OPEN_files } ; #open warning and listing files
    LIST_FILE_HEADER ; #list header in commentary listing

, [: O6 J& p: Y; X3 e6 N8 }
: b2 m3 f; X% y( K' c0 X
6 q  J# }1 F: y1 x; R  global mom_sys_post_initialized
  if { $mom_sys_post_initialized > 1 } { return }
" K0 C6 u8 n" p2 g+ r
8 Y$ H5 I6 a% |; [! G! h" K
' l' H  U" g* r7 o1 q. \#************
uplevel #0 {


#=============================================================
, Z' z; H; i% o  M& @' C& f7 T) bproc MOM_sync {} {
+ ?: w) G" D8 i#=============================================================
  if [llength [info commands PB_CMD_kin_handle_sync_event] ] {
    PB_CMD_kin_handle_sync_event
4 F! y$ e# b# b5 o5 O  }
}
5 K, |. h$ Y8 ?0 X
% l# [% }4 L- L  t2 T
#=============================================================
proc MOM_set_csys {} {
6 G. e" v4 N" {& W% C( {#=============================================================
  if [llength [info commands PB_CMD_kin_set_csys] ] {
    PB_CMD_kin_set_csys
: n7 z9 p; P/ B  }
2 ?; H, ]% z6 H/ K) J( R" b8 O  ]}

, X$ U( k8 d' O
" }% W- c( N% j/ v7 X2 K#=============================================================
- J; u, ?) a5 @3 L5 z- {proc MOM_msys {} {
! N' v  m8 ^( T% P$ w0 l3 {#=============================================================
}

/ K8 j+ u' r# F5 p
#=============================================================
! _2 g8 r/ g* V' Nproc MOM_end_of_program { } {
3 S/ w. i/ T5 M' \3 a5 n#=============================================================
   PB_CMD_end_of_file
* R9 H2 U- \3 e/ C   PB_CMD_calc_machine_time
  q; t$ Z( R$ g6 U& I
/ m- L% E3 U! o) D* Y  H! ?#**** The following procedure lists the tool list with time in commentary data
) Z) M4 h1 Q' n; u/ H   LIST_FILE_TRAILER
" ^" Q9 f$ y" `& b
#**** The following procedure closes the warning and listing files
2 V$ ~' P5 P- i% Y: s- k6 f   CLOSE_files
% ~1 j* u  ^6 e- a}


) u7 N, F1 M8 y" b: y  incr mom_sys_post_initialized
4 O1 J, Q( i% I; ~4 R" V

} ;# uplevel
$ R  {' {/ {- y0 h; T#***********

; `8 h; I# A- O8 `0 X6 v0 K7 U
! s6 M, g; l3 g/ [* O% {}
/ a3 ~' s% {* Z3 ^! W7 Y
' d& c+ f4 ^6 v; F7 i% _
+ U5 x& O3 e4 c% b#=============================================================
$ X7 l, v3 w! {* R6 n* `5 cproc PB_DELAY_TIME_SET { } {
#=============================================================
  global mom_sys_delay_param mom_delay_value
  global mom_delay_revs mom_delay_mode delay_time

1 a9 ]" M7 x0 ~% S   # post builder provided format for the current mode:
& g2 e, O' M5 J1 W    if {[info exists mom_sys_delay_param(${mom_delay_mode},format)] != 0} {
# M, L( _9 O* a, n% B      MOM_set_address_format dwell $mom_sys_delay_param(${mom_delay_mode},format)
$ N; x' q1 V) p  K7 S    }

    switch $mom_delay_mode {
      SECONDS {set delay_time $mom_delay_value}
7 s" S- Z) }$ b3 H1 W      default {set delay_time $mom_delay_revs}
" T! O1 i+ p$ r! ~    }
0 ]/ \; e7 s0 e* F( `}


#=============================================================
proc MOM_before_motion { } {
1 ~+ V% S& n& V! x9 g#=============================================================
  global mom_motion_event mom_motion_type
5 B/ i% H1 @2 \- e. F
    FEEDRATE_SET
: Y) ^4 ]. [. E- ~; w0 |

3 L: i) I9 S/ j. q% U" C/ A/ A: \    switch $mom_motion_type {
# q) ]! V; P* D7 U) r% u  X9 \, v0 m5 a      ENGAGE   {PB_CMD_kin_wedm_engage_move}
$ v7 T7 Q' V5 L/ x; l9 e9 A: E( S4 I      APPROACH {PB_approach_move}
% n% m0 e- ~+ o/ `! T0 c      FIRSTCUT {PB_first_cut}
7 U" R4 ]* t5 E" _# D# y      RETURN   {PB_return_move}
' n! X7 B' V6 ^: 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 }
}
/ p1 c% T) ]$ ?$ Q

$ V3 ]' t: h% r+ |( v3 l#=============================================================
1 w# p% ]2 h8 Q: f: [0 }proc MOM_start_of_group {} {
/ n0 A: S4 p% n1 x0 W#=============================================================
9 o3 }& B. o$ o+ ^  global mom_sys_group_output mom_group_name group_level ptp_file_name
: S( n) w& y: S  global mom_sequence_number mom_sequence_increment mom_sequence_frequency
( {9 i( C4 J* c; Y1 _0 S  global mom_sys_ptp_output pb_start_of_program_flag

    if {![hiset group_level]} {set group_level 0 ; return}

0 U+ r! N+ R/ |1 V; A    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}
% r; M+ [, i1 g5 J- v- ]2 s# i0 w    if {$group_level > 1} {return}
7 s% P2 o& Z5 f! e
- H; J2 S0 x$ u: \- M    SEQNO_RESET ; #<4133654>
    MOM_reset_sequence $mom_sequence_number $mom_sequence_increment $mom_sequence_frequency

    if {[info exists ptp_file_name]} {
* n" Z; o0 O% V! v' Q      MOM_close_output_file $ptp_file_name ; MOM_start_of_program
9 Q& @1 \, ~% V2 q! H4 Z      if {$mom_sys_ptp_output == "ON"} {MOM_open_output_file $ptp_file_name }
    } else {
      MOM_start_of_program
    }

    PB_start_of_program ; set pb_start_of_program_flag 1
" m- a$ V9 ]( D9 j- B5 [- e}
% n4 |  G+ G8 t! L. \& A

#=============================================================
7 `6 {8 D0 ]4 j' {& V/ jproc MOM_machine_mode {} {
$ t# g, Y4 i" r) }7 f#=============================================================
! P+ K+ \* ~- F  global pb_start_of_program_flag
' z' W! a; P- q7 z5 X# Q4 p# C; y/ c  global mom_operation_name mom_sys_change_mach_operation_name

) T6 R+ P  }0 Y   set mom_sys_change_mach_operation_name $mom_operation_name

    if {$pb_start_of_program_flag == 0} {PB_start_of_program ; set pb_start_of_program_flag 1}
4 K+ I# E; E: G2 V) @6 W
    if [llength [info commands PB_machine_mode] ] {
- u: q1 k# B. W4 _       if [catch {PB_machine_mode} res] {
          global mom_warning_info
          set mom_warning_info "$res"
          MOM_catch_warning
% w% |* M: C+ X# N% z       }
; u; @: B5 {+ G% A! V/ o    }
, i/ @" |0 Y: A& C}


#=============================================================
5 D5 t( E- A; F" z. V- pproc PB_FORCE { option args } {
#=============================================================
   set adds [join $args]
6 y7 `+ \" y" U4 @5 T( ~9 j4 x   if { [info exists option] && [llength $adds] } {
      lappend cmd MOM_force
+ l9 Q) F. Q( x4 g3 Q# z0 E      lappend cmd $option
; F' j0 ~1 t5 m      lappend cmd [join $adds]
' D- O" w. L3 c6 E      eval [join $cmd]
   }
! @7 [- }) C9 @4 n: a# `}
( a- p- V& F0 W3 v% |. m

7 X  h6 W- R# }/ k#=============================================================
proc PB_SET_RAPID_MOD { mod_list blk_list ADDR NEW_MOD_LIST } {
#=============================================================
' d, W4 i1 i2 ?& J) C: |  upvar $ADDR addr
  upvar $NEW_MOD_LIST new_mod_list
- f: k8 U% G3 R7 ^  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2

& r" X( C; }2 h
6 ~4 I9 u  ]2 g( O   set new_mod_list

  X7 x4 S& \% N2 E   foreach mod $mod_list {
7 e. Q# J, v7 v      switch $mod {
         "rapid1" {
* C* v. m( }- e- r# V: e8 i            set elem $addr($traverse_axis1)
, v% {+ k0 c* b. a' c' Z  @            if { [lsearch $blk_list $elem] >= 0 } {
4 G- [  L, S, z  s4 ?; T               lappend new_mod_list $elem
            }
& D& U; R" b6 l         }
4 @, W* P" z, m+ ]% D" O         "rapid2" {
            set elem $addr($traverse_axis2)
* T3 w4 o) {' f" X' o: q, a            if { [lsearch $blk_list $elem] >= 0 } {
  ]8 Y! B3 u( A/ u0 S               lappend new_mod_list $elem
            }
         }
         "rapid3" {
2 O7 f6 R& e- @8 U/ w5 A            set elem $addr($mom_cycle_spindle_axis)
            if { [lsearch $blk_list $elem] >= 0 } {
               lappend new_mod_list $elem
            }
1 I$ K3 }' y' J% s$ ]' D         }
         default {
5 o( w9 U/ B  \. W            set elem $mod
            if { [lsearch $blk_list $elem] >= 0 } {
8 }+ i3 `; `% U2 t, {, Z! \( }               lappend new_mod_list $elem
            }
+ C6 j) _5 m& O# G% b$ n; h, ~         }
4 C$ g/ s7 V5 L% W' V' \! \1 A      }
. a9 i8 E9 }) m/ K9 u3 R  v   }
}
( T) O  ?6 d8 c6 z' b0 d
, D" {: i! S) _
########################
# Redefine FEEDRATE_SET
########################
if [llength [info commands ugpost_FEEDRATE_SET] ] {
$ O# K% _3 p2 B% g9 @. z3 A( ]) C   rename ugpost_FEEDRATE_SET ""
}

if [llength [info commands FEEDRATE_SET] ] {
   rename FEEDRATE_SET ugpost_FEEDRATE_SET
} else {
   proc ugpost_FEEDRATE_SET {} {}
# Y; Y; L: w% z$ `}

% B/ j6 y9 L9 y+ M! h2 ^; S. G
#=============================================================
proc FEEDRATE_SET {} {
0 ?' W# C1 v7 M, n6 B/ n; L#=============================================================
. a" v4 H' x% \: ^; a5 k   if [llength [info commands PB_CMD_kin_feedrate_set] ] {
      PB_CMD_kin_feedrate_set
   } else {
! Z5 h# q2 q* Z6 F* o. w3 E      ugpost_FEEDRATE_SET
   }
}
4 i7 \) l( n( H6 r( m; p, e5 Q

. W8 m" ]. f3 F6 g/ w#=============================================================
proc MOM_wire_cutcom { } {
4 L: S5 i8 x$ ?, V$ F#=============================================================
0 u+ c0 u' P" _3 @  global mom_wire_cutcom_status mom_wire_cutcom_mode
- e( ]5 W# s: H  global mom_cutcom_status mom_cutcom_mode
& U$ e, I) v1 b& V3 Q0 W
4 ?0 T0 n' g+ `# v* K    set mom_cutcom_status $mom_wire_cutcom_status
    set mom_cutcom_mode $mom_wire_cutcom_mode
$ a/ g: P/ C1 l/ f3 h
    switch $mom_wire_cutcom_status {
: s, f8 M% M/ E3 v, S       ON  { MOM_cutcom_on }
       OFF { MOM_cutcom_off }
, X- e: k* M+ N1 I    }
& ^- o: |6 E, N8 C' l/ I}
3 M! A) L# b5 ~" ]+ Z, p

############## EVENT HANDLING SECTION ################

" s( b; U4 Q5 V4 ?+ X* q# U9 k
#=============================================================
) @8 a$ H$ b* Qproc PB_start_of_program { } {
3 P/ o- I  v* j) I3 h- e  H#=============================================================

   if [llength [info commands PB_CMD_kin_start_of_program] ] {
/ b! c* J: e8 d* T( `6 F1 g      PB_CMD_kin_start_of_program
   }
" q$ E" i" E8 F/ b
   PB_CMD_start_of_file
   PB_CMD_start_of_program
   PB_CMD_start_of_conic
; n1 J  \" p- u" E5 C   PB_CMD_first_move
$ o8 v  ~# U% G+ D2 }   PB_CMD_drill
}


* e! s" i8 t% n9 O4 A' r! _#=============================================================
8 C. Z, [! E' V+ U, Yproc MOM_start_of_path { } {
#=============================================================
, o3 l$ k& F  E6 a' G( o4 S  global mom_sys_in_operation
   set mom_sys_in_operation 1
" }- J- @2 A( g6 T9 R" M
  global first_linear_move ; set first_linear_move 0
   TOOL_SET MOM_start_of_path
4 m7 P2 a4 s: K9 S  p0 C9 N7 l
. T! I7 A% R' f: p* A   if [llength [info commands PB_CMD_kin_start_of_path] ] {
. F, u" J% h2 ~4 X) A      PB_CMD_kin_start_of_path
   }

   PB_CMD_start_of_program
}


#=============================================================
9 q- }  s; e% W& ~- _# X( tproc MOM_from_move { } {
# C! L' X) c! ]( c#=============================================================
3 z) Q1 X* _+ a; `8 b/ \  global mom_feed_rate mom_feed_rate_per_rev  mom_motion_type mom_kin_max_fpm
1 t! {; o0 w2 m+ y0 k$ |' ]0 }2 p/ q   COOLANT_SET ; CUTCOM_SET ; SPINDLE_SET ; RAPID_SET
, N9 l! ~9 j4 ?6 o' T  ~9 m# E}
, Q$ c' H! U& g+ B
  j$ q1 y$ y+ X( d- }' _6 W! [
#=============================================================
proc PB_approach_move { } {
, l& x  j( \$ i/ D$ o#=============================================================
}
9 _) @# Q) ^4 N- {+ [* I; w- Q- _5 `5 A
( l/ g! b3 |2 A. t* D3 ~) s3 y
0 d( r2 I9 Z- g. A$ r  B6 o' [#=============================================================
proc MOM_start_of_pass { } {
; t, d8 ?% z: a) c+ m* E#=============================================================
  global mom_sys_start_of_pass
6 N# w4 H% p( l2 }  set mom_sys_start_of_pass 1
7 T# h( T/ b9 b5 W2 V   PB_CMD_start_of_pass
' f: j7 a3 U3 m}

( k/ u- H0 G& C" T5 w
2 n% }, I1 `/ a8 B( c#=============================================================
proc PB_cutcom_move { } {
#=============================================================
/ e: n6 Z8 U) r3 Y: A. @}


' S& p" h5 \. ?" R#=============================================================
proc PB_lead_in_move { } {
( ?% E0 ]' m4 O7 n  z; a#=============================================================
5 C* X) E" m# y* R" o8 O; r}

+ ~: K/ ~( g6 q* }
#=============================================================
8 r. Z# {1 b: A" ^0 n. A6 k6 Eproc PB_lead_out_move { } {
#=============================================================
}
9 W5 O! d- x9 v% B4 @! I5 J

#=============================================================
proc MOM_end_of_pass { } {
#=============================================================
  PB_lead_out_move
, [; c( z2 A5 T% G   PB_CMD_cutcom_off
* H0 V  s( r+ @& t% B}
# K0 p, Y& U/ U: t
! b4 W+ R8 M$ j+ x4 ?  x+ K
4 |0 _: m' d* W8 I+ I* |# i0 B#=============================================================
/ Z8 v+ a' M1 s" rproc MOM_gohome_move { } {
#=============================================================
" e$ B! w. ~3 r1 E( ^   MOM_rapid_move
/ }& |! ]8 N- t& j) P6 Z5 O) b}

$ ]# d) q& l0 n2 x$ u3 J! B3 a6 H
* r4 O" Q4 x8 r3 c; N! C#=============================================================
proc MOM_end_of_path { } {
#=============================================================

   if [llength [info commands PB_CMD_kin_end_of_path] ] {
      PB_CMD_kin_end_of_path
   }
. V, Z, M' i4 x' Y' s( e6 V1 J, c
   global mom_sys_in_operation
; O. f8 e& c5 k4 g. l. n8 b' M- K1 i; A   set mom_sys_in_operation 0
}
/ r0 D# I" S5 [

#=============================================================
% S; o4 L& i0 t7 G& b. vproc MOM_thread_wire { } {
/ s5 m1 R0 ^8 q$ O#=============================================================
. U; [# _( V- I  [! F0 U: C2 \}

! ~$ o' v& o. V0 }- J4 V
- B6 \: M& s2 t: {#=============================================================
proc MOM_cut_wire { } {
& t2 S5 p# d5 z#=============================================================
  H" z. d6 E8 U}


#=============================================================
9 M0 k' q* u2 `# xproc MOM_wire_guides { } {
#=============================================================
   PB_CMD_work_coordinate
$ E  S' E3 _% ~" Z* L}


: m) f9 G% r0 `' ?4 s- s#=============================================================
proc MOM_set_mode { } {
+ b2 Y5 D) p$ B! e3 z' m5 s#=============================================================
9 R- r. U! e: K. w3 I2 A  Z8 Y}
" E, }, M; h* O" E, `4 K, {
7 ~$ ]+ ^6 k- z
% q* d, `* t7 C4 n6 k! x#=============================================================
proc MOM_cutcom_on { } {
7 Z( n6 i. m0 M! p; a* p! I#=============================================================
; U1 U: s0 w9 s  p/ g   CUTCOM_SET
   PB_CMD_cutcom_on
}

, c& v1 ]7 |! _, z- T( `
#=============================================================
% O3 \: L, Q  {% y/ Aproc MOM_cutcom_off { } {
! V9 l' l/ A) r6 J0 T7 D& m/ \#=============================================================
   CUTCOM_SET
; q& a- }" ?+ ^. h6 b6 {   PB_CMD_cutcom_preoff
0 p& V: @! {5 k5 K/ |5 p" `- E}
4 t0 m: m4 B" [

) `1 \9 {8 `. J/ K% P1 B. e# k#=============================================================
: G5 \& F# K% q. |5 Rproc MOM_feedrates { } {
& g" l3 z7 M+ g2 @; I$ _  a' ]#=============================================================
, H, ]/ D5 c$ i}
2 z7 d4 i% g/ `, K4 s8 U

#=============================================================
proc MOM_delay { } {
#=============================================================
) k. l# E& Y. k* Y" d   PB_DELAY_TIME_SET
: P1 Y/ y, d# F* S3 ^/ W$ f   MOM_do_template delay
}
& {9 b5 v. b: r6 N8 Z' D

#=============================================================
: C. j+ x9 b, O0 w$ W9 aproc MOM_auxfun { } {
- M' x8 K: k  \# R% n( C$ C$ K#=============================================================
* c. V( L; Z. A# K- O  ^9 t1 z}
. T9 W& j0 K1 F3 @7 c% p

#=============================================================
3 H7 u- p0 M. S! }, bproc MOM_prefun { } {
#=============================================================
$ `" x1 l$ N4 s* Y0 o* I}
8 h; C- Z! @6 ]3 O/ W( q1 {

8 _8 ]1 C# k2 h+ f+ A/ g9 A#=============================================================
proc MOM_stop { } {
#=============================================================
   MOM_force Once M
   MOM_do_template stop
- C3 J+ O. Y1 [( ?( U" u}
! [& h6 L9 x% {

#=============================================================
5 n7 `( k0 _4 F2 }9 f5 ]$ N/ T! Iproc MOM_opstop { } {
, a9 R: y% L% d#=============================================================
   MOM_do_template opstop
% K7 [. t$ z" K8 D# I; f4 G- P6 j}
3 L! K, R0 X* N) \
3 b) v9 Y( i& r4 U2 C
#=============================================================
) u6 u9 J) F4 t$ A# k, yproc MOM_linear_move { } {
2 ~% G0 i* L; M& Y7 b( p8 @9 ~( J#=============================================================
  global feed_mode mom_feed_rate mom_kin_rapid_feed_rate

6 X- z; h8 Y9 `: c' Y   if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
      if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
         MOM_rapid_move
         return
      }
   }
5 g. @1 }5 Y/ M1 {2 g
1 X/ ]9 O3 i4 B   PB_CMD_linear
}
1 j! ]. e5 ^8 Y1 Y

: h; M3 M0 b% a. M; [#=============================================================
# P' A2 m- s# V- R/ y9 j* nproc MOM_circular_move { } {
# F% \; _( a4 k8 M: ^/ f#=============================================================
   PB_CMD_circular
  J$ s+ m5 \) _5 Z}
' h2 T$ b0 M2 q' M) C

#=============================================================
proc MOM_rapid_move { } {
#=============================================================
  global rapid_spindle_inhibit rapid_traverse_inhibit
  global spindle_first is_from
  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2
9 D5 B- W0 ^6 m4 G0 n. `  global mom_motion_event
* F6 F- S  N7 R/ l1 q
0 y2 `. t7 A/ a; u   set aa(0) X ; set aa(1) Y ; set aa(2) Z
   RAPID_SET
   MOM_do_template rapid_move
}
5 F) W0 R, P# _: U: Q$ [

' @8 l, {% {9 z. m! n#=============================================================
2 a/ m& n* ]1 Z$ ^5 oproc MOM_cycle_parameters { } {
! s) z3 N0 ~6 Z/ U# Y! L, h- P#=============================================================
}
% d  N& A: ^) E  }4 f

#=============================================================
proc MOM_sequence_number { } {
( [: S) C( n2 ]' G! h/ }#=============================================================
. F1 a, H1 L3 {( Z; `& p/ }1 c* E   SEQNO_SET
& K3 M% S0 p/ z) q% @* W( A; s}
5 ?# `$ y6 B8 I, l- _8 R" S

#=============================================================
proc PB_CMD_before_motion { } {
5 u3 D$ p# }+ y2 k#=============================================================
global mom_motion_type
global mom_current_motion
. ^: `# M$ g3 h+ W) A6 y8 ?global mom_motion_distance
: U" m. A8 {: S* Gglobal momPathLength
; b# H5 k! ?% ^
! F( f% ~  k% l+ TMOM_reload_variable mom_motion_type
MOM_reload_variable mom_current_motion

- v" R5 y8 e7 y$ Gif { ($mom_current_motion == "first_move") && ($mom_motion_type == "RAPID") } {
   ## Set location point befor First Move:
( p/ x; i  J& L   MOM_output_literal "/G05"
   MOM_output_literal "/G06"
   MOM_output_literal "/G08"
   MOM_do_template rapid_move
   MOM_do_template location_start_point
   return
} elseif { $mom_motion_type == "RAPID" } {
   ## When rapid move, insert and append pause activation:
+ c: x$ W+ M4 W: L   MOM_output_text " "
* P$ ?% V8 r1 F   MOM_output_literal "M00"
1 `# G6 t; X/ F+ P   MOM_do_template rapid_move
   MOM_output_literal "M00"
- t, m% v1 r( e1 [* H   MOM_output_text " "
   return
} elseif { $mom_motion_type == "CUT" } {
   set momPathLength [expr $momPathLength + $mom_motion_distance]
}
}
& y' X' g6 c9 U; I; a

#=============================================================
proc PB_CMD_calc_file_size { } {
* o  b# N  O# w* P#=============================================================
9 p0 l4 m. {' d) xglobal ptp_file_name
7 b3 k# c: ]7 |
MOM_close_output_file   $ptp_file_name
, N" p3 p/ a: nset ptp_size [file size $ptp_file_name]
MOM_open_output_file   $ptp_file_name

MOM_output_literal "( NC file size = $ptp_size bytes )"
}

$ M' s8 T' c, ?
2 B; T9 m8 _2 ^* B/ u4 Y#=============================================================
4 P6 `7 p: r+ L  @* Aproc PB_CMD_calc_machine_time { } {
#=============================================================
global momPathLength
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
global mom_feed_rate
global mom_wire_feed_rate

* j2 i+ V2 @" z( R, O* K! rglobal mom_kin_machine_type
global mom_machine_mode
% {8 _: X5 Y8 A

, f' I& t# o# r( F1 O2 ?. j. jif {$mom_machine_mode == "WIRE" } {
   MOM_output_literal "( Toolpath Length = [format "%6.2f" $momPathLength] mm )"
   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. )"

/ X% K; e% g% e8 Z9 [4 ~1 F" Z" N   PB_CMD_calc_file_size
+ M. i4 X8 M+ Y* f& N}
# Q' h9 {+ a4 W5 ^5 t7 l7 x$ s9 f}

5 @1 ^8 }7 l3 k3 {& ?  s, J
#=============================================================
proc PB_CMD_circular { } {
5 M) c: m4 e1 e9 x) y7 E; m#=============================================================
' q, o+ A. d* o2 Y# xglobal mom_tape_status
if { ($mom_tape_status == "ANGLE") || ($mom_tape_status == "NONE") } {
; B' h) _- l! `9 M6 V* P+ m7 o: K  w   MOM_force Once G_motion X Y I J
; F) a5 l; c# u5 o3 d, {# [9 P/ 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
} 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
}
}


; T: g) I7 P& X# L#=============================================================
3 B3 L& |4 b! {* Q9 Hproc PB_CMD_cutcom_off { } {
#=============================================================
global mom_wire_guides_lower_plane
* [' L% N$ G9 f- q& rglobal mom_wire_guides_upper_plane
global mom_tape_status
global mom_sys_cutcom_code(OFF)
$ {  Y' M5 \- l. nglobal momComplex

if { $mom_tape_status == "CONIC" } {
, m) {8 ]6 x3 A  s0 n, C   MOM_output_literal "G75"
}

$ y8 A2 w/ `( b- K+ U5 ?! fif { $mom_tape_status == "COMPLEX" } {
   if [info exists momComplex] { unset momComplex }
  U5 b' \' ?6 }) |( B4 x. K} else {
   if { $mom_tape_status == "ANGLE" } {
. r$ O. r' P. d- h5 Z1 O      MOM_output_literal "G40"
5 x  A* A) W6 l9 M+ C      MOM_output_literal "G50"
   } else {
) W" ^  A1 E. I+ G      MOM_output_literal "G40"
   }
}
}
$ w) }8 c! K6 |* K. H8 R4 ~# Z" s
' E: a8 Z, U( K4 ^0 L: p
#=============================================================
$ B( w# l% _7 p2 e2 W) mproc PB_CMD_cutcom_on { } {
#=============================================================
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
global mom_tape_status
global mom_sys_cutcom_code
global momComplex
2 Q2 i1 ~) ^; Bglobal momConic
global mom_wire_angle_command
6 Z8 Y1 W8 M3 B! {; I% I
global mom_sys_cutcom_code(LEFT)
3 m+ w' `- u* q' W6 p: Sglobal mom_sys_cutcom_code(RIGHT)
global mom_sys_cutcom_code(OFF)
global mom_wire_cutcom_mode
- K. x. X5 b. a: Vglobal mom_wire_cutcom_status
global mom_wire_cutcom_adjust_register
global mom_wire_cutcom_user_register

MOM_reload_variable mom_wire_cutcom_user_register
8 F! k) Y& G% b7 [5 aMOM_reload_variable mom_wire_angle_command
/ _1 d( p6 R. s; l. p. D! VMOM_reload_variable mom_wire_cutcom_adjust_register
# U' K$ \; W% |# b6 s% cMOM_reload_variable mom_tape_status
' P  K7 _3 q% Q2 ^
if { $mom_wire_cutcom_user_register != $mom_wire_cutcom_adjust_register } {
   set mom_wire_cutcom_adjust_register $mom_wire_cutcom_user_register
}
3 t- W, }5 y3 n2 q. Y
if { $mom_tape_status == "COMPLEX" } {
6 R/ m6 W  @! {% y% v4 x   MOM_do_template cutcom_on_complex
. j+ K+ X9 p4 S2 Y0 x$ F! H   set momComplex 1
} else {
- ]( s9 g" `* Y: j) v5 e   if { $mom_tape_status == "ANGLE" } {
7 U" o7 d. C6 Q      if { ![info exist mom_wire_angle_command]} { set mom_wire_angle_command "G551 A0" }
) H3 T8 H5 ^) \/ g6 ]3 @: r      MOM_output_literal $mom_wire_angle_command
   }
' ^) R5 f( h' J' @8 x" d4 p   if { $mom_tape_status == "CONIC" } {
/ O8 }1 m# J0 q2 q  f      set momConic 1
   }
   MOM_do_template cutcom_on
}
}
% k& R: `3 M3 `3 Z% Y# ^

5 K4 ]7 x& l. g% H#=============================================================
; l: \; Z  I" r! n1 o+ X' Bproc PB_CMD_cutcom_preoff { } {
' M% J, X/ m8 O5 ~. f1 D( X#=============================================================
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
global mom_tape_status
global mom_sys_cutcom_code(OFF)

6 C) w* X5 F/ Q/ bMOM_output_literal "M00"
if { $mom_tape_status == "ANGLE" } { MOM_output_literal "A0" }
7 W- ^7 r( F* g) q% \if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "D000" }
}


" c- V  W  b7 }2 ]0 j/ t#=============================================================
; P; z9 j$ S$ }5 r( k$ t; Eproc PB_CMD_drill { } {
" m0 Y9 K/ `/ ]' \2 u3 X. t#=============================================================
uplevel #0 {

   set mom_kin_wire_tilt_output_type "COORDINATES"
' f- D1 B2 R3 |   #MOM_reload_kinematics
% z0 o. z' D( ]
' e4 S. L5 L& _' \; H4 E! Z3 l   proc MOM_drill_move {} {
7 t$ \6 x9 f% [. p& e# l      global mom_pos

3 Q  p% v! Q# Q      MOM_output_text " "
; `1 G) m7 Q$ j( q5 Y6 Z  U  e      MOM_do_template rapid_move
+ D4 s$ W& J$ B& o* `      MOM_output_literal "M00"
. G) J) W2 n9 H: E9 D! M/ @! ]      MOM_output_literal "M98 P8888"
  f  a) u% f9 u, ~: a   }

}
}

: I+ s: o+ o) W0 D8 G# z! X3 ?
3 s. ?5 J2 Q7 i/ }9 a3 q" l2 i% n#=============================================================
. N7 B# \2 i: g# N5 jproc PB_CMD_end_of_file { } {
4 I( M8 r) J6 f4 s#=============================================================
MOM_output_text " "
6 L- O& I3 b8 w' D. S$ }MOM_output_literal "G40 G50 G75"
# p9 x8 }: F7 I9 i- d5 uMOM_output_literal "G90 G09"
MOM_output_literal "T81"
MOM_output_literal "T97"
MOM_output_literal "M00"
MOM_output_literal "M02"
MOM_output_literal "%"
MOM_output_text " "
}
: S- N. y9 Q1 P' h

% R5 F8 }+ Q1 h' p# |" U#=============================================================
proc PB_CMD_first_move { } {
/ ^" w  B9 w' p  ^2 P5 W+ X  k; Y#=============================================================
' {3 B. I9 g) puplevel #0 {
6 C' _" n5 u0 S2 R4 i   proc MOM_first_move { } {
8 G9 _! S8 z  `9 P# F      MOM_output_text " "
      MOM_abort_event
      return
   }
}
}

: x0 w2 @  [1 h$ g" @
#=============================================================
proc PB_CMD_kin_before_motion { } {
8 i, ~  q! d: w! C: T% u#=============================================================
6 S" c! P% j+ i4 s0 I* q3 h}
; m$ Z: l% I) @9 b1 h9 Z# s

0 S) C  |) O1 @; r7 W#=============================================================
proc PB_CMD_kin_feedrate_set { } {
" g# @7 s# K& V0 j#=============================================================
# This procedure supercedes the functionalites provided by the
# J/ W5 S  J1 Y8 q% P# m* [  P# FEEDRATE_SET in ugpost_base.tcl.  Post Builder automatically
# generates proper call sequences to this procedure in the
# Event handlers.
#
+ y/ Q8 y5 x5 {( o# This procedure must be used in conjunction with ugpost_base.tcl.
% e/ g  b/ e4 Q3 m% {; |! _#
  global   feed com_feed_rate
/ M' H% v( a6 X4 e  global   mom_feed_rate_output_mode super_feed_mode feed_mode
5 T2 a: I) A( d+ p, d  global   mom_cycle_feed_rate_mode mom_cycle_feed_rate
  global   mom_cycle_feed_rate_per_rev
' f; C0 X9 Q& V1 J8 w9 F2 o9 O  global   mom_motion_type
0 R* A% N0 n1 K$ t, N4 ?; w  global   mom_warning_info
  global   Feed_IPM Feed_IPR Feed_MMPM Feed_MMPR Feed_INV
" E/ q7 c" X/ q1 ]3 }  global   mom_sys_feed_param
! o* A  u0 h& E$ O3 `! C1 F  global   mom_sys_cycle_feed_mode
  A$ ~1 W9 y3 M0 m) m! c

1 {2 _: a7 S% ?& ?5 v1 d: p  set super_feed_mode $mom_feed_rate_output_mode

. s2 n, t; l5 n: v) k2 Y4 S8 `  set f_pm [ASK_FEEDRATE_FPM] ; set f_pr [ASK_FEEDRATE_FPR]
* C# ]% D( s+ @) [% V5 g* }2 d
: j/ }7 ?* i0 R5 r! }  switch $mom_motion_type {
2 b2 m$ Z" A" z% Y
    CYCLE {
      if [info exists mom_sys_cycle_feed_mode] {
- G3 w0 V3 S2 }0 w, f2 ^         if { $mom_sys_cycle_feed_mode != "Auto" } {
            set mom_cycle_feed_rate_mode $mom_sys_cycle_feed_mode
         }
$ x$ R: a) ~6 C& V, N8 H      }
      if {[hiset mom_cycle_feed_rate_mode]} { set super_feed_mode $mom_cycle_feed_rate_mode }
4 N4 C5 R- b/ T  X6 }      if {[hiset mom_cycle_feed_rate]} { set f_pm $mom_cycle_feed_rate }
      if {[hiset mom_cycle_feed_rate_per_rev]} { set f_pr $mom_cycle_feed_rate_per_rev }
    }
; J/ k4 M7 e* ]
/ q" V6 H+ e8 Z0 F! v8 W6 ]! E/ g    FROM -
' `" T" B) `3 A    RETRACT -
    RETURN -
    LIFT -
    TRAVERSAL -
    GOHOME -
- H, K* h5 D; b0 [: h    GOHOME_DEFAULT -
    RAPID {
& Q* c0 b: ^" Y: p0 U5 H      SUPER_FEED_MODE_SET RAPID
    }

    default {
      if {[EQ_is_zero $f_pm] && [EQ_is_zero $f_pr]} {
        SUPER_FEED_MODE_SET RAPID
$ V  l$ A0 _# ?      } else {
* t$ d% X1 M" O: R4 Z1 ~: x        SUPER_FEED_MODE_SET CONTOUR
/ g5 s" @& F- O( P$ c3 r      }
3 J3 ~" \6 V+ M5 |  L; u9 o9 P* v# ]    }
. R& v8 t  Y% w) z4 Y/ f1 s  }
# A# i7 U' E3 [+ L: d) a

  set feed_mode $super_feed_mode
8 b, Q' i4 @& V" K2 u8 J6 y8 r

# Adjust feedrate format per Post output unit again.
/ r: \& V7 }) W1 x1 K  global mom_kin_output_unit
. f) U$ v. d: X5 O2 I  if { $mom_kin_output_unit == "IN" } {
     switch $feed_mode {
, J; w' J* a2 q! i- g       MMPM {
) e! S2 ^: ?! o6 A. E  i, H         set feed_mode "IPM"
         CATCH_WARNING "Feedrate mode MMPM changed to IPM"
* J: r2 m$ d: L; z- M: P       }
. x3 m+ [5 Q4 C$ S" f       MMPR {
         set feed_mode "IPR"
         CATCH_WARNING "Feedrate mode MMPR changed to IPR"
       }
( l4 F& i& h4 P" k2 T+ a- @, A     }
2 T- S4 Z- o- V8 |" }3 J  m, I/ [  } else {
     switch $feed_mode {
$ W$ J( ^" \( Z$ }, K7 n       IPM {
' f, Q8 }. `, m         set feed_mode "MMPM"
5 _2 g* Y; V: j) {/ V* }         CATCH_WARNING "Feedrate mode IPM changed to MMPM"
       }
4 H( U) q# j! _, m8 E  Z0 B       IPR {
* v3 @2 @" Z8 Z5 Y% R         set feed_mode "MMPR"
         CATCH_WARNING "Feedrate mode IPR changed to MMPR"
       }
     }
  }
1 W$ ]& p4 h9 a0 ?
5 z# c- y* C! _/ L* g
# c5 {9 M2 e7 t  B2 F9 Z  switch $feed_mode {
    IPM     -
; D. R/ d. j- V  Z4 |, m* \( Y0 b    MMPM    { set feed $f_pm }
6 \- x  S$ e6 R3 a5 O5 i3 a" r    IPR     -
    MMPR    { set feed $f_pr }
    DPM     { set feed [PB_CMD_FEEDRATE_DPM] }
% n5 ~8 l) O; l; B9 W' D! _% l  A    FRN     -
    INVERSE { set feed [PB_CMD_FEEDRATE_NUMBER] }
    default { set mom_warning_info "INVALID FEED RATE MODE" ; MOM_catch_warning ; return }
  }

' [5 N/ M6 j& j
# Post Builder provided format for the current mode:
  if [info exists mom_sys_feed_param(${feed_mode},format)] {
; S) N+ n6 e9 s* @    MOM_set_address_format F $mom_sys_feed_param(${feed_mode},format)
  } else {
    switch $feed_mode {
, G) y3 ^% c  p5 a      IPM     -
( U( V0 h+ q6 n1 W      MMPM    -
      IPR     -
. W3 D/ L6 ?# n4 ~      MMPR    -
      DPM     -
* @* P0 |; S% l0 z      FRN     { MOM_set_address_format F Feed_${feed_mode} }
      INVERSE { MOM_set_address_format F Feed_INV }
    }
5 C9 F" J/ `* i, d& L7 _) c* |3 J  }
. S3 \! [4 ?) K# Q) T5 D4 @* a+ g4 e
# Commentary output
  set com_feed_rate $f_pm
, D3 j& {5 V( W

! s: q' g& D9 x8 {# Execute user's commnad, if any.
( q7 j  ]* r" {3 S  if [llength [info commands "PB_CMD_FEEDRATE_SET"]] {
     PB_CMD_FEEDRATE_SET
  }
}

  D: \5 D. @, _0 C+ a! `0 |# I
#=============================================================
proc PB_CMD_kin_init_mill_turn { } {
#=============================================================
}
1 ^' B, g( E9 t! C" w

" ?, i9 @; |/ l/ r/ k& q/ S#=============================================================
proc PB_CMD_kin_init_mill_xzc { } {
. G* }! u, z! G; k# ^#=============================================================
}


#=============================================================
proc PB_CMD_kin_init_rotary { } {
) U+ V9 {- C( d6 _6 |0 ^#=============================================================
}
# B9 d$ S( @. B- Z+ K. k) N1 Q

5 n& p0 v0 }3 Y" T' \* t9 @#=============================================================
* |7 S: v% e" j* Cproc PB_CMD_kin_linearize_motion { } {
#=============================================================
}

% @6 @' |* r# g  d$ h
/ V+ N: X$ g) M% L" D. m#=============================================================
: M  C% E! z! H+ G0 Fproc PB_CMD_kin_mill_turn_initialize { } {
2 w9 z3 V3 l: ?1 ]. k: ~#=============================================================
$ L+ b+ X% I$ k}


#=============================================================
proc PB_CMD_kin_mill_xzc_init { } {
* I; b' z4 h* f2 j5 G#=============================================================
}
; Y. a+ G7 y9 X' j3 D

& Q+ U- K6 {8 e" a- v+ }+ e( j! t#=============================================================
; l9 H8 y' {( J# ~" E# g7 }+ Lproc PB_CMD_kin_set_csys { } {
& m( `; _; |- v" V( @6 O; i2 y#=============================================================
   if [llength [info commands PB_CMD_set_csys] ] {
      PB_CMD_set_csys
   }
}
, z$ z& ?# g9 l' E
, g* _9 X& C, S/ N1 _
7 b8 a  q- t9 K8 `2 V#=============================================================
) O* J! D. r% l& k5 Pproc PB_CMD_kin_start_of_path { } {
7 ?6 z" d1 s! c2 W. t#=============================================================
/ i/ h: x8 @$ u6 o7 j9 k% [# Y#
#  This procedure is executed at the start of every operation.
#  It will check to see if a new head (post) was loaded and
#  will then initialize any functionality specific to that post.
#
6 `3 M& t" A4 X2 @#  It will also restore the initial Start of Program or End
#  of program event procedures.
& [7 `6 W' K  \# _#
#  DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING.
9 [2 Q. i) m% O; ]2 ]8 U#  DO NOT CALL THIS PROCEDURE FROM ANY OTHER CUSTOM COMMAND.
4 r, f7 @- `4 O+ H3 @#
  global mom_sys_head_change_init_program
5 M$ e& ?0 m: j+ @. E
   if [info exists mom_sys_head_change_init_program] {

      PB_CMD_kin_start_of_program
* N2 u4 |$ g& K- e6 I4 ~6 L$ w      unset mom_sys_head_change_init_program
: H* Q, p, l1 M
/ v$ Q7 [; s$ u, T% l% ?- E3 E     # Restore master start & end of program handlers
      if [llength [info commands "MOM_start_of_program_save"]] {
, j3 Q7 b2 o0 }# K         if [llength [info commands "MOM_start_of_program"]] {
            rename MOM_start_of_program ""
1 O* b+ }* G% T- p3 L         }
- I+ Z. M3 w% o         rename MOM_start_of_program_save MOM_start_of_program
. u4 f, y+ q5 Z5 u      }
; V( N/ m- }& ?3 p. M/ ~: {      if [llength [info commands "MOM_end_of_program_save"]] {
1 H9 w. ^4 U. b9 B3 G         if [llength [info commands "MOM_end_of_program"]] {
            rename MOM_end_of_program ""
         }
( i; w" p" ~$ m& R         rename MOM_end_of_program_save MOM_end_of_program
      }
* k& H; @5 R- |, q$ W
     # Restore master head change event handler
( E. L  v4 I3 I1 g      if [llength [info commands "MOM_head_save"]] {
4 E$ `7 R! ^: B6 L4 L/ q2 D         if [llength [info commands "MOM_head"]] {
. s1 v8 C9 Z+ N/ U- H. r            rename MOM_head ""
& @! r  p6 I" w# C" B( }) y         }
         rename MOM_head_save MOM_head
8 q2 N" u3 O) e+ {# r: H1 m      }
$ Q  U$ ~1 w& \6 p& s6 ~) R8 H   }
4 |7 W8 b7 |9 E' J& m}
  J" e8 v- r' ?( |

#=============================================================
proc PB_CMD_kin_start_of_program { } {
#=============================================================
8 e1 ^+ G! I) V7 J2 s+ u$ i#
#  This procedure will execute the following custom commands for
3 @1 Z9 ~1 P5 G9 W#  initialization.  They will be executed once at the start of
/ R9 ^: T3 H& Y+ `2 D#  program and again each time they are loaded as a linked post.  
& }2 _1 u' p& R( x2 v1 n#  After execution they will be deleted so that they are not
; B7 L, U6 F9 n- g# S#  present when a different post is loaded.  You may add a call
# z# V2 G2 ?4 {) q4 p: a#  to a procedure that you want executed when a linked post is
#  loaded.  
( T9 C: C6 l1 u5 H9 a/ @# L6 Z#
#  Note that when a linked post is called in, the Start of Program
- O( [- |4 W" I#  event marker is not executed again, only this procedure.
#
#  DO NOT REMOVE ANY LINES FROM THIS PROCEDURE UNLESS YOU KNOW
#  WHAT YOU ARE DOING.  DO NOT CALL THIS PROCEDURE FROM ANY
% F7 J; A( y3 C#  OTHER CUSTOM COMMAND.
#

   global mom_kin_machine_type

   set command_list

( L, U6 D( n9 o- k
   if [info exists mom_kin_machine_type] {
0 r% n0 P- p* l5 [      if { ![string match "*3_axis_mill*" $mom_kin_machine_type] &&  ![string match "*lathe*" $mom_kin_machine_type] } {
# d/ h5 s( Y0 d) s" S( e
         lappend command_list  PB_CMD_kin_init_rotary
5 _/ r2 c' p) Z& @2 G& H      }
   }

; }( T$ V6 J  i   lappend command_list  PB_CMD_init_auto_retract
* b, C% X3 a& c" \   lappend command_list  PB_CMD_initialize_parallel_zw_mode
  D8 C3 B* R" Y; @& z' x1 w  i  O9 _   lappend command_list  PB_CMD_init_parallel_zw_mode
   lappend command_list  PB_CMD_initialize_tool_list
" C( L, b9 B# [" V   lappend command_list  PB_CMD_init_tool_list
   lappend command_list  PB_CMD_init_tape_break
   lappend command_list  PB_CMD_initialize_spindle_axis
- B0 @3 C9 X* e1 P& r   lappend command_list  PB_CMD_init_spindle_axis
4 }0 L& Y- f' r: t1 z0 D, G# q   lappend command_list  PB_CMD_initialize_helix
   lappend command_list  PB_CMD_init_helix
   lappend command_list  PB_CMD_pq_cutcom_initialize
6 j2 U8 `; Q( v" C* P- g   lappend command_list  PB_CMD_init_pq_cutcom

   if [info exists mom_kin_machine_type] {
      if { [string match "*3_axis_mill_turn*" $mom_kin_machine_type] } {
% U/ S7 u# n7 u3 W/ P) q
3 S& ?" V2 v% t* L  f; M$ }          lappend command_list  PB_CMD_kin_init_mill_xzc
          lappend command_list  PB_CMD_kin_mill_xzc_init
' D0 t3 F( o  w. V' E3 ^" r          lappend command_list  PB_CMD_kin_init_mill_turn
          lappend command_list  PB_CMD_kin_mill_turn_initialize
2 d1 |' \1 @& t. e; X( d      }
   }
6 n2 Y8 E% x6 y& ^
   foreach cmd $command_list {

      if [llength [info commands "$cmd"]] {
        # Skip execution of commands that exist in v2 mill-turn posts.
4 \# Q; g3 v' t* {8 V         switch $cmd {
            "PB_CMD_kin_mill_xzc_init" -
1 y( w% Y. S# ~+ L4 z2 A6 U' w            "PB_CMD_kin_mill_turn_initialize" {}
            default { $cmd }
         }
         rename $cmd ""
         proc $cmd { args } {}
      }
  S3 K$ c) Q2 [! M   }
- X- C7 s8 {! V$ _* {}
$ `4 N7 D4 `& p+ z# K6 F% B9 Q/ r
- t8 K1 @+ f$ [7 F. Y6 J& @
( j! |+ w% G$ O0 i5 D#=============================================================
proc PB_CMD_kin_wedm_engage_move { } {
. k0 e4 h! R' X. P9 U: q#=============================================================
#
4 M2 w3 M0 t" P2 |$ H5 }# This procedure is called automatically in MOM_before_motion
+ `! k9 b$ s- n9 a0 b2 y2 {' A1 {# to handle the Engage move for Wire EDM operations.
#
   global mom_sys_start_of_pass
7 Z6 s" O# c2 H& g+ x' t, w
   if { [info exists mom_sys_start_of_pass] && $mom_sys_start_of_pass } {
      global mom_lead_in_cutcom_distance
      global mom_lead_in_method
! c9 n9 B8 J. k6 _( Z      global mom_lead_in_cutcom_angle
7 e& Z2 |) ?- ^4 d) T! N      if { $mom_lead_in_cutcom_distance == 0 ||  ($mom_lead_in_cutcom_angle == 0 && $mom_lead_in_method == 1) ||  $mom_lead_in_method == 0} {         
         PB_lead_in_move
      } else {
         PB_cutcom_move
      }
! c9 K, C5 l1 f/ p: U      unset mom_sys_start_of_pass
- j  m7 Y! g$ ~- [8 K$ N" `9 z   } else {
/ \' N" x8 d1 Z      PB_lead_in_move
   }
}
5 K% y8 K9 r' b9 G& g

& o* c; L' S: j: e+ T#=============================================================
proc PB_CMD_linear { } {
#=============================================================
global feed_mode mom_feed_rate
$ s0 k: d4 R2 c/ f3 q+ ^global mom_kin_rapid_feed_rate
! V7 \: i, ~6 E& m' m* Eglobal mom_tape_status
global suppress_output      
% V2 Z7 y2 |) V  V6 B; `( U7 E4 f5 |$ mglobal mom_motion_type
! P9 r" m2 R4 |, Cglobal mom_current_motion
global mom_pos
/ w3 R' @  s4 W& hglobal momComplex
- }( m. \+ y7 H# Zglobal momConic

if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
( ?) d5 }) f% U& h0 D& s' }3 ~1 B   if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
( n9 G( s# g% x( b# v      MOM_rapid_move
      return
   }
# j0 ?+ z2 x; _' {4 s# v}
, ^* J( t8 I: q5 `8 j
if { $mom_tape_status == "ANGLE" } {
' u0 {1 r8 M7 c: S   MOM_force Once G_motion X Y
   MOM_do_template linear_move
   return
} elseif { $mom_tape_status == "CONIC" } {
   MOM_force Once G_motion X Y
$ I3 G4 J& U/ P   if { $mom_motion_type != "CUT" } {
      set mom_pos(3) 0
0 V/ P" T- P& I' m4 z      set mom_pos(4) 0
   }
   MOM_do_template linear_move_conic
   return
} elseif { $mom_tape_status == "COMPLEX" } {
6 X0 |5 C* Z* q) u   if [info exists suppress_output] {MOM_abort_event}
   if ![info exists momComplex] {
      MOM_force Once G_motion X Y
* N$ n: q  ^9 d' {8 O. n& n      if { $mom_motion_type == "RETRACT" } {
. h* C9 R( N6 `$ Z         set mom_pos(3) 0
$ T( G- M; i6 {$ I) Z         set mom_pos(4) 0
: a0 }) K5 X. ?, v% O! j         MOM_do_template linear_move_complex
         MOM_output_literal "G140"
1 b. U3 S% @" w1 F$ s      } else {  
         MOM_do_template linear_move
      }
! V8 C+ Q7 J  z' a8 s1 P: S2 v   } else {
# @, X" E- o3 t0 `      MOM_force Once G_motion X Y Text G_motion_upper X_upper Y_upper
4 E9 R7 P5 {2 y; h+ j      MOM_do_template linear_move_complex
7 o. ^" y" `7 ?4 i6 Q6 p   }
   return
} elseif { $mom_tape_status == "NONE" } {
   MOM_force Once G_motion X Y
' q) |8 q/ V$ c3 T- \   MOM_do_template linear_move
   return
/ k5 a5 [8 ~0 o$ G, a}
}
6 f3 D- P9 l; r2 ^6 E0 g

( k7 R- k: B2 a7 B) R: j#=============================================================
proc PB_CMD_output_tape_per_operation { } {
3 d3 d. C4 d; R- V#=============================================================
% l4 h  t6 M  z" q" o#
, h4 n' d) c$ ?8 {5 {0 T#  This procedure can be used to output an N/C tape with each operation.
( j6 b- G# _' h* c( ^5 Z#  Place this custom command at the VERY begining of the Start of Operation
- D9 u# w" \9 g, n7 _. ~  V7 y; g#  event marker.
8 p; Y3 o2 ]. Z0 R/ ~+ Q$ }$ F#
#  This proc will also delete the initial program tape and rename it to
#  {operation_name}{sequence number}{extension}.
# m5 o- G9 n0 `1 M1 c" q#  Any N/C code output with the Program Start sequence will be lost.
* F' D7 B9 d5 H& B#
  L9 e# x" I% }% O   global ptp_file_name
- X9 `* g( q) J4 o3 m7 g' ]& Q   global mom_output_file_directory
/ C  }* H0 S, [   global mom_operation_name
   global mom_output_file_basename
   global mom_sys_output_file_suffix
6 V3 D. V, i; a+ }3 c! m* y' k# s6 R
& a. [  c* U; p7 {#
# Remove next two lines of code if you don't want the original nc tape
% ^" h* q3 B3 ?* o) f; e2 N9 @# with the start of program info to be deleted.
#
   set fn ${mom_output_file_directory}${mom_output_file_basename}.${mom_sys_output_file_suffix}
   if [file exists $fn] {MOM_remove_file $fn}
. j. N7 T, U' P. I. w7 a" ^
: a; ?5 v- G# W8 H/ A8 z" j   MOM_close_output_file $ptp_file_name

9 n8 Q8 K0 U4 T  k5 ~3 v3 L8 G   set ptp_file_name "${mom_output_file_directory}${mom_operation_name}.${mom_sys_output_file_suffix}"
   MOM_remove_file $ptp_file_name
" [6 d# p  d9 ]0 F" v6 {   MOM_open_output_file $ptp_file_name
}
) j/ a! [2 w& U" |+ Q) N+ P/ s
% _. d5 N& v: \  Q) B$ h% _
8 ^/ X( L0 U6 N! t' A6 V) Q9 y#=============================================================
proc PB_CMD_pause { } {
#=============================================================
! F3 r9 S; U$ l2 _4 A# This command enables you to pause the UG/Post processing.
#
  PAUSE
}


#=============================================================
: B6 W$ a! b8 J6 J0 G: d+ r& Gproc PB_CMD_start_of_conic { } {
& e! U- W) j- `: R: g7 t! I) V4 `#=============================================================
% O( |5 p; Y" F/ uuplevel #0 {
   set mom_kin_wire_tilt_output_type "COORDINATES"
* X6 n' x/ w+ Q6 }
   MOM_reload_kinematics

   proc MOM_start_of_conic {} {
* n  P* Z9 A( z9 d      global mom_upper_arc_direction
, h1 ]7 h: L2 r' _% C  T" l/ P/ X      global mom_arc_direction
      global suppress_output
4 n6 E' G2 E' F+ g      global mom_prev_pos
. y/ m& c$ F; `7 P5 v      global mom_conic_motion_type
0 F' U1 z/ ~  Y/ q$ f. y      global mom_tape_status
* x; b5 W1 L( E5 N- x- G. X
      set suppress_output 1
      if ![info exist mom_upper_arc_direction] {set mom_upper_arc_direction CLW}

      if { $mom_conic_motion_type == "LINEAR" } {
         #if { $mom_tape_status != "COMPLEX" } {
            PB_CMD_linear
, `& X6 |/ S: p) ]# E' t# M- f         #} else {
         #  if [info exists suppress_output] {MOM_abort_event}
         #  MOM_do_template linear_move_complex
7 U) @' j7 x3 J4 d) |; s         #}
& J7 W+ V' u" ~! V      } else {
         PB_CMD_circular
         # MOM_do_template circular_move_complex
      }
2 g4 ~2 Q0 [0 S1 E; k   }

   proc MOM_end_of_conic {} {
2 O* D9 a4 S, _      global suppress_output
      if [info exists suppress_output] { unset suppress_output }
   }
}
9 x& _1 u$ C5 ~3 \' t  ^}
% S' R$ S# @+ j7 h+ U

$ B" [: n) q7 V* i3 l! L#=============================================================
8 G7 f7 d& m- \& X) jproc PB_CMD_start_of_file { } {
#=============================================================
) y) E! @: E; _# K% Iglobal mom_ug_version
# {8 P( h5 n( A7 \9 ]7 a- q8 wglobal mom_event_handler_file_name
( F8 C6 m% [6 ~% c; n) t! Jglobal mom_path_name
global mom_part_name
global mom_output_file_basename
global mom_output_file_directory
1 B' Z$ }. t3 [/ p, u9 Sglobal mom_output_file_suffix
global mom_logname
global mom_date
. P& x8 c4 c" ?3 [global mom_machine_mode
8 c! v: j; N( uglobal mom_power_value
: Z3 Q/ ]0 M2 Zglobal mom_auxfun
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
) N6 G+ y* O/ I% `9 g5 \2 E$ H4 Jglobal momPathLength
global momPoster
+ ^  _" d8 f: d; ~+ J2 U* yglobal mom_cut_type
global momWorkstation
global momLogonDomain
global momPathNext
global mom_kin_machine_type
global momComplex
: m0 Y# T1 j+ q
) v+ J4 ?0 {: [0 F' x: ~6 ~+ iMOM_set_seq_off

/ ]+ A' k- W. C2 @" S2 Kset momPathNext 100
MOM_output_literal "( Unigraphics WirePost for Cheewah, Ver 1.1 )"
) F/ h8 I6 U, V9 _7 w& xMOM_output_literal "( Design by Deaton, 2005/09/19. )"
* z* h, {, g4 @, J/ w9 UMOM_output_literal "( Email: deaton@21cn.com, Tel: 13923361400 )"
set momPoster "CMDEATON"
set momWorkstation [MOM_ask_env_var ComputerName]
2 J  d7 K  c* C0 Y4 D$ U( Zset momLogonDomain [MOM_ask_env_var UserDomain]
' o$ X" C% j9 S$ D8 g3 AMOM_output_literal "(================================================================)"
MOM_output_text "( Activate Version: $mom_ug_version )"
MOM_output_text "( PostFile: $mom_event_handler_file_name )"
MOM_output_literal "(================================================================)"
$ y2 }/ }  e4 `9 S1 b; CMOM_output_text " "
8 F) }8 C9 \# iMOM_output_text "( Current Part File: $mom_part_name )"
( t$ e4 _# @5 b. p+ OMOM_output_text "( Toolpath: $mom_path_name )"
' A1 j, k; ]+ @8 [; j5 IMOM_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 )"
& G4 H9 Z7 L; ]7 o# iMOM_output_text "( DNC Machine Tool: $mom_kin_machine_type )"
) G( n2 Q; C" E( r6 |' c
if [info exists mom_cut_type] {
   switch $mom_cut_type {
      0 { MOM_output_text "( Toolpath method: External Trim )" }
      1 { MOM_output_text "( Toolpath method: Internal Trim )" }
      3 { MOM_output_text "( Toolpath method: Open Profile )"  }   
0 x# q. c% d" J: t3 J* S, h- h& }; e% A   }
6 k* i6 J; x+ R2 M# j  `7 K}
2 |% s, k% J  T# X1 B5 _- t
: E5 a2 r) \4 |( y2 GMOM_output_literal "(================================================================)"
MOM_output_text " "
MOM_output_text "( CAM Workstation: $momWorkstation )"
$ q6 L- e: ?9 p4 U8 q/ u( Y1 c8 `- }MOM_output_text "( NC Programmer: $mom_logname )"
MOM_output_text "( Logon Domain: $momLogonDomain )"
' D2 e5 _* ^+ o3 z  Q. \. N# m  I# YMOM_output_text "( Post Date: $mom_date )"
MOM_output_literal "(================================================================)"
4 f: {& j) z, y" e# FMOM_output_text " "
5 p( k+ f9 q: f6 R/ f3 d; a7 n4 Y
3 b- @. Q8 D6 G% @, I9 R# o5 jMOM_output_literal "(NO    =     ON OFF  IP  HP MA SV  V   SF  C  WT  WS  WP  WC)"
6 C$ @2 D* M  d: v/ A# zMOM_output_literal "C001   =    005 010 017 001 14 05 02 0004 00 000 000 000 000"
- }+ Z  s  ]3 A2 zMOM_output_literal "C991   =    004 015 017 001 17 06 02 0005 00 000 000 000 000"
# A% T# j; [) i4 {. F6 tMOM_output_literal "C992   =    000 019 017 001 19 05 03 0006 00 000 000 000 000"
MOM_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"
( L8 f( r) ?' a* t/ s, x4 O# jMOM_output_literal "C999   =    005 012 016 003 12 05 01 2004 02 000 000 000 000"
7 l! ?+ E+ e- d( aMOM_output_literal "(================================================================)"
1 k3 k. O* D$ D& V; |) q. HMOM_output_text " "
& z; X, _5 j3 y* ]& U5 Z, D4 b
( w  `: \3 r7 k: vset momPathLength 0

MOM_output_literal "G40 G50 G09 G75"
% ]8 J9 T3 z8 p, H# R& _& IMOM_output_literal "G90 G11 G21"
  S3 U, R3 w8 l5 vMOM_output_literal "G958"
MOM_output_literal "G04 X+2500"
MOM_output_literal "G92 X0 Y0"
MOM_output_literal "G54"
, b8 J7 r% \0 w6 _1 o  L$ ?( z1 g% dMOM_output_literal "C890"
MOM_output_literal "(================================================================)"
; y+ d" P2 S# g5 u" ^5 w3 sMOM_output_text " "
! k, P  A" C9 Q" L# W! Q9 L}


#=============================================================
proc PB_CMD_start_of_pass { } {
#=============================================================
9 C) w' p6 }' x. a& l/ b& kglobal mom_wire_guides_lower_gap
global mom_wire_guides_upper_gap
1 `4 k5 j7 P- @global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
6 N# F4 ]# h" A8 R9 k% N7 rglobal momPathNext
global mom_tape_status
global mom_wire_angle_text
global mom_flush_pressure
( B2 U" ~- z8 [, I+ kglobal mom_power_value
4 w5 Q& y2 c8 i4 jglobal momWorkstation
2 T% L0 K- G3 ?% {# K; X. _+ G% lglobal momLogonDomain
global momPoster
global mom_sys_cutcom_code(LEFT)
global mom_sys_cutcom_code(RIGHT)
global mom_sys_cutcom_code(OFF)
global mom_kin_arc_output_mode
8 m7 X0 s) x3 K' P  }5 Oglobal mom_kin_wire_tilt_output_type
+ N5 s2 x+ \& v9 Z$ ^' xglobal mom_wire_cutcom_adjust_register
global mom_wire_cutcom_user_register
+ f% V! {' l7 h8 v3 x0 A
" d# Y+ m# V9 o/ x8 Dif { $momWorkstation != $momPoster }  {
   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
}
' Z$ }# }# o% t2 E4 vif { $momLogonDomain != $momPoster }  {
. {/ v8 [% U; j/ N4 O3 R; a$ z   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
3 `/ Z) w. E( n! a}
if { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
   MOM_abort  "Error occurred. Postprocessing has been aborted"
, w% U! [1 k6 S4 z+ |( J}

MOM_reload_variable mom_wire_guides_lower_plane
9 ^0 c1 J# e0 Y# d" BMOM_reload_variable mom_wire_guides_upper_plane
  }$ T# c/ b6 O" J- }" HMOM_reload_variable mom_wire_guides_lower_gap
, r+ {" Y1 [7 N, aMOM_reload_variable mom_wire_guides_upper_gap
; ?0 W" a0 y) ]/ f! W; eMOM_reload_variable mom_tape_status
MOM_reload_variable mom_wire_angle_text
MOM_reload_variable mom_flush_pressure
2 E" H* o9 n) l1 _  P' o2 aMOM_reload_variable mom_power_value
MOM_reload_variable mom_wire_cutcom_user_register
' w' E  q2 K; S0 e6 c0 [
) J3 w( k- v# a! O* P5 b7 ~MOM_output_text " "
. q6 V( I8 E' G. o: x9 ^
6 }  M' X8 a) v% e& A7 tif { [info exist mom_tape_status] } {
   switch $mom_tape_status {
      "NONE" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
1 J6 x# Q$ Z" w+ V9 Y         set mom_kin_arc_output_mode "FULL_CIRCLE"
- Y( H+ N+ L' m0 L      }
      "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"
7 _8 Z  ~. `9 G# ~1 J: `         MOM_do_template tpset
. H# Y) w% N* |" \, {5 m         MOM_do_template tnset
         MOM_output_text " "
      }
      "CONIC" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
+ Q& b5 s; X' ^         set mom_kin_arc_output_mode "LINEAR"
#         set mom_kin_arc_output_mode "FULL_CIRCLE"
         set momPathNext $mom_wire_guides_upper_plane
4 s5 K1 e4 p% T         MOM_do_template tpset
         MOM_do_template tnset
         MOM_do_template tuset
         MOM_output_text " "
      }
) }/ X9 N5 m; K' |4 X      "COMPLEX" {
. [# y0 q; A" \9 N7 J         set mom_kin_wire_tilt_output_type "COORDINATES"
         set mom_kin_arc_output_mode "FULL_CIRCLE"
% i5 k2 `: h8 Y0 f( I2 J) m         set momPathNext $mom_wire_guides_upper_plane
3 o* P) A2 {. V& f4 m% ~' e+ A         MOM_do_template tpset
         MOM_do_template tnset
         MOM_output_text " "
- N- \- j/ r7 e3 o7 f1 c         set mom_sys_cutcom_code(LEFT) 141
9 z4 C0 i+ e& g         set mom_sys_cutcom_code(RIGHT) 142
         set mom_sys_cutcom_code(OFF) 140
, C$ K9 Z1 }& b* u7 t* h      }
9 F" j1 D& Q4 B0 K! T6 f   }
' i3 u6 g: A; I! X0 _8 \}

if { [info exist mom_flush_pressure] } {
. }& k5 W/ O. U% X" j: {   if { $mom_flush_pressure == "LOW" } {
. |9 e' v7 h8 g3 P5 D      ## Flush off
      MOM_output_literal "T89"
! [7 s+ W% l9 a1 N      MOM_output_literal "M00"
& _: x# w, @* L3 ~# _% G      MOM_output_literal "T85"
   } elseif { $mom_flush_pressure == "MEDIUM" } {
, \, z- P$ y) M" t      ## Flush Low with tank
4 O: |# X) m8 Y- q- t- C      MOM_output_literal "T94"
2 p/ @* }# E9 [( {  {2 q      MOM_output_literal "T96"
% @* H  d& C1 A' i& Y& a      MOM_output_literal "M00"
3 l. \% b7 g3 b5 o/ H      MOM_output_literal "T85"
   } elseif { $mom_flush_pressure == "HIGH" } {
      ## Flush Low with tank
      MOM_output_literal "T94"
      MOM_output_literal "T96"
) {" u5 O& B. |+ A) O) ^      MOM_output_literal "M00"
& p- k1 h* y% Z! v3 c0 w0 n      MOM_output_literal "T84"
$ ]$ e. w+ E2 A6 ?1 y   }
; ^% H; y2 Y6 `4 e# M! F  t) a5 i}

MOM_output_text " "
MOM_do_template condition
. ^/ g9 P2 p! a$ {' Z
if { [info exist mom_tape_status ]} {
   if { $mom_tape_status == "CONIC" } {
      MOM_output_literal "G74"
   } elseif { $mom_tape_status == "ANGLE" } {
      MOM_output_literal "G51 A0"
4 _# \. F: s1 E/ ^   }
6 [+ l/ e1 M+ q* u4 J   if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "G41 D000" }
}
9 K% \5 K: L/ e; P% `1 C}

+ W5 s6 Q$ Z8 |+ |
/ \  i4 m, j5 ~  M4 l, Q#=============================================================
, S" S* E. u/ m; ~; _8 nproc PB_CMD_start_of_program { } {
#=============================================================
global momWorkstation
global momLogonDomain
global momPoster
global mom_wire_guides_lower_plane
# c! a' {$ U5 ^# W+ R0 J+ i: nglobal mom_wire_guides_upper_plane

if { $momWorkstation != $momPoster }  {
   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
" s: x) F- v0 }. R' G* \}
/ f) p9 j8 ^/ Q! v! m
if { $momLogonDomain != $momPoster }  {
   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
}
7 a1 |( N3 |2 `/ o& `! d
+ N4 ]1 u& Q& ~#PB_CMD_start_of_conic

if { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
" n5 _7 n  |  c4 k9 Z* A   MOM_abort  "Error occurred. Postprocessing has been aborted"
}
}


3 _% Q* h0 o- R8 r, H# x% l+ R#=============================================================
8 h2 W' T0 i( kproc PB_CMD_suppress_output { } {
  \- p: n2 T& A! X#=============================================================

global suppress_output

if [info exists suppress_output] {MOM_abort_event}
* d1 t/ K4 E+ M% M$ q9 u}
$ u" Z) c% s* t/ i7 `0 P# l" B3 k
3 t0 I; [$ l2 o/ A
#=============================================================
proc PB_CMD_work_coordinate { } {
#=============================================================
global mom_work_coordinate_number

MOM_reload_variable mom_work_coordinate_number
MOM_output_literal "G90 G$mom_work_coordinate_number"
5 P+ X- O9 X8 d9 w% g}
0 h: M  ~8 ^  P
6 _* l+ k( J5 `6 g* ^2 X
#=============================================================
proc PAUSE { args } {
) w* D* @; }7 o- ~+ j" U( Y#=============================================================
+ P5 ]' e3 z4 @! f. m8 s  global env
; e) ]4 G0 P; C$ K7 h8 @
  if { [info exists env(PB_SUPPRESS_UGPOST_DEBUG)] &&  $env(PB_SUPPRESS_UGPOST_DEBUG) == 1 } {
. f+ G! A# A0 y  k1 nreturn
6 C# Z8 {: b9 b5 u3 Q7 P2 q  }

% c' v/ g7 Y! o1 [4 X* o$ y
/ |# e3 M! ?( F+ l2 B  set cam_aux_dir  [MOM_ask_env_var UGII_CAM_AUXILIARY_DIR]
, Q& `+ \! [/ ^) E+ \' x6 G) p
' l* E+ y- l1 b5 F( w5 \  global tcl_platform

% M$ f" m2 P% R% s  if [string match "*windows*" $tcl_platform(platform)] {
     set ug_wish "ugwish.exe"
" I( f% Q" O8 |  } else {
; i. F+ m. u7 B     set ug_wish ugwish
* }/ o/ e5 S  Y, `% Y8 E  }
4 I* H+ T7 g3 j$ z3 i( P
  if { [file exists ${cam_aux_dir}$ug_wish] && [file exists ${cam_aux_dir}mom_pause.tcl] } {
8 i/ V3 k) C/ b. q: S+ i% e
     set title ""
     set msg ""

     if { [llength $args] == 1 } {
8 I$ o1 T8 v) p1 e       set msg [lindex $args 0]
     }

; v5 v$ P7 B9 m- t) a     if { [llength $args] > 1 } {
8 r& [# y& H0 i: i6 i       set title [lindex $args 0]
       set msg [lindex $args 1]
2 F3 }: U% k0 O  ^. N/ H     }

     exec ${cam_aux_dir}$ug_wish ${cam_aux_dir}mom_pause.tcl $title $msg
- ?+ X% r( S. e8 H  }
, h( n* d+ E  N( r5 @}


#=============================================================
1 h. Y, V; ~" ]& P7 @proc EQ_is_zero { s } {
# G+ H! q: x6 ?* c1 h% h#=============================================================
5 I+ s$ C8 Q4 w0 m   global mom_system_tolerance
7 g# C3 f7 d, A
3 M- u. `. j8 q% w( P* O   if [info exists mom_system_tolerance] {
      if { [expr abs($s)] <= $mom_system_tolerance } { return 1 } else { return 0 }
   } else {
* x. D8 D+ h; \6 I+ I7 b, X      return 0
0 f! x3 @. M5 Q1 ~9 L   }
+ M0 h$ c. s% h( M}

+ D0 q3 B+ |% r3 [9 X5 s* C
#=============================================================
, S* {$ y, ]4 R+ |+ W! R' a6 n2 B/ v8 Eproc CATCH_WARNING { msg } {
#=============================================================
  global mom_warning_info
" D( G( Z; C0 W1 h$ {6 w0 D  global mom_motion_event
  global mom_event_number
1 ?& b; r; u6 |/ X) H$ a3 [
# Y5 X' s  R/ Y, F- q5 _   set level [info level]
   set call_stack ""
   for {set i 1} {$i < $level} {incr i} {
      set call_stack "$call_stack\[ [lindex [info level $i] 0] \]"
   }
7 m0 T. `* ?. e, Y   set mom_warning_info "$msg ($mom_motion_event $mom_event_number) $call_stack"
9 p" D5 O5 G/ {   MOM_catch_warning
}

; z' m& p; t9 O
2 x  T* Q8 @: B8 R2 y# k2 g) ?% e#=============================================================
proc WORKPLANE_SET {  } {
#=============================================================
) R/ G) ^3 `: S) `" j: D   global mom_cycle_spindle_axis
   global mom_sys_spindle_axis
7 A# k! L0 o$ x   global traverse_axis1 traverse_axis2

   if { ![info exists mom_sys_spindle_axis] } {
      set mom_sys_spindle_axis(0) 0.0
& _, I7 o4 G  d6 L+ Z# y      set mom_sys_spindle_axis(1) 0.0
      set mom_sys_spindle_axis(2) 1.0
. I. I1 r: B9 ~/ z   }
/ |0 q4 d* F) _, ^( _
   if { ![info exists mom_cycle_spindle_axis] } {
      set x $mom_sys_spindle_axis(0)
      set y $mom_sys_spindle_axis(1)
6 a9 C3 X  Q1 k* R1 M$ y      set z $mom_sys_spindle_axis(2)
9 D& ^: f: s: y/ U- y- b) j& G. c5 I
      if { [EQ_is_zero $y] && [EQ_is_zero $z] } {
         set mom_cycle_spindle_axis 0
7 T* h# _6 B/ l% b9 G- ~      } elseif { [EQ_is_zero $x] && [EQ_is_zero $z] } {
& d7 y' k0 }) ~* ^% R: X         set mom_cycle_spindle_axis 1
& `8 h- ~2 i3 _      } else {
         set mom_cycle_spindle_axis 2
4 f$ R! o7 T3 R$ V      }
   }

: v% v+ f; \/ L2 W& s   if { $mom_cycle_spindle_axis == 2 } {
0 D. ?* t" E4 V, }+ p  L      set traverse_axis1 0 ; set traverse_axis2 1
2 W+ w) l, b8 v! {  m4 u: T   } elseif { $mom_cycle_spindle_axis == 0 } {
/ k" w- T" u# H9 Q1 l' K6 l      set traverse_axis1 1 ; set traverse_axis2 2
   } elseif { $mom_cycle_spindle_axis == 1 } {
      set traverse_axis1 0 ; set traverse_axis2 2
- ]! L9 d) x+ f4 J, b: q2 e- f+ S   }
}

: [5 T& `- M; o* s* {# u
#=============================================================
proc EQ_is_equal { s t } {
#=============================================================
   global mom_system_tolerance

  g2 U8 s7 t( m" W2 o* G   if [info exists mom_system_tolerance] {
      if { [expr abs($s - $t)] <= $mom_system_tolerance } { return 1 } else { return 0 }
) f, J. X% K9 g& ~   } else {
+ ]- y* n- M  v7 ]: [( X      return 0
   }
}
- m9 Z5 W5 G% u9 n$ ^4 A+ p, Z


( U2 I3 J+ t7 p( U' ^; h


4 f6 b# f) A/ M& h+ r+ z9 K#=============================================================
proc TRACE {  } {
# e0 h; j9 T" w! h: r* Q6 A#=============================================================
   set start_idx 1
( g4 ~% v* @6 E! r% ~- b: s
   set str ""
   set level [info level]
$ Y, N7 a( [" F3 c+ i' H2 x  C   for {set i $start_idx} {$i < $level} {incr i} {
      set str "${str}[lindex [info level $i] 0]\n"
   }

return $str
' Z" k2 V9 \4 X1 s( {}


6 L# A* J4 h1 ?4 M& B  fif [info exists mom_sys_start_of_program_flag] {
   if [llength [info commands PB_CMD_kin_start_of_program] ] {
      PB_CMD_kin_start_of_program
2 o9 V6 o. G. f/ M  J" ]# S   }
: g9 a" ^. X* x! v} else {
   set mom_sys_head_change_init_program 1
   set mom_sys_start_of_program_flag 1
. f( M0 K( U& y9 l}

pengke

有4B的吗

wjc1249

有没有做好的*.DEF与*.TCL文档？？
谢谢

杨亚林

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

sn604807478

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

wyyjsguolu

要是用普通的 线切割机器（不带回转轴的），完全没必要 用 nx 一类来做3B代码呀，
' E6 b8 A8 U9 ]& y3 eNX出个代码太慢了，直接用caxa 线切割，超级快，破解版的 还多，现在 官方出的试用版的也很好用，还是全功能的，不过试用期一个月，到期重新安装个 就好了，
要是带回转轴的 线切割，我也在考虑怎么用 nx出3B 代码。。

wanlei1985

谢谢你们