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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
* ~+ ^# {/ G$ p- s- g6 D( i  v: Z%
(CY)
" E( f8 {2 B' [9 f3 hG21
( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
N100
2 u" p5 z; e3 @8 V. uG00 G90 G54 X37.2 Y4.3
$ S' c- `$ O" O; o+ GS8500 M03
! |! ~7 k6 f5 ~2 E4 e) V, J4 Y: e2 u/ M08
' v$ D) D% C) I. ?G43 H2 Z5.
; w; W* k2 Y* y; w1 j! `! cZ2.
G01 Z-7.13 F2000.
8 Q8 T+ x  e$ u2 ?# bG41 D2 Y4. F1200.
9 j* N9 V9 g7 w' FG02 X42.7 Y-1.5 R5.5
, M$ t8 X3 A0 T, xG01 Y-8.18
G02 X37.2 Y-13.68 R5.5
# z% E* p; A, `G01 X1.5
# d5 U; m, n, jG02 X-4. Y-8.18 R5.5
G01 Y-1.5
, k/ ]& w, n4 f9 ]- ~G02 X1.5 Y4. R5.5
0 ^7 z3 V! m% mG01 X37.2
7 z+ `6 i( ~. C6 `" s: TG02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
G00 Z5.
! u0 o- j7 ~5 bX37.075 Y4.1
0 p/ Q4 _  b9 w5 O5 V* |8 \3 ]3 hZ2.
& O: I+ h+ z$ JG01 Z-4.59 F2000.
G41 D2 Y-0.4 Z-4.63 F1200.
9 t  Z4 a# `3 r# u& aY-3.18
G02 X36.311 Y-6.03 R5.7
G01 X34.395 Y-9.35
G02 X29.458 Y-12.2 R5.7
! g, P) H/ V' t3 O+ h7 JG01 X9.242
- r! g+ J6 T0 w) t' IG02 X4.305 Y-9.35 R5.7
G01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
6 ^& N/ p6 C: cG01 X31.375
: k! E3 `* u# D% c# F  T4 c# ZG02 X37.075 Y-3.18 R5.7
G01 Y-9.28
G40 Y-13.36 Z-4.62
G00 Z5.
" X! j7 V# p+ P& f. k1 r9 ]- ~; M( G9 qN102
G00 G90 G54 X43.3 Y6.66
% p3 V3 K8 o' w" U5 B! ]- S  XS8500 M03
/ M08
G43 H1 Z5.
' ?; N( j7 w, S2 p: {; T3 y. \Z2.
G01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
6 G2 o) {9 y7 V& fG02 X39.2 Y-12.3 R4.1
G01 X9.242
G02 X4.219 Y-9.4 R5.8
' {" V  v; I; ?2 Q; {% bG01 X2.302 Y-6.08
) D1 A5 }9 Y6 W* o  \) n" g- {1 |G02 X7.325 Y2.62 R5.8
; f0 M& R5 W$ e, |# `G01 X31.375
5 `4 ]7 C$ _8 f# _* QG02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
$ R# c8 R5 {" [; Z! b- w6 d# HG02 X29.458 Y-12.3 R5.8
/ A' E# Q: _0 G: Y7 x' r1 t( EG01 G40 Y-14.3
" b! l. d3 t7 U$ B" OG00 Z5.
# X% q  ?7 W* ?: {* i' YX43.3 Y6.66
* w* b/ r; }7 ?$ H& b1 u6 u! |Z-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
0 Z$ [9 B5 P2 s1 [2 x& NG02 X39.2 Y-12.3 R4.1
0 Y' U( X4 ]& v: f$ t) ZG01 X9.242
6 \0 V: [4 G; {8 C' B! LG02 X4.219 Y-9.4 R5.8
. u; M3 X$ Q5 T7 F1 wG01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
. \' o/ _( F9 Z% `6 E( Z# r1 ?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
8 ^+ P7 G2 Z, q: M: @. lG01 G40 Y-14.3
+ p9 f" P( B5 U- bG00 Z5.
# 100=[ # 100+1]
' h1 Y, C" l) i) L4 m. |N1
1 p( K- F; l$ J  SG52 X0. Y0.
M99
1 H; H$ _* Y0 I$ D- N%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
2 ~! v5 Y  S2 y+ X/ Z0 z- e3 V' U方法2：在刀具清单的里面增加一个判断刀号的指令。
方法3：在ptlchg1002$里面判断刀号.

若枫

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

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
; l/ w/ }3 i) p0 \2 Uif t$prv_t$,"Error, Done not support multiple tools"

7 Q8 S! Y, h/ U4 ]4 G0 J谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
scy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
; c- y! B- X: ?0 C          [
        result = mprint(scy,1)      
- p! o( y( [1 J8 A        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
6 b. K3 H' R& R. J8 J5 s+ Q# F        spaces = sav_spc
        compwarnflg = 1
. {- e/ ^" N* q9 d& T          ]
9 N9 n2 H# S( P$ V" u9 c, o乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！