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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
0 l6 h, A: I, |%
(CY)
G21
( r8 F9 x' |$ C+ P/ ], Y( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
9 B' r4 o2 y, h5 I$ \; r0 [N100
G00 G90 G54 X37.2 Y4.3
S8500 M03
* d) l1 d0 F. r, W/ M08
8 t, e/ g" _1 M8 OG43 H2 Z5.
Z2.
" h3 X- ~  E/ H9 j* l1 UG01 Z-7.13 F2000.
# c0 K, S( ~9 d. VG41 D2 Y4. F1200.
3 w; v; [/ y* H. y3 h4 q; C! ~G02 X42.7 Y-1.5 R5.5
G01 Y-8.18
G02 X37.2 Y-13.68 R5.5
4 K1 i$ _; }+ o, A" {  VG01 X1.5
G02 X-4. Y-8.18 R5.5
G01 Y-1.5
9 ]' K+ x3 U7 H# _9 DG02 X1.5 Y4. R5.5
G01 X37.2
G02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
8 S. Y5 X" r7 {! J; R8 T  R5 ~( pG00 Z5.
X37.075 Y4.1
Z2.
G01 Z-4.59 F2000.
; R3 G: S& w! M/ n3 m, nG41 D2 Y-0.4 Z-4.63 F1200.
Y-3.18
$ w. T# @$ x# ?G02 X36.311 Y-6.03 R5.7
G01 X34.395 Y-9.35
; {1 d2 W6 u( f3 WG02 X29.458 Y-12.2 R5.7
G01 X9.242
' b) I# M* r6 n6 |3 `) \9 f: IG02 X4.305 Y-9.35 R5.7
G01 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
1 e  ~: O1 D# n7 KG00 Z5.
9 b6 i) I- F: F0 b( k% w7 MN102
! ^8 Q* D+ k) h. EG00 G90 G54 X43.3 Y6.66
S8500 M03
! c% @$ }& z- t9 q5 G4 Q: R- x/ M08
G43 H1 Z5.
' K2 I* p6 G* X  s% K" b6 dZ2.
: H0 w, U( t# `6 e* _6 `3 }G01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
0 h' B0 i0 {, g+ t4 |" }; MG01 X9.242
* x/ n5 H; h+ QG02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
) D6 h" o/ B& uG02 X7.325 Y2.62 R5.8
) j& D9 m# [) {" G5 J3 GG01 X31.375
/ r# [) i4 v# ?+ KG02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
9 d; e4 s  d! U# EG02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
G00 Z5.
! w4 C$ f" J% r7 |X43.3 Y6.66
Z-0.24
G01 Z-4.48 F2000.
6 j/ o. o1 h- g0 S: b$ @3 j7 JG41 D1 Y1.16 F3600.
Y-8.2
" i. I" g: d. W- YG02 X39.2 Y-12.3 R4.1
+ C; Z+ J" D) N8 j8 u( [- s: U  SG01 X9.242
0 g9 V' E. B, A! H! nG02 X4.219 Y-9.4 R5.8
2 \: q; Q( X+ [& gG01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
) c' r" U) B$ D0 S/ N) h% V% K- Z0 zG01 X31.375
7 u" p- m: M" e- M; x* _G02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
; Y/ a1 O& f& b1 O" v  ]G02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
& E* z1 o/ }7 QG00 Z5.
$ A# @4 a6 h% x  R$ U# 100=[ # 100+1]
N1
2 [! l. V6 p. B- _. J. ]% uG52 X0. Y0.
2 a$ _) \6 q, I. V+ W; hM99
%

若枫

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

若枫

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

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
if t$prv_t$,"Error, Done not support multiple tools"

谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
scy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
- P, G9 d. g: v* x; w. ?          [
. O6 f, v  a' B" o" S+ [) @, y. j        result = mprint(scy,1)      
        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
        compwarnflg = 1
2 U* P2 f9 {+ }: k4 z          ]
% G0 q& D; S' G! w. d5 S乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！