若枫后处理论坛

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 538|回复: 5

[求助] 请教mc9.1后处理添加报警!

[复制链接]
发表于 2018-1-12 12:17:42 | 显示全部楼层 |阅读模式

马上注册,学习更多后处理知识,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序,有时候忘记改刀具号,稍不注意就会撞机 , 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序,希望各位大佬不吝赐教。
' c: Y6 ]3 ]7 i& F& Z%, o2 ]% f; _( M, ?" y7 H
(CY)% |& p1 X4 x% e$ t6 |8 e3 _
G21) u& ^$ o3 ?. n% P0 n# b' c( H
( T2/H2/D2/DIA-8.  / FLATMILL )3 x' }7 F0 ]; I2 T
( T1/H1/D1/DIA-8.  / FLATMILL )
8 j" ]5 Q7 I4 I" ~" v# {7 c5 C1 JN100
& Z( E, P* h, A2 D# `4 wG00 G90 G54 X37.2 Y4.3
+ P# t+ A* c/ d0 }; yS8500 M03" p+ D4 @4 E% g: {
/ M08
3 \% Z6 W0 ?& Y' mG43 H2 Z5.
) U( b) w, G" C4 \4 `: L6 f3 ^Z2.2 [, ~2 h8 C4 F# l& P5 Y
G01 Z-7.13 F2000.8 s9 G+ n6 |: R! t$ K+ k  K! t
G41 D2 Y4. F1200.7 I. v! t" L9 _0 x  A$ J
G02 X42.7 Y-1.5 R5.59 ]. m$ g' N* d% S( v/ h+ P: W
G01 Y-8.18
  T+ l9 ^" M4 cG02 X37.2 Y-13.68 R5.5, R( G, l8 N; }7 K4 f
G01 X1.5- M1 H* Y8 l+ E5 Q. Y0 X
G02 X-4. Y-8.18 R5.5  X% A8 o; S% {- J  W  h; h7 G: V8 t! a2 r
G01 Y-1.5
9 [3 q7 B3 B8 d. g% V9 ]G02 X1.5 Y4. R5.5! a/ S6 K; C, r, p) @. E4 ^& B
G01 X37.2
9 n' N" I5 `- p' a, KG02 X37.3 Y3.999 R5.5
5 @, W" E) I+ l; K  ~( BG01 G40 X37.305 Y4.299' Z5 v4 @4 N  k2 P# q+ S5 \! F
G00 Z5.
! E, A! \: L8 zX37.075 Y4.12 d( C0 h% ^3 P& d7 q
Z2.+ C! \$ ]0 I! T! \
G01 Z-4.59 F2000.
# d$ A' P) s( k! s: n( l7 PG41 D2 Y-0.4 Z-4.63 F1200.% g9 g( C" t& K5 D( V, u! n5 L
Y-3.180 I9 B$ k% s0 }
G02 X36.311 Y-6.03 R5.7
, M8 R% M& R) {. vG01 X34.395 Y-9.355 y4 [2 Y; M; h: z. z, Q
G02 X29.458 Y-12.2 R5.7/ H# ?: N( R8 {
G01 X9.242; i0 i8 Q. Q# I3 x2 r  I; f4 b
G02 X4.305 Y-9.35 R5.7
0 H3 ?0 B) l5 Q' j" {) bG01 X2.389 Y-6.03
$ r6 s# @$ s' {2 M: oG02 X7.325 Y2.52 R5.70 a3 a: _# A: m% U+ R. m% D
G01 X31.375  k/ b6 ~$ L& }& A& p5 v5 R
G02 X37.075 Y-3.18 R5.7
1 P/ v4 _9 O( N' w: }' |6 BG01 Y-9.28
9 D: H" M' a  e  S: g/ L  w: p' B( TG40 Y-13.36 Z-4.620 S9 N, Z9 T7 Z& a/ m
G00 Z5.& F0 R6 `% ?) u/ J+ |
N1021 L* D2 s/ U2 p$ K
G00 G90 G54 X43.3 Y6.663 m. G/ h% a# \' Q1 X" _' N
S8500 M03
% C  u2 c) A6 Y  R/ M08
1 N  o8 i; |0 l! O( MG43 H1 Z5.5 C( h% Y! T+ H  X( j+ ~
Z2.) B7 K' n% H3 d& [! D. m
G01 Z-2.24 F2000.1 k3 ?: D8 T  k
G41 D1 Y1.16 F3600.
9 X# `' Y+ B, P3 lY-8.2
3 q; X( n! U( S" cG02 X39.2 Y-12.3 R4.1
8 W0 I1 V; A5 v+ U, F/ |G01 X9.242
1 B) s( G  E3 o6 g4 MG02 X4.219 Y-9.4 R5.8
( ~' `, d0 {  R& S3 N1 P$ YG01 X2.302 Y-6.08
0 V" I, Q5 `, L0 G+ B' r- n1 BG02 X7.325 Y2.62 R5.8
8 {3 p3 ^* ]" i- QG01 X31.375
7 Y( o, C+ n( E. n3 r" Q# u; Y* GG02 X36.398 Y-6.08 R5.8
2 a5 F% i' N% f# RG01 X34.481 Y-9.4- w9 B5 v+ d+ G% h$ L6 _
G02 X29.458 Y-12.3 R5.8
/ |2 r+ D8 }+ v; i; tG01 G40 Y-14.34 c8 ~+ ~( r+ ]( Q( X3 l
G00 Z5.
$ ?/ ~7 A6 z( BX43.3 Y6.66) ^* W& I1 @2 N, Q( a$ u
Z-0.24
9 g6 w0 H5 U9 ZG01 Z-4.48 F2000.0 S7 M$ N7 \% f) k0 S
G41 D1 Y1.16 F3600.
8 X5 `7 h- U$ h, I# ?2 \Y-8.2
5 L0 r" }7 S0 |/ EG02 X39.2 Y-12.3 R4.1* A* M4 q  V  ^# Z3 w* ?( Y
G01 X9.242: Y" t. W* i) ~( Y. ~" ~
G02 X4.219 Y-9.4 R5.8  J+ F# \* \, U) Q" [+ y  u
G01 X2.302 Y-6.083 K9 ^% ?' |8 O
G02 X7.325 Y2.62 R5.8
+ V6 M; u8 l& nG01 X31.375
8 S9 ?  C& g. D; w5 I! yG02 X36.398 Y-6.08 R5.8; a; T) p' p; ~, K
G01 X34.481 Y-9.4# w- n& _7 n; m4 d3 c* a
G02 X29.458 Y-12.3 R5.8
3 t& Y- ?( }' N5 m& [2 yG01 G40 Y-14.36 v4 }3 e( e+ t: h' B
G00 Z5.
7 e+ y' m( Y, i$ f1 K  p# 100=[ # 100+1]
7 C7 T4 d/ h( I$ p' G! N6 VN1
2 P& Q% o: R" r# XG52 X0. Y0." T* F" p6 d# p$ I
M99
0 E4 |2 V; q1 ]; Y% O%
发表于 2018-1-15 18:09:13 | 显示全部楼层
方法1:在换刀里面判断一下当前刀号与前一个刀号是否一直,不一致提示用户.& s: N  Q8 F8 s( u" v
方法2:在刀具清单的里面增加一个判断刀号的指令。; a% S3 S! |  H1 K+ f+ q, F4 B
方法3:在ptlchg1002$里面判断刀号.
发表于 2018-1-16 17:53:44 | 显示全部楼层
if t$<>prv_t$,"Error, Done not support multiple tools"
发表于 2018-1-20 10:08:29 | 显示全部楼层
详细信息不错
 楼主| 发表于 2018-1-23 14:13:29 | 显示全部楼层
若枫 发表于 2018-1-16 17:53
, @+ D" ?! K1 s/ X! G2 r5 E4 Qif t$prv_t$,"Error, Done not support multiple tools"

% o0 @4 a/ ~9 z谢谢若枫大佬的耐心解答,万分感谢。 在你回复的方法里面我改了这个,能达到效果,并且在后处理的时候刀具不对会出现弹窗报警。
3 I! m9 J0 n) \  L  p5 P5 Bscy         "WARNING-WRONG TOOL"         
* V2 K: {% F3 Q/ J8 m( T4 e5 Wif stagetool <> toolcount,0 `9 j3 C; [, f6 r
          [
8 A7 c/ o- c6 o! Z5 Q3 D. d6 @: H3 w        result = mprint(scy,1)      
; s9 }% K! m4 y+ u4 i/ n: S9 r        spaces = 03 L# y1 d( c' v3 @# ~- G
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e
( N2 P1 ^3 S* X: u' R( a        spaces = sav_spc
# d5 }5 R( X0 H        compwarnflg = 1
2 j& c* c# |8 }, U& M) b          ]
2 p" @& d& N5 ]/ J8 E乱写的 见笑了!
发表于 2018-3-18 21:01:10 | 显示全部楼层
感谢分享,又学了一招!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /8 下一条

QQ|Archiver|小黑屋|若枫后处理论坛 ( 苏ICP备11015087号-1 )苏公网安备32059002001368号

GMT+8, 2018-8-22 05:34

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表