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

cima362910

我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序，有时候忘记改刀具号，稍不注意就会撞机 ， 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序，希望各位大佬不吝赐教。
# M' G: c3 z$ F%
(CY)
G21
( T2/H2/D2/DIA-8.  / FLATMILL )
( T1/H1/D1/DIA-8.  / FLATMILL )
N100
* z# d5 Q/ T' jG00 G90 G54 X37.2 Y4.3
8 u3 M" E0 s4 V, R! mS8500 M03
/ M08
& o" V# X: R3 rG43 H2 Z5.
+ M( v7 S3 `/ J7 ZZ2.
7 {1 r1 q: \# _/ RG01 Z-7.13 F2000.
G41 D2 Y4. F1200.
G02 X42.7 Y-1.5 R5.5
! V' Z: p1 [$ jG01 Y-8.18
) p9 E4 T* `" R0 a. G/ pG02 X37.2 Y-13.68 R5.5
6 V7 ]7 l7 [7 E3 R/ q* k4 iG01 X1.5
& m1 G$ x% k* ?4 RG02 X-4. Y-8.18 R5.5
G01 Y-1.5
G02 X1.5 Y4. R5.5
" B, ?3 J& s: K0 i- eG01 X37.2
G02 X37.3 Y3.999 R5.5
G01 G40 X37.305 Y4.299
3 @2 K& x# i( L$ }; n/ cG00 Z5.
X37.075 Y4.1
Z2.
G01 Z-4.59 F2000.
G41 D2 Y-0.4 Z-4.63 F1200.
Y-3.18
G02 X36.311 Y-6.03 R5.7
5 N; Z# q& |( c5 D& `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
G01 X2.389 Y-6.03
G02 X7.325 Y2.52 R5.7
G01 X31.375
G02 X37.075 Y-3.18 R5.7
1 w4 h! h' b# s$ PG01 Y-9.28
G40 Y-13.36 Z-4.62
G00 Z5.
2 }5 M0 {+ W0 }. k) F' t5 G. yN102
G00 G90 G54 X43.3 Y6.66
S8500 M03
$ |7 W- ]  l  b' u/ M08
9 s* f" `3 G* D0 ZG43 H1 Z5.
  w! N+ P$ M) s# m2 h$ A2 P/ ?- tZ2.
9 L$ A8 I: ]8 o: G1 |G01 Z-2.24 F2000.
1 Y9 s' e6 N/ KG41 D1 Y1.16 F3600.
* R; w+ I' X+ e# sY-8.2
% d6 F# }9 {/ P8 w- D9 W& R) qG02 X39.2 Y-12.3 R4.1
! R$ x& m) g! FG01 X9.242
4 s/ ^6 N, s7 I8 V4 R! T$ FG02 X4.219 Y-9.4 R5.8
, G8 E* T5 _+ F0 ^G01 X2.302 Y-6.08
G02 X7.325 Y2.62 R5.8
G01 X31.375
. d" s8 a, W3 q) a# A! V  MG02 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 r2 c2 \- e& w1 n* y' O. L' r2 jG00 Z5.
! i7 p( R+ r' h, \( ?X43.3 Y6.66
- @% Q. y0 T( R: m- N0 E5 yZ-0.24
G01 Z-4.48 F2000.
G41 D1 Y1.16 F3600.
: U4 `3 w- d& SY-8.2
0 G: E7 ?8 P4 W. l: w% gG02 X39.2 Y-12.3 R4.1
, w4 B; q4 F* v* GG01 X9.242
G02 X4.219 Y-9.4 R5.8
) I$ h# f. ~4 s* p" U8 }& ]G01 X2.302 Y-6.08
  F& \$ U1 m+ k& k8 SG02 X7.325 Y2.62 R5.8
% j; s& j& p* {( H! s( LG01 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.
# 100=[ # 100+1]
! r0 h5 v8 b8 f5 H8 `6 |$ YN1
) u$ d) Y5 z3 SG52 X0. Y0.
M99
%

若枫

方法1：在换刀里面判断一下当前刀号与前一个刀号是否一直，不一致提示用户.
' T/ z& |6 D$ N6 n: B  _) j方法2：在刀具清单的里面增加一个判断刀号的指令。
+ v9 A, p2 c3 L* ]" S2 H% C# u) Z方法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"

$ x" y: |$ Y+ f( o谢谢若枫大佬的耐心解答，万分感谢。 在你回复的方法里面我改了这个，能达到效果，并且在后处理的时候刀具不对会出现弹窗报警。
3 r6 v1 a( g- a4 ], Gscy         "WARNING-WRONG TOOL"         
5 L- p  g6 w  Z) C" cif stagetool <> toolcount,
& w% ~3 a- G; ]2 P6 z- r4 n0 @          [
        result = mprint(scy,1)      
; |) q3 p" P/ ~- i5 i5 s+ G$ s        spaces = 0
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
        spaces = sav_spc
7 D* t$ s+ y% s" G5 z        compwarnflg = 1
          ]
乱写的 见笑了！

没有水的鱼_2013

感谢分享，又学了一招！