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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
5 H1 n' e9 O" \  k" q8 U+ |) r%
+ Y) {* v( m1 \- T8 m, V(CY)
; H8 v5 A$ u: x. ^: ?G21
( T2/H2/D2/DIA-8.  / FLATMILL )
9 `. a" G" ]# d  d( T1/H1/D1/DIA-8.  / FLATMILL )
2 @  ]" s3 `/ e6 _$ Y0 k" h3 ~N100
0 |: z7 x/ o% @8 t6 t2 JG00 G90 G54 X37.2 Y4.3
S8500 M03
7 |: o( {) {% V; @) b$ u: Q/ M08
G43 H2 Z5.
Z2.
; J8 }6 l  v0 z3 v8 \* ZG01 Z-7.13 F2000.
- I7 Y7 r. u/ P) B3 [+ a. D0 xG41 D2 Y4. F1200.
# n4 \+ k2 J% v5 A" k; _. Z$ VG02 X42.7 Y-1.5 R5.5
G01 Y-8.18
G02 X37.2 Y-13.68 R5.5
G01 X1.5
  Z; N* s' k0 [" T' p' HG02 X-4. Y-8.18 R5.5
" d/ n- Z; t! t3 s1 vG01 Y-1.5
: B6 U" c8 M' ~6 F9 F6 ?3 Y7 qG02 X1.5 Y4. R5.5
2 k- h) G4 c- B8 d6 mG01 X37.2
0 B7 U9 x3 K/ _& E! oG02 X37.3 Y3.999 R5.5
4 d* j- h  u! J: d8 PG01 G40 X37.305 Y4.299
G00 Z5.
X37.075 Y4.1
$ W' d3 j, G5 `5 pZ2.
6 s) C4 `( y" O2 H. j2 s: R( ^$ Q2 @G01 Z-4.59 F2000.
4 t, z3 [: A6 Q; D, _9 t7 [: CG41 D2 Y-0.4 Z-4.63 F1200.
Y-3.18
9 Y; ^* S0 \  L( J) T3 GG02 X36.311 Y-6.03 R5.7
# q4 ^. b3 C5 y! v' MG01 X34.395 Y-9.35
G02 X29.458 Y-12.2 R5.7
G01 X9.242
1 v  ]( b& k. Z! j" M, B! P7 hG02 X4.305 Y-9.35 R5.7
& j" P0 `6 p- qG01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
G01 X31.375
G02 X37.075 Y-3.18 R5.7
G01 Y-9.28
G40 Y-13.36 Z-4.62
, p6 h; `8 d2 e0 H+ A* sG00 Z5.
0 z( E" N( x# L$ v, s+ o0 R" AN102
) _4 K" y/ x( W9 Z# O9 }G00 G90 G54 X43.3 Y6.66
. y; r( E7 ?8 j( uS8500 M03
/ M08
% y! `& z" r; f5 `G43 H1 Z5.
2 j7 A( a2 @. B0 E: nZ2.
9 h+ p" L4 n. J; g0 m; `G01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
9 g' e/ k. l( u$ A* Q# TG01 X9.242
G02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
; c) x8 J. a& o+ b5 v/ R5 mG01 X31.375
- t& x6 x! O7 q6 D8 q5 b. r8 CG02 X36.398 Y-6.08 R5.8
# Z) ^+ X! o8 \+ n- s  l" ^) R( jG01 X34.481 Y-9.4
- f% E2 @7 w; _3 KG02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
G00 Z5.
# {1 v; Q; U/ @  HX43.3 Y6.66
Z-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
G01 X9.242
& s$ }; H0 C0 I, `) rG02 X4.219 Y-9.4 R5.8
; H! I; y8 o0 c* }* y0 [G01 X2.302 Y-6.08
  ?% C1 X+ u; |3 rG02 X7.325 Y2.62 R5.8
G01 X31.375
G02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
, B; `. \: ~4 X9 w, Q9 I3 nG01 G40 Y-14.3
G00 Z5.
# 100=[ # 100+1]
2 E7 `+ }  ^( z) H8 dN1
" a  L% T1 o3 G6 GG52 X0. Y0.
M99
$ i8 ^# v4 J5 |3 p! M$ X%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
方法2：在刀具清单的里面增加一个判断刀号的指令。
方法3：在ptlchg1002$里面判断刀号.

若枫

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

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
& `& K. |" N2 U) H) \if t$prv_t$,"Error, Done not support multiple tools"

8 V. x  r. W& c3 {( J谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
3 t$ o7 G) z3 ~2 i; J6 vscy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
" f# a+ i; s6 V/ g# |7 {/ S# d          [
: |2 D- L0 d6 o5 _' J        result = mprint(scy,1)      
        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
2 e/ q# }/ D1 m& t* |) }        compwarnflg = 1
          ]
4 {" d, c8 N7 I7 o: {乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！