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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
: I# k# X& X* |" ~- `9 B1 z%
(CY)
G21
6 Z0 M! {0 q4 J1 V9 ?( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
N100
G00 G90 G54 X37.2 Y4.3
7 [) d! `" E$ v# ~8 ]) z/ _S8500 M03
) F4 O$ x3 a  ^1 e1 b! {, o/ M08
) i- e3 l. H! U9 T/ E2 eG43 H2 Z5.
7 R& w# V: t- J* u- i  LZ2.
0 p6 p' P$ y* PG01 Z-7.13 F2000.
# g# p$ U* w3 M1 }  F$ V. @! JG41 D2 Y4. F1200.
G02 X42.7 Y-1.5 R5.5
& i2 }# H" ~" `9 z$ d  iG01 Y-8.18
G02 X37.2 Y-13.68 R5.5
: j0 J) \7 F5 u% j  A+ b8 a6 ~G01 X1.5
# F& T4 T3 m7 O. F  nG02 X-4. Y-8.18 R5.5
  Y: l% X  ?% T6 e3 v& s4 D. YG01 Y-1.5
G02 X1.5 Y4. R5.5
3 n) l# h8 s  E" K: E8 h* rG01 X37.2
0 Q. ]& |' w( \8 l0 q7 C# O- N3 @G02 X37.3 Y3.999 R5.5
4 f: p& j6 |2 P3 T; jG01 G40 X37.305 Y4.299
G00 Z5.
/ W. X) ?, X4 _% yX37.075 Y4.1
Z2.
! k3 n# y, d. @9 ]5 S5 WG01 Z-4.59 F2000.
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
8 z. C0 F% {) |G02 X29.458 Y-12.2 R5.7
6 S" h! ?: e  j4 q* JG01 X9.242
G02 X4.305 Y-9.35 R5.7
G01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
( F" K" e) {2 ?. }4 K( G* pG01 X31.375
: L, j6 N& H2 _5 aG02 X37.075 Y-3.18 R5.7
" P( w# J/ G7 V; R) sG01 Y-9.28
G40 Y-13.36 Z-4.62
  f9 q5 |3 @# G' g, o: P6 bG00 Z5.
N102
G00 G90 G54 X43.3 Y6.66
  l/ F/ A% b$ C$ Q1 VS8500 M03
; {- }6 `7 \* _$ t1 S/ M08
1 Y+ h# ~( K/ h. FG43 H1 Z5.
( p0 k  H' m* ]Z2.
8 E2 A+ {9 R& NG01 Z-2.24 F2000.
/ k7 \9 d! ~9 b! |, x+ |G41 D1 Y1.16 F3600.
Y-8.2
G02 X39.2 Y-12.3 R4.1
& ]/ E, p3 Q4 `% y& sG01 X9.242
G02 X4.219 Y-9.4 R5.8
# B8 d4 z  J- |5 r9 e1 x; cG01 X2.302 Y-6.08
) m8 \1 l; L& f8 a7 h, i0 g2 ]G02 X7.325 Y2.62 R5.8
G01 X31.375
, W2 ]2 Z9 s) i& Q* x6 `G02 X36.398 Y-6.08 R5.8
3 F( I0 ?  B1 v& u) T$ fG01 X34.481 Y-9.4
  b) d* p- o( e+ U8 MG02 X29.458 Y-12.3 R5.8
9 c: d" a) l* GG01 G40 Y-14.3
G00 Z5.
) g0 G$ u# S. a5 S3 o) XX43.3 Y6.66
; e+ g5 w, k: D  }+ EZ-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
5 ?( ?5 p6 a: A/ M; U. TG02 X4.219 Y-9.4 R5.8
G01 X2.302 Y-6.08
; h# p" \9 H  Q/ VG02 X7.325 Y2.62 R5.8
( {& N7 F- j8 s2 P* \# k# EG01 X31.375
; C4 O# X( u$ rG02 X36.398 Y-6.08 R5.8
, n3 b& l: q2 }9 rG01 X34.481 Y-9.4
G02 X29.458 Y-12.3 R5.8
: g% F0 b; `8 I8 fG01 G40 Y-14.3
G00 Z5.
4 A4 k, E. t; _+ a4 G# 100=[ # 100+1]
N1
G52 X0. Y0.
M99
, T( G$ l9 Z& g: W; {7 ^3 T%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
* `# o  T! X( R5 x. O方法2：在刀具清单的里面增加一个判断刀号的指令。
方法3：在ptlchg1002$里面判断刀号.

若枫

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

梦妮

详细信息不错

cima362910

若枫 发表于 2018-1-16 17:53
% @! e" U/ _2 T7 L3 U% Sif t$prv_t$,"Error, Done not support multiple tools"

/ g' ?; V2 ~: o: [, m. z  ^1 N7 b谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
& e( y( C: |! l& N9 v2 E+ S. \scy         "WARNING-WRONG TOOL"         
if stagetool <> toolcount,
; ]; [  h8 I; P& n          [
( }# x. V$ d6 e, b% R/ I# L        result = mprint(scy,1)      
+ j  j% ?3 ~, a- I' c        spaces = 0
0 w. G% r  ]) \* C) j1 |        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
0 E( y( y9 V9 J: M3 P        spaces = sav_spc
        compwarnflg = 1
3 z3 l- h4 d) u$ f$ G% ~% {          ]
乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！