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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
%
(CY)
G21
( T2/H2/D2/DIA-8.  / FLATMILL )
- |; T% `9 k" S( m4 i  K6 Q4 j( T1/H1/D1/DIA-8.  / FLATMILL )
- R. f+ j/ G+ b: ?4 ~) z* b" UN100
8 D% E, @5 M# q- UG00 G90 G54 X37.2 Y4.3
S8500 M03
/ M08
# T7 I# z, e3 qG43 H2 Z5.
Z2.
G01 Z-7.13 F2000.
2 J& B" t4 \% H( @G41 D2 Y4. F1200.
G02 X42.7 Y-1.5 R5.5
! n( z, y) ]8 N$ U. ~+ xG01 Y-8.18
! u+ n1 J$ x! u5 l, ?' h& I, Q6 C' yG02 X37.2 Y-13.68 R5.5
$ {) \. P/ f8 s, Z( LG01 X1.5
G02 X-4. Y-8.18 R5.5
G01 Y-1.5
' f0 e7 Y! X- R. ~' l2 KG02 X1.5 Y4. R5.5
3 O! Q2 q, V6 e. G9 `1 ?G01 X37.2
G02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
G00 Z5.
X37.075 Y4.1
5 X6 o% @/ N* Z2 G7 w7 }Z2.
G01 Z-4.59 F2000.
1 f7 A, ^* |0 ~  sG41 D2 Y-0.4 Z-4.63 F1200.
% i2 g% E' |' T8 s8 O2 _# C- L0 HY-3.18
G02 X36.311 Y-6.03 R5.7
& w" w  p& S4 _( _0 X- {7 c" R. OG01 X34.395 Y-9.35
5 m, o* b$ p$ nG02 X29.458 Y-12.2 R5.7
9 E2 R+ i4 y/ M& u5 c8 f4 s( aG01 X9.242
G02 X4.305 Y-9.35 R5.7
G01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
G01 X31.375
% G  ~( ~# g& M$ G& sG02 X37.075 Y-3.18 R5.7
* G5 @1 u7 p8 yG01 Y-9.28
G40 Y-13.36 Z-4.62
) {0 Z- q2 Q( c6 g, z1 u- }; o4 vG00 Z5.
! G  e- a) A6 C! ?* `" E  M2 lN102
G00 G90 G54 X43.3 Y6.66
- U/ e7 U  j+ Z. \) zS8500 M03
/ M08
& L& o  S/ [# _: S9 s  D2 e' uG43 H1 Z5.
Z2.
+ f, a0 S6 {- E. @% p" h3 WG01 Z-2.24 F2000.
' h. u. a4 H3 \% U2 |% L& bG41 D1 Y1.16 F3600.
4 K+ {: a3 B' G8 Y5 Z  h: ?- \Y-8.2
G02 X39.2 Y-12.3 R4.1
9 a/ g' v$ z/ G. UG01 X9.242
, G6 B. l% C0 j6 X% q2 ]/ R$ \G02 X4.219 Y-9.4 R5.8
( o1 H# p4 f$ I/ J4 o1 HG01 X2.302 Y-6.08
1 q7 z8 J( h* [/ L2 W# Z, k" UG02 X7.325 Y2.62 R5.8
G01 X31.375
  c" J( [+ O+ {1 m2 w; mG02 X36.398 Y-6.08 R5.8
2 o3 q: x6 A  ]" D# w2 mG01 X34.481 Y-9.4
1 l% z% d) n. S+ l$ T' ZG02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
) c* f* I: r# N9 V6 a4 K  c0 X) xG00 Z5.
X43.3 Y6.66
: C4 J* Y+ `7 y3 A8 Z* l' \Z-0.24
3 G4 X" n3 P( u: Z5 |G01 Z-4.48 F2000.
- e" a; [% K$ U1 s  HG41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
+ D$ z+ N; z& f: ~* j. C( Z; MG01 X9.242
9 `- l! Z4 \2 x: m0 _G02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
  W% W/ n1 L1 kG01 X31.375
G02 X36.398 Y-6.08 R5.8
  {  a4 e3 q& |  sG01 X34.481 Y-9.4
( n, ~( S- D& Y, B0 z& _9 {5 }* zG02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
. m2 v4 v+ _. i4 x& f! HG00 Z5.
8 B* M( C' d/ O# 100=[ # 100+1]
N1
G52 X0. Y0.
M99
%

若枫

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

若枫

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

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
( f2 w$ o" [: r( Pif t$prv_t$,"Error, Done not support multiple tools"

谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
scy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
- F3 ^" f7 i+ r4 S# _7 y          [
4 ?$ a1 S' ^: ]+ o" I. z. K4 J        result = mprint(scy,1)      
6 r! D* e' i5 u6 b" J/ [8 y6 n        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
! b! R" A$ |: L7 A! M        spaces = sav_spc
        compwarnflg = 1
          ]
3 m6 R& {, c! ~& S% j6 J" u# k乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！