若枫后处理论坛

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 374|回复: 5

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

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

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

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

x
我是做产品加工编程的。 编程时经常会把开粗的程序复制--粘贴改下余量刀具变成精加工的程序,有时候忘记改刀具号,稍不注意就会撞机 , 想要在后处理里面添加一个检测。同一个程序超过一把刀具就会出现报警。附上子程序,希望各位大佬不吝赐教。
. d/ r$ j9 w! J8 E3 u1 t%
( ?/ S& ~$ h' r, y$ ~  h(CY)0 R3 M/ W# C( q% P
G21
2 M- v$ t9 c+ l+ v# ^( T2/H2/D2/DIA-8.  / FLATMILL )
" }1 T7 S$ o# N( T1/H1/D1/DIA-8.  / FLATMILL )
" \2 h0 Y" g+ @' ~/ yN1009 W1 y! n  f; f6 O/ D& A  K  j7 ?
G00 G90 G54 X37.2 Y4.3
* ]& |" n+ c8 IS8500 M033 `% N( u! W( v
/ M085 r) H! Q- Z; \  y8 f
G43 H2 Z5.
; X1 i! y) ~' t9 y( \% u  SZ2.
7 J! U, L$ Z, CG01 Z-7.13 F2000.
' r8 j8 D  \' o0 b$ _5 P" f- QG41 D2 Y4. F1200.
2 G* O) J' @* Q7 }1 |G02 X42.7 Y-1.5 R5.5$ H6 `* t( y6 ?- a* f+ ^
G01 Y-8.18  |  N3 S* L/ e  q! z5 E& f6 t
G02 X37.2 Y-13.68 R5.5
  Q* F) S3 U; }! p" sG01 X1.5
( K, v  w0 y9 I2 MG02 X-4. Y-8.18 R5.5
, N3 ]! p& Z$ ~' i- h' y# a  t! q9 }% h, lG01 Y-1.58 E1 ]$ r( G5 U- O
G02 X1.5 Y4. R5.51 r# l+ c. k7 O* b% i, E# O, D6 G
G01 X37.26 T- X+ E4 t9 q2 K
G02 X37.3 Y3.999 R5.51 f! W4 ]5 U8 R6 X
G01 G40 X37.305 Y4.299
& c6 W# c8 j) F, {/ i4 \G00 Z5., k+ N/ i# _$ D3 v0 n% G
X37.075 Y4.1
8 p: p" D8 @* F. C4 s( {8 aZ2.
2 x# f# @2 ~9 a5 ~2 A7 R1 `' n8 hG01 Z-4.59 F2000.
# {& I, M( K: N. @G41 D2 Y-0.4 Z-4.63 F1200.  c+ E2 z, I/ g1 `/ q( _
Y-3.18# w% [( Q& }& [6 m8 [" G
G02 X36.311 Y-6.03 R5.7( _# i* z- J: ]" [9 V% L9 `8 f. P/ M
G01 X34.395 Y-9.35! c2 T8 y1 G1 f; n4 R$ ]$ u9 w  t
G02 X29.458 Y-12.2 R5.7
* |0 m. c" o- u  _/ BG01 X9.242) _2 k8 k7 X, d, U  H& |
G02 X4.305 Y-9.35 R5.7
8 A+ R" R3 _3 m7 i& hG01 X2.389 Y-6.03
+ n" p. Q/ T! X& NG02 X7.325 Y2.52 R5.7
) A1 b0 n9 N3 ]# J* `  b+ nG01 X31.375! Q0 L- ?5 U- ^( q: T
G02 X37.075 Y-3.18 R5.7
8 W8 O" H( Z6 U# y) O9 @G01 Y-9.28
1 E8 T) D3 J* e& K' UG40 Y-13.36 Z-4.62
% ~/ h8 b8 L2 c: {G00 Z5.
5 ~* O/ i' N; r, j/ yN102
4 }9 c0 F& ]& @4 jG00 G90 G54 X43.3 Y6.666 N9 a/ @: c* G0 w% O" R
S8500 M03
6 h4 ]' x3 v) b4 s; m( q/ M08
& K# P. t4 L/ ?9 GG43 H1 Z5.
) f+ z- t& {+ V3 i. u1 J1 b- zZ2.' f) y: B3 u1 P
G01 Z-2.24 F2000.  z5 Z: ?* K$ b
G41 D1 Y1.16 F3600.( J! E% g) G' O6 R8 d9 L
Y-8.2
( w+ _( I* T. q$ L+ @G02 X39.2 Y-12.3 R4.1$ M$ g0 ~. V% W: ?5 o5 Y) }
G01 X9.242
1 P& C7 A5 [% jG02 X4.219 Y-9.4 R5.8
, X3 k+ z; @* y5 U0 G( T2 ^  QG01 X2.302 Y-6.084 E; R4 O: }+ g2 {
G02 X7.325 Y2.62 R5.8  o' ?' ?) B" D; j6 S5 e
G01 X31.375
- s* O, ]* [1 f, j7 |: MG02 X36.398 Y-6.08 R5.8) f$ r5 L- v/ y
G01 X34.481 Y-9.4; x7 M: A5 P. g* o2 a3 L5 Z
G02 X29.458 Y-12.3 R5.8' G% ?2 A; N  j; d: z7 b9 `5 t5 w" c
G01 G40 Y-14.3  [. o/ k) M" Q* X+ q- r, T  Y
G00 Z5.. P& x. M8 J% I5 J* j/ ~1 |
X43.3 Y6.665 ]; s! H$ b8 P
Z-0.246 g- a# u. w9 {% r9 O# J/ }) K# j
G01 Z-4.48 F2000.& u: m. X9 B5 C$ T* F
G41 D1 Y1.16 F3600.
& e( p1 R9 c; ~+ K, B3 EY-8.2: X- P; y: ^5 w/ T
G02 X39.2 Y-12.3 R4.1! _9 ?/ g" y5 t( @8 r) y( T
G01 X9.242
) B$ K8 v" Y: m! T- R9 U" ?$ ?  jG02 X4.219 Y-9.4 R5.8
& T8 x% s" ~# c& [8 t. j9 D4 h) JG01 X2.302 Y-6.08. x* h2 F: }' o
G02 X7.325 Y2.62 R5.8
' J" D3 U& E2 Q( r& T' O' jG01 X31.375
8 ~) G2 f, l0 k3 o0 iG02 X36.398 Y-6.08 R5.8
5 D$ k* l6 h) s& q' `9 XG01 X34.481 Y-9.41 E; H9 x2 p& L9 N& g
G02 X29.458 Y-12.3 R5.88 D! F" c4 c7 X1 V4 J3 p$ k$ A) N8 g
G01 G40 Y-14.31 w, y% U- [. h$ P* i3 L, Y9 O
G00 Z5.7 y/ f9 [/ a! V& `4 k2 W3 @* n! x
# 100=[ # 100+1]" P7 v) P5 J1 W+ R
N1, U4 i* t+ l4 M9 m. v
G52 X0. Y0.
0 v: d5 M% P* O) F, pM99! s1 L$ ?: ?- o, H5 q
%
发表于 2018-1-15 18:09:13 | 显示全部楼层
方法1:在换刀里面判断一下当前刀号与前一个刀号是否一直,不一致提示用户.  M2 z( ^) Q) ~* H- x/ \; b- k
方法2:在刀具清单的里面增加一个判断刀号的指令。
. g1 |0 c  O2 h0 x5 D2 |: l方法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, {3 V8 r  m' t  B
if t$prv_t$,"Error, Done not support multiple tools"
4 G  R  Z+ @! A6 k% q/ C3 ?
谢谢若枫大佬的耐心解答,万分感谢。 在你回复的方法里面我改了这个,能达到效果,并且在后处理的时候刀具不对会出现弹窗报警。 1 K- o2 ^/ n. w* t
scy         "WARNING-WRONG TOOL"         
) M% B& x9 w5 I, Nif stagetool <> toolcount,. ]- Q: m( {! o6 c% k9 m( T9 L
          [
, G# z" |3 @, K8 C        result = mprint(scy,1)      ) K& y0 d  H6 }
        spaces = 04 \& y9 Q7 X2 d- C3 `$ x4 X: e; {
        pbld, n, pspc, *sm00, pspc, "(", scy, ")", e* Q3 y5 z9 [# a
        spaces = sav_spc0 C) ?4 f/ V. q" m/ Z
        compwarnflg = 1
: ~4 G; q( b8 G; w. _          ]
% ^1 [% {0 ]& X: x0 [( M! V乱写的 见笑了!
发表于 2018-3-18 21:01:10 | 显示全部楼层
感谢分享,又学了一招!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

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

GMT+8, 2018-5-22 15:51

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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