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

李双虎

一．前言

  
8 g% ^7 |! u8 `. D5 {  N
7 M1 _, J) E* h  

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



    二．3B代码的编程规则

   

1．3B代码的格式为：B x   B y  B j  G   Z

，B为分割符号，x，y，j为数值，以微米为单位。j为计数长度，G  为计数方向，Z 为加工指令。
/ b* e7 l5 B) s. m7 H
. f6 r' u2 g# d/ G8 O; B

7 q( x, T- t  w! W) I    2．加工指令共有12种。


! Q7 ~# C- R$ ]0 J1 [' U
, w5 E9 E) Y6 s! Z' a/ j1 p   
7 S2 ~5 T. _1 h
) R; g: ?/ Y# [8 K- S' t: f" Wa．加工直线时，以起点为坐标原点，终点在坐标轴上时，x、y值为零，计数长度j为线段长度，按X+，X-，Y+，Y-，四半轴计数方向与加工指令分别为，GX

9 h4 [! t! Y8 Y7 sL1，GY L2，GX L3，GY L4。
2 V% j5 |8 ~0 k3 e# U- j" l8 D
   

b．加工直线时，以起点为坐标原点，终点在各象限内时，x，y为终点相对起点坐标值，可同比例放大或缩小，计数长度j为线段在计数方向的投影长度，按终点在1、2、3、4象限，加工指令分别为L1、L2、L3、L4。各象限以45度线分割后，终点贴近X轴，则计数方向为GX，反之为GY。

& T/ o% x$ L  w% }& H   
; T0 S, R* D! q5 _9 p+ z
c．加工圆弧时，加工圆弧时x，y为起点相对于圆心的坐标值，圆弧起点相对圆心在1、2、3、4象限时，顺时针圆弧分别为SR1、SR2、SR3、SR4，逆时针圆弧分别为NR1、NR2、NR3、NR4。各象限以45度线分割后，终点贴近X轴，则计数方向为GY，反之为GX。
" X! w0 i1 K) s4 l1 f. ?2 c0 z

7 t% y6 j9 z) F, h$ P$ z& N) d
  

. X) p7 E* V& E6 X( a2 U  [ 例：
( G' W% f: l1 k+ d% i- p% t) N5 c
9 R7 |# }" r+ T5 T0 C5 G9 }           

( I  Y( d3 ]% |5 j                  
+ B) z; B) Z) Z- @, j
: v, r& a0 `. Y, G; y: n$ ]: d& V



1.jpg
! e9 q7 B3 s# m% _) ]* ]
; F: F) x7 x) M1 W(10.27 KB)
5 }8 x  y4 V8 c/ h; u) v- X; |# c
/ a, d) ?, l2 r4 M  G$ U1 Q
! E2 |: B0 h1 D( P) U4 j6 s: h
6 p0 Y- H; R* i4 g. @2007-6-6 12:51

3 W+ D8 l: O; {' \" Z7 H! [


' d" }# T$ S7 s+ Z' [
! i, x% c  r" q; @/ P8 S

5 [7 X& @, Q0 n: J' U4 h, o/ {   

8 k! r# l* v* F! }9 J& u三．分析

$ W4 x. |2 N2 o
2 r& x" D4 @; [" g
    ug

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


+ O; v1 d: Z/ D) I   

为方便介绍，将每一步的终点坐标为X、Y，起点也就是上一步终点为X0、Y0，圆心点Xc，Yc。
0 _9 F2 K9 q3 V
6 G2 i7 |8 r! }( L1 n
$ w( P( e" I0 `( }5 q

- e- H* y  h0 _) Z: |

! B2 U+ K: x$ l2 O) }) w0 u7 z$ j
1 K+ c: \# M+ L( v) D/ h 2.jpg

# @0 F) M4 @3 u5 l$ t! x(7.2 KB)
& ~7 ^4 h" p; D$ K
5 r; w0 u2 w. R$ z. s& w

2007-6-6 12:51
/ b& W. X7 H1 ^: U% o0 J) a* B
1 O* L1 f% c8 z

图2



  
" }5 e0 @; l. U1 j. Y
7 w( X7 _) b7 M0 W8 N2 O' z$ P, d  区域划分：
7 v' {( d; B* c5 C; H% _) h0 n
6 w, `8 V% X: h' K1 @" t, i5 |   
2 C  K, \, T* e! O/ N
1．直线运动时，终点相对于起点在X+半轴的条件为：X>X0，Y=Y0，计数长度为：|X-X0|，指令为：GX L1;

    同理X负半轴:
) O$ b, Y+ n$ o* @9 w. b" \
1 I: i$ d1 Y, T0 I0 h. y5 V9 P条件X    Y正半轴: 条件X=X0，Y>Y0， 计数长度|Y-Y0|，GY L2;
- @& {! G  p) s# H# }9 N, f/ r
4 x# u, H0 D: `8 M    Y负半轴: 条件X=X0，Y
! D& R# [2 L* n) C. i# \4 L/ w' |2 S
: }( f. [% j4 ^- c9 K) R- _

; c! ~5 |* `; M
3 n& t# u" y* h* V# r6 j* @/ y" m
    2．直线运动不在坐标轴上时，按如图2所示划分为8区域：
. ^. N2 V4 ~' t2 U  [7 U
   

1/8区：条件X>X0，Y>Y0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L1;
2 X. W/ o  x6 L: w$ M
   
7 U! r5 U" Q4 E$ x2 v
2/8区：条件X>X0，Y>Y0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L1;
& @6 ^* v. t$ l6 B9 R. F
   

  B$ e8 x1 @8 f: {& u- B2 F# u3/8区：条件XY0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L2;
* F" |. B. V" ?* s, C% |8 n. P" H4 l
: `" i5 E+ J1 A7 W   
) c( v" s' Q1 W* ^2 d- a
9 o  J! U* G  [: G* f* M4/8区：条件XY0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L2;

: L7 `) S; m4 q6 u/ Y: D+ r   

3 i2 h2 P+ X3 c5/8区：条件X=|Y-Y0|，计数长度|X-X0|，指令GX L3;
4 w& ]/ v* C  ^0 x3 u$ [$ D0 V
    6/8区：条件X  
* K) [9 y7 K8 D# K; e6 d- ]
  7/8区：条件X>X0，Y    8/8区：条件X>X0，Y=|Y-Y0|，计数长度|X-X0|，指令GX
1 \: z& W! m8 Y( q6 G/ e7 ^( |
/ ~' X. m: T% n! o! E% o1 |L4;

; K* O# c; d; t4 \8 k
  [7 S1 `4 `1 w
   

3 }" j5 V5 Z6 f% y3 o8 [1 K8 p3．圆弧划分较为麻烦：

$ ]. }$ k* t3 T* G/ a# R  
0 H' G, N# n" V  k5 `
  

2 ^. C* K* `" u按方向，分为顺时针，逆时针；按起点象限分为1、2、3、4象限，按终点分图2所示的8区域。下面仅以逆时针，起点在1象限的圆弧加以分析：
3 v/ x8 N) \, _3 u, P
   
0 T; w: |# |4 d7 b0 g) `/ B
; ^8 V9 |  a' z& _2 g4 i1/8区：(优弧)条件Y>Y0，计数长度|Y-Y0|，指令GY NR1;
1 E: G# ]0 h% D% B, w" v
6 \. j. y) x8 z6 A  

0 V0 _) `! m2 d# G" e* i$ F      （劣弧）条件Y<=Y0，计数长度4R-|Y-Y0|，指令GY NR1;

# J1 U. r5 H3 G. M
; C( W; {& f; d9 Q& j4 X
3 Q& z9 ^% g# U' R* Z    2/8区：(优弧)条件X     

8 g4 ~5 h7 d7 {# C6 H' R' o6 F   (劣弧)条件X>=X0，计数长度4R-|X-X0|，指令GX NR1;
6 t8 x9 L, r, |" T
   
+ c( t- U* A0 O  D" B
9 H# n& i/ w: D! P! ~! o3/8区：计数长度|X-X0|，指令GX NR1;

    4/8区：计数长度2R-|Y0-Yc|-|Y-Yc|，指令GY NR1;
/ ?9 `" ]  |( @* B- W& ]
; A8 Z; U+ l6 Y# T  
: S* E- L, R: ]0 ]4 c. }& u, J7 |
  5/8区：计数长度2R-|Y0-Yc|+|Y-Yc|，指令GY NR1;

    6/8区：计数长度2R+|X0-Xc|-|X-Xc|，指令GX NR1;
2 R# o& N  E7 E# i5 J0 \
4 J# g. ]2 C! H    7/8区：计数长度4R-|X0-Xc|-|X-Xc|，指令GX NR1;
8 }% q; {7 [' z2 g5 ~. E$ @2 q9 E
    8/8区：计数长度4R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

  
( ^( _) T. A$ h" o2 f' H4 e
0 h3 k3 T8 {! X$ C/ d+ U8 l  起点在2、3、4象限的圆弧以及顺时针圆弧同理。

& w; v( w, k' h% T' ?9 W' i
4 T( O6 G  n/ T1 o* [% J2 q
, F$ t, L  H: {# K5 j! k, ^    四．实施

  d+ C& x6 m) H& B+ D   

先看看UG后处理的构成，UG后处理主要由两个文件组成，*.DEF与*.TCL。前者主要定义了一些格式，后者主要定义了一些运算，我们所要加的程序代码就在后者中。
8 @; d7 P6 A) z0 \
3 n0 y7 M7 [' D  R6 }  E
' o4 A1 W7 v( D3 ~  Z7 P/ e
0 k6 a4 c2 p* L( G& O   

打开*.TCL，找到程序段proc MOM_linear_move { } { ……}，直线运动的运算就在该段内运算，圆弧运动在程序段proc
5 p9 e6 B  s/ r; j0 O6 l% T
MOM_circular_move { } {

/ L2 h  I& r! K1 }……}中。UG后处理中定义了一些变量，mom_prev_pos为前一点坐标，即起点坐标，mom_pos为终点坐标，mom_pos_arc_center为圆弧运动的圆心点坐标，mom_arc_radius为圆弧半径值，mom_arc_direction为圆弧旋转方向，等等，可从post

4 v* x# w) j/ A" \; zbuilder 中查得。



# r8 {" [* g0 l   
; \6 T# k% Q7 L/ G& H$ c
5 m( p3 d* S( V$ ]( U" w由于UG在运算时按允差计算，并进行四舍五入，在判断相等时不要用相等，而是判断差值小于允差。
5 o8 u7 A8 K. W

# l+ b) h; D; @- E7 W3 j- Q/ z$ x
$ B- I  P! S) o: N+ Z0 d    有了这些准备，就可以动手编程序了。当然也可以利用post
3 e, A( X) g( }9 F3 z
builder做一个用户自定义指令，但核心内容不变，仍需自己编写。限于篇幅，仅示例直线运动的一部分。

   
& i" ^2 S2 q" L+ l4 T
global  mom_l_code   自定义变量其值为：1，2，3，4

   

& D! w* D! S8 @* N0 y/ Tglobal  mom_gxy      自定义变量其值为：X，Y
* }2 `( b8 Q; p' B$ ?! z  E, L! o  y
* Z3 R) c: ?8 n( z8 K  

  global  mom_ba     自定义变量，第一个B
8 S' F* W9 O1 O3 `5 X& e0 q" ~
, C1 l: c4 l2 W1 ]的值，即第二部分介绍的x值
  t" h; K! u* S; }8 O
* b1 `% S. }: s. g; _* |    global  mom_bb  自定义变量，第二个B

3 X, ]2 @1 v6 j的值，即y值
5 D( q# T7 w% y% D$ _
    global  mom_bc  
" f! h4 [7 x0 I- n
9 a( H/ N' d: k, B7 c  C    自定义变量，计数长度，即j值

0 u  {+ E* j4 R; f; @# F/ |3 ^7 L   

global  mom_pos  终点变量
8 e% {8 F. [6 v' q! D& ]" J
* X- u  b5 b% v8 r4 b' _7 l  

  global  mom_prev_pos 起点变量   

, J: V( f0 O; o$ D+ \  
9 c: K4 H+ c2 s( \
      set mom_ba abs($mom_pos(0)-$mom_prev_pos(0))
# R. m+ X' K" h& F: G
4 c" g$ D& {2 f) J4 e# {( T7 T  

# h, l- H1 W. U! c3 W  b8 S) Z% d$ e      set mom_bb

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

        if

{abs($mom_pos(1)-$mom_prev_pos(1)) < 0.001} {

     

   if {[EQ_is_gt  
  ~  V4 R2 n' z
0 S4 j8 ]3 b; z $mom_pos(0)  $mom_prev_pos(0)]} {

. H2 A2 v5 R4 k# X    #X正半轴

        set

0 x1 |# P' q# Amom_ba 0
( y7 @: q# ^, B  P3 R8 N
* l4 c3 Z1 O6 O/ l     

   set mom_bb 0
/ D( F7 n, h" L# o
     
4 [- B4 t8 ^8 z! r4 x: e
6 X2 z0 V! C5 c1 @! \* U3 l   set mom_bc $mom_pos(0)-$mom_prev_pos(0)

; |6 b2 U* _, e& j, @8 L/ L- {" ?  
7 I0 Z. Q  ?9 y$ f8 F- |
: N+ ?+ r2 O4 H9 U) D, s       set mom_gxy X

; L  ?9 R  o) U9 T/ l     
( v1 J( v( ?  U) _0 Q* x
   set mom_l_code 1
1 _0 m# u0 ]5 a8 R& v6 Y/ U
7 p6 ^/ b- R& C) |  R: n8 }            }

else  {

    # X负半轴
0 C6 l) P7 p8 g8 o8 w% Y
        set mom_ba 0
' D; e' V1 B! e1 l( K7 _) ~
  

      set mom_bb 0
, h5 k6 b) A% k, p4 n! {
% ], t! [; Q2 y, O3 H" P6 g     

   set mom_bc $mom_pos(0)-$mom_prev_pos(0)
2 ?( Q0 J1 I% V9 M* j( _
     
: m; {! f: N# U0 t8 K. C/ O
4 ]. _8 K" J1 O; N! }/ |   set mom_gxy X

  
- h% q! b& `- ~' E  v  n
- L& x& @% e+ G$ X/ e& ^6 r      set mom_l_code 3
( u; K& S% b9 ~9 p6 D: H+ q9 k
        
9 d4 @4 d& U& m: t! Y* S; x  V  s
    }

; D  D5 f0 K6 u$ Y; X     
$ L6 C; s3 c- H8 N4 {
   } elseif  {abs($mom_pos(0)-$mom_prev_pos(0)) <

0.001} {

        if

{[EQ_is_gt  $mom_pos(1)  $mom_prev_pos(1)]} {

    #
2 e2 l! A. @) c
) P+ d" ?0 {- V& l$ jY正半轴

2 D& p/ _6 o( P     
# h, X4 R2 m2 E% O% l/ k. f3 k1 J4 k
: D/ V( @5 b7 \% _8 W9 p   ……
! T* M6 J9 i4 @  |- c
$ O, T. F  q8 ^# y- v( W        } else {

3 t7 Y8 u0 L9 X$ y5 C    # Y
  x3 ]; N' O0 Y* w! U' W2 Z* G
负半轴

  

      ……
+ S+ @2 B. l& J3 m3 C
: ?3 i: M! u7 M6 Z2 W  

          }
* i7 ~# B: d, x& v9 o1 V+ j- c9 |7 p
# K# y8 \* k/ p; t8 q6 D     

   }  elseif  {[EQ_is_gt
* e7 m% ], p, a1 X! i
7 H7 w: M8 T5 B' S7 t& H$mom_pos(1)  $mom_prev_pos(1)]}  {

        if

{[EQ_is_gt  $mom_pos(0)  $mom_prev_pos(0)]} {
/ b& l$ M* f* {/ {( J/ u; F
+ y; I- w& z4 L' }     

   if{abs($mom_pos(0)-$mom_prev_pos(0))>

! E) {7 u9 P" Z% r) Z3 qabs($mom_pos(1)-$mom_prev_pos(1))} {
# i5 m! l  n$ t0 O" m
: F  m% G3 b( _" q  
/ n. ?, b3 S6 m; U& N' v
  # 终点在第1/8区域

% @9 ^) S$ V* V* ^- m     
# |6 K& w+ T2 E# ]7 p) G3 F
   set mom_bc abs($mom_pos(0)-$mom_prev_pos(0))
) g8 p' ?- x0 K' q8 e6 [! y1 M
        set mom_gxy X

3 z/ [2 q9 Q3 [, k  

      set mom_l_code 1

  
3 W+ [0 |6 V. x% j: R* P$ X
7 A+ R+ [" R9 {/ N9 U          } else  {
0 r5 G7 r8 @6 Q7 x9 c1 S) }
$ v; v: K; o: c$ z    # 终点在第2/8区域

     

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

     

: Q- |; \/ K- _0 K/ w   set mom_gxy  Y
+ b8 m8 ~. v9 R/ [$ D0 l
        set mom_l_code 1
3 ]" L  P0 T8 K
  
# [8 O0 E; C1 u' T- V
# F8 @4 S$ d$ X& Q          }

" g: h6 h+ B' w8 p& {9 y     

  Y: Y$ j$ d! {. H( ~- F7 p1 f, @! h5 ?   } else {
/ _$ ^' e) f3 \
, n4 Y. x# Y! m! h   
1 R4 z" H. u$ f! e
! e4 h5 @7 B6 K7 c5 xif{abs($mom_pos(1)-$mom_prev_pos(1))>abs($mom_pos(0)-$mom_prev_pos(0))}{
; D. T. b" p5 P* j  B
. {, {& D# G/ q. Y    # 终点在第3/8区域
. B. i* b# O" k! v3 Q' [0 d
( `: E8 d% l; V/ `" b8 e, D           
' y( e3 o& {! z- X6 T
5 m! U! t1 f& u  f0 z6 Y* _ ……   
7 p. Y+ ^- o( O7 ~1 r! z  j
2 v" Y/ i) `" \& ]- F    #

终点在第8/8区域

           

} else  {
( o! Z; a! w% ^- n
7 C" J  I; x* i) V8 q$ }- H  

' L+ A9 S8 ], y. }/ ]' E# s          set mom_bc
" G; Q7 i( _. g0 a6 h& c0 r) T
8 M( x, z% D. r( ~abs($mom_pos(0)-$mom_prev_pos(0))

, g- U, Q# f' M, b6 J  
) }; A  k; |4 G* b+ I
          set mom_gxy  X

            set

mom_l_code 4

" T3 i: @" U- T, v; l& ?* e6 e  

          }
- Y, K8 p1 o7 E* c
# f/ I# }& Y8 h* n. J! d  
3 i. P/ N" L) g$ s: C( W8 o
) C, R9 C, _/ m3 T& w          }
/ D8 ^5 c) z0 C  s7 a7 `
     
" c0 z' a. ]0 R) J9 ^  L7 k
* T$ j, B  @- l  N9 O       }        
/ L- t" n4 g0 r, E: R4 ~( T0 p
    其他部分略。
8 H% j+ M$ f" Z# j
9 o2 R  ~1 B  W

4 N8 S; T+ Z) J2 ~: ~6 k  
2 d' Z( Y; @8 e  }
4 C# ^" p, t6 ?# R8 Y1 Z. m! A& e  五．结束语

   
- E  L/ C1 y- b# t! p
如图2所示的图形由ug后处理出的程序如下所示，我厂的线切割需手工输入，为方便程序阅读，加入了坐标值，如果为自动传输，略加修改即可。
- S% N1 @- W2 b5 K8 z

Deaton

7 Y9 f3 _4 A+ i+ ?( g
0 [& l* X5 ^% V非常详细实用，谢谢！
$ c$ |+ w% I0 t) O0 m/ U
附一个 Sodick 的后处理，已实现上下异形，子程序调用，供各位同学参考。

########################## TCL Event Handlers ##########################
/ E; A' T6 W4 k) P, X. P9 b' `* m#
% c0 f+ O- Q1 D: {, w0 p6 u# c0 t- K#  Created by Supervisor  @  Mon Oct 09 15:07:32 2005 中国标准时间
1 F$ ?6 @: j! K+ ]& H#  with Post Builder version  3.4.1.
#
) q' M6 U: [. G# l  Q, |* }5 y########################################################################
- X  X/ n. [/ W6 }6 m" r' a- O
' z! j) X* i4 h9 k6 `  set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
5 g, U* Z  }% u  w+ Z

  C7 b$ j8 o9 s! T: |  if { ![info exists mom_sys_post_initialized] } {
/ R- |5 F0 s! q# [
2 ]6 i) f4 r6 ~3 Q     source ${cam_post_dir}ugpost_base.tcl
8 b1 O! J! Q) c7 q  z0 x: q
     proc MOM_before_each_add_var {} {}
     proc MOM_before_each_event {} {}
" Q+ b) F. A4 ^& i8 n6 @  i+ h
& W0 s; w5 G. \2 K* T#     set cam_debug_dir [MOM_ask_env_var UGII_CAM_DEBUG_DIR]
5 j# Z2 w) u2 l; l; d; D#     source ${cam_debug_dir}mom_review.tcl
8 s; _5 {4 b" Q! I
     MOM_set_debug_mode OFF

( b+ w4 P7 D# U$ H
   ####  Listing File variables
     set mom_sys_list_output                       "OFF"
& m! x( b; U. ^) ]; }2 a9 _5 I9 R     set mom_sys_header_output                     "OFF"
     set mom_sys_list_file_rows                    "40"
* H' v9 o$ T, q. w0 F) Y: V     set mom_sys_list_file_columns                 "30"
% ~4 h5 D7 ~1 Q0 u     set mom_sys_warning_output                    "OFF"
/ S9 q& G9 O8 Q, g* u$ Z% O     set mom_sys_group_output                      "OFF"
( h- _9 j" H, {3 O     set mom_sys_list_file_suffix                  "lpt"
4 v" F6 s0 `& c* f! l     set mom_sys_output_file_suffix                "NC"
0 N' o3 y& ~' b6 v$ [; z4 E     set mom_sys_commentary_output                 "ON"
2 v! u; z6 U% v% m2 b7 N8 M* Q# E     set mom_sys_commentary_list                   "x y z 4axis 5axis feed speed"
/ \5 W$ j) q. P2 ~1 S* a
     set mom_sys_control_out                       "("  
     set mom_sys_control_in                        ")"  
; Y( ^7 _% o& ~$ [/ V$ ]
     set mom_sys_post_initialized 1
  }


########## SYSTEM VARIABLE DECLARATIONS ##############
7 p0 ~( y! O  B5 ^5 l8 a  set mom_sys_rapid_code                        "0"  
; f5 B8 n: ]7 i; L. @  B  set mom_sys_linear_code                       "1"  
  set mom_sys_circle_code(CLW)                  "2"  
  set mom_sys_circle_code(CCLW)                 "3"  
) H* V& w; g8 _* u  set mom_sys_delay_code(SECONDS)               "4"  
; K7 x4 B! B3 V' W5 g% y% L  set mom_sys_cutcom_code(OFF)                  "40"
7 w) c$ n1 C- |8 e) }( ]  set mom_sys_cutcom_code(LEFT)                 "41"
6 m' G$ E7 H1 c) ^* t$ E/ f  set mom_sys_cutcom_code(RIGHT)                "42"
, k( ~: A! Q" P* F" Y1 v  set mom_sys_unit_code(IN)                     "70"
3 o% p  w% y! O( b( v+ z  set mom_sys_unit_code(MM)                     "71"
5 g$ b4 W4 a& d6 f7 X  set mom_sys_output_code(ABSOLUTE)             "90"
  set mom_sys_output_code(INCREMENTAL)          "91"
3 I9 D+ J2 o* {, d& z  set mom_sys_reset_code                        "92"
  set mom_sys_program_stop_code                 "0"  
  set mom_sys_optional_stop_code                "1"  
) K) |; C& g8 n" X  set mom_sys_end_of_program_code               "2"  
  set mom_sys_rewind_code                       "30"
5 J9 n. }+ @: x+ j1 A  set mom_sys_thread_wire                       "20"
. K$ r3 l' E; p- W+ H% _  set mom_sys_cut_wire                          "21"
  set mom_sys_flushing_on                       "80"
  set mom_sys_flushing_off                      "81"
# L( Q5 J9 L) S/ P6 Q7 G3 x  N  set mom_sys_power_on                          "84"
7 d: p9 @/ R8 ]6 _  x  set mom_sys_power_off                         "85"
6 Z4 x& [6 m6 F2 y* x# c; L  set mom_sys_wire_on                           "82"
( `) Q0 _, m8 U5 ^+ D  set mom_sys_wire_off                          "83"
  set mom_sys_cir_vector                        "Vector - Arc Start to Center"
7 \4 J8 m5 h$ k; T+ s* N/ L  set mom_sys_rewind_stop_code                  "\#"
& f0 n  t, I6 ?! X0 X  set mom_sys_home_pos(0)                       "0"  
1 E) S! C0 _9 I, B. ~- k1 Y  set mom_sys_home_pos(1)                       "0"  
  set mom_sys_home_pos(2)                       "0"  
, r  E$ y) C" Z- [: m1 {- u" X  set mom_sys_zero                              "0"  
  set mom_sys_opskip_block_leader               "/"  
5 z  k* ?- O: T0 V3 C8 `/ g  set mom_sys_seqnum_start                      "10"
: Q# H0 ^1 X/ r2 _  R/ y/ j0 P. S  set mom_sys_seqnum_incr                       "10"
+ Q1 J& G2 q, X0 A0 B' {  set mom_sys_seqnum_freq                       "1"  
  set mom_sys_seqnum_max                        "9999"
' d! H: W, ]+ Q/ _0 }  set mom_sys_leader(N)                         "N"  
  set mom_sys_leader(X)                         "X"  
% r* \8 |% ~: m+ F  set mom_sys_leader(Y)                         "Y"  
0 `& P5 z5 h& Y+ Q$ [1 k9 z% Y  set mom_sys_leader(Z)                         "Z"  
  set mom_sys_leader(U)                         "U"  
  set mom_sys_leader(V)                         "V"  
7 h0 \8 D6 N9 f& z  S  set mom_sys_contour_feed_mode(LINEAR)         "MMPM"
  set mom_sys_rapid_feed_mode(LINEAR)           "MMPM"
  set mom_sys_cycle_feed_mode                   "MMPM"
. x' F0 e! O0 H6 s1 z% [  set mom_sys_feed_param(IPM,format)            "Feed_IPM"
  set mom_sys_feed_param(MMPM,format)           "Feed_MMPM"
4 X' w* Y' c/ v. }; d# O2 s- e  set mom_sys_feed_param(MMPR,format)           "Feed_MMPR"
  set mom_sys_post_description                  "Unigraphics NX 4.0 WireCut Poster for Sodick.\n\
                                                 Version: 2.0\n\
                                                 Date: 2006/03/15\n\
8 @  p1 {" x3 Y1 ]% w                                                 By Deaton, Cheewah Toys Ltd., Co.\n\
                                                 Email:deaton@21cn.com\n\
                                                 Tel:0756-8277824, 13802674804\n\
. O& D( ^# ]1 o/ n* U                                                 Rule and Conic are both supported."
' {" p+ l  ?: i$ o( Y  set mom_sys_ugpadvkins_used                   "0"

####### KINEMATIC VARIABLE DECLARATIONS ##############
* t' `" |0 N" @, E; Y9 a6 ?+ l" u  set mom_kin_arc_output_mode                   "FULL_CIRCLE"
# A; C5 R2 |' K+ x7 l  set mom_kin_arc_valid_plane                   "XY"
  set mom_kin_clamp_time                        "2.0"
0 L0 j8 H( A" J5 B  set mom_kin_flush_time                        "2.0"
% C/ d7 V/ c% ]2 Z  set mom_kin_linearization_flag                "1"  
9 X* i4 O! k. J) q. {; ^  set mom_kin_linearization_tol                 "0.001"
  set mom_kin_machine_resolution                ".001"
  set mom_kin_machine_type                      "4_axis_wedm"
  w& M* p5 c4 C6 L; @4 L9 F  set mom_kin_max_arc_radius                    "99999.999"
+ A6 \& ]7 \+ i* T! J  set mom_kin_max_fpm                           "10000"
3 H* @/ ~; [& U* n5 r( p  set mom_kin_min_arc_length                    "0.001"
7 o* J6 o" U; M1 O0 G. ^5 z+ f- X  set mom_kin_min_arc_radius                    "0.001"
  set mom_kin_min_fpm                           "0.01"
  set mom_kin_output_unit                       "MM"
5 r6 s' A7 p, u. J! i1 g8 `( r1 Z  set mom_kin_post_data_unit                    "MM"
  set mom_kin_rapid_feed_rate                   "15000"
: \- |( t. ^  R& A2 C3 U  z7 c. O) i5 G  set mom_kin_tool_change_time                  "12.0"
  set mom_kin_wire_tilt_output_type             "COORDINATES"
  set mom_kin_x_axis_limit                      "1000"
  set mom_kin_y_axis_limit                      "1000"
* k  x+ f) f6 c* ]  set mom_kin_z_axis_limit                      "1000"
0 `6 `8 d, P2 r9 m8 U$ L



4 }- L6 x% a0 [$ ], ?0 R5 {if [llength [info commands MOM_SYS_do_template] ] {
! j# p6 @! h3 \' S- z0 C   if [llength [info commands MOM_do_template] ] {
      rename MOM_do_template ""
   }
  O6 X) ]% Z& h0 V' ?   rename MOM_SYS_do_template MOM_do_template
}
! U! r7 r' H1 ^5 T3 |7 L+ }" E



2 l" }0 x3 d" i% g#=============================================================
. a+ j% C9 N- r6 J! H  Bproc MOM_start_of_program { } {
#=============================================================
  global mom_logname mom_date is_from
( \  w* p% R- K, U: D. N  global mom_coolant_status mom_cutcom_status
3 i' F- {5 I( D0 g1 U/ S$ A6 w" l. l  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
2 @8 s, M  _) Z" L( K* f  global mom_tool_length_adjust_register mom_length_comp_register
' k: h9 y+ s+ `3 V  global mom_flush_register mom_wire_cutcom_adjust_register
3 C( }! f( v" ?6 B( Q5 |3 l- o( P3 W  global mom_wire_cutcom_status
% ]) y" r+ W0 E. F6 k3 H3 j
    set pb_start_of_program_flag 0
. T+ S8 k6 ~/ U( k8 _+ J& H6 R    set mom_coolant_status UNDEFINED
    set mom_cutcom_status  UNDEFINED
5 F, f9 v( B! n( }  b    set mom_clamp_status   UNDEFINED
    set mom_cycle_status   UNDEFINED
7 F: I6 R# W% m' l( K1 [    set mom_spindle_status UNDEFINED
3 h+ n9 c. B) Y" `    set mom_cutcom_plane   UNDEFINED
; e8 j, R. H6 T' }0 [; _3 E    set mom_wire_cutcom_status  UNDEFINED
  g/ p0 D( c$ |- M. g0 |4 K2 ?
    catch {unset mom_cutcom_adjust_register}
! \/ B/ m+ |! K2 z# N9 W    catch {unset mom_tool_adjust_register}
- ]" f  O' e, n5 B2 L    catch {unset mom_tool_length_adjust_register}
    catch {unset mom_length_comp_register}
/ w# v0 y% l; r4 X" f    catch {unset mom_flush_register}
    catch {unset mom_wire_cutcom_adjust_register}

( G; A0 {! k- C; @/ J$ J' \" P    set is_from ""
+ r0 r( C6 F) [0 L8 f- X
) H4 V" R3 [* I. `1 x; `6 s    catch { OPEN_files } ; #open warning and listing files
    LIST_FILE_HEADER ; #list header in commentary listing

* F7 N2 b' y: o) q, d, \+ a. u
3 o( s; b& s0 U$ s
  global mom_sys_post_initialized
  if { $mom_sys_post_initialized > 1 } { return }

( j4 I: h' i; \, x) b( J0 q2 m1 H
7 w$ `! Q" `! `$ n( H/ F#************
uplevel #0 {

% Q* _& x" x" ], o4 i+ r
#=============================================================
$ _  A6 _2 S6 E$ f- {proc MOM_sync {} {
' \- f5 p( s! [+ C#=============================================================
( Y0 T  I) n, Q  if [llength [info commands PB_CMD_kin_handle_sync_event] ] {
7 Z5 d! [3 s* _6 y# \7 b    PB_CMD_kin_handle_sync_event
- [. L( @, g0 H  }
}


#=============================================================
proc MOM_set_csys {} {
' r* `0 j1 D% \0 T! \4 X* ]& k! p#=============================================================
/ S6 u6 V% c7 p" s  \2 U  if [llength [info commands PB_CMD_kin_set_csys] ] {
    PB_CMD_kin_set_csys
- z, y7 }' D- i# x8 q  }
}
0 M0 I& Q1 s1 D2 D

#=============================================================
proc MOM_msys {} {
#=============================================================
}
. ~7 S; {3 M( B# e. g3 z
6 n. `6 d) Y+ n' U: U
( Z+ d1 k+ D) X; K5 j: r- J6 S" e% }#=============================================================
proc MOM_end_of_program { } {
( }$ G1 S% U+ k8 Q+ d# Y9 E#=============================================================
   PB_CMD_end_of_file
" P* j; f, {; V: S# n+ e   PB_CMD_calc_machine_time
) v  I; @* A+ m/ ^! E3 v
#**** The following procedure lists the tool list with time in commentary data
   LIST_FILE_TRAILER

- W  H! i( H) y2 h) w7 ?9 h0 p8 w#**** The following procedure closes the warning and listing files
+ ]1 ?7 f) Q- Q9 y  I4 b   CLOSE_files
}
  R- p! k# q- ~
; {0 }' t& W7 X, D+ }
  incr mom_sys_post_initialized
. M1 w, X9 M" F' H4 J5 }
0 U; m$ v* A& [( i# e
% x" e- Z- `' g" z} ;# uplevel
6 f5 t. o6 `' Y5 C4 k. B: n4 M#***********
2 p3 J# }1 X, [' \; e. E' Q
% n& q2 X7 A8 v5 G9 @' r7 s4 G
}

0 a. M6 `. m0 k( v/ [7 S  A7 X* U
#=============================================================
proc PB_DELAY_TIME_SET { } {
4 B# P- i1 }. w& V3 W0 }#=============================================================
  global mom_sys_delay_param mom_delay_value
2 h& A# P6 q& m$ E* h  global mom_delay_revs mom_delay_mode delay_time
, H6 g7 m3 I8 ]8 K
   # post builder provided format for the current mode:
# Q7 a8 m7 h( N+ Q; A5 V* I    if {[info exists mom_sys_delay_param(${mom_delay_mode},format)] != 0} {
      MOM_set_address_format dwell $mom_sys_delay_param(${mom_delay_mode},format)
    }
; _% E1 Y+ B* E/ b# C- z
6 i. Q9 S4 z' o9 S# Y+ `    switch $mom_delay_mode {
      SECONDS {set delay_time $mom_delay_value}
8 ^+ g* r2 [1 i4 |- c" T6 `      default {set delay_time $mom_delay_revs}
    }
) C0 w4 l4 p" Y5 Y  S. L}
% }  o8 [9 K( r" g4 Q3 t
  R% z) O9 W" p! J/ \6 N3 s
+ I, A/ [) p, a% f' T, \9 N& d$ e#=============================================================
- w& r7 q6 j7 p( v" _6 [proc MOM_before_motion { } {
#=============================================================
  global mom_motion_event mom_motion_type
4 b$ I0 t+ N. ]
4 d7 t  @# |# r    FEEDRATE_SET
4 C% D# J$ P# j! ?# {

    switch $mom_motion_type {
. Z' q# K" F% ?# ^      ENGAGE   {PB_CMD_kin_wedm_engage_move}
3 I' W% {' y8 t' b  Q5 @      APPROACH {PB_approach_move}
6 h5 Y# Z1 g3 b# F$ k      FIRSTCUT {PB_first_cut}
( u7 i: s! I; _4 e: \. i- `      RETURN   {PB_return_move}
. W& @1 b: Y6 v7 Q& ?% p+ ^    }
* j4 c4 s: k% D6 ?1 z4 H% ]# M
    if [llength [info commands PB_CMD_kin_before_motion] ] { PB_CMD_kin_before_motion }
# A5 H9 L/ {- t; c7 U    if [llength [info commands PB_CMD_before_motion] ]     { PB_CMD_before_motion }
}
7 ^. T& S1 \" @# _1 l; ]
5 \  ~$ C" g; r& T3 P1 H
#=============================================================
proc MOM_start_of_group {} {
#=============================================================
  global mom_sys_group_output mom_group_name group_level ptp_file_name
( j4 ]% C. P5 V' ?* O% _4 m; f  global mom_sequence_number mom_sequence_increment mom_sequence_frequency
, p' h$ y% H( |/ ]- |  global mom_sys_ptp_output pb_start_of_program_flag
7 {: y6 U' P, C* ?. D
    if {![hiset group_level]} {set group_level 0 ; return}
* p& F/ I4 J# |! m! T- w
    if {[hiset mom_sys_group_output]} {if {$mom_sys_group_output == "OFF"} {set group_level 0 ; return}}

( [% M) K% [4 {- L# R; S0 Q' ]    if {[hiset group_level]} {incr group_level} else {set group_level 1}
- H* |6 R# d# b0 i% p  w1 ]* S    if {$group_level > 1} {return}

    SEQNO_RESET ; #<4133654>
( z" t" K; p( u    MOM_reset_sequence $mom_sequence_number $mom_sequence_increment $mom_sequence_frequency

    if {[info exists ptp_file_name]} {
      MOM_close_output_file $ptp_file_name ; MOM_start_of_program
$ h, k0 [( O3 y. g! l# h      if {$mom_sys_ptp_output == "ON"} {MOM_open_output_file $ptp_file_name }
    } else {
      MOM_start_of_program
+ J: f1 I9 s! j) l% L! @    }

4 ^2 C+ L) V. y/ A( O" @    PB_start_of_program ; set pb_start_of_program_flag 1
}

1 G" A0 h% Y) ]0 L0 p3 [. t
8 R& G- L* g5 z! b; s#=============================================================
4 f5 [+ m; i; Mproc MOM_machine_mode {} {
! M6 H! X6 P4 m; f% }( e+ L: ~#=============================================================
  global pb_start_of_program_flag
  global mom_operation_name mom_sys_change_mach_operation_name

2 K$ |8 _1 j6 m  {! t! P' s( e   set mom_sys_change_mach_operation_name $mom_operation_name

1 h* K* @$ z: A! e$ }- ]+ w    if {$pb_start_of_program_flag == 0} {PB_start_of_program ; set pb_start_of_program_flag 1}
3 r+ k; V% C8 u. y
( V8 x* ]# y$ \- J    if [llength [info commands PB_machine_mode] ] {
       if [catch {PB_machine_mode} res] {
! ^. V+ _5 `# Q! e0 o% s          global mom_warning_info
          set mom_warning_info "$res"
: p2 [+ S* h% H3 Q7 V8 J; I          MOM_catch_warning
( B  m0 h& H/ J  @( ]9 d       }
5 e' x! J( e4 b, {2 @    }
4 H" x: m2 u# L, @* t8 ~, r  _}


#=============================================================
( B- S0 O  b% }, w5 Uproc PB_FORCE { option args } {
+ ^% m: `/ t* w& v1 ^#=============================================================
; p0 u; I, {' {$ d9 F# i: ^   set adds [join $args]
8 H2 d+ F6 R  J9 m7 `+ r7 D/ b& x   if { [info exists option] && [llength $adds] } {
3 }! d' ~" m2 q) d! ^- |      lappend cmd MOM_force
: d; A% f( ^2 f5 @6 g      lappend cmd $option
/ D+ d# Y  x& k' g6 P' ?, r6 Z      lappend cmd [join $adds]
      eval [join $cmd]
   }
}

- |4 B  d8 F& y5 R
  d% J, d& n  Q% F9 V9 d. P) x#=============================================================
proc PB_SET_RAPID_MOD { mod_list blk_list ADDR NEW_MOD_LIST } {
#=============================================================
6 }$ n' @/ V$ o  upvar $ADDR addr
  upvar $NEW_MOD_LIST new_mod_list
  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2
0 e' h# O# d/ Q3 Q; e

   set new_mod_list

5 p8 m  z+ E7 a+ y& k$ x4 N3 m   foreach mod $mod_list {
+ w% q6 n9 M' I, @0 X6 u      switch $mod {
         "rapid1" {
            set elem $addr($traverse_axis1)
            if { [lsearch $blk_list $elem] >= 0 } {
               lappend new_mod_list $elem
6 D* z& D% ~+ W1 @            }
8 N; W/ ?5 K+ R* y; w         }
         "rapid2" {
            set elem $addr($traverse_axis2)
            if { [lsearch $blk_list $elem] >= 0 } {
               lappend new_mod_list $elem
            }
         }
, N* x) |- Q1 U! L: ?7 X1 e1 O         "rapid3" {
            set elem $addr($mom_cycle_spindle_axis)
. X8 y6 k9 W" i& V" S/ g) D" p            if { [lsearch $blk_list $elem] >= 0 } {
& E, ]/ j' E2 m" l' I3 i) y               lappend new_mod_list $elem
  p+ b" g. L, M7 _- T8 y            }
         }
$ L0 g" h, c" G- k5 R2 V! b         default {
: n$ K0 }# B! L* s            set elem $mod
            if { [lsearch $blk_list $elem] >= 0 } {
  u1 J' i& U) ]4 Z% |               lappend new_mod_list $elem
8 I, q7 X1 l! Y' r! d            }
         }
& r* B5 G  l$ o* Y      }
   }
}
& q# m* e. i' e  s
! j* A/ s4 d7 o3 Y& d
7 h$ b4 R9 C6 O7 D4 c3 R########################
# Redefine FEEDRATE_SET
3 t6 P6 R9 x+ w########################
% b9 F) r( w9 N; }) {& Qif [llength [info commands ugpost_FEEDRATE_SET] ] {
   rename ugpost_FEEDRATE_SET ""
}

0 Y, i2 c, O: ^* j% rif [llength [info commands FEEDRATE_SET] ] {
   rename FEEDRATE_SET ugpost_FEEDRATE_SET
} else {
( _0 k. L% u# W* M$ q3 d   proc ugpost_FEEDRATE_SET {} {}
}
% ^: O; ]7 Z. r' _8 Q

#=============================================================
+ x5 ~8 r: K7 C1 `0 y" F2 Sproc FEEDRATE_SET {} {
#=============================================================
) @9 j: n( ?0 ~$ j2 C   if [llength [info commands PB_CMD_kin_feedrate_set] ] {
5 m9 b$ ?- S# J1 @      PB_CMD_kin_feedrate_set
' l, W1 c" C0 h3 ~! D   } else {
/ v6 M0 x/ Z/ C; A      ugpost_FEEDRATE_SET
  h$ B$ M; Y: f/ k1 C& s* P  K6 U3 I5 p   }
}
( j0 f" H; c$ g/ u! y
2 f9 _5 P* J/ M8 p
#=============================================================
proc MOM_wire_cutcom { } {
#=============================================================
  global mom_wire_cutcom_status mom_wire_cutcom_mode
5 l& G  [6 y  y+ a, k7 y- _  global mom_cutcom_status mom_cutcom_mode
" |9 C) x% s  W5 L
% X7 s3 y0 }( ]/ M5 Q% F" F; {9 D    set mom_cutcom_status $mom_wire_cutcom_status
    set mom_cutcom_mode $mom_wire_cutcom_mode
% r! i  ^* a( Z- m& n- E; k- E" |) z
    switch $mom_wire_cutcom_status {
       ON  { MOM_cutcom_on }
& h1 V$ T5 `, J7 I1 t9 V       OFF { MOM_cutcom_off }
$ T2 K, D# o, l& s/ ]: t/ e0 y) ?, ^    }
4 f5 Z$ m) X5 l0 T, \) _}


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

( w8 M) L- ]$ B
#=============================================================
* v( S# Y/ w; t8 wproc PB_start_of_program { } {
6 c$ d# w- g' l- H1 _' S#=============================================================

+ g3 k0 s* H1 I# t# O  w% b& U! K   if [llength [info commands PB_CMD_kin_start_of_program] ] {
      PB_CMD_kin_start_of_program
   }
2 u3 o$ g& J1 p- Z2 w7 i) k+ v% j. }* ^
: o/ C2 S* Z& X, c! z" _5 {   PB_CMD_start_of_file
   PB_CMD_start_of_program
   PB_CMD_start_of_conic
8 Q1 w! ~- n7 x- i   PB_CMD_first_move
   PB_CMD_drill
' _0 F8 X: K8 L& t; R1 a}

% V* F: |, ^' Z) y
+ y7 |4 R/ A+ l, H! _& k#=============================================================
6 p: S3 ?2 Z/ y! C) |* Q/ I% h: b& xproc MOM_start_of_path { } {
#=============================================================
: f7 }9 v  `; o0 c/ T  global mom_sys_in_operation
- [4 F. |9 v/ d   set mom_sys_in_operation 1

  global first_linear_move ; set first_linear_move 0
; M" _% v# O; r: E   TOOL_SET MOM_start_of_path

   if [llength [info commands PB_CMD_kin_start_of_path] ] {
      PB_CMD_kin_start_of_path
0 ?7 v( Z$ d3 M( K+ h% w4 [9 a   }

   PB_CMD_start_of_program
}

( {! m# ]: Q( i
#=============================================================
proc MOM_from_move { } {
6 x6 B- N* A' _4 V#=============================================================
, ^8 P4 t# l, z: Q% t  global mom_feed_rate mom_feed_rate_per_rev  mom_motion_type mom_kin_max_fpm
' S' Y+ b2 G; x  |9 Y& i# [7 I2 {   COOLANT_SET ; CUTCOM_SET ; SPINDLE_SET ; RAPID_SET
0 v1 m0 Q7 s; h}

7 P; u7 Z  n  |+ d" R
#=============================================================
proc PB_approach_move { } {
#=============================================================
}
$ a8 K3 o  m) S9 c- y5 s, n1 ?% ?

#=============================================================
0 ]( J* t/ z" G: f( Sproc MOM_start_of_pass { } {
# i1 p1 Y* X8 W% h6 A#=============================================================
1 p% ?; ~8 D5 @% {" w9 l4 {! g, B  global mom_sys_start_of_pass
  set mom_sys_start_of_pass 1
   PB_CMD_start_of_pass
( P: }5 ^2 c+ R6 m}
" _1 V4 ?$ O9 _2 e2 |( B

7 D1 r( P( \1 r) c6 O$ O" S3 i) b* M#=============================================================
. _3 v0 X. r. uproc PB_cutcom_move { } {
#=============================================================
}
& y! s: h* K* o6 ?/ ^- v

* \! k; W3 W: A; s7 b6 d+ E$ `4 G#=============================================================
proc PB_lead_in_move { } {
5 h+ F  b5 C0 E. {8 s) |#=============================================================
}

1 G# f; b, N2 w5 C+ U: M7 `% `
# K4 a" i5 R" h3 o! T9 B! ]#=============================================================
8 m3 _* e+ j' X" H  X/ O8 X! p- Uproc PB_lead_out_move { } {
#=============================================================
}

1 q) F8 b( B$ b1 ^' k* G- x; z+ @
#=============================================================
7 a' ^1 y6 f6 \6 ]0 k0 a3 L6 Lproc MOM_end_of_pass { } {
1 u, d/ R/ b' F5 g#=============================================================
7 |" \( s) G6 |$ @9 L6 B  PB_lead_out_move
   PB_CMD_cutcom_off
}
# g2 V$ z' T# v, f' o
9 ?  h4 @2 l1 E* C9 ~# i* V) ~' K
#=============================================================
# A: T1 z! `; Q+ ?proc MOM_gohome_move { } {
6 L! c% q' G7 K1 _" l, ~- M#=============================================================
   MOM_rapid_move
}


* a( @- q6 ]. O#=============================================================
proc MOM_end_of_path { } {
- x2 y& P. R4 R, C+ l& m" O1 q#=============================================================
. w1 h' v8 n' W' R3 I/ Z8 k3 M
   if [llength [info commands PB_CMD_kin_end_of_path] ] {
& }: {1 |, v) n0 _% _      PB_CMD_kin_end_of_path
+ m) B- Y9 j$ t  k, w. g   }
/ h% ]& z7 e# i8 l: c4 v3 p( _
( Z4 D' h8 \" ^! Q9 t   global mom_sys_in_operation
   set mom_sys_in_operation 0
}
0 L' k- @9 R+ G3 |# I! [0 I
" \+ \4 z8 D' n& m6 V6 F. t
#=============================================================
4 H( T* e& M0 p& j  Gproc MOM_thread_wire { } {
#=============================================================
}


#=============================================================
$ S" X/ Y3 I/ w3 |0 s& P% Q% L+ uproc MOM_cut_wire { } {
/ l: ?4 G  i/ Z7 p& @#=============================================================
}
* U0 r, M! Y9 o$ }7 i  \( ?
. K% L7 A0 H( y) I" x
#=============================================================
proc MOM_wire_guides { } {
#=============================================================
; k! J+ B$ w4 b! T3 m   PB_CMD_work_coordinate
' j4 J! h/ \4 |4 I}

) A+ V4 S! D6 a
#=============================================================
proc MOM_set_mode { } {
. D/ J+ ^* ^. y* R  G#=============================================================
}
/ Z' ^6 j+ ?* e& s$ F5 I' M7 X

#=============================================================
proc MOM_cutcom_on { } {
% q* |0 J% H" P2 k! j#=============================================================
   CUTCOM_SET
   PB_CMD_cutcom_on
2 o: `# k6 {9 h& N2 s}
2 }2 b" F  @6 |# I( L( B) @* Z! P

) w4 z6 C7 I  I7 C  V#=============================================================
proc MOM_cutcom_off { } {
% L2 [& g( E8 b; h#=============================================================
  J7 F8 q' X; ]7 K( q: `# V   CUTCOM_SET
1 m/ c7 w1 a7 U" ]   PB_CMD_cutcom_preoff
2 P. m6 w5 B+ _}


#=============================================================
proc MOM_feedrates { } {
#=============================================================
}


( B& f6 x5 r1 M#=============================================================
proc MOM_delay { } {
: N6 p& [4 b) e2 \. N; ]' ^2 X1 p#=============================================================
   PB_DELAY_TIME_SET
   MOM_do_template delay
% f" V5 W1 X1 O8 l' s: L; c7 o}


( o$ J- H; T4 `7 F#=============================================================
* `" e4 Z3 J8 A6 {/ `; Z* w6 Tproc MOM_auxfun { } {
( j, O! L, q' ~  Q- [#=============================================================
}

# K8 k. X" h3 K5 F
#=============================================================
* {1 l) N) _6 C2 [) X9 E  Rproc MOM_prefun { } {
/ l' K8 |. A$ `#=============================================================
8 Y# Y* ?3 s, s( h! }, j% c}
  F" [+ V! i1 u8 J
( s% a! |! K& I
% Y0 b3 r; r3 E4 Q#=============================================================
$ U- e" T% b" |# o+ S+ K/ Tproc MOM_stop { } {
#=============================================================
   MOM_force Once M
8 \5 B9 Y2 U4 S# f: L3 O6 e' s! i   MOM_do_template stop
& n: J& }$ s. c5 ~' j}
" H( a# g' }/ u
2 w) w* q# `/ Y( ^0 D( C6 P2 y0 s
#=============================================================
proc MOM_opstop { } {
; m! I/ `9 h! v6 V7 Q( `#=============================================================
, u% Y8 n/ J# i, [6 x( q' n   MOM_do_template opstop
}
: H, Q" \9 p% r

#=============================================================
proc MOM_linear_move { } {
#=============================================================
" K' X/ k9 V( @) Z  N1 `+ e; ^  global feed_mode mom_feed_rate mom_kin_rapid_feed_rate
, B+ ]8 a6 _" p  g# f
   if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
      if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
         MOM_rapid_move
' z% f- p0 a7 \5 B4 B& H         return
      }
6 t: Q4 T2 i, ]: M7 q   }

   PB_CMD_linear
& I% d+ l% t5 {}
5 y& P& X" C: C3 B8 R4 T

#=============================================================
3 k2 a2 Q1 z( x* Vproc MOM_circular_move { } {
4 x8 r, R' u3 C# s) g#=============================================================
   PB_CMD_circular
4 }' j. k: |) o( `6 h+ E4 I3 B}
3 T( E5 H1 O& J; P9 U. Q5 W; u, ~

#=============================================================
proc MOM_rapid_move { } {
#=============================================================
! O, W2 o' K6 c8 W. l  global rapid_spindle_inhibit rapid_traverse_inhibit
1 k  y8 Y# h# o  c/ S  global spindle_first is_from
  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2
  global mom_motion_event

  f8 [$ K) c& H2 r8 j   set aa(0) X ; set aa(1) Y ; set aa(2) Z
   RAPID_SET
   MOM_do_template rapid_move
- L- h: z9 l7 u}
, x* c& l, S2 \, a8 K% n3 B! a
$ m! y; |5 h" @+ P5 Z5 [
#=============================================================
9 j8 ]# P( l+ Z+ Z4 Xproc MOM_cycle_parameters { } {
7 {8 i$ Y2 \( d2 X& k#=============================================================
}

5 T3 |( A3 G: E
#=============================================================
, h+ ?8 n( l; R5 [  l, S- `5 ~8 Mproc MOM_sequence_number { } {
8 H, R, j0 S3 A2 G, z9 o# v#=============================================================
   SEQNO_SET
. m& x6 }6 c. @' q0 x6 ^% [}
# j% w6 g+ l' ~  y1 b2 p; l. o! G& ]
/ m' v6 I. ~3 _( G+ Z  P
#=============================================================
proc PB_CMD_before_motion { } {
#=============================================================
6 F# b( f! x* v/ W  oglobal mom_motion_type
- Q! ]* ?/ T- c$ r& Pglobal mom_current_motion
global mom_motion_distance
global momPathLength
; K5 \. ?: ]) B
MOM_reload_variable mom_motion_type
MOM_reload_variable mom_current_motion

if { ($mom_current_motion == "first_move") && ($mom_motion_type == "RAPID") } {
   ## Set location point befor First Move:
   MOM_output_literal "/G05"
   MOM_output_literal "/G06"
   MOM_output_literal "/G08"
( a* v! I. l, B/ \   MOM_do_template rapid_move
   MOM_do_template location_start_point
2 I' ?6 p; q/ H2 o: V) e+ c- h) a   return
1 a& ]( G, }7 q} elseif { $mom_motion_type == "RAPID" } {
   ## When rapid move, insert and append pause activation:
   MOM_output_text " "
; d# O+ K" q/ d   MOM_output_literal "M00"
   MOM_do_template rapid_move
2 n1 |% q$ u% |/ m   MOM_output_literal "M00"
) q, N( F- [7 B, H   MOM_output_text " "
   return
} elseif { $mom_motion_type == "CUT" } {
' d( x% a* Q9 c% H   set momPathLength [expr $momPathLength + $mom_motion_distance]
}
}

! @6 X( T( Q0 {& ], t9 C# ?- A$ e  w8 G
#=============================================================
proc PB_CMD_calc_file_size { } {
#=============================================================
global ptp_file_name

MOM_close_output_file   $ptp_file_name
( B  x& p/ k% K; f; ]5 A& E. Q3 S/ Xset ptp_size [file size $ptp_file_name]
MOM_open_output_file   $ptp_file_name
! M( k8 U  i( Q7 H# W. Y1 M
# G& u6 P& ]/ |" ]4 K0 v+ FMOM_output_literal "( NC file size = $ptp_size bytes )"
2 ^' n& C! C( L5 @  f; ?# U- g}


1 g6 M: a* N4 @: I) o. X( m0 I) Y& {#=============================================================
proc PB_CMD_calc_machine_time { } {
) s/ z; [% t" ~: Y( U" G1 d#=============================================================
global momPathLength
& W3 m7 L0 R& D$ Oglobal mom_wire_guides_lower_plane
( \$ e. S7 Y3 I7 {global mom_wire_guides_upper_plane
global mom_feed_rate
global mom_wire_feed_rate

global mom_kin_machine_type
global mom_machine_mode

5 F; O$ R8 p) v5 B0 y$ c
if {$mom_machine_mode == "WIRE" } {
2 C! W1 e) \! i   MOM_output_literal "( Toolpath Length = [format "%6.2f" $momPathLength] mm )"
/ n- _- V, ^; Z0 y  I   set momMachineTime  [expr $momPathLength *  ($mom_wire_guides_upper_plane - $mom_wire_guides_lower_plane) / $mom_wire_feed_rate ]
7 ~: |2 P' z/ m0 ~   MOM_output_literal "( Machine Time = [format "%4.0f" $momMachineTime] min. )"

   PB_CMD_calc_file_size
}
* S' c: T8 _  \4 w! @, N}


#=============================================================
$ a' Y" t" J4 e; U0 V0 U  oproc PB_CMD_circular { } {
2 i6 ]" F% j. E' V/ y/ u6 `, @#=============================================================
global mom_tape_status
if { ($mom_tape_status == "ANGLE") || ($mom_tape_status == "NONE") } {
" g' o+ M. S. S6 x+ |   MOM_force Once G_motion X Y I J
   MOM_do_template circular_move
} elseif { $mom_tape_status == "CONIC" } {
5 G2 R4 l" H+ a* h' c   MOM_force Once G_motion X Y I J
  T& e0 t0 n; g' N   MOM_do_template circular_move_conic
} else {
/ m$ z1 j, F0 G$ Q& I* E% l   MOM_force Once G_motion X Y I J Text G_motion_upper X_upper Y_upper I_upper J_upper
' X# s0 J  d8 |1 h# x! F1 s& A   MOM_do_template circular_move_complex
& x6 |6 }  N( F* t: g7 b}
, Y( u& ^5 `1 z; P/ s! R$ p9 m( [; S}
$ Q: z3 D% w: j% U4 Y

& P  ^: p2 w- F/ t#=============================================================
proc PB_CMD_cutcom_off { } {
3 k) s; p, t2 e0 r- J; t; z% r' o3 n9 R#=============================================================
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
global mom_tape_status
+ S6 r! n' @8 z1 i5 ^) c: xglobal mom_sys_cutcom_code(OFF)
/ I2 y. o, i; m9 W% Wglobal momComplex
- k' [1 h% ?$ W* H0 }
if { $mom_tape_status == "CONIC" } {
   MOM_output_literal "G75"
, ]+ h8 f9 U, A' ]' H6 R}

, Y/ c9 Z' g9 y% F8 Z* I* qif { $mom_tape_status == "COMPLEX" } {
   if [info exists momComplex] { unset momComplex }
} else {
   if { $mom_tape_status == "ANGLE" } {
      MOM_output_literal "G40"
' H6 j- ~  v5 Z: j/ O+ p      MOM_output_literal "G50"
   } else {
& F- h' q7 ^$ g% S$ k7 u* x      MOM_output_literal "G40"
# F, N* m) _$ Z   }
8 i  g9 S5 b: e/ `}
' o- w+ i3 f3 `/ a3 J, K}
" ^2 w" p) V5 t6 ]6 k) S

: r3 H# P& G8 l  s9 C3 r5 \#=============================================================
0 C( h8 _( ?! i5 B4 w6 H0 sproc PB_CMD_cutcom_on { } {
#=============================================================
global mom_wire_guides_lower_plane
( c5 ]( T1 J1 F6 V# Y7 g( ^global mom_wire_guides_upper_plane
global mom_tape_status
global mom_sys_cutcom_code
5 o. n" e; R! i3 R9 v# O. bglobal momComplex
global momConic
, i9 |4 w( f2 pglobal mom_wire_angle_command

global mom_sys_cutcom_code(LEFT)
global mom_sys_cutcom_code(RIGHT)
global mom_sys_cutcom_code(OFF)
5 z5 v' H( S8 }4 y8 J  g7 `0 s' }  aglobal mom_wire_cutcom_mode
global mom_wire_cutcom_status
global mom_wire_cutcom_adjust_register
, ^' \4 n. e; R" a% O0 lglobal mom_wire_cutcom_user_register
% ?3 k/ L8 \/ f' C0 G" V
MOM_reload_variable mom_wire_cutcom_user_register
MOM_reload_variable mom_wire_angle_command
MOM_reload_variable mom_wire_cutcom_adjust_register
MOM_reload_variable mom_tape_status

3 T! A+ I1 i+ A" Z. m  |if { $mom_wire_cutcom_user_register != $mom_wire_cutcom_adjust_register } {
& S5 p' p! {) G+ i   set mom_wire_cutcom_adjust_register $mom_wire_cutcom_user_register
}

if { $mom_tape_status == "COMPLEX" } {
& n: }! o9 h/ d6 d   MOM_do_template cutcom_on_complex
" v- A8 l* k6 p! ^$ A" G" h. R; h( g   set momComplex 1
* K& t3 G6 J2 g# {' v# V8 S$ D, a$ p} else {
" W$ a6 \9 }. o; c' v! g   if { $mom_tape_status == "ANGLE" } {
% _% [3 o1 i) Z, K      if { ![info exist mom_wire_angle_command]} { set mom_wire_angle_command "G551 A0" }
- ~+ O3 Q; l( w% s6 K0 z8 j3 W( c! y      MOM_output_literal $mom_wire_angle_command
5 c9 N0 \$ ]' T9 F- ]# l   }
! I/ t/ x" R3 H" @) |* M. Y% H4 T   if { $mom_tape_status == "CONIC" } {
; k9 x, h, n. y- d      set momConic 1
   }
5 n. v4 B7 n. m" z9 F+ x   MOM_do_template cutcom_on
}
% X8 G, _8 G+ \4 v9 d}
6 U: O, z, Z2 R  W3 r+ P
4 f9 i8 [1 H$ m9 t4 t$ y# K
5 u2 u( y; n3 W2 a. \9 u0 J#=============================================================
proc PB_CMD_cutcom_preoff { } {
9 D7 E: U0 ?) a#=============================================================
' ], R: G: |! d: g( m; Z1 Uglobal mom_wire_guides_lower_plane
" K5 W8 y; K! G; sglobal mom_wire_guides_upper_plane
global mom_tape_status
0 y1 E1 |: p: @/ [2 F; P% J: sglobal mom_sys_cutcom_code(OFF)

5 i( {) A0 @# ]6 Y9 xMOM_output_literal "M00"
: @& x. P+ v* b- _if { $mom_tape_status == "ANGLE" } { MOM_output_literal "A0" }
if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "D000" }
}
1 c2 ^4 D2 [& a+ R. u

3 }1 w- x. N( K2 ]* q#=============================================================
proc PB_CMD_drill { } {
#=============================================================
uplevel #0 {
. p* f# T: l8 k6 B2 N
   set mom_kin_wire_tilt_output_type "COORDINATES"
0 k- Y; t, T5 N8 a   #MOM_reload_kinematics
9 k& ~- z; N4 G- `! B. |
   proc MOM_drill_move {} {
' I  u7 b- t8 P( p: R      global mom_pos
' K% O6 G3 y& J* @7 h
/ g( h2 P1 \8 t8 v# S4 n5 Q1 R9 y# C      MOM_output_text " "
      MOM_do_template rapid_move
1 ~# T: U& a' h. U& m      MOM_output_literal "M00"
      MOM_output_literal "M98 P8888"
8 x% H6 S# C  O% @: q2 Z   }

}
}
  o3 Z1 `  B3 ]- `8 b

#=============================================================
5 g( h, E7 a/ {/ W) Bproc PB_CMD_end_of_file { } {
#=============================================================
; p# B$ @) {7 P4 Y" l6 y7 ?4 D3 }) L6 oMOM_output_text " "
MOM_output_literal "G40 G50 G75"
MOM_output_literal "G90 G09"
4 d4 }" f+ J# \MOM_output_literal "T81"
MOM_output_literal "T97"
MOM_output_literal "M00"
MOM_output_literal "M02"
MOM_output_literal "%"
MOM_output_text " "
0 A8 l# |7 c& X" w}

$ N2 E0 c1 y0 H2 L& R
#=============================================================
proc PB_CMD_first_move { } {
, ]( \6 n) m1 ^4 O+ b6 [#=============================================================
uplevel #0 {
6 I3 l5 {* j* r: S% ^   proc MOM_first_move { } {
      MOM_output_text " "
      MOM_abort_event
: J4 A1 V! ?& x      return
   }
}
}
4 `& r1 j+ f; K/ s5 i

#=============================================================
# v" Z$ z5 e- j2 U) y0 J3 c7 o0 Vproc PB_CMD_kin_before_motion { } {
! }) p% j4 L9 X9 W9 J#=============================================================
}


#=============================================================
proc PB_CMD_kin_feedrate_set { } {
+ K# D! y- E/ d( d: B#=============================================================
# This procedure supercedes the functionalites provided by the
$ P% u- [* h! ^$ _# FEEDRATE_SET in ugpost_base.tcl.  Post Builder automatically
6 W) z+ D: _4 B) X# generates proper call sequences to this procedure in the
# Event handlers.
9 A3 N' u3 e! _" X4 ^#
# This procedure must be used in conjunction with ugpost_base.tcl.
#
  global   feed com_feed_rate
  global   mom_feed_rate_output_mode super_feed_mode feed_mode
  global   mom_cycle_feed_rate_mode mom_cycle_feed_rate
  U1 B7 q2 Q1 ~- S% O  global   mom_cycle_feed_rate_per_rev
1 ?* _7 y- A- D  global   mom_motion_type
, {" \0 G3 C) E5 Q) S7 x; M1 K  global   mom_warning_info
  global   Feed_IPM Feed_IPR Feed_MMPM Feed_MMPR Feed_INV
  global   mom_sys_feed_param
  T7 p' H3 u& q; }8 \( c  global   mom_sys_cycle_feed_mode
6 F7 ]7 g6 O. S- T
6 z7 C* {3 z: z$ ~
  set super_feed_mode $mom_feed_rate_output_mode
1 f4 W: v! o' B5 C4 n( R, H2 R
  set f_pm [ASK_FEEDRATE_FPM] ; set f_pr [ASK_FEEDRATE_FPR]

  switch $mom_motion_type {
6 X# s2 p2 l$ [: t
    CYCLE {
( h( U8 Z6 e  e$ H& E      if [info exists mom_sys_cycle_feed_mode] {
         if { $mom_sys_cycle_feed_mode != "Auto" } {
* K* L& k4 _- `% J* W& Z4 s) A            set mom_cycle_feed_rate_mode $mom_sys_cycle_feed_mode
         }
2 E' p& Y  Q+ B; j; W. m      }
      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 }
: j' k8 ?% t8 ^: `      if {[hiset mom_cycle_feed_rate_per_rev]} { set f_pr $mom_cycle_feed_rate_per_rev }
- n- w$ Z+ I/ g# B, o    }

    FROM -
    RETRACT -
    RETURN -
7 ]3 t' ]: {7 `  ~! d" J( z  S    LIFT -
! K# p, \2 n1 b5 V    TRAVERSAL -
    GOHOME -
    GOHOME_DEFAULT -
    RAPID {
      SUPER_FEED_MODE_SET RAPID
    }

, I8 f" U: c. s* h# Y! L& `    default {
      if {[EQ_is_zero $f_pm] && [EQ_is_zero $f_pr]} {
, u4 r2 K8 G' j9 o  y$ x1 T        SUPER_FEED_MODE_SET RAPID
      } else {
) x& y$ v1 h5 m; C0 S3 ~        SUPER_FEED_MODE_SET CONTOUR
      }
: b4 V+ ?  o5 `, x0 O8 q/ g    }
  }
, f7 s3 Q2 t3 B& [, h
9 v3 F3 n+ q$ O
  set feed_mode $super_feed_mode


# n! l1 M4 z1 e# Adjust feedrate format per Post output unit again.
  global mom_kin_output_unit
  if { $mom_kin_output_unit == "IN" } {
7 c6 o# A6 @' L/ o1 R/ t' J- a     switch $feed_mode {
" k* U9 x" B$ Z4 {3 G       MMPM {
         set feed_mode "IPM"
) a0 W& W/ C% v; A# e         CATCH_WARNING "Feedrate mode MMPM changed to IPM"
       }
       MMPR {
) ^) z% r$ \9 z* U, Q3 _         set feed_mode "IPR"
         CATCH_WARNING "Feedrate mode MMPR changed to IPR"
- K- u2 g& }7 X4 X' m1 _       }
     }
% P1 j* U9 ]5 W1 a; e  } else {
     switch $feed_mode {
7 l9 }3 r. N% N       IPM {
         set feed_mode "MMPM"
         CATCH_WARNING "Feedrate mode IPM changed to MMPM"
       }
$ V( X" N" R- s5 Q/ w# L       IPR {
' R/ q+ J$ B  Y7 C5 N( F/ K* k         set feed_mode "MMPR"
         CATCH_WARNING "Feedrate mode IPR changed to MMPR"
  X" Y0 t5 M: ~1 f$ G# n# b+ ]7 e       }
  V# A; x0 v3 n) g. i0 b1 z     }
  }


2 p" _7 P, q* z% E  switch $feed_mode {
    IPM     -
8 @3 g0 f/ A0 n/ d. I9 Z    MMPM    { set feed $f_pm }
, X& e, y  b# k5 q3 U' J& A' G    IPR     -
    MMPR    { set feed $f_pr }
    DPM     { set feed [PB_CMD_FEEDRATE_DPM] }
    FRN     -
) R2 r! o3 Z/ w: s- D    INVERSE { set feed [PB_CMD_FEEDRATE_NUMBER] }
    default { set mom_warning_info "INVALID FEED RATE MODE" ; MOM_catch_warning ; return }
  }
. O- g7 [9 P/ L  x, u$ c

  _; w) q( o* n5 i6 X# Post Builder provided format for the current mode:
  if [info exists mom_sys_feed_param(${feed_mode},format)] {
6 u- y/ s( k# F* q& P    MOM_set_address_format F $mom_sys_feed_param(${feed_mode},format)
1 l, K/ M1 O; T  } else {
    switch $feed_mode {
2 l5 ]. d) ^! Y! B: l3 u$ P      IPM     -
      MMPM    -
      IPR     -
      MMPR    -
      DPM     -
4 Z' T6 [3 A% D6 l9 a      FRN     { MOM_set_address_format F Feed_${feed_mode} }
      INVERSE { MOM_set_address_format F Feed_INV }
    }
& j: {/ o$ \, l$ ~" k  }
5 Y6 U2 e9 x1 @* g  }" t# ]2 Z
# Commentary output
4 V0 H/ ~, o" E2 n  set com_feed_rate $f_pm
% Q( X4 G1 U( J& w/ I. \+ V
& s5 {( G2 X" c
# Execute user's commnad, if any.
1 w5 G: K( I0 _* K! O  if [llength [info commands "PB_CMD_FEEDRATE_SET"]] {
     PB_CMD_FEEDRATE_SET
  }
) c& ]6 E0 V0 f) ^. x}


6 s" _% l% t. l' E( _#=============================================================
9 F+ z0 O; b# `: h) dproc PB_CMD_kin_init_mill_turn { } {
+ B+ ?3 T+ L9 ]; u% X#=============================================================
}

5 O) [3 H( P: Y
#=============================================================
$ F" Z( J+ T7 I1 U8 n+ bproc PB_CMD_kin_init_mill_xzc { } {
#=============================================================
}
  s9 N( _5 U0 X

#=============================================================
- c1 j6 A$ K* P! nproc PB_CMD_kin_init_rotary { } {
# d: a/ ~: b* F) R$ t( t: s#=============================================================
% N* I7 F& M6 y' n}

7 N, }& M; N' x" F0 f
6 F% n: D3 A% U5 y" x) s9 N#=============================================================
proc PB_CMD_kin_linearize_motion { } {
#=============================================================
4 h6 S. ]$ m0 N# }8 Q& g}
- l% f2 e/ c' d

7 @& g' K, X; o1 A; c, e6 P9 f0 i9 D#=============================================================
% L# r$ F7 a* b1 p! J  Iproc PB_CMD_kin_mill_turn_initialize { } {
3 W5 U8 s7 Y4 A3 H2 t  |/ e#=============================================================
}

  {- ]' ^- M# }2 n  ^
#=============================================================
# R5 c, |; `, g/ p; C: Z  qproc PB_CMD_kin_mill_xzc_init { } {
#=============================================================
5 R% w3 |$ d# ~: E}

" w: @4 T. W( E2 L/ i
#=============================================================
proc PB_CMD_kin_set_csys { } {
#=============================================================
   if [llength [info commands PB_CMD_set_csys] ] {
2 i. T7 `6 `9 o8 d2 f4 W4 p      PB_CMD_set_csys
   }
$ q8 s8 A& @4 P( ~}
( n, G( e3 g6 b  ^8 {) `7 n

$ s8 `) \$ Y4 [% H7 `; V: D#=============================================================
4 P. Y; U+ x& B9 F: \4 ~proc PB_CMD_kin_start_of_path { } {
#=============================================================
#
4 Y* ~( u1 \9 u" c7 J#  This procedure is executed at the start of every operation.
( n# S! B4 S! V/ s#  It will check to see if a new head (post) was loaded and
9 _5 x% Z1 @0 I5 _8 a3 ^* Z#  will then initialize any functionality specific to that post.
#
) d8 i4 i$ v* P+ h$ T/ F" E: ~#  It will also restore the initial Start of Program or End
#  of program event procedures.
#
#  DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING.
8 u4 I% W' G8 k4 t0 Z% p: I& o2 C#  DO NOT CALL THIS PROCEDURE FROM ANY OTHER CUSTOM COMMAND.
#
( I5 Y4 T& P1 S2 Q  global mom_sys_head_change_init_program
, J% ~0 z" k" @  F  K8 `" k
   if [info exists mom_sys_head_change_init_program] {
% d. p- @2 Q: A% ~; W
      PB_CMD_kin_start_of_program
. p4 f% @' V1 }. L, C      unset mom_sys_head_change_init_program

     # Restore master start & end of program handlers
: ~' F  M( p4 m8 w3 T      if [llength [info commands "MOM_start_of_program_save"]] {
6 |' i/ i. J- N5 h4 z, S         if [llength [info commands "MOM_start_of_program"]] {
% t/ E$ q6 h* ?4 k4 @            rename MOM_start_of_program ""
0 o6 t& N2 B/ b. D         }
         rename MOM_start_of_program_save MOM_start_of_program
      }
      if [llength [info commands "MOM_end_of_program_save"]] {
         if [llength [info commands "MOM_end_of_program"]] {
            rename MOM_end_of_program ""
         }
         rename MOM_end_of_program_save MOM_end_of_program
- F2 a! Y7 U  T) U% `( P- P      }
7 _$ A2 M8 S. l) z
     # Restore master head change event handler
3 B2 h' A2 q( a$ f6 Y      if [llength [info commands "MOM_head_save"]] {
         if [llength [info commands "MOM_head"]] {
* {* H* }1 Z6 \& o6 g0 e* F            rename MOM_head ""
- J- K) g. s5 F9 w& v  b6 \6 m2 m         }
3 @5 J8 u; ]% g/ \0 _4 l% h* c8 J/ E         rename MOM_head_save MOM_head
7 `: D$ R# h5 g" E      }
   }
/ q+ r' H5 y; i# w  {! H: x}
8 v$ P! y1 R0 P1 \

#=============================================================
proc PB_CMD_kin_start_of_program { } {
#=============================================================
#
, c8 j2 U2 Y7 ?#  This procedure will execute the following custom commands for
" L7 u. n& Y, B* I+ c#  initialization.  They will be executed once at the start of
+ }5 S; s; I+ _& h. _0 Q. U#  program and again each time they are loaded as a linked post.  
' ^0 z( s& M4 E1 \#  After execution they will be deleted so that they are not
#  present when a different post is loaded.  You may add a call
#  to a procedure that you want executed when a linked post is
#  loaded.  
#
7 D( U4 y, c# J. _#  Note that when a linked post is called in, the Start of Program
#  event marker is not executed again, only this procedure.
#
#  DO NOT REMOVE ANY LINES FROM THIS PROCEDURE UNLESS YOU KNOW
2 C' s( C% h0 a( B8 V#  WHAT YOU ARE DOING.  DO NOT CALL THIS PROCEDURE FROM ANY
#  OTHER CUSTOM COMMAND.
#

   global mom_kin_machine_type
! `+ |2 w0 `" G
   set command_list

0 X4 ]0 K# t0 ^
   if [info exists mom_kin_machine_type] {
      if { ![string match "*3_axis_mill*" $mom_kin_machine_type] &&  ![string match "*lathe*" $mom_kin_machine_type] } {
, T7 p- @1 c: q  q
         lappend command_list  PB_CMD_kin_init_rotary
) g/ L& U1 e. h      }
   }
  F( ~2 |( ^4 Z/ r) c( T' o7 A( j" t
   lappend command_list  PB_CMD_init_auto_retract
   lappend command_list  PB_CMD_initialize_parallel_zw_mode
$ c* ~7 H3 U" S   lappend command_list  PB_CMD_init_parallel_zw_mode
. n3 ?- u9 H, ^0 h; q  t   lappend command_list  PB_CMD_initialize_tool_list
9 M1 f6 h6 X  E7 k   lappend command_list  PB_CMD_init_tool_list
$ E6 R% K7 ]0 d7 S& H" p- H   lappend command_list  PB_CMD_init_tape_break
   lappend command_list  PB_CMD_initialize_spindle_axis
   lappend command_list  PB_CMD_init_spindle_axis
( F" o. o6 j: r, z% ?& ]1 z   lappend command_list  PB_CMD_initialize_helix
1 w" H3 V0 B- t* L- Y4 u$ m- x   lappend command_list  PB_CMD_init_helix
, O- p# m/ Q. ~6 p" X) u6 ?   lappend command_list  PB_CMD_pq_cutcom_initialize
   lappend command_list  PB_CMD_init_pq_cutcom

0 y8 y0 r0 [  m# V$ w2 ?0 f   if [info exists mom_kin_machine_type] {
      if { [string match "*3_axis_mill_turn*" $mom_kin_machine_type] } {

          lappend command_list  PB_CMD_kin_init_mill_xzc
2 C, O8 H* k3 d& v4 _          lappend command_list  PB_CMD_kin_mill_xzc_init
$ U: ]5 I# [& ]* ^- @          lappend command_list  PB_CMD_kin_init_mill_turn
# m% t. C0 ^* c7 c& S          lappend command_list  PB_CMD_kin_mill_turn_initialize
- P( ]7 n2 @3 Z9 M, J" d7 l; ]      }
1 D2 A% D  R! p: f" ]' f   }

   foreach cmd $command_list {

4 ]' S  Z# I0 ]1 D: p; r) ^      if [llength [info commands "$cmd"]] {
        # Skip execution of commands that exist in v2 mill-turn posts.
' ]& Y4 U$ o* N) \         switch $cmd {
            "PB_CMD_kin_mill_xzc_init" -
            "PB_CMD_kin_mill_turn_initialize" {}
# ^6 b0 J, L, h            default { $cmd }
         }
2 G! C# H% ]4 D" ^$ [         rename $cmd ""
         proc $cmd { args } {}
! E! C0 Y; o4 f7 |      }
   }
}
6 `& ]! ^5 w- x3 y/ S
- d  r$ O9 F" J& R4 F3 i
/ U" P: ^: W7 H#=============================================================
( G5 [# ?6 V9 ]# C" jproc PB_CMD_kin_wedm_engage_move { } {
#=============================================================
9 I: j5 @. F5 F! ~#
# This procedure is called automatically in MOM_before_motion
# to handle the Engage move for Wire EDM operations.
#
$ I3 j% ~% ^8 u1 M* a   global mom_sys_start_of_pass
3 I3 O: G3 ?' O) m
& x- v5 E  V5 B   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
: Y$ @* y* N) C, R* t( i! K      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
7 ~% j2 W* J0 b, s/ w" T      }
$ b  I  x' W  Y: f) n      unset mom_sys_start_of_pass
+ A" _1 o! a* B5 P   } else {
' p) u: f' v9 _' }3 {8 \% u      PB_lead_in_move
$ F) B3 d  X6 n. [   }
5 w3 u; |, |4 ^8 ^, ]( r}
7 Y: R% m2 I- K0 R: M/ }
8 o- h& F$ F: [9 U+ v# `
: E" `6 T7 e3 e( ]#=============================================================
proc PB_CMD_linear { } {
#=============================================================
+ l  J! I& h! C( \' s! }global feed_mode mom_feed_rate
" `' T8 q6 }' I" ?& eglobal mom_kin_rapid_feed_rate
/ I0 i5 s$ n. {# cglobal mom_tape_status
8 d* B% N1 X" h' X( Cglobal suppress_output      
global mom_motion_type
global mom_current_motion
1 p! ^' h' }4 bglobal mom_pos
global momComplex
global momConic

if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
  o  Y- Q" }; T5 ~' {   if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
      MOM_rapid_move
      return
   }
}
7 F4 m6 l5 I5 e2 N# k( I* D- J; s) @
5 {# M4 }5 X6 U3 A' c( T8 Rif { $mom_tape_status == "ANGLE" } {
   MOM_force Once G_motion X Y
   MOM_do_template linear_move
   return
' D! e2 z6 Q* y0 q: ?: p} elseif { $mom_tape_status == "CONIC" } {
# Y. ?! G& L* ^( h8 c/ g   MOM_force Once G_motion X Y
, z( ~/ O3 @) ^" b   if { $mom_motion_type != "CUT" } {
( a5 g/ ~4 Z/ R& q& f! n: k      set mom_pos(3) 0
0 b" f4 a) ]. ?9 j3 k6 W. p6 l7 ]/ Q      set mom_pos(4) 0
/ z2 }! h8 b" q   }
   MOM_do_template linear_move_conic
$ |' _, p$ R- Y( x   return
/ A. S) m2 l# H" Q} elseif { $mom_tape_status == "COMPLEX" } {
6 C7 R0 _! P6 [   if [info exists suppress_output] {MOM_abort_event}
9 S% Q# ?+ z8 {! O- a0 I   if ![info exists momComplex] {
* z) l2 C' y+ i( e* G      MOM_force Once G_motion X Y
2 W) L) C  \, n7 R; p3 _2 }' _      if { $mom_motion_type == "RETRACT" } {
         set mom_pos(3) 0
: c3 E8 l" o9 i- N: t5 Q4 l         set mom_pos(4) 0
; f5 {* ]8 t- k+ H7 Y/ q+ W         MOM_do_template linear_move_complex
         MOM_output_literal "G140"
5 v+ L( _* K/ d  O8 m- V' U      } else {  
         MOM_do_template linear_move
" b) K! r5 E3 z; t7 l9 q      }
   } else {
      MOM_force Once G_motion X Y Text G_motion_upper X_upper Y_upper
, c4 D, c* x+ H& [      MOM_do_template linear_move_complex
   }
   return
) r1 A' O6 M* G! b2 Z} elseif { $mom_tape_status == "NONE" } {
: ?& f' J8 w2 M) g   MOM_force Once G_motion X Y
# Z! |1 I0 E, q: V) Y  `: V- U   MOM_do_template linear_move
: S! f6 s. ^9 n. w) i   return
5 M* @( |  e7 {1 B}
}
+ ^" b3 p/ F  ]0 \- v

#=============================================================
proc PB_CMD_output_tape_per_operation { } {
3 R$ I0 F: y0 V2 V9 S6 o#=============================================================
#
#  This procedure can be used to output an N/C tape with each operation.
) ~! [; r# e# r#  Place this custom command at the VERY begining of the Start of Operation
0 b& u$ o! V. Y- D#  event marker.
* j$ M- m5 X6 v( ]! i4 h#
7 v9 i5 l2 L; q8 s2 O: O5 M#  This proc will also delete the initial program tape and rename it to
6 x3 q; k3 @; S' e3 E/ o% _#  {operation_name}{sequence number}{extension}.
#  Any N/C code output with the Program Start sequence will be lost.
#
   global ptp_file_name
' L# a: g# e. R+ H! h   global mom_output_file_directory
0 P0 E5 \  w" O1 R" \2 E   global mom_operation_name
- h6 a7 C' c2 p& m' d# h   global mom_output_file_basename
' Y3 s3 ]8 h. Y: _   global mom_sys_output_file_suffix
) ]6 G$ j4 @: h0 ?0 C  o
0 [, J: Z1 Q3 r" X9 l#
2 n0 d& a- i; C: b4 z! v# Remove next two lines of code if you don't want the original nc tape
( o; ^' G& F' e3 t# 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}

   MOM_close_output_file $ptp_file_name
1 L0 ?( O7 K5 N; {% }, k2 r
  H! Q# S" Y1 {2 T9 J   set ptp_file_name "${mom_output_file_directory}${mom_operation_name}.${mom_sys_output_file_suffix}"
# R; S$ A, k0 @! h( e3 z9 p   MOM_remove_file $ptp_file_name
   MOM_open_output_file $ptp_file_name
}


#=============================================================
proc PB_CMD_pause { } {
7 @  h' ^( e$ Z8 y6 D- S: f$ ?#=============================================================
# This command enables you to pause the UG/Post processing.
#
: u: N* {2 h9 v( E: f) F  x' k  PAUSE
}


, m0 _1 [7 m  Y#=============================================================
proc PB_CMD_start_of_conic { } {
& u+ S; I0 `3 M% }* B) K#=============================================================
3 _# i* {* A+ O9 Y" U+ w6 ^6 J3 Guplevel #0 {
   set mom_kin_wire_tilt_output_type "COORDINATES"

   MOM_reload_kinematics

   proc MOM_start_of_conic {} {
      global mom_upper_arc_direction
! u. K, m  X! O      global mom_arc_direction
      global suppress_output
1 b8 i4 J  O7 i9 z6 h      global mom_prev_pos
      global mom_conic_motion_type
      global mom_tape_status

' P) {9 [5 W" p: W2 q      set suppress_output 1
5 O6 O/ @' {+ V. A; K/ n/ |      if ![info exist mom_upper_arc_direction] {set mom_upper_arc_direction CLW}
/ b) G+ ^: I1 M
      if { $mom_conic_motion_type == "LINEAR" } {
         #if { $mom_tape_status != "COMPLEX" } {
            PB_CMD_linear
         #} else {
         #  if [info exists suppress_output] {MOM_abort_event}
& V" C) G! f' X2 A$ E7 [         #  MOM_do_template linear_move_complex
         #}
      } else {
$ s! u, n: y* S         PB_CMD_circular
' h% ~) A- Q/ U3 m         # MOM_do_template circular_move_complex
      }
   }

   proc MOM_end_of_conic {} {
( m- Q/ |. y* P% r: {/ d: `0 ]      global suppress_output
      if [info exists suppress_output] { unset suppress_output }
) y! N1 z" @1 Q2 I1 y3 Y# _2 @4 S   }
; B3 M* c0 l7 @" d}
% N. @# V2 B* ?}
. ?/ ~) M+ _2 m2 `+ n9 Q3 s; `

#=============================================================
# Z8 w! q4 h5 F8 H1 S1 p6 u2 }proc PB_CMD_start_of_file { } {
#=============================================================
) C; E+ K) e( @global mom_ug_version
global mom_event_handler_file_name
global mom_path_name
* _8 \% R' }& f; }3 D2 t3 Qglobal mom_part_name
* @  e5 O( }0 D! r1 p; @$ ^global mom_output_file_basename
global mom_output_file_directory
! n0 I/ ?/ J  jglobal mom_output_file_suffix
global mom_logname
( b5 }0 b& h0 Sglobal mom_date
global mom_machine_mode
+ L& {1 {$ E$ E1 E4 w* r' @global mom_power_value
: n0 A, `/ S% hglobal mom_auxfun
4 ]  m( F( c" I8 K2 {global mom_wire_guides_lower_plane
8 \& ]6 `- W6 g$ rglobal mom_wire_guides_upper_plane
. C. G7 h6 K- S+ u+ lglobal momPathLength
global momPoster
6 H7 E1 [( o2 Q8 r( p7 V& Wglobal mom_cut_type
: \  [( [' D4 O8 \global momWorkstation
7 @" Y6 w9 Y9 h. G  ?5 T/ ]global momLogonDomain
0 y, Q) O; I; Y0 }5 c7 M$ c1 k* S6 Zglobal momPathNext
global mom_kin_machine_type
global momComplex

MOM_set_seq_off
( T/ M; G5 a2 `9 [+ g/ p+ A: }
% T( z; Y. [6 `set momPathNext 100
MOM_output_literal "( Unigraphics WirePost for Cheewah, Ver 1.1 )"
% v& P1 ], e9 X( jMOM_output_literal "( Design by Deaton, 2005/09/19. )"
MOM_output_literal "( Email: deaton@21cn.com, Tel: 13923361400 )"
1 N4 P8 ^/ S+ q' E! w& N0 s+ A9 [set momPoster "CMDEATON"
- R$ J! j& S$ q9 j$ Uset momWorkstation [MOM_ask_env_var ComputerName]
; r" S) |/ D3 G2 u8 {set momLogonDomain [MOM_ask_env_var UserDomain]
MOM_output_literal "(================================================================)"
9 ^/ i8 ]$ `9 m6 ]: RMOM_output_text "( Activate Version: $mom_ug_version )"
MOM_output_text "( PostFile: $mom_event_handler_file_name )"
6 j4 X( Y1 b: j5 d8 g0 G/ _MOM_output_literal "(================================================================)"
8 Z, K& w" H" |$ E& p8 m, [MOM_output_text " "
MOM_output_text "( Current Part File: $mom_part_name )"
MOM_output_text "( Toolpath: $mom_path_name )"
MOM_output_text "( NC Output Directory: $mom_output_file_directory )"
: z0 F! ^0 T0 W0 _5 P' tMOM_output_text "( NC Filename: $mom_output_file_basename.$mom_output_file_suffix )"
MOM_output_text "( DNC Machinical: $mom_machine_mode )"
MOM_output_text "( DNC Machine Tool: $mom_kin_machine_type )"

if [info exists mom_cut_type] {
! n" f8 Z7 ~9 y( a. T   switch $mom_cut_type {
      0 { MOM_output_text "( Toolpath method: External Trim )" }
      1 { MOM_output_text "( Toolpath method: Internal Trim )" }
& ]# R0 _$ `# d8 }+ h( Q      3 { MOM_output_text "( Toolpath method: Open Profile )"  }   
3 N  N6 g: o  ~1 x  ~  \8 {5 e   }
}
" k8 Q/ H8 f/ [* }
MOM_output_literal "(================================================================)"
5 l4 P( _# \3 L6 J* e4 YMOM_output_text " "
MOM_output_text "( CAM Workstation: $momWorkstation )"
" t. O( L4 c" E( D" BMOM_output_text "( NC Programmer: $mom_logname )"
MOM_output_text "( Logon Domain: $momLogonDomain )"
MOM_output_text "( Post Date: $mom_date )"
MOM_output_literal "(================================================================)"
MOM_output_text " "

5 m: C4 e, {& ]* c& t& b* uMOM_output_literal "(NO    =     ON OFF  IP  HP MA SV  V   SF  C  WT  WS  WP  WC)"
# G) `0 ^" V0 ]$ D. ]0 p) y, T2 _MOM_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"
3 n' l* y( W$ h/ h9 S# \! IMOM_output_literal "C993   =    003 016 017 001 17 03 03 0005 00 000 000 000 000"
4 |2 N* {" z8 zMOM_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"
0 ?; I2 [8 C: F" B8 a& K: C1 ]MOM_output_literal "C999   =    005 012 016 003 12 05 01 2004 02 000 000 000 000"
MOM_output_literal "(================================================================)"
MOM_output_text " "
9 h& \* @3 I+ n) s* F' k" c2 }
set momPathLength 0

MOM_output_literal "G40 G50 G09 G75"
1 S4 u4 ~* a% `% bMOM_output_literal "G90 G11 G21"
MOM_output_literal "G958"
MOM_output_literal "G04 X+2500"
' B. i" g9 v  @MOM_output_literal "G92 X0 Y0"
6 \  Q" D( A7 f: ^- O" I6 ?MOM_output_literal "G54"
MOM_output_literal "C890"
MOM_output_literal "(================================================================)"
MOM_output_text " "
2 b9 r; t% Q  U6 x}


#=============================================================
proc PB_CMD_start_of_pass { } {
+ G1 V+ e" u# u#=============================================================
7 J2 ^' E8 ]6 S/ j  tglobal mom_wire_guides_lower_gap
3 [  I7 s  Q( Jglobal mom_wire_guides_upper_gap
5 E6 F. `* z8 j% s, wglobal mom_wire_guides_lower_plane
& \4 U5 j  M4 }* Sglobal mom_wire_guides_upper_plane
global momPathNext
global mom_tape_status
global mom_wire_angle_text
global mom_flush_pressure
global mom_power_value
+ W5 i( _* \* X/ i  Xglobal momWorkstation
8 S4 M0 d. C. Bglobal momLogonDomain
, t7 ^% I) z6 E# wglobal momPoster
# \# I9 N5 S& o+ R0 vglobal mom_sys_cutcom_code(LEFT)
global mom_sys_cutcom_code(RIGHT)
global mom_sys_cutcom_code(OFF)
global mom_kin_arc_output_mode
/ C6 d  N7 K- E. _% P4 W4 U8 ~global mom_kin_wire_tilt_output_type
global mom_wire_cutcom_adjust_register
  H1 Q+ D8 s' [( I: Nglobal mom_wire_cutcom_user_register

if { $momWorkstation != $momPoster }  {
4 x/ r/ I0 N! _9 b- @4 W; f5 s" i   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
}
8 e$ j5 {# ?; D: P' I1 sif { $momLogonDomain != $momPoster }  {
   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
+ m. M+ P, J( |& p" Z- R. I  j# ~}
if { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
/ A+ c& _, R2 T7 n   MOM_abort  "Error occurred. Postprocessing has been aborted"
0 l% o  A5 e0 `2 i6 ]! b}

" l. a7 q4 [+ n4 q) e+ `2 ZMOM_reload_variable mom_wire_guides_lower_plane
! a' W3 C: \6 EMOM_reload_variable mom_wire_guides_upper_plane
+ I& E9 Y( T7 qMOM_reload_variable mom_wire_guides_lower_gap
3 b. |; n8 G8 ~, k; N' c* oMOM_reload_variable mom_wire_guides_upper_gap
MOM_reload_variable mom_tape_status
* h9 X% R: X4 o" w! {+ B) YMOM_reload_variable mom_wire_angle_text
$ L1 ]8 m) [% ?. w5 i. h& v: xMOM_reload_variable mom_flush_pressure
MOM_reload_variable mom_power_value
, Y8 Q- P9 A( P: |3 J9 [3 G" ?MOM_reload_variable mom_wire_cutcom_user_register
+ T$ P7 J" U/ o; e
MOM_output_text " "

if { [info exist mom_tape_status] } {
2 q/ I) e* p, T$ ~; x5 v- ]   switch $mom_tape_status {
6 k0 g4 a7 u8 k      "NONE" {
: k. V, z- v3 r5 D/ C         set mom_kin_wire_tilt_output_type "COORDINATES"
         set mom_kin_arc_output_mode "FULL_CIRCLE"
      }
* C! x! V# C+ ?. L. @) R      "ANGLE" {
' F! `; o* y# k8 A/ ?         set mom_kin_wire_tilt_output_type "ANGLES"
         set momPathNext [expr $mom_wire_guides_upper_plane - $mom_wire_guides_upper_gap]
: E8 K3 D+ a5 g         set mom_kin_arc_output_mode "FULL_CIRCLE"
0 X! B' J/ I8 d         MOM_do_template tpset
: S8 I1 y4 s4 Q* X         MOM_do_template tnset
. a6 D% N/ S: `$ \) r9 `# D3 L         MOM_output_text " "
& V: \8 ?" v9 X' O" d* i) Y4 U      }
! L; U* B" o3 C$ B      "CONIC" {
: T5 Q% E. o; O7 ^# J         set mom_kin_wire_tilt_output_type "COORDINATES"
         set mom_kin_arc_output_mode "LINEAR"
#         set mom_kin_arc_output_mode "FULL_CIRCLE"
# ?& k: Z# Q+ F% _+ ^  M  k& D         set momPathNext $mom_wire_guides_upper_plane
         MOM_do_template tpset
         MOM_do_template tnset
6 q9 N' r3 i! Z         MOM_do_template tuset
         MOM_output_text " "
      }
- R' B$ ?; `# o1 ?& o* {/ j5 \! S( }      "COMPLEX" {
& X# @# O- Y( O4 j( j         set mom_kin_wire_tilt_output_type "COORDINATES"
4 ?( b) H$ R3 }9 ^& `8 h         set mom_kin_arc_output_mode "FULL_CIRCLE"
         set momPathNext $mom_wire_guides_upper_plane
" X" R* L8 \' `" P6 V2 h9 L! r% A, I         MOM_do_template tpset
( T$ j# m1 X  T7 L! G, j0 ]7 \2 ?6 T         MOM_do_template tnset
         MOM_output_text " "
5 S1 k; \0 p  L- E) Q         set mom_sys_cutcom_code(LEFT) 141
/ ~* E, [' e! D: ~) |4 L( r; v         set mom_sys_cutcom_code(RIGHT) 142
         set mom_sys_cutcom_code(OFF) 140
+ y# }+ m! ]- T! {* m) o& {3 m( a      }
" H) ^: G6 G$ V. C+ o+ S   }
# C. s; S) K2 [3 c. T  x$ H: p}
# h! X+ d6 _2 O6 f" u
) i3 _! V8 o5 H3 U) j* n: Vif { [info exist mom_flush_pressure] } {
   if { $mom_flush_pressure == "LOW" } {
( x5 J3 P/ v4 Y5 r! b      ## Flush off
      MOM_output_literal "T89"
      MOM_output_literal "M00"
      MOM_output_literal "T85"
; o$ `7 m0 r+ g4 L; M6 I) X7 S   } elseif { $mom_flush_pressure == "MEDIUM" } {
/ T) q& P9 o) l  \" ?, M2 l      ## Flush Low with tank
4 f+ i. u4 H9 g$ `2 w2 Y      MOM_output_literal "T94"
2 g2 M- G8 I& Z* Q# f  Q- a      MOM_output_literal "T96"
/ m* `+ }4 R; Y) z; I! Q' B      MOM_output_literal "M00"
6 i7 v% v7 ^! r/ B) [- c      MOM_output_literal "T85"
- x( F: [' e: x0 G) ?   } elseif { $mom_flush_pressure == "HIGH" } {
$ y% w! r& _3 f2 A      ## Flush Low with tank
      MOM_output_literal "T94"
* V% P- ]# t4 Z' j      MOM_output_literal "T96"
" ]- x  X( {/ y5 ?$ P      MOM_output_literal "M00"
! P, t" {1 L$ x2 g! h% G      MOM_output_literal "T84"
   }
9 }9 v/ n% d6 Q8 P}
( q# [' u, T" K1 I. [! @
1 k' w( p9 V( j6 x5 t7 V( r* kMOM_output_text " "
3 F' @" R* ]- aMOM_do_template condition

4 e2 L9 o4 d7 f' o' v/ ~if { [info exist mom_tape_status ]} {
$ k8 R: }( P" D6 F6 U3 A8 L- d! ]   if { $mom_tape_status == "CONIC" } {
3 f5 E! k# H# `8 G8 m; A1 s5 ^      MOM_output_literal "G74"
+ H* d0 B2 x5 g$ f   } elseif { $mom_tape_status == "ANGLE" } {
      MOM_output_literal "G51 A0"
   }
   if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "G41 D000" }
4 n2 O( ~& ?# Q) g; D}
}
: T- ?' ^; J4 G! R' L4 `
: D3 U' X/ C! ]8 h
#=============================================================
proc PB_CMD_start_of_program { } {
#=============================================================
global momWorkstation
: K+ r- s, d- ^  Cglobal momLogonDomain
( t5 h) H9 b5 R' _  c/ Uglobal momPoster
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
0 a8 O1 G, D' A5 S( p3 n; l
if { $momWorkstation != $momPoster }  {
   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
}

6 n0 g; p+ h0 ~9 V7 K1 a3 _if { $momLogonDomain != $momPoster }  {
* f  t' z0 M, A/ t( {   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
# }* K8 m) ~, E9 j8 O}
- o6 ^5 K/ A+ x% R
3 g1 V( S! C3 \* d3 [#PB_CMD_start_of_conic
. b0 I7 Z' W& i1 f4 j% R
- T7 A& c- u- x" B; N9 hif { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
$ C1 M" H. k: o& X( ]  E   MOM_abort  "Error occurred. Postprocessing has been aborted"
}
}
* [7 R/ ?1 {. K  Q
3 v- U6 Q6 R3 |5 p
#=============================================================
/ z, h* m: H! q2 {proc PB_CMD_suppress_output { } {
#=============================================================

global suppress_output

* V* z7 _7 i9 z, J+ n4 p' Pif [info exists suppress_output] {MOM_abort_event}
7 J: h0 ]7 |" j9 J9 A$ A* e}

1 G7 J- b* g7 J7 E5 K
#=============================================================
9 I8 {. \/ W3 K3 D+ Oproc PB_CMD_work_coordinate { } {
- }) n8 ~6 B, v#=============================================================
' P# F* J% x& k/ u. {0 I8 |global mom_work_coordinate_number

. u" ~; |. a% B& k  ?MOM_reload_variable mom_work_coordinate_number
MOM_output_literal "G90 G$mom_work_coordinate_number"
}


#=============================================================
- Y; p7 ~' N$ J# s! U( Sproc PAUSE { args } {
#=============================================================
( `9 G# v  [9 y  global env

  if { [info exists env(PB_SUPPRESS_UGPOST_DEBUG)] &&  $env(PB_SUPPRESS_UGPOST_DEBUG) == 1 } {
# `2 Y/ V/ B: k7 f( Areturn
! D, T- a# g" |  }
4 n, V: J8 T; a1 u% \% j
( f2 a- b3 a' w7 a! j* G0 `
" G1 v; g, a9 N# q: R* ?  set cam_aux_dir  [MOM_ask_env_var UGII_CAM_AUXILIARY_DIR]

  global tcl_platform
  H1 P! v# Q: a; M5 ?7 _; w
  if [string match "*windows*" $tcl_platform(platform)] {
     set ug_wish "ugwish.exe"
- c( U; v) a9 G+ B# U; M. V  } else {
0 y: V: k/ n- k# F5 v2 U     set ug_wish ugwish
  }
# R5 W. W- Z3 c- G: Q
  if { [file exists ${cam_aux_dir}$ug_wish] && [file exists ${cam_aux_dir}mom_pause.tcl] } {
  v9 i& H; A9 B4 f
     set title ""
$ e  \" F! \7 y& R1 J9 W     set msg ""

     if { [llength $args] == 1 } {
       set msg [lindex $args 0]
     }
+ |. D6 l0 ~) B8 x* n" y
7 u4 n0 h3 ]! u1 B2 @7 Z     if { [llength $args] > 1 } {
       set title [lindex $args 0]
       set msg [lindex $args 1]
; ^  P/ J; S1 e3 V( l4 g" v" w! A, a2 L     }

; S/ x* F6 k) H) V- f+ |     exec ${cam_aux_dir}$ug_wish ${cam_aux_dir}mom_pause.tcl $title $msg
  }
( L; D% R, t1 X$ i' ?. O7 f& y4 E}
/ X! L7 T& `- E7 ?
7 i% D. W! f7 h, d1 d1 O
: Z* a* p  o7 \; c#=============================================================
proc EQ_is_zero { s } {
. O$ p: f. V; `) B7 T) d$ a#=============================================================
   global mom_system_tolerance
% o  K4 t' f' \5 Z9 a) k$ `
9 e8 X3 h' @& \' d$ ?, J   if [info exists mom_system_tolerance] {
      if { [expr abs($s)] <= $mom_system_tolerance } { return 1 } else { return 0 }
: [) ~" W5 [3 Z  A6 o- F2 T   } else {
( n% B$ y0 Z7 H      return 0
4 x) q' {' K+ ]8 N   }
% r) N! r# _8 \}
- ~  M" u* e; s7 C1 I

/ i4 a3 `" j. x0 w+ Y) g' }  E#=============================================================
8 g0 y# Y3 L) kproc CATCH_WARNING { msg } {
. y, F# {& f% `9 L1 {4 D/ S  Q#=============================================================
- ^, e! H4 ?' t& H# Q  global mom_warning_info
  global mom_motion_event
8 ?* ~3 x: Y4 U  global mom_event_number

   set level [info level]
/ D" @, n. P* p3 M4 A   set call_stack ""
   for {set i 1} {$i < $level} {incr i} {
8 }6 I( o3 J; K- m( k8 X/ E& W      set call_stack "$call_stack\[ [lindex [info level $i] 0] \]"
   }
# u+ o7 h2 I, b0 X+ l; C2 [4 ^   set mom_warning_info "$msg ($mom_motion_event $mom_event_number) $call_stack"
   MOM_catch_warning
}


. W+ ?0 g! R8 t- [#=============================================================
  E. @9 V! H7 V2 @  }proc WORKPLANE_SET {  } {
2 F8 {1 f- H# K; Q- a#=============================================================
; }8 A+ E% {1 @, @7 \: N9 G   global mom_cycle_spindle_axis
5 K. s$ N3 ]7 I   global mom_sys_spindle_axis
   global traverse_axis1 traverse_axis2
* w0 l1 ?( u9 ~1 v6 m9 y) C  y
( W2 i7 F7 a4 h   if { ![info exists mom_sys_spindle_axis] } {
      set mom_sys_spindle_axis(0) 0.0
9 l( B4 m* q1 R2 Z+ y1 U5 K      set mom_sys_spindle_axis(1) 0.0
      set mom_sys_spindle_axis(2) 1.0
   }
" _# j! N' F+ H  l2 J
/ A3 j3 Q' A; i* x5 n7 e4 M   if { ![info exists mom_cycle_spindle_axis] } {
      set x $mom_sys_spindle_axis(0)
( q/ |+ d. }' q) s& m) O      set y $mom_sys_spindle_axis(1)
      set z $mom_sys_spindle_axis(2)

      if { [EQ_is_zero $y] && [EQ_is_zero $z] } {
         set mom_cycle_spindle_axis 0
      } elseif { [EQ_is_zero $x] && [EQ_is_zero $z] } {
/ g$ }3 J: e0 R. w8 p         set mom_cycle_spindle_axis 1
2 R% ~5 J2 O: d- f" ]  [" l0 V      } else {
         set mom_cycle_spindle_axis 2
4 t# b9 Y, }2 l& t: T' P$ ]      }
+ m$ g4 ]" z, u; |" C2 B1 t! Q   }
$ V) n9 f; s2 A' T; x
8 T$ G6 D( e# @   if { $mom_cycle_spindle_axis == 2 } {
      set traverse_axis1 0 ; set traverse_axis2 1
   } elseif { $mom_cycle_spindle_axis == 0 } {
7 x+ D% X2 u. ?& @      set traverse_axis1 1 ; set traverse_axis2 2
   } elseif { $mom_cycle_spindle_axis == 1 } {
/ W' C1 l- j0 m1 Q      set traverse_axis1 0 ; set traverse_axis2 2
9 G6 {% K: `  y- m% P3 v   }
}


2 U0 s9 `7 ^* k7 k#=============================================================
proc EQ_is_equal { s t } {
#=============================================================
9 |# f) b/ p; C& k- _! Y   global mom_system_tolerance
' z8 E. c- k0 N
6 i' o! a3 R) H1 ]   if [info exists mom_system_tolerance] {
4 Z1 U1 m0 M8 C2 W! E# o      if { [expr abs($s - $t)] <= $mom_system_tolerance } { return 1 } else { return 0 }
  l2 s6 y% y& ^, B" M   } else {
      return 0
   }
}
7 [0 G  [$ i, V' Z! f% d4 \
0 }; M% c0 D  E, i

# b$ i$ }9 U+ |! X( Q8 o
- a$ U6 E% i! j9 z% v% B
/ F# }! E, [0 P0 J- D* o
, k: u) P' |, y& U# w0 q#=============================================================
proc TRACE {  } {
#=============================================================
   set start_idx 1

   set str ""
5 H) @2 Y# k6 T, K! Z7 l6 N  P$ M   set level [info level]
: J7 ^8 H  _+ \   for {set i $start_idx} {$i < $level} {incr i} {
      set str "${str}[lindex [info level $i] 0]\n"
% C' ?( W  u; X% u$ w6 _   }
" K$ x2 F4 A5 S: C! f
" z" ~+ Q2 L1 U6 V% h4 c% @' Treturn $str
}
" m7 O* s/ K- {; v. D
$ m/ ?& t9 n5 X8 u
) f  `. m" {. L' U( lif [info exists mom_sys_start_of_program_flag] {
. ?* o* \' Q- j# q" g   if [llength [info commands PB_CMD_kin_start_of_program] ] {
; L8 b' b1 {" u' o, N$ n      PB_CMD_kin_start_of_program
   }
' _, U; U' K, T5 O$ i; l} else {
8 \2 [, Y; U2 n) @   set mom_sys_head_change_init_program 1
   set mom_sys_start_of_program_flag 1
: \% t9 \8 Z, t, @7 p% }& I# `}

pengke

有4B的吗

wjc1249

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

杨亚林

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

sn604807478

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

wyyjsguolu

要是用普通的 线切割机器（不带回转轴的），完全没必要 用 nx 一类来做3B代码呀，
# L. v& X5 t8 l" y$ j9 CNX出个代码太慢了，直接用caxa 线切割，超级快，破解版的 还多，现在 官方出的试用版的也很好用，还是全功能的，不过试用期一个月，到期重新安装个 就好了，
要是带回转轴的 线切割，我也在考虑怎么用 nx出3B 代码。。

wanlei1985

谢谢你们