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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
%
2 v/ D, C& k5 M(CY)
G21
( T2/H2/D2/DIA-8.  / FLATMILL )
! o3 c3 s( Z/ i2 l! i. f( T1/H1/D1/DIA-8.  / FLATMILL )
6 Y) L# Y. J/ O: Y! bN100
+ |7 d+ P1 }" C* m  N. i9 z; LG00 G90 G54 X37.2 Y4.3
, v3 v5 t0 V; S3 mS8500 M03
/ M08
- D0 [3 h1 ~5 z9 w! {G43 H2 Z5.
. Y4 g& v+ r' QZ2.
. s$ p" r1 l9 N( p9 p) b3 v# F1 nG01 Z-7.13 F2000.
G41 D2 Y4. F1200.
, n; Q2 \* h; ~7 }9 S( }; B) t( lG02 X42.7 Y-1.5 R5.5
* w. f  u' k0 P. s# J7 y* d) WG01 Y-8.18
; q% Q& p2 V2 u2 t. fG02 X37.2 Y-13.68 R5.5
* e8 d/ F3 U; n9 nG01 X1.5
+ T5 }# W1 Y  pG02 X-4. Y-8.18 R5.5
G01 Y-1.5
! i& y4 T4 c8 X7 [& P. cG02 X1.5 Y4. R5.5
G01 X37.2
  N: z  B6 b5 N9 o& l! WG02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
G00 Z5.
# B2 m4 f: |1 R0 v4 }X37.075 Y4.1
3 N* W  s/ I, M2 A' Y& k) fZ2.
G01 Z-4.59 F2000.
G41 D2 Y-0.4 Z-4.63 F1200.
Y-3.18
4 |4 |- o* o$ a$ GG02 X36.311 Y-6.03 R5.7
* u8 g' n4 g% H/ G2 w' I! UG01 X34.395 Y-9.35
G02 X29.458 Y-12.2 R5.7
G01 X9.242
G02 X4.305 Y-9.35 R5.7
& t2 B) \' i- M  }G01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
  f1 |! S' ^& mG01 X31.375
  ?, [# I- x& [1 QG02 X37.075 Y-3.18 R5.7
0 H- H% k  t$ R) }6 W6 n1 `8 bG01 Y-9.28
G40 Y-13.36 Z-4.62
G00 Z5.
' _+ C8 `9 I( C% m: n( \N102
8 t. M# a; k3 A- I4 KG00 G90 G54 X43.3 Y6.66
/ W5 W' v6 ~0 O' CS8500 M03
/ M08
0 i! ~) O! @; _& @G43 H1 Z5.
  k% c, ~& T- R' P8 l/ w$ YZ2.
" X/ s# c. j  CG01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
3 r* c7 X2 O2 B4 U1 ?* Q0 pG02 X39.2 Y-12.3 R4.1
8 J2 ~6 N9 [# i/ ]& ~* u" q! t3 UG01 X9.242
G02 X4.219 Y-9.4 R5.8
) H4 Z& p2 c3 X# N, MG01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
; D) d( w( B5 v& b+ P7 Q" {; Z* PG01 X31.375
6 }8 M  l: f8 [' R7 G3 T- HG02 X36.398 Y-6.08 R5.8
" \! ~+ i2 a! qG01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
G00 Z5.
2 ]* D5 F, z% }- AX43.3 Y6.66
Z-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
- k! o, d5 M  o0 g! S+ s0 ^Y-8.2
- u$ Z4 j4 j$ h+ PG02 X39.2 Y-12.3 R4.1
( p9 S) D  [+ Y( B5 [G01 X9.242
G02 X4.219 Y-9.4 R5.8
9 W; @9 A5 Q3 B0 |  B% O8 m" WG01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
G01 X31.375
3 t0 |  R2 q- Z4 GG02 X36.398 Y-6.08 R5.8
) [9 k1 j. W; g! q2 J( E( l2 EG01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
% t+ ]2 s# B- ?9 u- G0 P9 r4 J5 I( K/ NG00 Z5.
# 100=[ # 100+1]
N1
0 k% a% I3 Q: i% HG52 X0. Y0.
M99
! J  S; k) T+ ]- g%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
( o& [1 a$ |9 D方法2：在刀具清单的里面增加一个判断刀号的指令。
; q3 p3 L! U/ n1 W1 z0 ?7 G方法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"

7 K% c- S% \1 D; V, s) _谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
( y' k6 L9 x6 Q* Y! }scy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
          [
  |( l5 q+ f7 [) \# g# h        result = mprint(scy,1)      
        spaces = 0
4 Z) ^4 v- N  w( l3 }        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
1 X/ S) l5 D4 T7 V  s. I' w" N) W        compwarnflg = 1
          ]
) H, D- C2 o6 @; h$ l! z; v, Y! W乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！