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

李双虎

一．前言
2 y" w% m7 c/ V2 x
* x3 h! S7 T6 Y  

  

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

    二．3B代码的编程规则
7 G' J" w* N8 ^" t8 Z( v6 L) g
7 Y* F0 z. k$ I( T' n+ n/ h   
: C  O/ N  W% J
1．3B代码的格式为：B x   B y  B j  G   Z

，B为分割符号，x，y，j为数值，以微米为单位。j为计数长度，G  为计数方向，Z 为加工指令。
  X2 e" _8 q" p/ |

5 B/ h+ s  f& P  J" n, t
    2．加工指令共有12种。
; s- v$ P) D- ], P2 L
' Y, j8 f+ Q* H6 L% N3 l! m

   
. J( U3 ^2 l) O' Z8 e3 L. R! f
a．加工直线时，以起点为坐标原点，终点在坐标轴上时，x、y值为零，计数长度j为线段长度，按X+，X-，Y+，Y-，四半轴计数方向与加工指令分别为，GX
7 x4 d) d2 e1 @+ b# y
L1，GY L2，GX L3，GY L4。

: [7 l0 a& _5 @4 j" G( Q) x$ }2 R1 x   

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

   

c．加工圆弧时，加工圆弧时x，y为起点相对于圆心的坐标值，圆弧起点相对圆心在1、2、3、4象限时，顺时针圆弧分别为SR1、SR2、SR3、SR4，逆时针圆弧分别为NR1、NR2、NR3、NR4。各象限以45度线分割后，终点贴近X轴，则计数方向为GY，反之为GX。



  
2 v7 Q' A9 w1 _) _3 [
例：
# M( b3 D+ x# f2 e  Z
. W  n6 v4 T+ o7 o1 t6 X/ w           
; |: I6 d% }: y4 F1 P$ r7 Z
! l$ I4 S7 r4 V* j8 P/ m0 I                  
  A1 s, I. G9 o/ U0 H
( x' J% H( g5 l) Y

4 M. z8 }0 o. P

+ d4 |2 n/ ?5 T5 l 1.jpg
( E& C7 B  J& S% u% Z6 s* K  k
(10.27 KB)

3 {# W0 C" C; W

# q) d1 {2 p; G& [3 w  U0 p) B! O( d2007-6-6 12:51
9 Z$ h& M( {( `
. ?! W6 K+ T8 a1 {" a9 w5 R
% V$ P. M. G8 Y  t, c) @# x
$ O8 M+ D! a/ v: S" o



   
4 F( c" ^5 j, J4 W
0 p  a5 i; ^* l! T2 z% e三．分析
$ C$ \9 a8 k4 q. j4 B8 e
- i- B, e) M/ J
+ A  n* q! H* w5 r0 y
    ug

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


" N! @6 b+ e+ y: I& D
+ r5 ]! X" h# b1 D   

为方便介绍，将每一步的终点坐标为X、Y，起点也就是上一步终点为X0、Y0，圆心点Xc，Yc。
% ]$ N  d' U4 D1 D

; l1 Q: ~: ]3 H3 x: v

7 ?# d& S3 _9 O. [. i6 j* s


2.jpg

(7.2 KB)
, c" Y3 Z& E! y' G1 _


2007-6-6 12:51
' T: I, t5 X& L; [
& n5 P! S2 c3 w' i- {6 c
4 A, A7 g1 _' ]5 P( K" o
图2
, [5 t% f! x/ [% S: n& @

$ `0 @* W4 L* z4 _8 t& F
  
' Q; R& P" g8 Q& `! y( A( X2 n1 l
" b5 E* U' T' [( Y: j6 }  区域划分：

  Z4 ^0 g/ {1 S) ]' {  M8 n   
% J0 }; q4 }( ]0 Q; m7 {: t
1．直线运动时，终点相对于起点在X+半轴的条件为：X>X0，Y=Y0，计数长度为：|X-X0|，指令为：GX L1;

% c  ?* y# l! [# r/ p0 E    同理X负半轴:
6 U  K' L) i9 ~8 x) W
4 y' q3 ^( W* |& i, E7 U" n条件X    Y正半轴: 条件X=X0，Y>Y0， 计数长度|Y-Y0|，GY L2;

. c3 L6 q( n% E1 m& @    Y负半轴: 条件X=X0，Y
2 @+ p' }' q7 \; Z4 L1 @9 ~

" n( _$ R) v- G. O4 @  R  o: j
6 v8 f  g0 K! n" P& Z
$ \) _7 R6 }1 e8 R, |( a+ G1 W1 l
    2．直线运动不在坐标轴上时，按如图2所示划分为8区域：

) C9 m2 h# y3 u7 E: q   
" n% f) `# f1 R' k  |1 d- _
* y6 n2 V2 v7 l& W1/8区：条件X>X0，Y>Y0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L1;

0 j! U. s1 _  X9 p  y/ s* N   

2/8区：条件X>X0，Y>Y0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L1;
+ D2 \  D8 ]1 H# w& W: W1 N
   

3/8区：条件XY0，|X-X0|<|Y-Y0|，计数长度|Y-Y0|，指令 GY L2;
8 N  T) r1 ~7 n& N# j8 U$ n; ~; G
   
2 d* |9 e" n# x/ Q2 H- `6 z
4/8区：条件XY0，|X-X0|>=|Y-Y0|，计数长度|X-X0|，指令GX L2;

   

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

3 b7 [8 `& J; k. {3 G. D* J; \" R    6/8区：条件X  
9 q! ?8 p% _+ L* ]! A& N& |1 V
9 t4 h+ H5 d0 l) _2 G3 O! n  7/8区：条件X>X0，Y    8/8区：条件X>X0，Y=|Y-Y0|，计数长度|X-X0|，指令GX

" j- ?& P: p& ^, b/ a1 FL4;



3 Q" k7 I  Q1 f- _$ D5 d% w! X   

7 k' g4 o4 A0 v1 L8 f, _$ T" y* z! k3．圆弧划分较为麻烦：

, L0 p) |" A4 w* d4 T7 I3 y  

. N, A1 D- b, l2 d  
! ?5 B7 f: C; Q8 O. h- p# D
$ ^9 G$ T" F- A- @按方向，分为顺时针，逆时针；按起点象限分为1、2、3、4象限，按终点分图2所示的8区域。下面仅以逆时针，起点在1象限的圆弧加以分析：
: K; a; X) C) U
   
# w4 j' q, s* U) Q) a6 w4 H5 v1 i
* v9 q7 T* G# W. z1 _* |1/8区：(优弧)条件Y>Y0，计数长度|Y-Y0|，指令GY NR1;
# g8 c* D/ Z/ |; f( P
  

6 P3 y! X1 H2 l0 a$ H. `& j5 g& W      （劣弧）条件Y<=Y0，计数长度4R-|Y-Y0|，指令GY NR1;

! G! \4 l  E/ D" p( p: s1 j4 K

! f6 C$ R4 O7 \- u    2/8区：(优弧)条件X     

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

   

3/8区：计数长度|X-X0|，指令GX NR1;
& L, U! m0 e! M" L% t0 _9 t
    4/8区：计数长度2R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

  
3 {' ]4 Z6 C$ j# }/ B5 S1 z6 q
  5/8区：计数长度2R-|Y0-Yc|+|Y-Yc|，指令GY NR1;
  o- e8 O! _( N+ f9 R- {9 y: y3 H
    6/8区：计数长度2R+|X0-Xc|-|X-Xc|，指令GX NR1;

    7/8区：计数长度4R-|X0-Xc|-|X-Xc|，指令GX NR1;
% b& T1 P, _* P0 O' f- s% e
    8/8区：计数长度4R-|Y0-Yc|-|Y-Yc|，指令GY NR1;

  
/ k6 o, B" k3 |' P
  起点在2、3、4象限的圆弧以及顺时针圆弧同理。
" Z' G0 _5 H( r0 [- \6 F

- N6 n2 {& C, P, M$ v8 n) }
, ]) a9 I6 p# T/ o5 S! b, M    四．实施

   

% g2 T" F+ Y4 J5 t, i7 \- d先看看UG后处理的构成，UG后处理主要由两个文件组成，*.DEF与*.TCL。前者主要定义了一些格式，后者主要定义了一些运算，我们所要加的程序代码就在后者中。

% b) `! Q" e/ y: \# e# x/ p+ C
" k2 i8 W4 }9 D
   
6 N3 S1 m# y; Q3 _  W
$ b  y; j' c* N$ G/ r6 b打开*.TCL，找到程序段proc MOM_linear_move { } { ……}，直线运动的运算就在该段内运算，圆弧运动在程序段proc
% `6 K3 P9 m# K$ W
7 I' G9 l. e! FMOM_circular_move { } {
8 A8 _2 N5 H! z) d
. V  V2 {& m0 j1 r$ B% [) I" M……}中。UG后处理中定义了一些变量，mom_prev_pos为前一点坐标，即起点坐标，mom_pos为终点坐标，mom_pos_arc_center为圆弧运动的圆心点坐标，mom_arc_radius为圆弧半径值，mom_arc_direction为圆弧旋转方向，等等，可从post

" Y4 x/ x1 J2 |; Kbuilder 中查得。
# Q0 c3 v# {! }2 x; N9 r+ K

4 W* H9 b$ u# `# r
   
( l' E8 {- T8 A
由于UG在运算时按允差计算，并进行四舍五入，在判断相等时不要用相等，而是判断差值小于允差。
3 V- h# t0 f+ o/ Y' w/ J


    有了这些准备，就可以动手编程序了。当然也可以利用post
+ f7 a# d  \5 v# u0 V+ u( K( ?! ~. x
# h* [- s; `5 ybuilder做一个用户自定义指令，但核心内容不变，仍需自己编写。限于篇幅，仅示例直线运动的一部分。

# w9 ?1 y8 o. k0 F; Y9 L: ~   
4 e3 y$ x1 Z( V4 J
% `6 m; a8 u1 @# O8 F, }3 aglobal  mom_l_code   自定义变量其值为：1，2，3，4
! l: k+ |% Z5 l" o" o- B
   
" R6 y7 H! a- |0 N0 n- C
global  mom_gxy      自定义变量其值为：X，Y

1 P! z' D: U: e' Q. ^  

6 D6 F, `% u3 ^, t. h# u  global  mom_ba     自定义变量，第一个B

% c) |. B. P  w的值，即第二部分介绍的x值

2 u! h% v$ M8 z% T' Y    global  mom_bb  自定义变量，第二个B

的值，即y值
# K6 W2 a# o( n1 e
* n' w0 @2 p/ u, J  y! Z    global  mom_bc  

" Y+ H* i4 A9 g1 A! F; ~    自定义变量，计数长度，即j值
5 d7 Y. L" |$ Y! C/ b. H* C( Y5 C
   

- X7 z# D- w4 s% O. o3 [  w# F8 u0 Bglobal  mom_pos  终点变量
/ x4 e7 S! z! y! I$ x. T' Q
  

  global  mom_prev_pos 起点变量   
& T  I9 R2 W+ K8 @0 P5 z
3 P! c% L/ ]$ }+ W. p  
3 g8 I  c( b8 Y$ R, ^4 b8 f
* C5 |# i0 |  V# H      set mom_ba abs($mom_pos(0)-$mom_prev_pos(0))
4 F0 G3 C4 O6 b$ w
- e: ^  y2 [) h2 q" _  

      set mom_bb
9 V- c) h/ s, J4 H# a- {
abs($mom_pos(1)-$mom_prev_pos(1))         

        if

{abs($mom_pos(1)-$mom_prev_pos(1)) < 0.001} {
2 h$ x8 h% K$ ]; X0 Y
     

$ N) H4 r! w( j" J  }; W1 I   if {[EQ_is_gt  
7 d& }. n$ j  }  B0 T
$ \2 T1 P' y' M% E$ N! Y $mom_pos(0)  $mom_prev_pos(0)]} {
5 E# x) M9 }( N0 I+ C
, y' Z7 K( u  i6 w: r/ [# S    #X正半轴

        set

. O% e$ V0 |. M5 J  gmom_ba 0

     
+ \9 n6 I4 T( [% f' u: G4 w
% @+ h$ r2 y) k, P# z   set mom_bb 0
9 N2 Z! B( P0 r
* C& }$ M4 P% r! {5 R3 _, [     
0 V8 y+ j' \  b! s& F
   set mom_bc $mom_pos(0)-$mom_prev_pos(0)

* e: Z, D% R; I. y. X; H( ?& Y  

( k5 P! B+ p) Y8 F2 m; X       set mom_gxy X
. y5 f- S- c0 e' Z, a
* u, D0 t# ?+ a" G     
/ R  A! R: Z3 K2 C+ ?  ^/ e, v
   set mom_l_code 1

/ H* Y1 {& L! Q3 D, P% s7 b7 P            }

7 ?) D/ R/ \  u  [/ \else  {
! ~- X6 H% e; ~+ e& d& Y( C) D! Q
" C2 v* b) L: h  t- O0 t, S    # X负半轴
# S, K, K* _6 I
        set mom_ba 0
- m$ z( o7 U4 }8 a' ?4 a8 V
  
- n1 x% i! a& v4 \
      set mom_bb 0
% R/ h" O+ h6 G& w* A
( k3 G2 [; {: R/ O8 c: T8 g     

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

' I% q! x1 \* E& D3 d  ~     

   set mom_gxy X

( J0 G9 ]2 A+ g4 t9 \  

. v  g$ e6 \% |; q# C      set mom_l_code 3
+ Y* {6 w/ @" p/ u, g& b
        

2 ]/ U2 h% D# n% A    }
- \( W3 |9 a+ N. m1 \4 U
     
" m& T/ r6 F" `2 U
' a% g& j# s, U# W   } elseif  {abs($mom_pos(0)-$mom_prev_pos(0)) <

0.001} {
8 D: @. H& d; g% i& d2 X4 ~3 s
        if

& _$ i- O+ H6 i( t; Y# u  D, i! p9 Y{[EQ_is_gt  $mom_pos(1)  $mom_prev_pos(1)]} {

    #

1 P0 _1 {2 y1 I" e" J  G3 T5 LY正半轴

     
: O8 y' u+ y% ?% s/ P" ?1 M
   ……
! M6 {- e, z* w) l( I+ p" z( ~
2 F& W; I' A3 M8 l        } else {

) o1 J1 V3 J' J8 n1 S, t    # Y
( e4 ]3 s+ s$ x0 v3 d7 K) x
负半轴
  ~' b7 H% B( l5 K& d- U
$ m+ Q3 X% F& V5 X  

3 A1 G9 s% X% s6 s4 x% E  a, \+ j% @      ……
& I4 g! p8 s5 K3 p+ t1 X) d
" Q5 N; v" |! `' `  
' P9 g; {; L% Z4 H" W0 k9 j
4 W2 P6 y: H0 o" j# e8 h9 B, O          }
# U; w/ K' b  A5 P8 @
' H4 w& v2 q1 w/ T     
$ C' d1 E& u4 G9 i" D4 c1 v
0 D' _3 a4 W, ]7 K   }  elseif  {[EQ_is_gt

. c* M1 Y" b2 X5 h$mom_pos(1)  $mom_prev_pos(1)]}  {
+ n1 u4 o4 b9 e; e! E+ V
        if
; x) p4 c, Y% B9 I' N. _
{[EQ_is_gt  $mom_pos(0)  $mom_prev_pos(0)]} {
5 j: B/ K$ f7 u  a. e8 H  `
     
- c' |* \" d4 |1 Y2 H: O. ~1 S
) _  r2 l: W0 P, T5 q/ ~! \9 k   if{abs($mom_pos(0)-$mom_prev_pos(0))>

) b; Z4 P" e' X5 A$ [abs($mom_pos(1)-$mom_prev_pos(1))} {

/ P6 G# k( A- g7 V  

9 |9 e! ?+ J/ x. p4 y0 L' x  # 终点在第1/8区域

     

$ [) Y9 C4 \/ e' }8 v6 H0 s. B   set mom_bc abs($mom_pos(0)-$mom_prev_pos(0))
+ h, k' q1 Y& @! E& V, \; }# x
% {3 j7 k: l, K        set mom_gxy X
- N: U) s$ u9 Z. f
; X$ H  {) o0 e6 b  

      set mom_l_code 1
6 U) G$ Y1 b  b: c( i
$ |) ]* d6 G: q$ @$ O. a  

5 X0 C7 _% c/ P* m9 o7 s          } else  {

9 J5 J) ~" z# p$ r+ w- H" p* E& t    # 终点在第2/8区域

& B2 h* Y1 L) c7 l, |     
1 I2 O3 c6 ?1 H
   set mom_bc abs($mom_pos(1)-$mom_prev_pos(1))

     
0 h! ^4 s/ h, @$ H, u
. e9 y+ J3 C3 {* M' k2 I   set mom_gxy  Y
" m; N0 p! i7 E1 J" C# R
; L6 C6 `" l9 e6 c        set mom_l_code 1
+ b( J4 W2 p& h  I. f/ u. G" K
  

          }
! K3 E4 M% h! z5 E
5 }/ k1 w( s/ ?     
4 E# Q& x8 M( v
   } else {
/ V# t. {* }6 W6 g
   
) F3 K4 Q3 f# o
* G8 k1 q8 l* L, y/ t" Zif{abs($mom_pos(1)-$mom_prev_pos(1))>abs($mom_pos(0)-$mom_prev_pos(0))}{

    # 终点在第3/8区域
# I0 s7 a0 M' u7 n
           

5 d0 s) ]8 H8 m+ D8 W/ G ……   
0 D1 M0 [9 X) U( o1 A) m
    #

* g/ L' P# Q- w+ ~0 W0 B, L% p终点在第8/8区域

           

+ _0 O3 z, I4 s/ ~( ? } else  {
, t" a) k" ^8 [) \- Q3 x
1 }4 c& I' A( c0 Y  c( n' s  

          set mom_bc
/ `6 R% d" @' G% f3 U1 h4 b
$ }1 }0 T1 C: v5 F1 rabs($mom_pos(0)-$mom_prev_pos(0))
3 f% g+ o9 t0 M' W% F7 j
  
9 i/ D* R: h6 @. W" a- K- ^* B" q" @
1 p# |+ L. L! b1 p          set mom_gxy  X

            set
$ `: N& Q3 A* ^. a
+ c; [3 I$ }2 Y" T0 [) }mom_l_code 4
7 I8 }- N0 ]* B. C9 e
  
: a+ J4 ~- o3 u8 n0 q5 w
1 r9 j0 h) m- d% z: @3 N, c          }
' j! Q5 U5 p/ X' Q0 v# V4 u
; t) C! p8 X' R, c2 n  
4 i+ `" u8 @1 S- ]# y; ]& G) ^3 m0 |
          }
3 |5 m+ @8 i9 X7 t! t) ^
1 ?, @3 W; \! x' B! G6 @0 {; {     

5 ]; I4 L; J) ]: e$ {       }        
, M9 R8 _$ x% X; l2 \8 m4 m
    其他部分略。



0 r# ^" r' v9 p. r6 B' D% A  

$ m; [2 L! F  V! z# S- K  五．结束语

   

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

Deaton

1 b4 b! [0 E& K  }/ \3 _非常详细实用，谢谢！
1 H; l- z& S) Q0 f; K
附一个 Sodick 的后处理，已实现上下异形，子程序调用，供各位同学参考。
- ?4 m$ l3 P6 X: i: x! O
########################## TCL Event Handlers ##########################
#
9 o1 b  k( I; j7 t) J, T#  Created by Supervisor  @  Mon Oct 09 15:07:32 2005 中国标准时间
# C% B# k3 ~- O" `  l" b: Y( c#  with Post Builder version  3.4.1.
#
. \# O: b6 z8 |- L########################################################################
) U  W3 P  J# q  f; Z- I- @
  set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]

, T2 U" Q9 P: H- g/ E
3 M+ {' H; s, B, {  j- o" Y  if { ![info exists mom_sys_post_initialized] } {
7 b- }# V/ i" U7 s5 G) o! a, K0 O
5 R& k& `* e1 r3 S! |: b     source ${cam_post_dir}ugpost_base.tcl
& l8 V7 Y8 K, |2 Q4 T6 M
     proc MOM_before_each_add_var {} {}
     proc MOM_before_each_event {} {}
, u9 `7 g( ]$ k# z% `1 i7 u& P
. y* \1 r' U7 ]8 W) D( B& U0 ?" S#     set cam_debug_dir [MOM_ask_env_var UGII_CAM_DEBUG_DIR]
#     source ${cam_debug_dir}mom_review.tcl
/ s7 x6 G: ?& U9 Y8 S1 }! B3 d. d
" y  U$ E( F0 j6 L     MOM_set_debug_mode OFF


   ####  Listing File variables
     set mom_sys_list_output                       "OFF"
     set mom_sys_header_output                     "OFF"
: z1 ^! }1 D9 l. R" U6 ?% \2 O. Q" }( i! A     set mom_sys_list_file_rows                    "40"
     set mom_sys_list_file_columns                 "30"
     set mom_sys_warning_output                    "OFF"
     set mom_sys_group_output                      "OFF"
& }% j8 w/ n9 m- z     set mom_sys_list_file_suffix                  "lpt"
     set mom_sys_output_file_suffix                "NC"
     set mom_sys_commentary_output                 "ON"
) Q& e: C2 N9 R     set mom_sys_commentary_list                   "x y z 4axis 5axis feed speed"

     set mom_sys_control_out                       "("  
3 u4 y3 I" ~0 i! i* S7 P, s. Y     set mom_sys_control_in                        ")"  
4 J/ x9 Y9 s/ i- L' B, }
. x  t4 J) K" ?2 f     set mom_sys_post_initialized 1
0 C: d$ ~- a" d; u+ c% \) M( {' [  }

# N/ U7 r+ Q' z& f5 U0 z1 F. z
3 V& D6 G; ^+ J" T) O( l3 E. R" P########## SYSTEM VARIABLE DECLARATIONS ##############
7 r& n  J2 O6 M  @7 z  set mom_sys_rapid_code                        "0"  
; L9 @) ]) c/ G- n2 g  set mom_sys_linear_code                       "1"  
  set mom_sys_circle_code(CLW)                  "2"  
+ [& q& y8 b, h4 P  set mom_sys_circle_code(CCLW)                 "3"  
  set mom_sys_delay_code(SECONDS)               "4"  
  set mom_sys_cutcom_code(OFF)                  "40"
( ]1 r; o4 J  r4 m  set mom_sys_cutcom_code(LEFT)                 "41"
, Z% `( \5 {3 b$ W5 k; n  set mom_sys_cutcom_code(RIGHT)                "42"
  set mom_sys_unit_code(IN)                     "70"
  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"  
6 P; X) _0 d1 v6 \: Y8 ]* N  set mom_sys_optional_stop_code                "1"  
  set mom_sys_end_of_program_code               "2"  
- T% Z' p. u# s. k/ f- G  set mom_sys_rewind_code                       "30"
  set mom_sys_thread_wire                       "20"
2 F7 Z' ^6 l8 i$ }2 Z+ H6 M5 W  set mom_sys_cut_wire                          "21"
  set mom_sys_flushing_on                       "80"
# ?% |/ f6 n# [  set mom_sys_flushing_off                      "81"
  U( @# {, A7 p+ e. u  set mom_sys_power_on                          "84"
  set mom_sys_power_off                         "85"
1 X8 M( J) N, e  set mom_sys_wire_on                           "82"
  set mom_sys_wire_off                          "83"
7 S5 O7 h, R' Z3 j1 S( U  set mom_sys_cir_vector                        "Vector - Arc Start to Center"
  set mom_sys_rewind_stop_code                  "\#"
2 \; u4 l, Q: J  set mom_sys_home_pos(0)                       "0"  
  set mom_sys_home_pos(1)                       "0"  
* ~: G* f6 H$ |  set mom_sys_home_pos(2)                       "0"  
1 G) ]7 s5 ^/ ]  set mom_sys_zero                              "0"  
  set mom_sys_opskip_block_leader               "/"  
& Z6 x6 r" T) g  set mom_sys_seqnum_start                      "10"
  set mom_sys_seqnum_incr                       "10"
5 o6 M, e+ h: ^) @  set mom_sys_seqnum_freq                       "1"  
  set mom_sys_seqnum_max                        "9999"
  set mom_sys_leader(N)                         "N"  
7 i& M# B6 k$ ^8 d  set mom_sys_leader(X)                         "X"  
  set mom_sys_leader(Y)                         "Y"  
  set mom_sys_leader(Z)                         "Z"  
! a2 S0 y1 ?& N  W! e2 l0 V9 \  set mom_sys_leader(U)                         "U"  
  set mom_sys_leader(V)                         "V"  
) `( S* b* \$ n# t  set mom_sys_contour_feed_mode(LINEAR)         "MMPM"
  set mom_sys_rapid_feed_mode(LINEAR)           "MMPM"
  set mom_sys_cycle_feed_mode                   "MMPM"
/ j& y6 {: v7 \0 `- J' j. Y6 V  set mom_sys_feed_param(IPM,format)            "Feed_IPM"
  set mom_sys_feed_param(MMPM,format)           "Feed_MMPM"
' x* V2 b2 A) x1 \# a- I( e$ s  set mom_sys_feed_param(MMPR,format)           "Feed_MMPR"
( i  A5 k5 j9 V+ @& R( Q, z  set mom_sys_post_description                  "Unigraphics NX 4.0 WireCut Poster for Sodick.\n\
. V3 I5 s) Q" h& z1 J: K                                                 Version: 2.0\n\
- b3 p; X- T& U( R                                                 Date: 2006/03/15\n\
1 y1 |' T0 H8 l; m$ Y1 s4 {                                                 By Deaton, Cheewah Toys Ltd., Co.\n\
: V+ m% r* o" k: x. S                                                 Email:deaton@21cn.com\n\
' j. e1 d6 W4 D" h7 h  [                                                 Tel:0756-8277824, 13802674804\n\
  j5 ?1 b4 `" i) C. W                                                 Rule and Conic are both supported."
  set mom_sys_ugpadvkins_used                   "0"

####### KINEMATIC VARIABLE DECLARATIONS ##############
  set mom_kin_arc_output_mode                   "FULL_CIRCLE"
) e/ ]1 W& w% W  set mom_kin_arc_valid_plane                   "XY"
  set mom_kin_clamp_time                        "2.0"
  set mom_kin_flush_time                        "2.0"
0 P6 n: u6 h% t/ @$ H  set mom_kin_linearization_flag                "1"  
# D) i, r* N5 H, J  set mom_kin_linearization_tol                 "0.001"
3 Q+ ?% Y* o, @2 M# j  set mom_kin_machine_resolution                ".001"
  set mom_kin_machine_type                      "4_axis_wedm"
0 k7 J7 o' ]% E! o- ?" y, |  set mom_kin_max_arc_radius                    "99999.999"
1 H) F- g+ z2 n3 l1 w+ E( Z  set mom_kin_max_fpm                           "10000"
  set mom_kin_min_arc_length                    "0.001"
  set mom_kin_min_arc_radius                    "0.001"
  set mom_kin_min_fpm                           "0.01"
+ o7 d* p# Y' t9 [  set mom_kin_output_unit                       "MM"
  set mom_kin_post_data_unit                    "MM"
  set mom_kin_rapid_feed_rate                   "15000"
0 M1 m) D4 ~) ]8 }' u- Y& `  set mom_kin_tool_change_time                  "12.0"
  set mom_kin_wire_tilt_output_type             "COORDINATES"
  set mom_kin_x_axis_limit                      "1000"
! O, `. Q2 ]5 o& C) z8 y% D  set mom_kin_y_axis_limit                      "1000"
  set mom_kin_z_axis_limit                      "1000"
: Z! D" S3 `% d9 U- `
/ L$ b% z, R5 x, P7 e( d


if [llength [info commands MOM_SYS_do_template] ] {
   if [llength [info commands MOM_do_template] ] {
      rename MOM_do_template ""
   }
2 s( ^0 U& z0 Y  B: [& V2 E   rename MOM_SYS_do_template MOM_do_template
. ]6 O* |$ p4 {( K& W3 S! A}

6 ]8 n: B$ F/ i5 }& H% [

' T$ [9 {6 H3 y2 L+ w
#=============================================================
proc MOM_start_of_program { } {
#=============================================================
8 a: z! P2 u7 j+ b8 i2 W  global mom_logname mom_date is_from
  global mom_coolant_status mom_cutcom_status
* g% v9 b( Q, n. Q4 g  global mom_clamp_status mom_cycle_status
: t8 t2 t; _! O, W8 ^  T  global mom_spindle_status mom_cutcom_plane pb_start_of_program_flag
  global mom_cutcom_adjust_register mom_tool_adjust_register
  global mom_tool_length_adjust_register mom_length_comp_register
+ h! j, J: s1 i8 y# D( {  global mom_flush_register mom_wire_cutcom_adjust_register
- H# [( ~5 l' L+ l; N# P/ I  global mom_wire_cutcom_status
/ o: L" p& D) l' W$ u- l
    set pb_start_of_program_flag 0
& S6 X7 x7 U  h# h. E    set mom_coolant_status UNDEFINED
- c: {" {8 ^$ `+ M; p* I. [    set mom_cutcom_status  UNDEFINED
    set mom_clamp_status   UNDEFINED
    set mom_cycle_status   UNDEFINED
    set mom_spindle_status UNDEFINED
    set mom_cutcom_plane   UNDEFINED
    set mom_wire_cutcom_status  UNDEFINED

+ ?, n& k+ k4 |  Q$ W9 N$ N    catch {unset mom_cutcom_adjust_register}
5 o, ]2 H7 [, N7 l0 s2 b/ s% Z% |    catch {unset mom_tool_adjust_register}
    catch {unset mom_tool_length_adjust_register}
    catch {unset mom_length_comp_register}
    catch {unset mom_flush_register}
    catch {unset mom_wire_cutcom_adjust_register}
5 C" \! `0 j* Q5 z
! J0 I/ s% ~  q) k; m; L  j+ A7 W' w    set is_from ""

4 K; W0 q/ |+ ?9 z% s    catch { OPEN_files } ; #open warning and listing files
1 `7 L% k6 K7 }+ G    LIST_FILE_HEADER ; #list header in commentary listing
- t. ]0 e8 K3 [5 i
# w1 `+ ?: K1 D  U, h" m
7 F+ ]* |0 D  P% D: C* ?
8 n% e1 V6 e1 W+ y; u5 T  global mom_sys_post_initialized
$ @. J9 K# ~4 C' B+ K3 ]: s  if { $mom_sys_post_initialized > 1 } { return }
7 ^/ r& G4 ^8 A7 h! c3 V* r
) e2 r, R1 ?; N
#************
uplevel #0 {
4 O# o+ P4 P+ n( e  Q3 x, H

/ V- z% H  v% T#=============================================================
proc MOM_sync {} {
* q& ?) ?( P7 P9 |5 g#=============================================================
3 m$ B0 ]4 ^5 D6 x& b; @8 A  if [llength [info commands PB_CMD_kin_handle_sync_event] ] {
    PB_CMD_kin_handle_sync_event
8 U; ]/ @. o0 M* @  }
}

$ ~* H. ^4 v4 o8 J$ J$ p" t1 Z
1 `, v7 z! P1 K#=============================================================
, ]. U2 G$ x4 t, ?. h3 xproc MOM_set_csys {} {
9 S& Z, N* F6 E8 J$ W. }#=============================================================
  if [llength [info commands PB_CMD_kin_set_csys] ] {
$ i& Y0 k+ v- P    PB_CMD_kin_set_csys
5 |; R! y3 j" E+ _9 j  }
* z3 u# _2 Z# }+ g}
" C# o- f; b" u; R

#=============================================================
- D  s# V5 S, H9 }2 D4 {proc MOM_msys {} {
#=============================================================
}
8 Q# Y( {( p9 T$ t' r: o7 n
1 L9 |9 s0 B2 f3 X
#=============================================================
proc MOM_end_of_program { } {
#=============================================================
   PB_CMD_end_of_file
   PB_CMD_calc_machine_time

#**** The following procedure lists the tool list with time in commentary data
9 N) o! x0 E. j7 f! J$ Z   LIST_FILE_TRAILER
# c# {, h* m" J( W
; Z/ D4 \9 ?: Y+ _$ Z: s( X#**** The following procedure closes the warning and listing files
4 D& u6 a; \+ e. O   CLOSE_files
}
/ M% }$ L- m3 q# ^: U8 ~
3 A% e( e" ?- N+ ]0 x; l. ^) x. A
  incr mom_sys_post_initialized

, i: U/ ?1 d/ u$ V2 X
: {$ z9 J3 ^1 U2 e} ;# uplevel
8 O" G  j; n6 R$ x5 y/ K#***********
, ~! e0 c4 Z. v8 o) s. Z* A

}
2 j* v+ P9 b6 I  d2 ?1 j

) N; d; O2 ]* r#=============================================================
) L; V: B4 I! j" e' }. r6 eproc PB_DELAY_TIME_SET { } {
; N" \. J7 @: p+ R% P+ S) q0 F#=============================================================
  global mom_sys_delay_param mom_delay_value
  global mom_delay_revs mom_delay_mode delay_time

   # post builder provided format for the current mode:
& L5 ]5 t( C" I8 D, m8 u; C    if {[info exists mom_sys_delay_param(${mom_delay_mode},format)] != 0} {
9 o1 P9 F9 L& p7 f. u& o% J: v2 \      MOM_set_address_format dwell $mom_sys_delay_param(${mom_delay_mode},format)
9 n5 Z5 L4 K; x2 V    }
) I6 A1 Q9 L% v& ?/ f$ t
    switch $mom_delay_mode {
$ g3 A& ?& E7 |1 K7 l6 f* z      SECONDS {set delay_time $mom_delay_value}
2 z1 K  I; P) Q) Y/ S0 @( B8 D      default {set delay_time $mom_delay_revs}
9 ^, F+ J6 c3 |4 N6 p    }
- P- n/ b) U( J4 C: G}
( j7 w% D! r/ Y2 Q8 [- J/ }
0 B7 _6 ~. ^  R( y0 u7 B
#=============================================================
proc MOM_before_motion { } {
#=============================================================
- u+ A0 H3 ~* n! F2 Z. d  global mom_motion_event mom_motion_type

    FEEDRATE_SET

: [/ R7 @5 n, @2 k  i% m8 o
    switch $mom_motion_type {
1 h, O% E) y( V6 ]& X! t; I      ENGAGE   {PB_CMD_kin_wedm_engage_move}
      APPROACH {PB_approach_move}
      FIRSTCUT {PB_first_cut}
8 p. ~% O+ H$ W# o" [, [. k      RETURN   {PB_return_move}
1 Z7 ]- R8 a3 U( g% R    }
8 \; i- }/ a3 H7 |0 a7 H
" Q; C$ l9 a! H    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 }
}
: |8 ^- _$ p, n
" W4 ^! }1 u! G
' M7 e1 B: y% G! H! ^8 k) s- B#=============================================================
- ^; t; {2 Q8 ]( [6 G1 hproc MOM_start_of_group {} {
#=============================================================
  global mom_sys_group_output mom_group_name group_level ptp_file_name
' g! i+ Y1 Q% d* K9 a9 S  global mom_sequence_number mom_sequence_increment mom_sequence_frequency
5 A% N# @; O- |! G  global mom_sys_ptp_output pb_start_of_program_flag
3 A1 c4 [/ p: `) V! C
9 E6 c  w' @2 l    if {![hiset group_level]} {set group_level 0 ; return}

    if {[hiset mom_sys_group_output]} {if {$mom_sys_group_output == "OFF"} {set group_level 0 ; return}}

    if {[hiset group_level]} {incr group_level} else {set group_level 1}
    if {$group_level > 1} {return}

    SEQNO_RESET ; #<4133654>
4 o  v: ~% T. z2 x% G7 r    MOM_reset_sequence $mom_sequence_number $mom_sequence_increment $mom_sequence_frequency
% v1 Z, `: H# Y" W  J4 F
, E+ V8 V% x1 R/ O    if {[info exists ptp_file_name]} {
      MOM_close_output_file $ptp_file_name ; MOM_start_of_program
  _0 j( y6 z% t2 _# ~      if {$mom_sys_ptp_output == "ON"} {MOM_open_output_file $ptp_file_name }
& l* b( C( `  Y$ |    } else {
; Q# i! [! M' L5 F      MOM_start_of_program
! D! L! X6 h6 _* [. L* d5 j' J& n    }

$ P' f+ j) `+ d. y! ]4 f    PB_start_of_program ; set pb_start_of_program_flag 1
}
+ ?) N  E% c+ s; b
- c& u7 t1 V0 b! M* w& p0 \
#=============================================================
proc MOM_machine_mode {} {
#=============================================================
- J# o; ]6 b. J: i* p$ X  global pb_start_of_program_flag
  global mom_operation_name mom_sys_change_mach_operation_name

, o5 M7 e6 d9 P. n% y6 h( K2 O# q   set mom_sys_change_mach_operation_name $mom_operation_name
8 `& h# \! M3 o) F8 b- {: f
; X( S/ e$ C4 N( N% e( b1 u$ S$ t    if {$pb_start_of_program_flag == 0} {PB_start_of_program ; set pb_start_of_program_flag 1}

    if [llength [info commands PB_machine_mode] ] {
       if [catch {PB_machine_mode} res] {
          global mom_warning_info
1 M6 i: T, A/ [          set mom_warning_info "$res"
          MOM_catch_warning
0 c  E" k* g. ~& F' o) {( W       }
    }
5 R" Z( @4 v5 r. Z) g4 `}

& u# a  H: v3 \4 Q( I
#=============================================================
proc PB_FORCE { option args } {
#=============================================================
; i) \, r* k1 p   set adds [join $args]
   if { [info exists option] && [llength $adds] } {
      lappend cmd MOM_force
8 ~  Q" a- r- c. E# B+ _      lappend cmd $option
      lappend cmd [join $adds]
      eval [join $cmd]
   }
5 v7 t5 Z3 z2 k4 h; r}
' E0 I. A3 z4 S- [8 l
, g- C3 e* f+ L) [! d
#=============================================================
proc PB_SET_RAPID_MOD { mod_list blk_list ADDR NEW_MOD_LIST } {
#=============================================================
  upvar $ADDR addr
3 s) J+ y& e6 a' F  upvar $NEW_MOD_LIST new_mod_list
  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2

2 }% g6 x' m5 ?: J# O" L( c
5 X; L7 F9 m0 y: L- e2 F+ N, p% ~   set new_mod_list

  D; @: s+ k& `; l/ l
   foreach mod $mod_list {
      switch $mod {
+ x# h( ~  e* J7 [  O9 L         "rapid1" {
: s$ C4 s. Y3 i5 b0 D            set elem $addr($traverse_axis1)
            if { [lsearch $blk_list $elem] >= 0 } {
( c( L& H6 o& G! a7 V% z8 m               lappend new_mod_list $elem
            }
) x  a+ L) H9 g6 ~+ T' E1 T         }
* Z* P% \0 W9 o+ c0 s         "rapid2" {
# t& O. G% [5 W! d4 b' m            set elem $addr($traverse_axis2)
# P8 b5 _: m0 U: R/ \, T            if { [lsearch $blk_list $elem] >= 0 } {
3 U) I9 S8 Z7 h               lappend new_mod_list $elem
2 K  v" A* d5 H            }
6 \0 D% `, J& t* h$ n( k         }
  C  G% M1 i. _         "rapid3" {
6 y# }! `) F! W( b            set elem $addr($mom_cycle_spindle_axis)
            if { [lsearch $blk_list $elem] >= 0 } {
2 a3 W9 C7 Z: F               lappend new_mod_list $elem
            }
/ Q9 Y+ b; N& P9 ?- Z+ ^         }
- g+ p% B* U9 _         default {
# e8 m$ e! F# E3 Q1 |. L            set elem $mod
            if { [lsearch $blk_list $elem] >= 0 } {
               lappend new_mod_list $elem
            }
7 y. X8 Z$ _( W6 x$ x6 a2 f         }
      }
0 e7 L* A( C- b+ F; l$ Q   }
}

! V) \: g6 C- X( D3 A: I0 t+ h! Q
- `+ D$ A6 m$ b: `0 j% c########################
3 [- s2 E. P) s5 x# Redefine FEEDRATE_SET
: i: s; }  S/ g- M  E########################
8 v/ i! J; d; A) n4 n6 `if [llength [info commands ugpost_FEEDRATE_SET] ] {
" Z& D4 c' j, n1 A4 C( L. Y1 O   rename ugpost_FEEDRATE_SET ""
}
( c' n% \6 W  h9 b: ^& ]" B
$ Q9 y; {( `* K( W# g( X$ Dif [llength [info commands FEEDRATE_SET] ] {
   rename FEEDRATE_SET ugpost_FEEDRATE_SET
0 Q/ B: B( x% @! \} else {
   proc ugpost_FEEDRATE_SET {} {}
+ X" O, j5 p/ Q- g& V9 h}
% r% l8 ^7 `! L! o% d, N

  H0 ~. }! J9 _+ k#=============================================================
* k8 c( o; D# X: I4 v% u1 `proc FEEDRATE_SET {} {
#=============================================================
   if [llength [info commands PB_CMD_kin_feedrate_set] ] {
) N- u1 b% s5 H      PB_CMD_kin_feedrate_set
% D& i, E6 d- m5 v   } else {
      ugpost_FEEDRATE_SET
   }
4 X! F. b6 h* x( O}


#=============================================================
# d9 Z2 W8 h7 X$ M6 U- _2 m) S! uproc MOM_wire_cutcom { } {
* [, O$ E6 l7 f. z3 v#=============================================================
+ v8 R  t- w: f; q/ _  global mom_wire_cutcom_status mom_wire_cutcom_mode
" m( W2 r' K/ O9 N% Z5 _& `: F  global mom_cutcom_status mom_cutcom_mode

1 |- E. l9 L+ K" @: }, I    set mom_cutcom_status $mom_wire_cutcom_status
/ W: B. y  ]- U0 U4 k    set mom_cutcom_mode $mom_wire_cutcom_mode
1 l" r' J, G- V; b
    switch $mom_wire_cutcom_status {
       ON  { MOM_cutcom_on }
       OFF { MOM_cutcom_off }
3 ]8 A5 z' x1 e: s$ }; L    }
  t" A  ~# h7 j}
. z: _* N1 F' f7 P* Q
6 v7 `: L1 ]0 I! K7 A! F
############## EVENT HANDLING SECTION ################

9 b$ t6 w. L  M2 w! I% L
#=============================================================
# i) _8 S  X9 dproc PB_start_of_program { } {
( Q( U; a/ z6 I1 E#=============================================================

. m7 r8 @2 x" \2 v   if [llength [info commands PB_CMD_kin_start_of_program] ] {
      PB_CMD_kin_start_of_program
# S* A4 ^' Y! x# j, w6 o2 T   }
7 r% H  F6 ?3 Q6 N: `: b. k6 K
0 U; e' g4 \; K9 z   PB_CMD_start_of_file
& l6 i! y6 q' o& X6 m1 {   PB_CMD_start_of_program
* Q& U4 q7 g3 ^( L; S6 W, ^5 Z   PB_CMD_start_of_conic
7 F# h& R+ h6 i+ e, \   PB_CMD_first_move
. I. ]+ g* {' x# D4 o/ |   PB_CMD_drill
}

; I. i) v- F, q. A
#=============================================================
proc MOM_start_of_path { } {
#=============================================================
  global mom_sys_in_operation
& ?" P1 j8 H( _, O2 S   set mom_sys_in_operation 1
! G6 o4 u5 V+ k+ Z
  global first_linear_move ; set first_linear_move 0
. g6 T/ {! D( i" j+ G, }0 _) j   TOOL_SET MOM_start_of_path

7 J7 r9 @- K- K* O. ?+ a- m# j   if [llength [info commands PB_CMD_kin_start_of_path] ] {
      PB_CMD_kin_start_of_path
8 B% L& ]$ Y) a( z3 G   }

   PB_CMD_start_of_program
: @) T, B9 m, v! Q8 {- }# a* z# @9 [}

, r( J8 g0 i$ y3 N6 R! P
) e" v9 a2 L) n" B0 N7 v#=============================================================
proc MOM_from_move { } {
! n0 Z) d) z# h# ~. x) z5 `#=============================================================
  global mom_feed_rate mom_feed_rate_per_rev  mom_motion_type mom_kin_max_fpm
   COOLANT_SET ; CUTCOM_SET ; SPINDLE_SET ; RAPID_SET
}
( i; B0 q: G$ ~
: h+ I% Q' L5 C- K
9 s) H0 T5 x1 a) |9 [" K#=============================================================
proc PB_approach_move { } {
3 E/ V- Z! \6 P( s6 M5 u+ N0 ~#=============================================================
  y! A: y# g! c$ P) K: `}


- Y( c. x6 r) n; D# s6 U. |#=============================================================
& D( P& Z4 h: v8 n# C2 J! w  o2 ~8 tproc MOM_start_of_pass { } {
#=============================================================
  global mom_sys_start_of_pass
  set mom_sys_start_of_pass 1
7 Z; \) N' J' x1 Y3 M. b   PB_CMD_start_of_pass
}

$ i& q7 Y6 n5 D. k# O& ]
#=============================================================
proc PB_cutcom_move { } {
- k; q, _; S8 N' w, g9 z) o#=============================================================
}
0 j2 y- k8 A1 g' Q4 n7 z( w
$ X, ?, O$ V) c6 r
$ _. j3 b2 C1 Z* X0 N9 S#=============================================================
! s. L/ M+ d: G, w: ?1 T) m+ pproc PB_lead_in_move { } {
#=============================================================
}
5 e5 h& {9 V  y% W1 q+ R
+ N; f% D0 @( G9 {
#=============================================================
proc PB_lead_out_move { } {
9 r" w7 p2 B. M, X#=============================================================
$ C. J+ L) D2 X}
! Z" l7 [! ^6 J% e7 \  \9 Y% v

#=============================================================
proc MOM_end_of_pass { } {
#=============================================================
$ i" B5 t) ]' M3 o0 Y' Q' G% g8 W  PB_lead_out_move
0 m& r; c! r5 A) ?* W2 A7 ~   PB_CMD_cutcom_off
" S0 V3 C( H$ R1 k0 \}
, F7 W* S4 B% y9 @
1 A, I  y1 N7 n
#=============================================================
  ]/ Y+ `, |, t. i/ Qproc MOM_gohome_move { } {
0 N  x4 u7 h- c1 A" X#=============================================================
   MOM_rapid_move
+ R0 q5 z' L* z}


+ `# V0 {+ u" T/ R! z& d5 X#=============================================================
proc MOM_end_of_path { } {
$ ]& H5 s% [/ m! D1 l#=============================================================

   if [llength [info commands PB_CMD_kin_end_of_path] ] {
      PB_CMD_kin_end_of_path
   }

   global mom_sys_in_operation
   set mom_sys_in_operation 0
}
; t5 y7 w+ [" E* J

3 C7 M8 H: b: r5 F' k#=============================================================
proc MOM_thread_wire { } {
0 G4 @+ G; T8 g1 d, x( H5 Z/ V$ t6 j: B#=============================================================
; l9 e$ I8 h# g7 @0 g9 i}
% ?6 z, Y8 m6 [6 n: ^; p& I8 S
# ]2 H! P/ @9 w+ Q2 y& f6 U
#=============================================================
proc MOM_cut_wire { } {
#=============================================================
}


#=============================================================
proc MOM_wire_guides { } {
#=============================================================
) Z( B9 t) e" M! G& w' d   PB_CMD_work_coordinate
( L5 [" {/ u0 `3 W}
- [# i. ]$ }( N+ u  R
* O& {+ }4 \+ D/ Z/ g7 N, ~
#=============================================================
proc MOM_set_mode { } {
* P  y$ i$ D, D. N9 X#=============================================================
8 r8 C) ^! r, G) h  t4 ]2 N' R: ?}
  h$ `& o$ [: u+ }0 N1 Q; M( q

" n9 i6 F; M3 H9 Q% R* K( C/ H" e8 E* A#=============================================================
proc MOM_cutcom_on { } {
#=============================================================
# ?6 l$ V; B/ o' K   CUTCOM_SET
- `$ p1 }2 l8 |# {) j, c) m   PB_CMD_cutcom_on
}

6 A8 Z1 f+ x3 j2 w* ]6 \  D& T) M
/ G$ s! G% Q1 G2 U" `#=============================================================
proc MOM_cutcom_off { } {
3 e) b* C2 E$ u#=============================================================
   CUTCOM_SET
- F0 n5 |: n/ Y+ x7 v" O$ ~( w   PB_CMD_cutcom_preoff
2 h9 X. m+ p8 s8 C4 g/ f}
3 I8 V8 @3 d$ ~. G( r; o6 d
* [3 k1 o5 G2 `% k7 g
0 ?3 o0 l/ h: @#=============================================================
) b( K4 D+ V- r3 }0 ]/ B% [proc MOM_feedrates { } {
. p. L) ~  x. h9 {) Y* \#=============================================================
}

. J3 H& c( x( v, v' K- o
#=============================================================
. C. E5 k( A  Y) D) O0 l+ k2 [proc MOM_delay { } {
  O  b7 j) z0 q#=============================================================
   PB_DELAY_TIME_SET
   MOM_do_template delay
) }$ ?9 s/ h, n/ S" [' R}
% E0 M$ L$ F: s. K0 S0 x

& ^1 @' W+ N8 A/ w8 i' H1 r#=============================================================
proc MOM_auxfun { } {
1 B* H* O2 l0 z- _#=============================================================
}


) o# Q  L4 u# S  W/ C' G#=============================================================
proc MOM_prefun { } {
: R6 @" i: T" ~& m# [#=============================================================
}
; \" P. _8 U8 k8 a
* b' d; p( @. k6 w3 h. U
#=============================================================
proc MOM_stop { } {
#=============================================================
   MOM_force Once M
; x5 M6 R/ M# }' C+ Q4 _7 J   MOM_do_template stop
# S1 B( I$ m# t3 \}


#=============================================================
& z, w# s' c* B1 C+ }proc MOM_opstop { } {
. N$ K, }) s2 _/ s( t; x; b, b#=============================================================
0 E' d: ~3 E+ K% J   MOM_do_template opstop
% Z( U' Y, L9 e# Z: q0 Y  v, B}
. c* o9 g# E3 }3 h: ^7 |% `

#=============================================================
proc MOM_linear_move { } {
* F) A# F! V' q! E( G! i  z#=============================================================
- Q5 j/ a; G9 }5 y5 c, ^2 t2 ~0 e  global feed_mode mom_feed_rate mom_kin_rapid_feed_rate
* ?* f8 c, B7 G2 b; {2 r
   if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
      if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
) Y0 V% U& y5 C4 f% b2 C; w5 A         MOM_rapid_move
% D% X7 ^. b; W4 l/ v         return
      }
% r/ n) B. x9 u4 w% I   }

   PB_CMD_linear
}
7 Y- c: C% C2 Y0 j
' U' ~2 }- ?2 a6 d9 K
#=============================================================
3 u( m8 y* i& q( Aproc MOM_circular_move { } {
#=============================================================
( [: \: y  M( O% Z$ O0 E   PB_CMD_circular
}
" ~# ?) F% g/ }; N0 K

- Z7 N, k' K* p% U) g#=============================================================
proc MOM_rapid_move { } {
% I* G( \3 W1 r  S6 ?$ B; F, N#=============================================================
  global rapid_spindle_inhibit rapid_traverse_inhibit
0 ?1 ]# B0 r( y5 A5 g0 `  global spindle_first is_from
$ G8 u1 e! L5 o  ~, X  global mom_cycle_spindle_axis traverse_axis1 traverse_axis2
3 q- z. c! I# k7 [  global mom_motion_event
4 `. R& n$ n5 u( C9 T. e7 C
   set aa(0) X ; set aa(1) Y ; set aa(2) Z
1 |' S) v- K7 }0 L   RAPID_SET
- z9 Y# |" g# r   MOM_do_template rapid_move
}


5 J$ u3 o! e. ^+ m9 B# e' D#=============================================================
% V; D, [/ `$ I0 Vproc MOM_cycle_parameters { } {
#=============================================================
}
$ x( ~' h/ T$ M! e  [5 D
; u8 }8 k. ?/ K5 L; {) B, x
( v9 ?/ ~! h! A" J$ S1 B- f' m6 q#=============================================================
proc MOM_sequence_number { } {
7 R. c) y) M4 s, A! O#=============================================================
   SEQNO_SET
}


#=============================================================
proc PB_CMD_before_motion { } {
5 s$ G1 a$ n5 g9 O, b. [" n#=============================================================
global mom_motion_type
+ T6 X  b+ {" F, H( j! wglobal mom_current_motion
( }9 n  u0 E6 K0 qglobal mom_motion_distance
global momPathLength

MOM_reload_variable mom_motion_type
- T5 P- L$ R3 A3 u1 IMOM_reload_variable mom_current_motion
) W' h5 K: |' r: W0 a$ ?
if { ($mom_current_motion == "first_move") && ($mom_motion_type == "RAPID") } {
   ## Set location point befor First Move:
, {6 P% _8 k, Y( C: t+ Q5 z. @   MOM_output_literal "/G05"
/ W' X' S2 C; c, P   MOM_output_literal "/G06"
   MOM_output_literal "/G08"
: o$ Q! x( u% G   MOM_do_template rapid_move
   MOM_do_template location_start_point
   return
; M1 b( y2 i/ M" A2 ^4 R  B} elseif { $mom_motion_type == "RAPID" } {
   ## When rapid move, insert and append pause activation:
3 ?% U* m8 L" y   MOM_output_text " "
$ [5 ~1 W% {' E4 B) ^   MOM_output_literal "M00"
$ F2 I+ u9 c7 s9 S" k* Y   MOM_do_template rapid_move
   MOM_output_literal "M00"
   MOM_output_text " "
3 y2 y$ k/ A$ T& z$ d8 b6 M   return
} elseif { $mom_motion_type == "CUT" } {
   set momPathLength [expr $momPathLength + $mom_motion_distance]
}
# I5 n% I8 @8 K8 C4 L7 O+ M}
% ^, _0 {* m( u4 A9 U- Y

#=============================================================
! B) P. s) f. f, y7 @8 E' N/ u7 a+ wproc PB_CMD_calc_file_size { } {
#=============================================================
& v( M: ~2 X' q3 C) c+ Mglobal ptp_file_name
6 N6 t: i) O/ \# l% |% b$ l
( N: v7 D& N1 q# y# TMOM_close_output_file   $ptp_file_name
set ptp_size [file size $ptp_file_name]
MOM_open_output_file   $ptp_file_name
" @0 b% J9 n' `1 ^+ c
MOM_output_literal "( NC file size = $ptp_size bytes )"
# J/ J- c$ n& N2 i: n+ d: h" S}


- Y6 {) j7 Q" n9 d) }, n" ?% t#=============================================================
! h6 `  ?# K7 Aproc PB_CMD_calc_machine_time { } {
#=============================================================
, o; q4 ^+ v0 g( D/ G9 N& ?global momPathLength
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
  D$ X: z1 B3 [global mom_feed_rate
global mom_wire_feed_rate

global mom_kin_machine_type
global mom_machine_mode


7 j+ S5 }) r3 i& ]0 K% dif {$mom_machine_mode == "WIRE" } {
* u& x# z# G& W" D( M# j3 }! P% y- q   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. )"
3 D# v# f) v% G! t. E' ~# z
8 }0 P: C5 G' M& ?1 f/ u* u9 a   PB_CMD_calc_file_size
}
; N4 L) J( j' t& W2 e& [- \}


& `9 s0 W+ F* k( X, M#=============================================================
proc PB_CMD_circular { } {
#=============================================================
global mom_tape_status
if { ($mom_tape_status == "ANGLE") || ($mom_tape_status == "NONE") } {
   MOM_force Once G_motion X Y I J
   MOM_do_template circular_move
} elseif { $mom_tape_status == "CONIC" } {
   MOM_force Once G_motion X Y I J
- a5 x7 L% p6 x   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
}
}


#=============================================================
3 [3 V/ ~1 q6 h/ v. `5 \proc PB_CMD_cutcom_off { } {
( Z+ B5 B3 R% D3 T# }- n#=============================================================
" k% q  x. n0 k" @global mom_wire_guides_lower_plane
  g8 Z- B. y  P$ O& qglobal mom_wire_guides_upper_plane
2 i- Q, q7 d/ t: {1 N( t4 }global mom_tape_status
global mom_sys_cutcom_code(OFF)
global momComplex

if { $mom_tape_status == "CONIC" } {
! j7 ]; v( |- N   MOM_output_literal "G75"
}
% h) S% E) D) x0 X
; T6 [& ]$ V- Oif { $mom_tape_status == "COMPLEX" } {
; p+ W! n2 B, r# o4 D   if [info exists momComplex] { unset momComplex }
4 a% v+ v- X. Q% p5 Q} else {
   if { $mom_tape_status == "ANGLE" } {
      MOM_output_literal "G40"
6 j$ J4 p) D# E% K$ J, D% W      MOM_output_literal "G50"
1 A0 x, `3 g5 Z   } else {
      MOM_output_literal "G40"
  M9 y) y" R' q" r; V3 o   }
' m& Z4 ~. t6 o+ y, v2 z}
/ [# S; ]8 f. ^) u}
( r7 K  z+ n- H4 f/ h6 C  p) ?
7 @! _4 j2 ]3 y0 T. l* K
#=============================================================
) ]6 B5 _) o1 h! R; N- S& h' ]1 Cproc PB_CMD_cutcom_on { } {
#=============================================================
$ k+ U$ n, d. f( L5 a6 C# R  \global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
global mom_tape_status
global mom_sys_cutcom_code
global momComplex
global momConic
# i, L9 q$ F  w' M% k1 fglobal mom_wire_angle_command

) B1 A( U7 C  h2 e+ `global mom_sys_cutcom_code(LEFT)
global mom_sys_cutcom_code(RIGHT)
global mom_sys_cutcom_code(OFF)
global mom_wire_cutcom_mode
global mom_wire_cutcom_status
) \% W# Q. a- n4 Dglobal mom_wire_cutcom_adjust_register
global mom_wire_cutcom_user_register
" ?; N6 v: K$ \  a0 O% u
MOM_reload_variable mom_wire_cutcom_user_register
% Q: U! [4 J' ^5 b- o6 _MOM_reload_variable mom_wire_angle_command
MOM_reload_variable mom_wire_cutcom_adjust_register
MOM_reload_variable mom_tape_status

4 d4 z6 A9 E7 {! E  b/ n3 M8 Gif { $mom_wire_cutcom_user_register != $mom_wire_cutcom_adjust_register } {
   set mom_wire_cutcom_adjust_register $mom_wire_cutcom_user_register
}

/ d7 L' s3 I) X' E* yif { $mom_tape_status == "COMPLEX" } {
   MOM_do_template cutcom_on_complex
   set momComplex 1
} else {
   if { $mom_tape_status == "ANGLE" } {
8 l# n+ f3 C  n& Z- d      if { ![info exist mom_wire_angle_command]} { set mom_wire_angle_command "G551 A0" }
      MOM_output_literal $mom_wire_angle_command
7 s7 r% m# `# s  g# H   }
( P. D2 @& \! \, X7 S% e   if { $mom_tape_status == "CONIC" } {
/ ~  S" u# ^+ _& D, [, ^      set momConic 1
   }
   MOM_do_template cutcom_on
( G# g& }5 D+ y( M; M& f/ @}
9 R1 Q  Z& m$ \$ z# _}
, x( t$ }( z1 P+ a0 ?, i0 K( [
  u" i7 K9 C$ l  _
#=============================================================
: s4 O; ]$ C; E" k: J% S9 Tproc PB_CMD_cutcom_preoff { } {
#=============================================================
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
- @9 P, z8 J2 r3 f8 C: b* [, Xglobal mom_tape_status
/ G; o, C* N) X9 v4 @global mom_sys_cutcom_code(OFF)
) q  ^5 ]/ Q! U3 B# o  z
8 s0 T0 O+ z. L" k" K9 aMOM_output_literal "M00"
% r. `2 G- ~$ n+ T1 nif { $mom_tape_status == "ANGLE" } { MOM_output_literal "A0" }
if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "D000" }
}

; P! ]8 X3 s) A8 ~: v2 d+ C' S
. i7 f$ b+ J" E$ M#=============================================================
proc PB_CMD_drill { } {
#=============================================================
uplevel #0 {

$ m* F, l0 a6 _2 s7 G6 T" m4 a. A   set mom_kin_wire_tilt_output_type "COORDINATES"
   #MOM_reload_kinematics

   proc MOM_drill_move {} {
      global mom_pos

3 S( C+ i( Y) s- A8 q  u      MOM_output_text " "
      MOM_do_template rapid_move
  Q  i. E& r8 G) S      MOM_output_literal "M00"
      MOM_output_literal "M98 P8888"
   }
& U2 A, |( }8 W; b% ]' u% S" q
}
}

5 t6 k: I  {" Y' f
#=============================================================
proc PB_CMD_end_of_file { } {
7 ?& q1 N: a, {. H' a4 G6 [' A7 H1 X! n#=============================================================
MOM_output_text " "
MOM_output_literal "G40 G50 G75"
, F# V6 ~  ^1 q. nMOM_output_literal "G90 G09"
MOM_output_literal "T81"
, P& O0 m* {- E1 D0 UMOM_output_literal "T97"
; z& F) j: n7 C' {; t4 uMOM_output_literal "M00"
3 y3 ~+ `& d) ^# H% M6 `2 h2 fMOM_output_literal "M02"
MOM_output_literal "%"
MOM_output_text " "
}
& ]) r- u% g# I) C9 Z: x, L

#=============================================================
proc PB_CMD_first_move { } {
3 I2 A4 M% A# t" O9 G#=============================================================
$ w% Z7 ?1 [2 f6 C" b0 Auplevel #0 {
   proc MOM_first_move { } {
9 l4 B" S& M! D" e7 m% w( k      MOM_output_text " "
      MOM_abort_event
      return
   }
1 u9 b1 v. U$ B% F% {- T}
}
9 m! `) X0 ^, V, f
: p; N. K9 M5 m( H
  H) A% S6 s5 X5 ^# |3 |7 R" j#=============================================================
proc PB_CMD_kin_before_motion { } {
#=============================================================
}

1 M+ Z+ U' \7 {& A' N$ s0 {- T
( y% P: ^2 G' z7 E. `: ~#=============================================================
0 n" _2 @2 N7 ]+ X4 u. L. [0 }/ \  {! Pproc PB_CMD_kin_feedrate_set { } {
#=============================================================
# b, P" \5 V& v) j& s# This procedure supercedes the functionalites provided by the
9 h" X4 P" Q3 m3 {# `* ]# FEEDRATE_SET in ugpost_base.tcl.  Post Builder automatically
# generates proper call sequences to this procedure in the
# _( y( O' k2 k! X1 y# Event handlers.
! m0 n# {. [7 G, r- q$ i! |2 i#
# This procedure must be used in conjunction with ugpost_base.tcl.
#
2 n# s6 m+ O* q, j4 n  global   feed com_feed_rate
. @) X2 B) h" [1 X  global   mom_feed_rate_output_mode super_feed_mode feed_mode
* y) z9 Z$ B+ ?  global   mom_cycle_feed_rate_mode mom_cycle_feed_rate
2 p. R% t4 `# I2 t% k- ]9 _  global   mom_cycle_feed_rate_per_rev
; P! D  v$ T- c, d8 `' l' ^  W  global   mom_motion_type
4 K' V. F; B( |  P" l' `3 ]) P0 u  global   mom_warning_info
  a9 f8 n7 |" N5 l1 `8 M- ]  global   Feed_IPM Feed_IPR Feed_MMPM Feed_MMPR Feed_INV
* \+ O3 g' f: o9 j  global   mom_sys_feed_param
/ b# n+ X. |! v/ X# ^) r6 T- R  global   mom_sys_cycle_feed_mode
! y. B1 {, e9 J  Z8 \
& K$ E; s) M8 g3 Y& e: K4 p. |7 Z
  set super_feed_mode $mom_feed_rate_output_mode

" x) Z/ Q3 \2 I+ g7 k7 G: t: |  set f_pm [ASK_FEEDRATE_FPM] ; set f_pr [ASK_FEEDRATE_FPR]
  H7 z* p. F5 R5 A: O
. z# H" k0 s% G* k  switch $mom_motion_type {
' i3 R! \& U% Y+ B( u
* {) J* Q& S0 U% a  ]4 R/ D' A: e    CYCLE {
) c# Q, O1 R4 Q      if [info exists mom_sys_cycle_feed_mode] {
+ V9 Q* t1 v. e9 ~# P, ?         if { $mom_sys_cycle_feed_mode != "Auto" } {
            set mom_cycle_feed_rate_mode $mom_sys_cycle_feed_mode
* L" t5 S1 @- R" d! q         }
/ U2 `) N* c$ v- ?/ N      }
      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 }
      if {[hiset mom_cycle_feed_rate_per_rev]} { set f_pr $mom_cycle_feed_rate_per_rev }
9 c- b5 Z: ~) t3 c$ c& g    }
1 Y4 J& Z& }% |4 M. ~
, Y# L) a% a" \7 X7 e  ~' |    FROM -
    RETRACT -
% @' t5 g. i+ j/ E& J& i2 T2 T- G. I    RETURN -
    LIFT -
    TRAVERSAL -
    GOHOME -
    GOHOME_DEFAULT -
1 }8 y+ y7 @3 \% _1 W    RAPID {
7 k8 l7 A# R2 w- `3 K0 X      SUPER_FEED_MODE_SET RAPID
    }
9 K+ t$ X  C$ g6 }
    default {
      if {[EQ_is_zero $f_pm] && [EQ_is_zero $f_pr]} {
8 e! r* j7 P2 u1 w8 ?        SUPER_FEED_MODE_SET RAPID
      } else {
        SUPER_FEED_MODE_SET CONTOUR
      }
* `. V3 X9 H8 R) P& F' \    }
: i" b: i5 L( O5 `8 H" f  }
/ [& k! A. R; f0 A) V5 v

  set feed_mode $super_feed_mode
7 f9 t6 ], W5 g( ?5 `% R% O

# Adjust feedrate format per Post output unit again.
  global mom_kin_output_unit
  if { $mom_kin_output_unit == "IN" } {
     switch $feed_mode {
5 L$ E6 n/ G4 x       MMPM {
& V" Z7 p6 n1 b  V; Q         set feed_mode "IPM"
         CATCH_WARNING "Feedrate mode MMPM changed to IPM"
+ Q1 t# ?: M9 T* }1 j* l9 Q       }
       MMPR {
/ K$ W, [3 k6 w5 r0 B         set feed_mode "IPR"
$ Q9 F. y, h, d0 l& ~         CATCH_WARNING "Feedrate mode MMPR changed to IPR"
       }
, S5 }7 k0 c" v     }
  } else {
     switch $feed_mode {
1 k# S$ I$ D2 {9 W       IPM {
2 P; ^) S5 r4 b, a8 h. e         set feed_mode "MMPM"
% e# i1 L* W, K* ~5 r         CATCH_WARNING "Feedrate mode IPM changed to MMPM"
7 D9 q; c4 |( F; b4 B/ B! M       }
8 ?( C7 u* k4 N7 h3 O: J       IPR {
  i3 ]: h$ w  _/ K         set feed_mode "MMPR"
         CATCH_WARNING "Feedrate mode IPR changed to MMPR"
       }
  s7 H& J  A; _2 e( H     }
1 g) }/ t& W) e! g& X9 r  }
3 [9 n( j1 |8 l$ q3 @
3 d! D# b- X1 g) t; Q2 Q" D
: d$ P) L! c/ N' w+ c  switch $feed_mode {
" p' @2 O1 G/ J+ O, B    IPM     -
    MMPM    { set feed $f_pm }
! c# o& N. t2 G- e& M# D    IPR     -
1 ]' X. o4 ~, Y4 \/ L    MMPR    { set feed $f_pr }
  I& ~* G! n/ N: n  n; e    DPM     { set feed [PB_CMD_FEEDRATE_DPM] }
    FRN     -
    INVERSE { set feed [PB_CMD_FEEDRATE_NUMBER] }
    default { set mom_warning_info "INVALID FEED RATE MODE" ; MOM_catch_warning ; return }
0 e: |# g: [) }  }
5 F" j- R# A4 K

; P* E8 l( ?' c- H$ O- N* K# I# Post Builder provided format for the current mode:
  if [info exists mom_sys_feed_param(${feed_mode},format)] {
    MOM_set_address_format F $mom_sys_feed_param(${feed_mode},format)
6 Y3 |( o2 [8 o$ T  } else {
    switch $feed_mode {
      IPM     -
      MMPM    -
      IPR     -
      MMPR    -
      DPM     -
4 ^1 R5 S( W" V. S2 \. d) m' L      FRN     { MOM_set_address_format F Feed_${feed_mode} }
      INVERSE { MOM_set_address_format F Feed_INV }
5 C7 H* u- C% o4 M    }
  }

# Q) g0 J1 ~. @" I* N1 _# Commentary output
, s% L3 R& W" h  set com_feed_rate $f_pm


# Execute user's commnad, if any.
  if [llength [info commands "PB_CMD_FEEDRATE_SET"]] {
     PB_CMD_FEEDRATE_SET
8 S7 z7 V. B# u2 I/ b  }
}

& H% e! a( P3 J2 K5 w3 D1 `7 F
8 @& w1 g$ {. I#=============================================================
proc PB_CMD_kin_init_mill_turn { } {
" K2 W9 l5 d" c3 p/ b/ r" T#=============================================================
4 p$ R9 S5 B+ C! Q/ ^0 X" w}


) F, \3 j! H. @. ^& B% {#=============================================================
proc PB_CMD_kin_init_mill_xzc { } {
' {9 x+ w' A. W8 \#=============================================================
}


) K6 p5 q8 ~9 o( M6 O# G#=============================================================
* ]5 L) Q$ w. X% V7 f  Tproc PB_CMD_kin_init_rotary { } {
& E3 y- B5 O' ?: X8 S. m4 r5 T#=============================================================
6 {! D: \# \/ R# u( \}
; J/ V: ?1 w, H- t6 u6 L- n5 T
% z/ n3 F( k) N. h% ?
#=============================================================
proc PB_CMD_kin_linearize_motion { } {
#=============================================================
$ d; q8 w7 ^* x7 |}


5 X( Y, G3 P: {* K  g, b1 {#=============================================================
" H: X4 Q7 }" ^* sproc PB_CMD_kin_mill_turn_initialize { } {
+ t" E( D2 F4 a& r8 ^7 z#=============================================================
}


9 b. g2 N( C% Y" j% s: T3 L4 n#=============================================================
proc PB_CMD_kin_mill_xzc_init { } {
* n+ |: g) m: D/ z' X" |#=============================================================
}


#=============================================================
proc PB_CMD_kin_set_csys { } {
! e. P2 N. m+ _' ]#=============================================================
   if [llength [info commands PB_CMD_set_csys] ] {
8 k! J5 T* Q- h/ ?! \      PB_CMD_set_csys
* n4 N& n+ X+ b, U# s* F$ P   }
}
( [3 e' E+ W; J$ X3 W

3 ]5 p( {* f4 n( Y1 i#=============================================================
proc PB_CMD_kin_start_of_path { } {
#=============================================================
#
#  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.
) o5 W# m& Z  P- g' R: {#
# `8 ^5 W' W! Q2 [" x3 x& c& k#  It will also restore the initial Start of Program or End
" D' I4 }" l4 N+ y  }#  of program event procedures.
#
#  DO NOT CHANGE THIS FILE UNLESS YOU KNOW WHAT YOU ARE DOING.
/ _( {* d; n3 \#  DO NOT CALL THIS PROCEDURE FROM ANY OTHER CUSTOM COMMAND.
4 C1 F' \8 B2 B2 N! E! C, d#
  global mom_sys_head_change_init_program
( Z& ?6 ^, p- R7 S9 [3 P
. X, p: `* d8 j! F8 |& ^+ q3 {$ `   if [info exists mom_sys_head_change_init_program] {
% Q+ z% X. E  M! H
      PB_CMD_kin_start_of_program
" l+ `9 b6 }- [! C( S6 ]( B      unset mom_sys_head_change_init_program
( @% h: S; T: Y5 O2 i, _
     # Restore master start & end of program handlers
      if [llength [info commands "MOM_start_of_program_save"]] {
; _9 i- t# m/ \% q! }9 O, x8 N         if [llength [info commands "MOM_start_of_program"]] {
' k! L6 m1 z0 P1 d            rename MOM_start_of_program ""
         }
8 s7 L' c1 M4 I- w# ^  x5 I         rename MOM_start_of_program_save MOM_start_of_program
      }
      if [llength [info commands "MOM_end_of_program_save"]] {
; Y0 {  g7 D8 i# @' ]' H         if [llength [info commands "MOM_end_of_program"]] {
            rename MOM_end_of_program ""
) s6 y6 F6 {( |- k: I( V" S8 y         }
1 z) y- T" w, C, H! x) E7 N; t$ d         rename MOM_end_of_program_save MOM_end_of_program
      }

     # Restore master head change event handler
      if [llength [info commands "MOM_head_save"]] {
# h. e& y3 G/ h         if [llength [info commands "MOM_head"]] {
% K8 b& B, C. Z3 l1 ^            rename MOM_head ""
         }
         rename MOM_head_save MOM_head
# P. B8 P( r0 Q6 ^( |: q2 N      }
   }
$ B- G' G/ Y9 v) }5 l$ r$ G4 S& ?! ^4 E}
7 u& h  t, o3 G
6 z  K5 v9 u$ ]/ J: a0 v
4 L) c6 ^" ]2 w6 z! S#=============================================================
+ |7 W9 S' Y  }; bproc PB_CMD_kin_start_of_program { } {
2 ^! V7 f/ g5 i" V#=============================================================
$ b6 i, \6 ~* D: {" b' |  b" i$ C#
#  This procedure will execute the following custom commands for
#  initialization.  They will be executed once at the start of
5 G: N4 j5 U; F0 B8 E* M3 n#  program and again each time they are loaded as a linked post.  
#  After execution they will be deleted so that they are not
: R  q4 J% `) g# l+ A( c#  present when a different post is loaded.  You may add a call
  S% Q. z4 O& G#  to a procedure that you want executed when a linked post is
+ v3 s# l/ Z/ c" Z) I# @# u#  loaded.  
#
8 E5 Z- {# n0 d* a#  Note that when a linked post is called in, the Start of Program
+ w) {7 z6 k$ ?1 Q% o$ J#  event marker is not executed again, only this procedure.
#
7 |! u8 w8 h  C1 G#  DO NOT REMOVE ANY LINES FROM THIS PROCEDURE UNLESS YOU KNOW
5 s4 h) F% `8 w, E0 x#  WHAT YOU ARE DOING.  DO NOT CALL THIS PROCEDURE FROM ANY
4 C8 l9 z/ \; O#  OTHER CUSTOM COMMAND.
#
0 i' o* L$ G. {8 h9 h# M# R
% ~2 j( g( Q) Q8 l   global mom_kin_machine_type
" o. _6 Z1 _1 z; e; ]% _5 T
' n8 N" d  E/ ]6 o$ f  l   set command_list


   if [info exists mom_kin_machine_type] {
      if { ![string match "*3_axis_mill*" $mom_kin_machine_type] &&  ![string match "*lathe*" $mom_kin_machine_type] } {
$ {* L& q* d+ W; k) F7 ~
         lappend command_list  PB_CMD_kin_init_rotary
. o4 T% z8 J/ C) {7 k! g0 P! B      }
& E5 U; `1 m9 T7 P3 {   }
+ E  _: g  j3 N- R7 ?
   lappend command_list  PB_CMD_init_auto_retract
   lappend command_list  PB_CMD_initialize_parallel_zw_mode
   lappend command_list  PB_CMD_init_parallel_zw_mode
   lappend command_list  PB_CMD_initialize_tool_list
/ u6 ~6 L9 _+ u  D( a2 a2 {1 h4 b   lappend command_list  PB_CMD_init_tool_list
1 \; ~' C4 k8 e& U2 V   lappend command_list  PB_CMD_init_tape_break
   lappend command_list  PB_CMD_initialize_spindle_axis
   lappend command_list  PB_CMD_init_spindle_axis
   lappend command_list  PB_CMD_initialize_helix
; c4 q( ]& d) B% k   lappend command_list  PB_CMD_init_helix
   lappend command_list  PB_CMD_pq_cutcom_initialize
   lappend command_list  PB_CMD_init_pq_cutcom
& i& o) v  R% Y+ Z& v; E& c& N5 t
   if [info exists mom_kin_machine_type] {
      if { [string match "*3_axis_mill_turn*" $mom_kin_machine_type] } {
2 p9 k$ Y6 S( v  Q& L7 S- h
          lappend command_list  PB_CMD_kin_init_mill_xzc
          lappend command_list  PB_CMD_kin_mill_xzc_init
' @; l: \5 _6 W9 f, j2 Y          lappend command_list  PB_CMD_kin_init_mill_turn
          lappend command_list  PB_CMD_kin_mill_turn_initialize
( W6 k* X% Z) m7 ^9 g$ g0 _7 V5 `      }
- v1 s: L2 t4 Q' o   }
% z* i4 F% P4 w; ~- {1 ~- P# }
   foreach cmd $command_list {

. `3 q) o$ i: k7 F* ?      if [llength [info commands "$cmd"]] {
9 F: ]' `  M  x- j9 Y! j        # Skip execution of commands that exist in v2 mill-turn posts.
         switch $cmd {
1 Q# X8 |& i8 n6 d            "PB_CMD_kin_mill_xzc_init" -
3 I2 S, k- f* }$ L/ ?, s            "PB_CMD_kin_mill_turn_initialize" {}
            default { $cmd }
1 s: M5 }3 [+ ~' Z: @         }
         rename $cmd ""
* C# u1 l5 `4 ]$ z$ F) D         proc $cmd { args } {}
      }
   }
5 ?1 B3 R+ k' g% t}
+ ~' t' |8 `( f
4 }) b7 R0 A' f
#=============================================================
5 r# A$ a6 m+ |" Q# y( S5 h3 h4 |proc PB_CMD_kin_wedm_engage_move { } {
#=============================================================
#
. q% G( N. L# w% ^5 Z# This procedure is called automatically in MOM_before_motion
1 v0 f! i" C# m& ?# to handle the Engage move for Wire EDM operations.
#
   global mom_sys_start_of_pass

   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
9 n+ K' q1 \. L$ F      if { $mom_lead_in_cutcom_distance == 0 ||  ($mom_lead_in_cutcom_angle == 0 && $mom_lead_in_method == 1) ||  $mom_lead_in_method == 0} {         
3 a( o! z% D! h6 F1 j) t         PB_lead_in_move
      } else {
1 z& r$ j4 y; N& E8 S9 c: f         PB_cutcom_move
- u( G; G5 F& h5 y* c0 ^      }
      unset mom_sys_start_of_pass
   } else {
$ ?& Y% k- r) a9 x( o* i+ j1 g      PB_lead_in_move
   }
0 j& R$ t# ~) J) L; a. Q1 \8 ]}
8 X3 f" w9 D& c
, l, d2 v/ I) U
#=============================================================
+ c8 H9 F& E+ l( V+ w4 zproc PB_CMD_linear { } {
#=============================================================
% P( i* l, R) e- p/ V$ j& }$ ]global feed_mode mom_feed_rate
4 u  U* r# S" n) T& m5 \1 p. sglobal mom_kin_rapid_feed_rate
' R4 l: D# d% Y9 }, D' Iglobal mom_tape_status
, r7 |! O1 n- J  t( v: E& `global suppress_output      
global mom_motion_type
global mom_current_motion
& [, C. r- Y( o1 W1 ?6 ~9 Uglobal mom_pos
. A) o7 p* o) x9 @/ o, uglobal momComplex
3 @: O; F! y4 `( hglobal momConic
9 W7 _" Z3 f7 x
; E. \# K" R0 j) \if { $feed_mode == "IPM" || $feed_mode == "MMPM" } {
1 p' R1 d2 q5 U5 p5 O/ z( X0 q   if { [EQ_is_ge $mom_feed_rate $mom_kin_rapid_feed_rate] } {
      MOM_rapid_move
8 \$ U& W) o2 D      return
6 q; h, L9 t0 r' X6 C- v) W   }
}
3 Q8 W5 v4 j9 b  L0 Q, `
if { $mom_tape_status == "ANGLE" } {
- }. P: |% Q) C8 M; w: o- k# d, c   MOM_force Once G_motion X Y
   MOM_do_template linear_move
   return
} elseif { $mom_tape_status == "CONIC" } {
5 L2 k4 A% K6 Q* v( F( ^3 y   MOM_force Once G_motion X Y
   if { $mom_motion_type != "CUT" } {
      set mom_pos(3) 0
1 I( e3 Q" }2 I0 Y$ Z      set mom_pos(4) 0
   }
   MOM_do_template linear_move_conic
   return
} elseif { $mom_tape_status == "COMPLEX" } {
   if [info exists suppress_output] {MOM_abort_event}
9 \- K! D7 ?8 u7 ^* O6 f8 R: P   if ![info exists momComplex] {
      MOM_force Once G_motion X Y
$ L6 N3 }7 m# R/ W, {2 }      if { $mom_motion_type == "RETRACT" } {
* Q0 s# X8 z* ]2 r0 l         set mom_pos(3) 0
         set mom_pos(4) 0
         MOM_do_template linear_move_complex
' X! ~" l3 N4 i- }7 J, A$ h1 l         MOM_output_literal "G140"
      } else {  
4 v# b0 ~# Z% h! }2 Q. l" N$ W6 l' {         MOM_do_template linear_move
      }
! d' [- z# }0 O   } else {
      MOM_force Once G_motion X Y Text G_motion_upper X_upper Y_upper
/ M- v0 F3 v6 ~* n, S      MOM_do_template linear_move_complex
9 ?( i) N  _# q* I( o, w# h& r% y   }
   return
" N* d9 ~1 L% q% Y} elseif { $mom_tape_status == "NONE" } {
   MOM_force Once G_motion X Y
   MOM_do_template linear_move
7 G) R  y) P) `! w& ^  ]   return
0 c; V: i6 g1 g* f8 X  I  d# H}
}
9 `" v7 [& W. }: U) r% r

, D8 h' P- R+ a4 L, l% i0 y/ b#=============================================================
proc PB_CMD_output_tape_per_operation { } {
0 L) ^" O+ m9 o# I  ?( C#=============================================================
#
. D, N2 u1 }; ~1 s#  This procedure can be used to output an N/C tape with each operation.
. Q7 r& K7 o# l& [! x#  Place this custom command at the VERY begining of the Start of Operation
. C; Z2 D6 t3 q0 N#  event marker.
#
#  This proc will also delete the initial program tape and rename it to
3 v1 O- R& l1 I& b#  {operation_name}{sequence number}{extension}.
4 l% w) S& Q0 Z/ `! y#  Any N/C code output with the Program Start sequence will be lost.
+ [, j5 f9 b& E( T! k$ S#
; f1 x. L6 O! d3 A' W  W   global ptp_file_name
4 z  c. @9 O8 n6 B0 _3 h   global mom_output_file_directory
5 V) v. d- `4 n; d0 M   global mom_operation_name
2 d, j8 Z3 K3 |  {5 r# o   global mom_output_file_basename
, \( X5 M- h5 S. i$ E. L8 c   global mom_sys_output_file_suffix
. f) v- P. t) Y
) \: v$ r, ?- ^  ?4 |#
# Remove next two lines of code if you don't want the original nc tape
# with the start of program info to be deleted.
#
! e# L6 [0 @) h7 H* j   set fn ${mom_output_file_directory}${mom_output_file_basename}.${mom_sys_output_file_suffix}
# N1 X8 q! Y- s   if [file exists $fn] {MOM_remove_file $fn}
+ r0 b2 }4 Q" N0 `
- F5 u3 s$ m+ P6 M   MOM_close_output_file $ptp_file_name

   set ptp_file_name "${mom_output_file_directory}${mom_operation_name}.${mom_sys_output_file_suffix}"
+ D" I# W8 R) c7 R   MOM_remove_file $ptp_file_name
) x% F7 H  [7 j0 w  {   MOM_open_output_file $ptp_file_name
}
- n7 t* C- Q: Z1 j7 q: A5 w8 e

#=============================================================
% V+ z' l2 q+ X+ |7 f1 W) [% r) kproc PB_CMD_pause { } {
#=============================================================
# This command enables you to pause the UG/Post processing.
4 o' B7 e8 `  L) r* J9 D#
  PAUSE
% H. }& g* B5 ^$ U& |  }- f}


#=============================================================
9 j$ o; ]+ i! ~) R& u) Rproc PB_CMD_start_of_conic { } {
6 u. C$ }) U9 i* \; l$ v1 u#=============================================================
" c' ~: g6 J4 B, ]& @. q$ F: @uplevel #0 {
4 P+ J; }2 T' h8 T- j" |* u1 I   set mom_kin_wire_tilt_output_type "COORDINATES"
4 K' ^+ o2 j% d$ U% ^2 R' V
& {/ S# E" X3 E4 G" v   MOM_reload_kinematics
9 q8 M& _# I; q) A) q. v
   proc MOM_start_of_conic {} {
      global mom_upper_arc_direction
! G& ^% h& y: o+ |; p+ |, c4 _      global mom_arc_direction
      global suppress_output
      global mom_prev_pos
$ U& d7 Y; _; c7 X      global mom_conic_motion_type
. L% {- K% c" _6 W% V      global mom_tape_status

      set suppress_output 1
4 m, _' I8 `$ R2 a# C" t: w      if ![info exist mom_upper_arc_direction] {set mom_upper_arc_direction CLW}
7 Z3 r7 P. t# L
      if { $mom_conic_motion_type == "LINEAR" } {
( q: R. e" m. P  ]         #if { $mom_tape_status != "COMPLEX" } {
# G/ J$ E3 A2 }$ |            PB_CMD_linear
5 D6 C& i, ]* g         #} else {
         #  if [info exists suppress_output] {MOM_abort_event}
         #  MOM_do_template linear_move_complex
0 ?& f, K2 T) B0 d1 p- Q, |         #}
      } else {
         PB_CMD_circular
         # MOM_do_template circular_move_complex
      }
   }

9 n5 Z( B. G, j   proc MOM_end_of_conic {} {
      global suppress_output
      if [info exists suppress_output] { unset suppress_output }
   }
}
& V5 a% M6 I$ s7 r. X}


. v, w0 Y4 @# g% F5 ]: h#=============================================================
proc PB_CMD_start_of_file { } {
#=============================================================
7 ?% T+ q& i$ T1 l6 E0 ^global mom_ug_version
global mom_event_handler_file_name
# c  y% b7 X% Uglobal mom_path_name
) D. X' b& N& I7 Kglobal mom_part_name
3 ~6 N3 J# f4 E1 Oglobal mom_output_file_basename
" q+ U# l: ?3 w, N7 c0 k6 T: i4 nglobal mom_output_file_directory
. N) c3 {* U# J! U) c( c1 j- sglobal mom_output_file_suffix
, b" H) v7 G9 N4 Hglobal mom_logname
global mom_date
3 f, l6 P( O. k* d) F6 o$ \global mom_machine_mode
5 \1 E( @# g& K9 jglobal mom_power_value
. X  M/ P0 u$ K3 e5 ]( [global mom_auxfun
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
global momPathLength
global momPoster
global mom_cut_type
+ s4 Z: A8 s0 }5 Lglobal momWorkstation
global momLogonDomain
global momPathNext
8 _! m5 J: v& I# Mglobal mom_kin_machine_type
1 I: K3 j! `4 ]7 H9 M" [global momComplex

- k  l1 h5 _# V, v1 I% Z# zMOM_set_seq_off
. _- J- P! Q: h) K5 d  z
set momPathNext 100
MOM_output_literal "( Unigraphics WirePost for Cheewah, Ver 1.1 )"
MOM_output_literal "( Design by Deaton, 2005/09/19. )"
MOM_output_literal "( Email: deaton@21cn.com, Tel: 13923361400 )"
set momPoster "CMDEATON"
* U5 g( O' J3 Q! dset momWorkstation [MOM_ask_env_var ComputerName]
set momLogonDomain [MOM_ask_env_var UserDomain]
MOM_output_literal "(================================================================)"
( d" |' X9 t/ y9 B2 C0 fMOM_output_text "( Activate Version: $mom_ug_version )"
MOM_output_text "( PostFile: $mom_event_handler_file_name )"
MOM_output_literal "(================================================================)"
7 F6 l( ?4 E' J; z" g# Q7 k5 ~MOM_output_text " "
7 B. S9 \" f  l; ^% x, a3 ~MOM_output_text "( Current Part File: $mom_part_name )"
; T- o; P& j% F! y9 j& EMOM_output_text "( Toolpath: $mom_path_name )"
MOM_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 )"
- j( r  Y" [$ @2 VMOM_output_text "( DNC Machine Tool: $mom_kin_machine_type )"

/ b5 Q/ L0 a! e  F8 Zif [info exists mom_cut_type] {
0 Q" |4 y( A8 j2 l  G   switch $mom_cut_type {
      0 { MOM_output_text "( Toolpath method: External Trim )" }
      1 { MOM_output_text "( Toolpath method: Internal Trim )" }
1 {, g6 _- U9 ?8 i" ^( J      3 { MOM_output_text "( Toolpath method: Open Profile )"  }   
4 q2 S7 a: o, g+ c8 B# P2 B4 t$ ]   }
}

2 j" i. p6 e( h7 ~5 E# qMOM_output_literal "(================================================================)"
MOM_output_text " "
" ^% }; N6 r4 l( z& S- k* QMOM_output_text "( CAM Workstation: $momWorkstation )"
# d' [- ]& M2 ~# lMOM_output_text "( NC Programmer: $mom_logname )"
( f- p$ t* d4 U( a, eMOM_output_text "( Logon Domain: $momLogonDomain )"
, e  H0 r' n; [4 s/ U: ZMOM_output_text "( Post Date: $mom_date )"
MOM_output_literal "(================================================================)"
MOM_output_text " "

2 d+ H  G* v0 t$ cMOM_output_literal "(NO    =     ON OFF  IP  HP MA SV  V   SF  C  WT  WS  WP  WC)"
8 ]' Z$ w- j& P7 q+ v3 NMOM_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"
: V4 ]* ^( E. k4 e* d1 G  m* g, G- BMOM_output_literal "C992   =    000 019 017 001 19 05 03 0006 00 000 000 000 000"
; w1 i  Y. G1 FMOM_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"
* U- H5 S4 k! b; QMOM_output_literal "C999   =    005 012 016 003 12 05 01 2004 02 000 000 000 000"
MOM_output_literal "(================================================================)"
. d) e# c' T; P' @8 ZMOM_output_text " "
+ n) h! c( J8 Z2 q2 w
set momPathLength 0

9 o1 }2 ]/ k9 v- e. p- K& f$ |MOM_output_literal "G40 G50 G09 G75"
# m- u' r3 T+ p2 @& [& B1 W$ {MOM_output_literal "G90 G11 G21"
3 U; i. u) @# E- ~* eMOM_output_literal "G958"
MOM_output_literal "G04 X+2500"
4 H5 m) y' M6 ?3 \3 ]4 _MOM_output_literal "G92 X0 Y0"
; N, l# }7 `. n# vMOM_output_literal "G54"
MOM_output_literal "C890"
MOM_output_literal "(================================================================)"
MOM_output_text " "
}

: C0 M9 C2 e( G: o0 w! ?
#=============================================================
2 e  L# K% V4 `$ Qproc PB_CMD_start_of_pass { } {
: N% w7 ]  o* V#=============================================================
global mom_wire_guides_lower_gap
global mom_wire_guides_upper_gap
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane
* l% I; x3 u0 X( _$ B5 ^global momPathNext
8 b: v5 C' Z/ `7 t- }8 c* I2 z( bglobal mom_tape_status
global mom_wire_angle_text
global mom_flush_pressure
global mom_power_value
global momWorkstation
global momLogonDomain
/ t- J" }/ K, t3 U3 wglobal momPoster
7 o' y% S  @# \; L) tglobal mom_sys_cutcom_code(LEFT)
4 i) o1 q- x+ j" d& V+ Wglobal mom_sys_cutcom_code(RIGHT)
global mom_sys_cutcom_code(OFF)
global mom_kin_arc_output_mode
global mom_kin_wire_tilt_output_type
# W# x* E9 n1 Z( I4 _* T& J) tglobal mom_wire_cutcom_adjust_register
( c' Q% C  U: I, rglobal mom_wire_cutcom_user_register
4 ]  p2 `% P9 P& }
8 L% _$ G( v- d$ r+ ^+ f# Lif { $momWorkstation != $momPoster }  {
   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
5 s! ?4 B2 a( }8 l1 D9 P}
if { $momLogonDomain != $momPoster }  {
& z/ A$ y& W9 E- T1 y   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
2 \; j/ s% u* E/ d* o1 R" D}
0 }3 y9 Z2 k0 ^if { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
: u" l- e; I3 W6 B; \! C5 Z   MOM_abort  "Error occurred. Postprocessing has been aborted"
}

MOM_reload_variable mom_wire_guides_lower_plane
MOM_reload_variable mom_wire_guides_upper_plane
MOM_reload_variable mom_wire_guides_lower_gap
MOM_reload_variable mom_wire_guides_upper_gap
2 M' [5 P1 W2 T. z% {MOM_reload_variable mom_tape_status
MOM_reload_variable mom_wire_angle_text
, M0 |, j3 R8 W* }" |8 q" E& EMOM_reload_variable mom_flush_pressure
1 e. h+ M' ~' \/ ~, e+ rMOM_reload_variable mom_power_value
MOM_reload_variable mom_wire_cutcom_user_register
$ L' u7 F& I# P) }1 K
. V1 v0 ^4 A* J" WMOM_output_text " "

: X& O' p( J( |( G' H* u2 jif { [info exist mom_tape_status] } {
   switch $mom_tape_status {
% J. ~' m1 x% i: n      "NONE" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
6 n  n' p& Y6 @( ?4 b         set mom_kin_arc_output_mode "FULL_CIRCLE"
      }
" \- ?" W5 ~% T$ P$ Y      "ANGLE" {
1 ]* _* [8 R. {: ~6 P. ~         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"
8 v+ h8 Y7 ~  h& v7 }  ?' Z         MOM_do_template tpset
         MOM_do_template tnset
' w2 k8 W, r( f$ v! q         MOM_output_text " "
2 o$ }- q4 Z2 f4 V% K  d  u* _; S      }
      "CONIC" {
         set mom_kin_wire_tilt_output_type "COORDINATES"
4 `! {  }" _1 j         set mom_kin_arc_output_mode "LINEAR"
1 o: [7 Y. I0 A2 j9 Z; M#         set mom_kin_arc_output_mode "FULL_CIRCLE"
         set momPathNext $mom_wire_guides_upper_plane
0 j. x+ k% t2 y7 `. l: H& \9 i- [         MOM_do_template tpset
% G; `, y! M: C  q. u8 w" T' m         MOM_do_template tnset
         MOM_do_template tuset
         MOM_output_text " "
- J2 @' ?3 p2 B& y& @      }
      "COMPLEX" {
: j& ~) J& {, L1 N1 t1 d0 l         set mom_kin_wire_tilt_output_type "COORDINATES"
4 B  I3 j) Z$ E8 ~7 ]         set mom_kin_arc_output_mode "FULL_CIRCLE"
         set momPathNext $mom_wire_guides_upper_plane
1 b, O- g+ f, H9 Y         MOM_do_template tpset
         MOM_do_template tnset
         MOM_output_text " "
6 m8 U; q  h. f1 J2 M* g3 |8 d         set mom_sys_cutcom_code(LEFT) 141
         set mom_sys_cutcom_code(RIGHT) 142
/ k% {; }  [/ {4 I2 h+ l. |         set mom_sys_cutcom_code(OFF) 140
0 P. B- U- ?- O  |& N      }
   }
6 V- a3 E* ~2 v) P! `}
: a# T- K) J- n' h& N# {
: n' V9 J8 o6 I: b& J1 Jif { [info exist mom_flush_pressure] } {
   if { $mom_flush_pressure == "LOW" } {
      ## Flush off
      MOM_output_literal "T89"
      MOM_output_literal "M00"
      MOM_output_literal "T85"
   } elseif { $mom_flush_pressure == "MEDIUM" } {
! _8 ~% R0 Q  d3 i9 J! z" U% T      ## Flush Low with tank
      MOM_output_literal "T94"
      MOM_output_literal "T96"
      MOM_output_literal "M00"
1 k) u8 W! g- g4 a7 i; }5 h      MOM_output_literal "T85"
5 K; K% w& Q0 p! Z3 o   } elseif { $mom_flush_pressure == "HIGH" } {
; Y$ D. Q- k4 O  H  e% Q" U7 z      ## Flush Low with tank
      MOM_output_literal "T94"
      MOM_output_literal "T96"
/ f2 f) |9 z  D$ P3 u: I; U0 \      MOM_output_literal "M00"
      MOM_output_literal "T84"
   }
}
# Z: A5 B3 {# t7 u7 f; _& S6 ~
+ v* s  H0 o* u3 u# _MOM_output_text " "
MOM_do_template condition
" [+ Y. y9 M- s8 L; C
. D; k% b6 O" _  d: h% gif { [info exist mom_tape_status ]} {
# j6 u) S: r* z: T, v! L8 w: U   if { $mom_tape_status == "CONIC" } {
- E, n( k' w" \, D* V      MOM_output_literal "G74"
   } elseif { $mom_tape_status == "ANGLE" } {
      MOM_output_literal "G51 A0"
8 Y& S8 Y0 V* c! b" |! P   }
. F/ X4 |$ v* O4 H2 \/ U   if { $mom_tape_status != "COMPLEX" } { MOM_output_literal "G41 D000" }
$ S7 x$ Y4 ~* t2 V% r}
* E. Z  `/ U) c. z: M}

, t2 _* g) K2 m
#=============================================================
proc PB_CMD_start_of_program { } {
#=============================================================
global momWorkstation
7 a  g9 M4 Y3 {+ N5 f9 q( zglobal momLogonDomain
global momPoster
global mom_wire_guides_lower_plane
global mom_wire_guides_upper_plane

8 g0 C3 R6 u# ]+ e/ i; yif { $momWorkstation != $momPoster }  {
0 e8 c! c, N5 n0 s% x   MOM_abort  "Error occurred. No workgroup can be access, Postprocessing has been aborted"
}
1 N0 J$ N; z4 O( W# l
1 z0 S% B/ v" H! N; s4 q& kif { $momLogonDomain != $momPoster }  {
   MOM_abort  "Error occurred. Post server isn't supported, Postprocessing has been aborted"
5 O& _' y2 b" L+ X: [+ g( v}

#PB_CMD_start_of_conic
7 \8 E( W. e7 B% w2 S
* w1 u# l- t' j2 M3 G7 O. fif { ($momWorkstation != $momPoster) | ($momLogonDomain != $momPoster) }  {
   MOM_abort  "Error occurred. Postprocessing has been aborted"
}
}
2 }2 }% r" t2 A' |4 V) j" w

- a* b6 w2 Q: _( Z7 q#=============================================================
1 o7 s  m" g9 i6 m( jproc PB_CMD_suppress_output { } {
0 U: k; W- [  v9 P+ Q8 s#=============================================================
8 `+ a/ q: }( S$ \1 Z
. A6 |/ \5 ~2 g7 m3 V& V! O' D) nglobal suppress_output

if [info exists suppress_output] {MOM_abort_event}
}
6 [: I: O, d/ {' E" Y. @
; E7 M* \! P4 B
#=============================================================
proc PB_CMD_work_coordinate { } {
9 T  L0 z8 ?3 R" q#=============================================================
+ D9 X' p7 O: S  @3 V( \5 Bglobal mom_work_coordinate_number
+ [/ y% `! Y4 r! K0 R
MOM_reload_variable mom_work_coordinate_number
MOM_output_literal "G90 G$mom_work_coordinate_number"
}
, S/ x+ D+ d2 t9 ]8 |

% ]0 a- `  k1 x#=============================================================
proc PAUSE { args } {
#=============================================================
9 `. ]% z# ~8 Q  global env
0 s( L% W7 D$ o2 D
  if { [info exists env(PB_SUPPRESS_UGPOST_DEBUG)] &&  $env(PB_SUPPRESS_UGPOST_DEBUG) == 1 } {
- _& g8 C. i- x2 K, \9 m9 o* S( hreturn
  }
7 e8 b: Z$ B. r+ f# J3 K! ~
  B$ j" C/ Y/ n; e3 U
. ^8 y$ G& W3 v8 ]6 A  set cam_aux_dir  [MOM_ask_env_var UGII_CAM_AUXILIARY_DIR]
/ k% |( e- z2 Y. T( _3 T
  J+ B" b( [4 J4 R  global tcl_platform

  if [string match "*windows*" $tcl_platform(platform)] {
     set ug_wish "ugwish.exe"
  } else {
8 d2 w2 @) o6 z     set ug_wish ugwish
  }
8 X  V4 Q( ^7 ]3 Y% l0 r/ p0 O
, ^4 e; Z6 T* u2 ?  if { [file exists ${cam_aux_dir}$ug_wish] && [file exists ${cam_aux_dir}mom_pause.tcl] } {

9 `/ x0 q  N2 m4 k% Q     set title ""
+ I+ z) G/ d/ v; S     set msg ""

     if { [llength $args] == 1 } {
$ g% ]# U. \; I0 N$ {/ S       set msg [lindex $args 0]
; R! K9 R0 A: S; X2 T4 g1 G     }

/ m- |. \; e& v' Z' t8 k1 Z     if { [llength $args] > 1 } {
; F0 L! T: Y4 r& N       set title [lindex $args 0]
       set msg [lindex $args 1]
6 ?' g" i+ L- s# F- ^     }
+ l% b! @' e" W0 ^8 I& i$ {0 K. k
$ y/ i  V: G4 l$ l2 [4 k2 Y& W     exec ${cam_aux_dir}$ug_wish ${cam_aux_dir}mom_pause.tcl $title $msg
( m3 t. }: E$ o; F1 }- m- Y  }
# y" t) f6 _0 A$ ~}


#=============================================================
# C/ V' G- y; d7 T- ]proc EQ_is_zero { s } {
: s5 \( B6 L. e% J; J( ]  U) l#=============================================================
   global mom_system_tolerance

   if [info exists mom_system_tolerance] {
      if { [expr abs($s)] <= $mom_system_tolerance } { return 1 } else { return 0 }
' Y1 |2 x9 W3 i. |9 w+ E( B   } else {
1 \0 e0 Z7 u8 [# U/ C1 Z3 c. K      return 0
' z* S' v; Q, }1 [2 r& Q) b   }
5 j( l' @  w1 P9 B}

: U+ b2 J4 B5 M; {5 X5 Q* u2 Y
+ E6 B" G1 R! S. y#=============================================================
proc CATCH_WARNING { msg } {
#=============================================================
  global mom_warning_info
0 U+ k6 M& D; _  global mom_motion_event
+ I' Y; V$ I( S/ D& ~  ^  global mom_event_number
! b, p2 T& I- l
   set level [info level]
6 m/ q! e, g2 O% ^7 K4 ~1 J* Q   set call_stack ""
4 k/ E% c! `0 Y   for {set i 1} {$i < $level} {incr i} {
      set call_stack "$call_stack\[ [lindex [info level $i] 0] \]"
, l6 w7 A) C) P' f5 a# Q# H   }
   set mom_warning_info "$msg ($mom_motion_event $mom_event_number) $call_stack"
   MOM_catch_warning
; r3 l6 S+ ^( P- v; l! H}

! W' L5 Y" ?% x  U( C0 v/ O9 k
* c! _/ u  A5 M) I) }0 I) d2 _#=============================================================
5 Z- s8 R8 S% J# b( xproc WORKPLANE_SET {  } {
4 W" [* t* J  \1 G/ b: p#=============================================================
" Z- O' V' o$ `6 @: a# [   global mom_cycle_spindle_axis
   global mom_sys_spindle_axis
   global traverse_axis1 traverse_axis2

   if { ![info exists mom_sys_spindle_axis] } {
      set mom_sys_spindle_axis(0) 0.0
      set mom_sys_spindle_axis(1) 0.0
3 r( w# P9 l) ^& a* _4 H! s      set mom_sys_spindle_axis(2) 1.0
; |! E( p0 p0 z+ ]; N& W/ `   }

6 q9 u+ t  ?  C0 p. `   if { ![info exists mom_cycle_spindle_axis] } {
      set x $mom_sys_spindle_axis(0)
      set y $mom_sys_spindle_axis(1)
      set z $mom_sys_spindle_axis(2)
6 e8 m1 K! n" o0 U4 y
) Q+ n  u* y2 S      if { [EQ_is_zero $y] && [EQ_is_zero $z] } {
         set mom_cycle_spindle_axis 0
" F6 {+ a3 B1 F4 b; ?      } elseif { [EQ_is_zero $x] && [EQ_is_zero $z] } {
1 s) N; Y8 V! q2 }6 T: n# L% \         set mom_cycle_spindle_axis 1
2 U" w# w7 v1 \      } else {
         set mom_cycle_spindle_axis 2
/ j  @/ ~; ?& P1 ^2 q1 s4 ]      }
   }
" X2 v9 K" i8 E! n% N
: {2 g8 k" [& y   if { $mom_cycle_spindle_axis == 2 } {
      set traverse_axis1 0 ; set traverse_axis2 1
   } elseif { $mom_cycle_spindle_axis == 0 } {
      set traverse_axis1 1 ; set traverse_axis2 2
1 L& f6 H+ d/ x   } elseif { $mom_cycle_spindle_axis == 1 } {
      set traverse_axis1 0 ; set traverse_axis2 2
+ ]+ k" c9 v3 D: \) |1 T6 J, H   }
% R! h% s& g3 @- i# F}
  l: P8 p, {( w% n$ h  `8 F

% Q; k8 o, }3 Y; N) x6 y#=============================================================
proc EQ_is_equal { s t } {
( Z: z! ], R$ F: @: P0 r0 P6 `( p#=============================================================
   global mom_system_tolerance

   if [info exists mom_system_tolerance] {
* y1 {% u3 `2 C) r. S6 _. w: Z7 C4 f; x      if { [expr abs($s - $t)] <= $mom_system_tolerance } { return 1 } else { return 0 }
- v8 g7 P* s0 c: _/ P7 S+ i3 j6 e" v   } else {
) W; A- \' i/ D" H2 }      return 0
, H3 w3 r' R& ~; k9 e! q   }
}

# Z) D$ V6 k" C* O# S2 z3 _
' @+ K% t6 }* {( ~

# n/ r& T' e% M5 D0 h2 D& U# h
3 P8 j8 f+ m9 x! m2 h
#=============================================================
proc TRACE {  } {
#=============================================================
" P6 p5 m) L4 |6 S1 N/ o   set start_idx 1
3 f: b- \! j5 \
   set str ""
   set level [info level]
   for {set i $start_idx} {$i < $level} {incr i} {
% ~7 z4 j( m: V/ |  d5 x/ r# ^+ ~      set str "${str}[lindex [info level $i] 0]\n"
   }

return $str
& l" K; r" |6 s, r}

1 z" C: B0 S" X2 Q, T* L
if [info exists mom_sys_start_of_program_flag] {
   if [llength [info commands PB_CMD_kin_start_of_program] ] {
9 _2 U3 |, @$ s* j) `      PB_CMD_kin_start_of_program
6 P1 h: B1 x, n) L  `   }
# T7 l: n; N4 _} else {
   set mom_sys_head_change_init_program 1
) r3 ^8 A; n. x/ f! Q   set mom_sys_start_of_program_flag 1
}

pengke

有4B的吗

wjc1249

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

杨亚林

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

sn604807478

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

wyyjsguolu

要是用普通的 线切割机器（不带回转轴的），完全没必要 用 nx 一类来做3B代码呀，
$ h1 m+ r) }' D( a# VNX出个代码太慢了，直接用caxa 线切割，超级快，破解版的 还多，现在 官方出的试用版的也很好用，还是全功能的，不过试用期一个月，到期重新安装个 就好了，
& l/ C" |; Z! U/ ~0 x* Q$ S* @要是带回转轴的 线切割，我也在考虑怎么用 nx出3B 代码。。

wanlei1985

谢谢你们