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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
%
(CY)
& J: {$ a2 j5 o/ y5 c$ R. DG21
( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
N100
( }2 q3 @  F, c( f' pG00 G90 G54 X37.2 Y4.3
S8500 M03
- a. a+ l# g5 _( P0 L4 ?/ M08
G43 H2 Z5.
Z2.
G01 Z-7.13 F2000.
G41 D2 Y4. F1200.
G02 X42.7 Y-1.5 R5.5
G01 Y-8.18
G02 X37.2 Y-13.68 R5.5
G01 X1.5
. k" Q  @" l' ^: xG02 X-4. Y-8.18 R5.5
4 a2 }* U4 J* ]# SG01 Y-1.5
& Q2 \2 N; l- ~% [G02 X1.5 Y4. R5.5
G01 X37.2
G02 X37.3 Y3.999 R5.5
( c; V* ]- q% a1 y/ W( W5 rG01 G40 X37.305 Y4.299
G00 Z5.
X37.075 Y4.1
" o) Q* p# c0 |; u6 BZ2.
/ ?/ U' p( }: |1 n. T$ F. _4 E0 ?% fG01 Z-4.59 F2000.
7 K* d# ^' m4 T+ m4 t- E- FG41 D2 Y-0.4 Z-4.63 F1200.
: X! n; ~6 S# u  r3 P# J- h; _5 GY-3.18
$ ~# c1 c& L# ~" T. s# x) f" \; ZG02 X36.311 Y-6.03 R5.7
  {- Z- A* b7 x9 j$ ?9 A  gG01 X34.395 Y-9.35
- U7 q4 c$ g! f# p0 R# W4 zG02 X29.458 Y-12.2 R5.7
G01 X9.242
G02 X4.305 Y-9.35 R5.7
G01 X2.389 Y-6.03
! N/ I" c. H2 p* _, qG02 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
G00 Z5.
N102
0 r  M. q/ E% o4 VG00 G90 G54 X43.3 Y6.66
3 O  B9 T" g" x- \S8500 M03
( w4 I, {) B. X* o4 D  L/ M08
G43 H1 Z5.
Z2.
1 E! ?' \5 N: x; G8 S  D8 ~( F7 mG01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
# G" j6 o3 N% CY-8.2
/ P" a& p, ^9 ?% i, c5 G+ _3 IG02 X39.2 Y-12.3 R4.1
G01 X9.242
/ N. \- w& J* pG02 X4.219 Y-9.4 R5.8
9 O' U1 ]) U8 N& l  L( ~G01 X2.302 Y-6.08
' X3 X* |1 P9 mG02 X7.325 Y2.62 R5.8
) @& w& A9 [3 y/ X' p( sG01 X31.375
8 R5 J3 u( c$ Y' jG02 X36.398 Y-6.08 R5.8
G01 X34.481 Y-9.4
& J( w$ q6 G6 j5 o! V- IG02 X29.458 Y-12.3 R5.8
7 [/ N$ L' d: G+ P' }; {1 LG01 G40 Y-14.3
G00 Z5.
X43.3 Y6.66
Z-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
G01 X9.242
% y9 R6 u/ r0 S3 B! lG02 X4.219 Y-9.4 R5.8
2 c9 k" B; A& y2 H( |- {G01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
G01 X31.375
G02 X36.398 Y-6.08 R5.8
" _% d. D8 n5 j/ _G01 X34.481 Y-9.4
! F& z0 @4 X5 ^: o# V7 FG02 X29.458 Y-12.3 R5.8
. I1 \8 i( q% VG01 G40 Y-14.3
4 |( M3 R" V8 M+ S- e! LG00 Z5.
+ z) h* y% J; a- d# 100=[ # 100+1]
N1
G52 X0. Y0.
M99
%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
$ @- V0 Z6 O3 Y! N方法2：在刀具清单的里面增加一个判断刀号的指令。
9 e9 f; S# b' P. j0 A  f方法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"

谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
, x8 z( A6 `" O$ t' i" Tscy         "WARNING-WRONG TOOL"         
' _5 Z  N- B- M& wif stagetool <> toolcount,
          [
0 T) h- m  O9 `( X1 {5 J2 R$ s, r        result = mprint(scy,1)      
3 ^& L2 u, D4 `$ y; o3 N+ u/ ]& O        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
* C% c% h0 z: y4 i        spaces = sav_spc
  n( N9 K. w& c7 X+ e; Y        compwarnflg = 1
; c+ l4 o9 z5 Q0 H! y          ]
乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！