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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
%
(CY)
G21
( T2/H2/D2/DIA-8.  / FLATMILL )
, e1 Z/ g9 v) x  E8 ~( T1/H1/D1/DIA-8.  / FLATMILL )
N100
G00 G90 G54 X37.2 Y4.3
4 D( Q0 e; M' m4 sS8500 M03
, {8 g! `/ C: z; v* H/ M08
/ U6 z; Q" h2 d' y2 n( ^, I! b9 SG43 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
# ^1 u7 z& e- \! k$ w" K* k4 DG01 X1.5
/ y7 S! K9 T1 a0 ?: oG02 X-4. Y-8.18 R5.5
G01 Y-1.5
G02 X1.5 Y4. R5.5
G01 X37.2
) {' |9 r, A) P' B( J- G4 jG02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
G00 Z5.
  J+ t5 e2 j" [# P7 oX37.075 Y4.1
Z2.
G01 Z-4.59 F2000.
G41 D2 Y-0.4 Z-4.63 F1200.
/ ^' e. R& C  ]* sY-3.18
G02 X36.311 Y-6.03 R5.7
2 X! n* z9 g7 nG01 X34.395 Y-9.35
G02 X29.458 Y-12.2 R5.7
, m" {, b1 U* _* |/ u& C/ [- XG01 X9.242
G02 X4.305 Y-9.35 R5.7
G01 X2.389 Y-6.03
: J* H$ }5 b$ f' @1 K2 m/ X9 ]G02 X7.325 Y2.52 R5.7
G01 X31.375
7 w7 l' A" L2 }4 z/ yG02 X37.075 Y-3.18 R5.7
G01 Y-9.28
G40 Y-13.36 Z-4.62
G00 Z5.
N102
( w$ S  T  g8 ^- @G00 G90 G54 X43.3 Y6.66
* P2 v* z2 }6 p3 }$ x) x' j, ]% l+ LS8500 M03
/ M08
G43 H1 Z5.
/ u5 _) g+ k0 Y, P) l3 u% E& gZ2.
G01 Z-2.24 F2000.
: f. M; r1 }9 |+ ^$ F' yG41 D1 Y1.16 F3600.
1 ^  o) y& ?6 w* `* qY-8.2
G02 X39.2 Y-12.3 R4.1
& U" b" K+ n& o9 Y- dG01 X9.242
G02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
/ `# [, u8 e* K' z7 L  s. NG02 X7.325 Y2.62 R5.8
& B: r6 @2 K! g) Z" KG01 X31.375
4 `( h; g: ^. @7 V& F* DG02 X36.398 Y-6.08 R5.8
" d/ |' x) k% f2 ]1 c* @G01 X34.481 Y-9.4
3 l$ j9 X6 e; v0 [G02 X29.458 Y-12.3 R5.8
G01 G40 Y-14.3
! S( W% r, ?& o5 L1 FG00 Z5.
6 ^$ @' i: A/ r/ uX43.3 Y6.66
: ^5 T! N0 G9 s8 q2 |9 @Z-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
5 w; o4 H; |9 i5 S/ k/ u* J6 oY-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
0 o& i! S- B8 H8 W& C  H4 a) `* `G02 X7.325 Y2.62 R5.8
4 |- i: N" U/ K2 q* \8 g# A& L2 sG01 X31.375
G02 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
G00 Z5.
( F0 K8 ^. [3 D3 U0 V; Y% x# 100=[ # 100+1]
N1
* r0 ]. E$ ^% |) T- M6 s8 @  [+ |$ OG52 X0. Y0.
M99
. R2 {+ ~% Z. r4 x4 o8 n& 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"

' s2 e  ?$ ]  ]- r谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
# Z' @8 j$ s) }. ^1 j9 rscy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
0 z# F! d; Z# J0 x: N" b          [
  d: l6 o' B, }. _, C( r# v        result = mprint(scy,1)      
        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
- e$ T) L% n4 y9 u# b        spaces = sav_spc
4 i4 }; ^6 Z0 Z6 Y' B$ a8 L        compwarnflg = 1
          ]
乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！