请教mc9.1后处理添加报警！

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
! X: r9 \" z3 F$ E% T, [3 m%
(CY)
# K( g8 `4 _' I1 K5 OG21
. ~9 ^* \  [$ ^8 \' j3 c  i- U1 x( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
; c, C: P- C/ |( w' NN100
G00 G90 G54 X37.2 Y4.3
0 F! J! f. p' [% ~S8500 M03
* \) L7 Y9 ^8 h) q# |3 E/ M08
G43 H2 Z5.
Z2.
. R+ K* U+ y4 B" @& y2 P5 YG01 Z-7.13 F2000.
G41 D2 Y4. F1200.
# g" v9 |! y3 G3 X& W" NG02 X42.7 Y-1.5 R5.5
G01 Y-8.18
" ?) s) \' A6 c: n% }. _G02 X37.2 Y-13.68 R5.5
: ?2 b+ E1 v. P  FG01 X1.5
/ q/ y2 L' j* LG02 X-4. Y-8.18 R5.5
G01 Y-1.5
G02 X1.5 Y4. R5.5
( b9 O6 l' P- H0 P- U0 H  ^5 FG01 X37.2
2 }  m- d& \  W* t! a( z$ BG02 X37.3 Y3.999 R5.5
+ t! }- Y+ w, N* ^% ]G01 G40 X37.305 Y4.299
2 H( ]/ B. K: U0 K& a) oG00 Z5.
( F3 p$ t& u& ~( d& vX37.075 Y4.1
Z2.
6 O. `  k6 q- G* z- O( {G01 Z-4.59 F2000.
+ m5 K* T8 R6 f  l2 d1 U% ^9 CG41 D2 Y-0.4 Z-4.63 F1200.
Y-3.18
4 e( ]4 O$ L+ K  u5 T2 q' B1 PG02 X36.311 Y-6.03 R5.7
G01 X34.395 Y-9.35
* s4 o0 |6 D1 |2 X! x' t6 O6 G+ T* kG02 X29.458 Y-12.2 R5.7
- b/ a+ }( j1 j; }4 fG01 X9.242
6 r& Z$ _1 ?6 O& @0 Q. [4 Y, bG02 X4.305 Y-9.35 R5.7
' e6 D7 Q% L" PG01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
G01 X31.375
" z8 G2 g4 P( ]% f4 u3 N2 @8 EG02 X37.075 Y-3.18 R5.7
G01 Y-9.28
G40 Y-13.36 Z-4.62
& P- e) t( O* \G00 Z5.
9 G, l6 x: q+ r3 ^N102
G00 G90 G54 X43.3 Y6.66
S8500 M03
/ M08
! w' K/ v8 F3 ZG43 H1 Z5.
Z2.
G01 Z-2.24 F2000.
  Z' z6 u2 I+ fG41 D1 Y1.16 F3600.
) R1 b; H0 V4 TY-8.2
G02 X39.2 Y-12.3 R4.1
G01 X9.242
G02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
4 a" \+ o1 R) n& B7 DG02 X7.325 Y2.62 R5.8
. @* M- @1 v5 z5 gG01 X31.375
" ]7 w& t' d' ]- Y5 YG02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
1 ~6 p( ]" [3 \! J5 U7 oG02 X29.458 Y-12.3 R5.8
7 A5 `8 b1 W8 A& Z1 AG01 G40 Y-14.3
0 \  E$ Z5 g) s4 J; nG00 Z5.
/ w2 W5 Q: B' H* fX43.3 Y6.66
8 u2 [; u5 n3 s3 q, K" GZ-0.24
G01 Z-4.48 F2000.
1 D8 ?4 q1 L3 O0 v. o0 EG41 D1 Y1.16 F3600.
1 l3 N1 j# D) m* r8 TY-8.2
; }- R1 B  \, \8 y$ z$ rG02 X39.2 Y-12.3 R4.1
G01 X9.242
$ z$ [* S# t+ d8 t! S, z  hG02 X4.219 Y-9.4 R5.8
" {2 P) @1 w, H! sG01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
+ W$ n; B1 r% |G01 X31.375
G02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
, Q/ c( w  C: s+ O9 ^G02 X29.458 Y-12.3 R5.8
2 O3 z8 w  J$ A+ M( ^8 @8 LG01 G40 Y-14.3
G00 Z5.
2 Z' g& f- q% j0 [# 100=[ # 100+1]
N1
0 F$ ^* V3 f' SG52 X0. Y0.
M99
4 A, k! t  n& j7 v8 Q# g%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
7 E- b% [. w( q/ p4 t8 H  L方法2：在刀具清单的里面增加一个判断刀号的指令。
, ~8 z7 w/ k/ o9 \5 H$ K方法3：在ptlchg1002$里面判断刀号.

若枫

if t$<>prv_t$,"Error, Done not support multiple tools"

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
% q* n- A. b+ K( W" Uif t$prv_t$,"Error, Done not support multiple tools"

谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
scy         "WARNING-WRONG TOOL"         
' M1 M! z, v; X' ~7 Rif stagetool <> toolcount,
7 D) Y6 Z- A8 [          [
        result = mprint(scy,1)      
        spaces = 0
4 C: r' V4 z  {6 K4 n        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
9 Q; [3 ?( m, \% H9 R( k# c        compwarnflg = 1
          ]
+ M7 G4 P! H2 @: A" g$ n6 R0 s乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！