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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
%
(CY)
G21
( T2/H2/D2/DIA-8.  / FLATMILL )
' s& f) }# Q# r' T+ Y( T1/H1/D1/DIA-8.  / FLATMILL )
N100
# o/ s2 F7 C, U( }G00 G90 G54 X37.2 Y4.3
S8500 M03
/ 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
G02 X-4. Y-8.18 R5.5
G01 Y-1.5
G02 X1.5 Y4. R5.5
* a0 @$ |4 k( b, uG01 X37.2
G02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
: S5 b/ j. q0 i+ ]6 o* oG00 Z5.
X37.075 Y4.1
- n: a# o! a0 H! bZ2.
G01 Z-4.59 F2000.
# A6 a8 q5 E/ l5 H  ]G41 D2 Y-0.4 Z-4.63 F1200.
Y-3.18
G02 X36.311 Y-6.03 R5.7
G01 X34.395 Y-9.35
G02 X29.458 Y-12.2 R5.7
G01 X9.242
G02 X4.305 Y-9.35 R5.7
1 l- `2 o% k  c1 V1 [G01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
( p6 W. m1 V# \3 J2 x9 Z2 SG01 X31.375
" |* {2 N1 _. i# t( g# F. [G02 X37.075 Y-3.18 R5.7
G01 Y-9.28
G40 Y-13.36 Z-4.62
G00 Z5.
9 e$ S% O/ l4 G. IN102
G00 G90 G54 X43.3 Y6.66
S8500 M03
; P( t% r0 Z; `/ B/ M08
G43 H1 Z5.
Z2.
) N7 z+ P& E& U: a  M" z! R* J4 y$ eG01 Z-2.24 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
: I  w2 a2 Z: e9 U5 ]G01 X9.242
/ [* F1 D' ?* F9 n8 u5 W' kG02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
G01 X31.375
! E' Y4 u: T7 f4 ?: r  V$ t8 @G02 X36.398 Y-6.08 R5.8
# w1 O6 x$ i: }) JG01 X34.481 Y-9.4
2 }5 T8 R$ x4 H$ Q3 P* E& ]$ IG02 X29.458 Y-12.3 R5.8
  Y( o) B. {! g4 B1 VG01 G40 Y-14.3
" L$ [5 z' C4 M) CG00 Z5.
: s6 m7 A& s& |# v- n, C7 Z0 f( rX43.3 Y6.66
! O/ B# c. [0 g' P! w; CZ-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
Y-8.2
: [* G) T- j$ Z  \) N2 U5 j% h# }G02 X39.2 Y-12.3 R4.1
G01 X9.242
$ p# Y  g4 n3 t/ mG02 X4.219 Y-9.4 R5.8
( `/ V. @; ~8 e/ E) QG01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
1 [* B8 \) }6 X7 {2 QG01 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
0 V! {4 z- Z+ i& uG00 Z5.
# 100=[ # 100+1]
N1
9 Z. c( f, r" \# j7 Q5 U5 bG52 X0. Y0.
M99
%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
方法2：在刀具清单的里面增加一个判断刀号的指令。
' G. f, E/ G4 o& _& ~# [! n方法3：在ptlchg1002$里面判断刀号.

若枫

if t$<>prv_t$,"Error, Done not support multiple tools"

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
, |0 g/ \# s1 `. z7 b$ u0 Sif t$prv_t$,"Error, Done not support multiple tools"

谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
/ D( `8 ], t5 G! nscy         "WARNING-WRONG TOOL"         
; \7 ?2 ^1 P( x* {1 t/ C2 L* sif stagetool <> toolcount,
% u% G& F$ j: ?, {" R: k          [
1 s" p. K1 c$ C  P3 b+ U        result = mprint(scy,1)      
        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
        compwarnflg = 1
3 q0 Q! H" s/ f: a# E( }          ]
8 c0 U! g3 }9 J# Y  o( K乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！