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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
1 E0 w9 H( Y) N6 q%
(CY)
# |- y8 j, s3 R6 f& ?G21
+ I# O) n9 t% s5 {. d7 ^5 [6 M( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
, ]/ g" `+ l1 oN100
! U! A4 H( n+ b, G$ m3 r0 ZG00 G90 G54 X37.2 Y4.3
S8500 M03
# w. i8 V) q6 j/ g( n, H: a: ^/ M08
4 `% U, _9 x. _/ v0 GG43 H2 Z5.
Z2.
G01 Z-7.13 F2000.
2 h: y7 R& P: X3 k" rG41 D2 Y4. F1200.
  l; @6 Q# i9 F/ j; PG02 X42.7 Y-1.5 R5.5
G01 Y-8.18
G02 X37.2 Y-13.68 R5.5
G01 X1.5
& p0 l; H# D. L% v! P3 D/ ~G02 X-4. Y-8.18 R5.5
G01 Y-1.5
) O0 g+ c  \$ f3 c9 Q; ~G02 X1.5 Y4. R5.5
. j3 S# O; j0 TG01 X37.2
' I' a$ `; C5 Q& h: S, {G02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
G00 Z5.
7 J  A" i& r- ?: r' IX37.075 Y4.1
1 O' ~, x: X3 b, |( V: sZ2.
( F. z0 K$ D2 ^" m9 |: R; U3 PG01 Z-4.59 F2000.
G41 D2 Y-0.4 Z-4.63 F1200.
% ]+ E) f7 z2 I$ ?9 I" H) S6 QY-3.18
3 C& `( k# t' x5 R3 \2 xG02 X36.311 Y-6.03 R5.7
. }3 }- n6 h- y* o( V! W+ ~3 F. |* |G01 X34.395 Y-9.35
G02 X29.458 Y-12.2 R5.7
G01 X9.242
! k  d, e% N: {% c" d0 Y7 v. qG02 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
! J" B) R2 f, X; i" KG00 Z5.
N102
G00 G90 G54 X43.3 Y6.66
3 Q- b* ~# y$ fS8500 M03
/ M08
G43 H1 Z5.
Z2.
G01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
# ~3 }* b! v" o$ k; GY-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
+ r. M6 G* x- T0 a7 ?, S) Q% }) MG02 X7.325 Y2.62 R5.8
2 V7 r; X) ?& t" k3 {" Z" l5 QG01 X31.375
% o$ Z5 F! ]/ B; nG02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
6 E4 w9 c2 M) D% A8 |, ~G00 Z5.
X43.3 Y6.66
; V& _9 q! J* p4 `Z-0.24
$ B0 l: J( v7 Z. nG01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
% E4 e1 S& g: t( |, P, V& l, fY-8.2
0 v9 \- N* M7 WG02 X39.2 Y-12.3 R4.1
G01 X9.242
8 |2 |! m  q* z( r% d: H( pG02 X4.219 Y-9.4 R5.8
7 ]% I) z" M, U8 vG01 X2.302 Y-6.08
* U1 f2 D: t  k4 E2 m2 _G02 X7.325 Y2.62 R5.8
G01 X31.375
G02 X36.398 Y-6.08 R5.8
( }1 r) j6 D3 m$ S/ u4 IG01 X34.481 Y-9.4
% k* k. D7 p3 {9 r9 k0 U! SG02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
G00 Z5.
# 100=[ # 100+1]
& C- l& C2 @, A9 P8 P8 ON1
1 i0 e* f5 k8 U. E0 B: Z+ SG52 X0. Y0.
M99
2 r' C0 u. P4 {" \7 w/ C! F%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
方法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"

( u8 }% d; {( q+ u谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
' X; J% }9 B8 V* Q5 dscy         "WARNING-WRONG TOOL"         
" Q$ s# c1 \/ K. D$ M! r& S* ?if stagetool <> toolcount,
0 ]3 U  h3 f2 u0 `7 k  L          [
0 Y" A: V4 M& w: b2 V- J/ P        result = mprint(scy,1)      
: T; X9 J7 Y4 ?4 v$ b" b        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
  z2 z$ |; r! h2 z        spaces = sav_spc
        compwarnflg = 1
          ]
乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！