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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
9 S; m2 d- G/ E6 U% u%
(CY)
% b$ w3 u5 y- p0 ]G21
( T2/H2/D2/DIA-8.  / FLATMILL )
" u* L8 z! n! H8 S, M/ X6 I! Q( T1/H1/D1/DIA-8.  / FLATMILL )
N100
, n8 i$ o2 J0 m9 J; LG00 G90 G54 X37.2 Y4.3
( \) o% t8 t( BS8500 M03
8 Q6 S# n, G% U; W5 L/ ^/ M08
/ b  a. k0 `0 F9 B$ y3 l- J! z  xG43 H2 Z5.
Z2.
, O3 X; F9 V% Q5 ^+ k0 ~5 wG01 Z-7.13 F2000.
8 T  M" y- E4 m7 c$ l$ uG41 D2 Y4. F1200.
% P, N$ l, `( _G02 X42.7 Y-1.5 R5.5
G01 Y-8.18
5 l: ~8 b' `6 b9 R  z) R% [  l/ ?G02 X37.2 Y-13.68 R5.5
G01 X1.5
G02 X-4. Y-8.18 R5.5
G01 Y-1.5
* E3 F' s1 V# \1 ]8 F/ `7 tG02 X1.5 Y4. R5.5
G01 X37.2
6 ~3 D! p5 C5 z. J' G2 c7 SG02 X37.3 Y3.999 R5.5
6 [% t, r' [) r. g, P4 ]. U. aG01 G40 X37.305 Y4.299
, }' _3 T- n8 |: `2 i+ F7 `G00 Z5.
" F1 M0 t: s3 I4 N+ ?. qX37.075 Y4.1
Z2.
G01 Z-4.59 F2000.
5 l3 \: ~* W) jG41 D2 Y-0.4 Z-4.63 F1200.
/ e& W- j: P- z" s% g; c- d$ _5 fY-3.18
, ?( y% Q/ ]$ J. Q; KG02 X36.311 Y-6.03 R5.7
5 H9 q6 l/ L2 m) HG01 X34.395 Y-9.35
, @! b/ |8 W8 i0 R* |G02 X29.458 Y-12.2 R5.7
G01 X9.242
# k- Z9 G9 Y; }1 tG02 X4.305 Y-9.35 R5.7
G01 X2.389 Y-6.03
! e* p& e# ^: u  I- EG02 X7.325 Y2.52 R5.7
G01 X31.375
* g0 Z; j  g  W( U8 l  g  BG02 X37.075 Y-3.18 R5.7
G01 Y-9.28
G40 Y-13.36 Z-4.62
G00 Z5.
N102
G00 G90 G54 X43.3 Y6.66
( l/ ]  E- A- n  Q) i9 l8 bS8500 M03
' a, G0 T( x4 Y5 q6 W/ M08
G43 H1 Z5.
+ c9 p1 [  M; ^; {0 A1 DZ2.
G01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
6 Q. g  }# x3 s3 }4 c/ MY-8.2
G02 X39.2 Y-12.3 R4.1
G01 X9.242
G02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
+ ^+ F1 f& O" X, K% q0 CG02 X7.325 Y2.62 R5.8
5 l  `" }2 t& k$ b# PG01 X31.375
, [- t% Z; V5 f) A% ?2 vG02 X36.398 Y-6.08 R5.8
$ ~3 n) K& y: ]G01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
0 r% w; `, X/ I3 Z- G" y7 LG01 G40 Y-14.3
2 n. d. J8 R4 t: bG00 Z5.
X43.3 Y6.66
Z-0.24
! y* }: i3 _. Q9 m! L/ H6 PG01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
2 N3 E; ?( ]4 V- k/ z6 f7 ?: {G02 X39.2 Y-12.3 R4.1
3 {6 ~# o; L0 U* L& V' pG01 X9.242
# _4 d; Y0 f- N$ @1 H. h0 C$ xG02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
/ H) ?. V  M. R6 PG01 X31.375
. @, u; S& ?0 u# {G02 X36.398 Y-6.08 R5.8
  M9 g, o2 D$ W$ i  vG01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
' v& ]9 J5 C3 y$ [G01 G40 Y-14.3
G00 Z5.
# 100=[ # 100+1]
- t7 n' R4 M9 x" h! {, FN1
, t5 M/ F/ g% k: u- u5 p: h1 dG52 X0. Y0.
M99
- Q: J0 `* q% u7 i%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
2 r6 B; M! Q% U  I- d& A# D方法2：在刀具清单的里面增加一个判断刀号的指令。
方法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"

谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
' s4 z; }2 \. R( V1 {. zscy         "WARNING-WRONG TOOL"         
2 Q+ k! C) z$ \  iif stagetool <> toolcount,
3 k2 w. H  K+ v7 z( R          [
        result = mprint(scy,1)      
        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
        compwarnflg = 1
' a1 l2 K' w5 a( |3 G! `; K          ]
$ S1 P: L6 E7 l乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！