[求助]后处理有时候处理出来程序不带G54 有时候带G54不知道如何解决这个问题?

nt2256

以下是我的后处理
还有一把刀具加工程序时程序开头没有刀号(t)
多把刀具加工时有刀号
4 V) U: ~9 U" W! p" x! \( v+ t# I2 {请问如何让处理出来的一把刀具加工程序有刀具号呢(t)？

# tool comment / manual entry section
1 J% s( U: P, A+ i' o9 f2 F# --------------------------------------------------------------------------
ptoolcomment    #comment for tool
      tnote = t
      toffnote = tloffno
      tlngnote = tlngno
9 J& p: W: l' s1 L  h      #"(", pstrtool, *tnote, *toffnote, *tlngnote, *tldia, ")", e
: n( ?# ~: {/ ~5 x1 @1 j      "(",*tldia,")", e
pstrtool          #comment for tool
      if strtool <> sblank,
9 C5 d$ `: y/ ^8 V( g        [
        strtool = ucase(strtool)
3 Z! @1 ^( |6 d: m0 Y        *strtool, " "
) |8 _. I! Q# i        ]
pcomment          #comment from manual entry (must call pcomment2 if booleans)
( H( E' l& \. y' X6 m, b      pcomment2
pcomment2         #comment from manual entry
      scomm = ucase (scomm)
      if gcode = 1007, "(", scomm, ")"
      else, "(", scomm, ")", e
/ p& z5 {. t( b5 e# --------------------------------------------------------------------------
3 z7 s- i2 K, Z2 C# start of file and toolchange setup
# --------------------------------------------------------------------------
psof0             #start of file for tool zero                              
; D) K+ B! b3 X6 i      psof
1 J0 m8 w2 h( E2 U4 \psof              #start of file for non-zero tool number                 
      pcuttype
      toolchng = one
      if ntools = one,
        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool
        ]
  ?4 L. x# y/ ~- G+ ?      "%", e
      *progno, e
/ a- U/ ?/ F. k6 D( b$ A      "(", sprogname, ")", e
  u9 [" m, L  W- U+ R8 i      "(", date, " ", time, ")", e
7 _) z& u, _1 r) Q& b% f7 M      pbld, n, *smetric, e         
, o& Q8 W1 ~: j5 }9 A: q      pbld, n, *sgcode, *sgplane, "g40", "g49", "g80",*sgabsinc,"g94", e
      sav_absinc = absinc         
      if mi1 <= one, #work coordinate system
/ V, T+ i, _! s3 ~; U5 S) P        [
        absinc = one
        #pfbld, n, sgabsinc, *sg28ref, "z0.", e
        #pfbld, n, *sg28ref, "x0.", e
* ]- n# G2 X3 f* |        #pfbld, n, "g92", *xh, *yh, *zh, e
        absinc = sav_absinc
        ]
      pcom_moveb
      c_mmlt #multiple tool subprogram call
      ptoolcomment
; G8 |% h! w/ J' \+ D      comment
9 J( n+ g& H, X% Y" v      pcan
      if stagetool >= zero, pbld, n, *t, "m6", e
9 }3 ^; N! C3 T" o8 [      pbld, n, "/",scoolant
      pindex
5 ~( ?" k4 Z$ F$ E2 T9 h- ]0 t      if mi1 > one, absinc = zero
      pcan1, pbld, n, *sgcode,*sgabsinc, pwcs, pfxout, pfyout,
      pcout, *speed, *spindle, pgear, strcantext, e
. p% v5 u# T1 }$ A      pbld, n, "g43", *tlngno, pfzout, next_tool, e
      absinc = sav_absinc
      pbld, n, "*2030=0.0"
      pbld, n, "*2031=0.0"
      pcom_movea
      toolchng = zero
      c_msng #single tool subprogram call
" V+ c( e8 N; Z* V+ Q; g3 |                 
ptlchg0           #call from nci null tool change (tool number repeats)                              
1 t3 N: H; \! o0 H3 _3 b      pcuttype
) o* |/ S- k+ a      pcom_moveb
, w, S/ X" \, n* k      c_mmlt #multiple tool subprogram call
      comment
      pcan
      pbld, n, sgplane, e         
1 Y, K6 ^# j: A; Z) T3 @# m) Q      pspindchng
0 e# ?& @: e  B0 L7 x9 @      pbld, n, scoolant, e
      if mi1 > one & workofs <> prv_workofs,
. }8 I6 i2 H* k0 G        [
8 ?; K# w* G) S% [6 V9 X! V4 Y8 K        sav_absinc = absinc
% @9 L2 K6 ]1 |: F" O2 A1 h        absinc = zero
        pbld, n, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e
        pe_inc_calc
        ps_inc_calc
# k/ P$ s  p  z  F  v6 A& F  B        absinc = sav_absinc
7 F. D. J2 F6 X. ^        ]
      if cuttype = zero, ppos_cax_lin
      if gcode = one, plinout
      else, prapidout
; o8 k/ ?5 f: K* |      pcom_movea
5 r  Q. l+ Y' M% Y7 v      c_msng #single tool subprogram call
ptlchg            #tool change                                                     
, Q& _- S+ x& @& }      pcuttype
  S5 `# K. s) t5 d- D& Q" i' g! V      toolchng = one
$ c7 a9 c" P. r$ D2 {      if mi1 = one, #work coordinate system
        [
        pfbld, n, *sg28ref, "x0.", "y0.", e
7 U& H7 Q5 s) \        pfbld, n, "g92", *xh, *yh, *zh, e
4 r( i& F  G' R7 m2 ]  u        ]
  t: g$ W+ |6 P9 v7 u2 |      pbld, n, "m01", e
- S% F) `) E! r. B% d% R; g      pcom_moveb
      c_mmlt #multiple tool subprogram call
      ptoolcomment
      comment
# c& v  y3 E5 c$ r      pcan
5 j' x9 u+ r' f! r- [$ T      pbld, n, *t, "m6", e
9 z- k& M0 u( E; k0 b' \! A$ u      pbld, n, "/",scoolant
      pindex
" _) ~# t4 c  }/ M" k" R% o      sav_absinc = absinc     
      if mi1 > one, absinc = zero
9 H. F. `9 z/ G# E- a      pcan1, pbld, n, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
      pcout, *speed, *spindle, pgear, strcantext, e
  F$ r* e8 d% c3 c  H      pbld, n, "g43", *tlngno, pfzout, next_tool, e
3 |4 q$ ?& Y' E      pbld, n, "*2030=0.0"
      pbld, n, "*2031=0.0"
- F* Q. X) O- \$ q' f, z) G      absinc = sav_absinc
      pcom_movea
      toolchng = zero
5 L9 {9 a# s; Q      c_msng #single tool subprogram call
+ |5 y9 t% V0 }/ Y. Mpretract          #end of tool path, toolchange                  
. S3 \, ~5 Z, ]0 b% r  l6 M      sav_absinc = absinc         
) G) I; }0 Y' M# K( G4 e      sav_coolant = coolant
      coolant = zero
% ~- R7 p4 c0 \" l5 e* R) b      #cc_pos is reset in the toolchange here
/ `  U4 U! L2 \) W      cc_pos = zero
      gcode = zero
      pbld, n, sccomp, *sm05, psub_end_mny, e
+ W9 \5 y4 o  T, W$ ?* S  p3 o      pbld, n, scoolant, e
      absinc = one
      pbld, n, sgabsinc, sgcode, *sg28ref, "z0.", e
      
      #pbld, n, *sg28ref, "x0.", "y0.", protretinc, e
2 w4 K5 F# ?0 c3 H      absinc = sav_absinc         
( E7 T2 f7 h3 H& N      coolant = sav_coolant
         
$ O: s) l8 P* ?; `protretinc      #reset the c axis revolution counter
4 C; G: I) s5 E" p% f      if frc_cinit & rot_on_x,
0 w6 K  ~2 b/ }  a1 h2 n( N+ g* T( [        [
' Z. u2 B* Y) x: q( @+ |& k9 B        rev = zero
        sav_rev = zero
  W$ N, P  |6 k        cabs = zero
' y9 N. v) s5 \' N0 x8 Y7 D        csav = zero
! C1 z5 Z: q5 J) A* t6 K        indx_out = zero
1 {# q( R. Q( Z. t. \        if index, e, pindxcalc, pindex
        else, *cabs
+ O* U9 ?  F, S% U        prvcabs = zero
        !csav, !cabs
        ]
peof0             #end of file for tool zero                  
+ q% @$ V4 }' l( w  g/ S2 k      peof
* ]# X# {" K, |- n$ Kpeof              #end of file for non-zero tool            
      pretract
: k. }! K2 f+ @( i# C      comment
      #remove pound character to output first tool with staged tools
0 s" e8 R4 |' Y) i7 G      #if stagetool = one, pbld, n, *first_tool, e
% m' A4 {* F1 Q9 v: b) D) S0 v      pbld, n, *sg28ref,"y0.", protretinc, e
      n, "m30", e   
' o! O( E& p! J8 X      mergesub
      clearsub
      mergeaux
      clearaux
+ C' b6 s, O: v/ C- x6 [. F1 z      "%", e
pwcs              #g54+ coordinate setting at toolchange
8 v# h8 Y3 A/ a3 ^      if mi1 > one,
2 l% Q+ V$ r, A7 d; p        [
  I/ i) C% j9 M# u$ p; ]3 X" r        sav_frc_wcs = force_wcs
3 C& ~; m3 I* Q8 I. ?2 p, O        if sub_level, force_wcs = zero
        if workofs <> prv_workofs | (force_wcs & toolchng),
          [
6 B3 Y5 h& h* e5 @5 ]2 R2 @          if workofs < 6,
6 R% ]$ h( t* p# g  L            [
            g_wcs = workofs + 54
0 n# j% ]+ J3 Z. F7 g3 |$ ]5 b/ p            ]
2 L$ z) r8 ~: A. R. F: A: l+ o          else,
* N) F! e0 ^/ V- o: S# W            [
            g_wcs = workofs + 104
  r" o) c+ T" k2 N% u& M) n            ]
. P( J& g* o7 D, z3 a" A/ _          if workofs >= 0 & workofs <= 25, *g_wcs
% }0 v$ O" U4 \# I4 Q3 b            else, "error - invalid work coordinate system", e
          ]
; S# b* N! A7 B0 ]        force_wcs = sav_frc_wcs
        !workofs
. Z  g. i  u, M+ Z0 Y        ]
2 Z0 t5 d" W; g. I; i         
1 u( P/ u6 b0 R' L( wpgear             #find spindle gear from lookup table
      if use_gear = one,
0 \) F- L  i& _* |" N        [
        gear = frange (one, speed)
        *gear
        ]
#toolchange setup
pspindchng      #spindle speed change
6 |: k, B5 [1 V6 X3 _      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n, *sm05, e
      if prv_speed <> speed | prv_spdir2 <> spdir2,
9 J) j: n5 A# U: P7 a        [
; T1 A( B2 p. b5 X" i        if speed, pbld, n, *speed, *spindle, pgear, e
        ]
8 X0 ^' d8 t, o3 X. z. o- a      !speed, !spdir2
pspindle          #spindle speed calculations for rpm
. n6 ]/ q- B0 [! P+ Y      speed = abs(ss)
      if maxss = zero | maxss > max_speed, maxss = max_speed
      #zero indicates spindle off (not a mistake)
      if speed,
' G! A0 z$ r7 ?8 j        [
  ?- n$ e9 ]1 t) u        if speed > max_speed, speed = maxss
& L& m, v) c* w5 r        if speed < min_speed, speed = min_speed
        ]
      spdir2 = fsg3(spdir)

Admin

你的机器应该是haas的控制器.

1. pwcs      #g54+ coordinate setting at toolchange
   
2.   if mi1 > one,
   ) Y7 j4 M$ D5 J
3.    &#91;
   7 ?9 N0 v4 p$ w3 n. a
4.    sav_frc_wcs = force_wcs
   6 p2 I5 E. E% p% p7 u2 H3 p
5.    if sub_level, force_wcs = zero
   . \+ L7 `1 x! X: m4 U
6.    if workofs <> prv_workofs | (force_wcs &amp; toolchng),
   / j. {. }. }# _
7.      &#91;
   ) [3 [! k9 W! I/ ?% w, X9 L. j
8.      if workofs < 6,
   0 G# T6 G- M; W/ J. }" S8 _
9.      &#91;
   
10.      g_wcs = workofs + 54
    
11.      ]
    " T$ ^% X& s( ?' ^4 u' j9 b
12.      else,
    2 @4 \6 E% ]; X: x
13.      &#91;
    6 `% [: f( I1 P* c
14.      g_wcs = workofs + 104
    
15.      ]
    
16.      if workofs >= 0 &amp; workofs <= 25, *g_wcs
    - J  z) E0 W; v' X" a
17.      else, "error - invalid work coordinate system", e
    
18.      ]
    - G& z5 Y% ~9 z1 U0 A9 o
19.    force_wcs = sav_frc_wcs
    
20.    !workofs
    
21.    ]

复制代码

4 }7 P6 w' J; @& k* h. ?改为
; s- @8 C! t* p3 A( C

1. pwcs      #g54+ coordinate setting at toolchange
   
2.   if mi1 > one,
   2 a/ {* ]7 \4 P& N" k
3.    &#91;
   4 j7 m# k) Z# P; {2 L' I
4.    sav_frc_wcs = force_wcs
   , B+ J% I4 k# K
5.    if sub_level, force_wcs = zero
   , l7 U% I+ M0 R8 @! x- O9 `
6.    if workofs <> prv_workofs | (force_wcs &amp; toolchng),
   $ p' ]- s4 n0 B9 C* |1 B2 G2 f; M
7.      &#91;
   
8.      if workofs > 0 &amp; workofs < 7,
   
9.      &#91;
   ( d7 D; K, I, I9 {; v) w. Q
10.      g_wcs = workofs + 53
    
11.   *g_wcs
    * v; C) I! e# c  B5 i% A( F
12.      ]
    
13.      else,
    
14.      &#91;
    3 c) P& v% }2 n
15.      if workofs > 7 &amp; workofs <= 25
    
16.      g_wcs = workofs + 104
    ) x' J  q5 F+ ^: Y- _
17.   *g_wcs
    ( u% r6 A: n! c% W5 ]! {9 D. d* y* ?
18.   ]
    $ A( F8 x' y, C3 N0 {& b
19.      ]
    
20.    force_wcs = sav_frc_wcs
    
21.    !workofs
    
22.    ]

复制代码

Admin

上面我给出的代码还是会出现g53.每次写刀路时如下图设置即可完全解决
不要太依赖后处理.当然,后处理是可以做到和避免人为的疏忽,但养成一个良好的习惯是很有必要的.
如不想按上面的设置,请按如下修改.
7 d" @* ]  t$ r3 k

1. 
     E/ i( d/ q# }0 _
2. g_wcs = workofs + 53
   

复制代码

1. 
   
2. g_wcs = workofs + 54
   1 @; n) r; m, x) ~

复制代码

同时删除以下代码
7 ?9 I* z$ L) v8 j3 a+ z  C4 y

1. 
   8 T1 L, [8 r/ T3 t+ b
2. workofs > 0
   9 E2 v1 L6 v' `: z' i; T

复制代码

nt2256

[p]感谢斑竹 不过用了之后报警 我先在每次处理程序前都重新计算一下刀路 说来也奇怪 这下处理后来的程序就带g54了 不知道是为什么。。。

[p]再次感谢斑竹~

若枫

[p]报警的错误信息放上来,就知道是什么问题了.

若枫

g_wcs = workofs + 54
这句话有问题。应该是
  g_wcs = workofs + 53

liuhaidong

回复 8# 若枫
. l# k4 z& {& }) G5 O8 Q+ Y1 K

    当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。

liuhaidong

回复 9# liuhaidong

; H, I& ^: P' ~% D* F1 J. f
% S, |( v' G  r. w" |    你想要加G54-G59均可，根据实际需求。

yanglinchu

回复  若枫


$ Y* L+ B  e7 P    当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。
  I0 V0 P" f7 Hliuhaidong 发表于 2011-6-15 14:18 http://postp.net/images/common/back.gif

% w$ _2 q: j! ]4 w3 ?

7 ~7 p' ]; k1 l    可行，但是不能从根本解决问题，比如大型的加工中心，换刀无数，谁都难保证少几个G54,忘记加，那就麻烦大了。我也遇到这个问题了，程序缺少G54，请若枫帮忙！

若枫

回复 11# yanglinchu


    都说了,这是刀路设置问题.后处理是可以生产G54,关键在于刀路.
还有这牙咬根据每个人的习惯去设定该后处理是可以做到一劳永逸的,但那是个固定的死东西,不方便与其他用G55,G56....设定
所以改变个人的编程习惯是最好的解决方法