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

nt2256

以下是我的后处理
  x* s) m1 Z) G( C( W还有一把刀具加工程序时程序开头没有刀号(t)
) u( m) C; e8 J多把刀具加工时有刀号
请问如何让处理出来的一把刀具加工程序有刀具号呢(t)？
, m4 U( u: V& G1 a. l2 Q) g' @
6 K4 B& L3 C2 I0 A# tool comment / manual entry section
# --------------------------------------------------------------------------
ptoolcomment    #comment for tool
      tnote = t
4 T0 ~# n7 ?- W9 W- Y+ u  S$ _% u      toffnote = tloffno
9 H) c6 ~! [; G9 H      tlngnote = tlngno
      #"(", pstrtool, *tnote, *toffnote, *tlngnote, *tldia, ")", e
      "(",*tldia,")", e
pstrtool          #comment for tool
5 ]/ o) t) x0 g1 b1 ~  t  Q0 d/ d      if strtool <> sblank,
        [
        strtool = ucase(strtool)
# Q4 t" d: |' z$ B/ K9 t        *strtool, " "
        ]
- B* K- n/ h: [! y" W4 d$ A% rpcomment          #comment from manual entry (must call pcomment2 if booleans)
! Y: g) M% b7 W0 }" }( z5 N' ~      pcomment2
pcomment2         #comment from manual entry
      scomm = ucase (scomm)
4 `  H$ k3 `: c! L      if gcode = 1007, "(", scomm, ")"
      else, "(", scomm, ")", e
# --------------------------------------------------------------------------
# start of file and toolchange setup
$ W2 `% V  |$ v1 y# --------------------------------------------------------------------------
psof0             #start of file for tool zero                              
      psof
4 K* g3 K& @4 spsof              #start of file for non-zero tool number                 
      pcuttype
. T$ }* ~. I. b9 I$ Q6 X$ @      toolchng = one
, |+ o5 t0 p! a/ v# I2 Z. b      if ntools = one,
) A% a. |/ d  z) k5 z' q        [
2 A" v8 Y, J8 u' W/ _! y9 |        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool
" D3 U% p0 V# I6 W        ]
      "%", e
% w" n$ W1 j2 A! g7 x* @) o2 r      *progno, e
! z7 I: }( V# Z; ~- ]  d      "(", sprogname, ")", e
) ]% x# |. b5 n4 _1 j7 D2 ]      "(", date, " ", time, ")", e
& F  B6 z7 r, J; G- R5 K8 S      pbld, n, *smetric, e         
      pbld, n, *sgcode, *sgplane, "g40", "g49", "g80",*sgabsinc,"g94", e
" o9 Y" F/ [+ X% X3 |8 l: u% l  `      sav_absinc = absinc         
9 D, }+ j8 y7 s$ @/ D1 ?      if mi1 <= one, #work coordinate system
        [
        absinc = one
        #pfbld, n, sgabsinc, *sg28ref, "z0.", e
        #pfbld, n, *sg28ref, "x0.", e
        #pfbld, n, "g92", *xh, *yh, *zh, e
; y5 L. F0 m$ X' p) y% E" }- R3 y        absinc = sav_absinc
        ]
      pcom_moveb
      c_mmlt #multiple tool subprogram call
# t7 J" |3 E0 N1 F      ptoolcomment
' ]# |, M5 K0 x: u# [1 K9 k) C/ X# A      comment
0 t7 f  u( q( E5 o* [; g# ]      pcan
      if stagetool >= zero, pbld, n, *t, "m6", e
2 y# |$ p  C" @" i6 B& J/ S4 Z! Q      pbld, n, "/",scoolant
      pindex
      if mi1 > one, absinc = zero
      pcan1, pbld, n, *sgcode,*sgabsinc, pwcs, pfxout, pfyout,
- t, G6 d( ~, S. b% o      pcout, *speed, *spindle, pgear, strcantext, e
      pbld, n, "g43", *tlngno, pfzout, next_tool, e
      absinc = sav_absinc
8 R( D6 J; E  M      pbld, n, "*2030=0.0"
      pbld, n, "*2031=0.0"
      pcom_movea
" W' x$ z( I- f2 C. _      toolchng = zero
      c_msng #single tool subprogram call
- U0 k+ |4 P: ~; N) `                 
ptlchg0           #call from nci null tool change (tool number repeats)                              
- |2 ^5 `& |2 c5 T! J/ h      pcuttype
# L- Q1 n/ R. t1 \- F9 f' D* C, t( g      pcom_moveb
2 j/ b% C9 p* T9 D( X0 x2 Z0 ~      c_mmlt #multiple tool subprogram call
      comment
8 _2 X, A6 Z7 a' J% Q      pcan
      pbld, n, sgplane, e         
$ `- r. m7 r9 p# ?' k$ A      pspindchng
5 ~  B, ~; x3 k- O% E) q      pbld, n, scoolant, e
      if mi1 > one & workofs <> prv_workofs,
        [
1 S% `& b" e, y: U9 h, t, x7 p        sav_absinc = absinc
  A8 V  m- @8 F0 U        absinc = zero
        pbld, n, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e
2 j& m- d* ]2 p        pe_inc_calc
        ps_inc_calc
+ B5 M4 o) m8 n. r" {5 a1 k        absinc = sav_absinc
8 T  b$ {3 j9 s& L        ]
+ }( l4 Q2 b! J7 t      if cuttype = zero, ppos_cax_lin
. z) K/ q6 p6 K9 ^+ P" O# N, J      if gcode = one, plinout
      else, prapidout
      pcom_movea
% h/ W6 M; ]( M+ e  |5 k      c_msng #single tool subprogram call
ptlchg            #tool change                                                     
' c& k* F) U+ z% J3 o& r      pcuttype
      toolchng = one
( \3 g0 W& Z2 p$ ]) L: u. W      if mi1 = one, #work coordinate system
        [
        pfbld, n, *sg28ref, "x0.", "y0.", e
3 m2 C% T* L' X8 Z: d. E        pfbld, n, "g92", *xh, *yh, *zh, e
# B/ p& w. o0 q/ @" l( t        ]
      pbld, n, "m01", e
      pcom_moveb
      c_mmlt #multiple tool subprogram call
! x. Y) z3 @* P$ s: M      ptoolcomment
0 B* u1 f! d9 H  Z6 `& E      comment
      pcan
' t) o+ J/ m+ E* ]) L      pbld, n, *t, "m6", e
      pbld, n, "/",scoolant
+ Q  ?7 G% u+ x; K% ^3 p3 {      pindex
( G7 j% i# p' p# I* M      sav_absinc = absinc     
      if mi1 > one, absinc = zero
      pcan1, pbld, n, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
( q- `+ M+ X, F' d' v; I0 Y      pcout, *speed, *spindle, pgear, strcantext, e
      pbld, n, "g43", *tlngno, pfzout, next_tool, e
      pbld, n, "*2030=0.0"
      pbld, n, "*2031=0.0"
, x5 s/ n: E/ b; T3 t$ J0 ?      absinc = sav_absinc
      pcom_movea
      toolchng = zero
3 s7 F  ]# g' f' _9 ]5 g$ c: G2 o      c_msng #single tool subprogram call
pretract          #end of tool path, toolchange                  
      sav_absinc = absinc         
! V, i3 b2 C5 `: Z) a9 q& c$ _      sav_coolant = coolant
$ E; J0 Z  U$ {& |& o      coolant = zero
      #cc_pos is reset in the toolchange here
      cc_pos = zero
      gcode = zero
      pbld, n, sccomp, *sm05, psub_end_mny, e
1 |1 q* `7 R( [" T! O      pbld, n, scoolant, e
$ B& X3 p% O) h% |% ~3 ]" w      absinc = one
/ S- G) V+ p7 ?  r! p4 K$ P      pbld, n, sgabsinc, sgcode, *sg28ref, "z0.", e
      
      #pbld, n, *sg28ref, "x0.", "y0.", protretinc, e
: K6 P) M6 I8 @# q7 V3 D      absinc = sav_absinc         
. ~* ^- E& [" Z      coolant = sav_coolant
         
* A3 D' D5 v! r: `+ wprotretinc      #reset the c axis revolution counter
      if frc_cinit & rot_on_x,
        [
2 E( C/ y0 W- @+ C* \% h        rev = zero
        sav_rev = zero
        cabs = zero
( }% e1 [+ ^2 c* s! |* g% W# }        csav = zero
        indx_out = zero
! }) \5 f9 A" R5 B$ z5 s        if index, e, pindxcalc, pindex
        else, *cabs
        prvcabs = zero
        !csav, !cabs
- ?* b2 c% F2 W7 }+ {- ^        ]
peof0             #end of file for tool zero                  
      peof
peof              #end of file for non-zero tool            
7 S9 T% P. _2 O      pretract
      comment
  W/ E& n5 r4 Q      #remove pound character to output first tool with staged tools
      #if stagetool = one, pbld, n, *first_tool, e
      pbld, n, *sg28ref,"y0.", protretinc, e
6 Q! _& u1 x: D- i& t7 w! a      n, "m30", e   
      mergesub
      clearsub
      mergeaux
      clearaux
% Q3 `& x: Q9 [/ z' S      "%", e
+ b; n: d9 x- L. V/ epwcs              #g54+ coordinate setting at toolchange
      if mi1 > one,
        [
/ C& u* t* I1 G2 w        sav_frc_wcs = force_wcs
- i# d' N# B: X        if sub_level, force_wcs = zero
        if workofs <> prv_workofs | (force_wcs & toolchng),
; a( c% Z  c' N* l          [
4 e) ]. i. c: ^+ H1 W1 F# W* O          if workofs < 6,
            [
            g_wcs = workofs + 54
            ]
          else,
. ^% D# W; {# w6 A0 p2 d            [
/ {: h" m$ v4 ]+ b0 K            g_wcs = workofs + 104
! C* h- j2 N- O* h1 Y3 C4 ~+ H            ]
          if workofs >= 0 & workofs <= 25, *g_wcs
            else, "error - invalid work coordinate system", e
          ]
        force_wcs = sav_frc_wcs
        !workofs
        ]
         
+ O$ w$ y+ _; P1 {, e- s" f& D1 f& Epgear             #find spindle gear from lookup table
      if use_gear = one,
        [
  ]! j  K- @- @6 G! d        gear = frange (one, speed)
$ d3 V4 X5 b$ A1 P- T# J% }  B" z        *gear
        ]
#toolchange setup
pspindchng      #spindle speed change
: U5 W; l* u+ i% N2 \      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n, *sm05, e
      if prv_speed <> speed | prv_spdir2 <> spdir2,
  Z( z7 y( M% n* L7 y  e% M; ~        [
* B* L: m7 G5 `. A; t9 m- X' @        if speed, pbld, n, *speed, *spindle, pgear, e
& @% Y' S6 ~/ x. l6 L$ A        ]
      !speed, !spdir2
6 `5 h# z5 e2 C% A3 D# upspindle          #spindle speed calculations for rpm
      speed = abs(ss)
      if maxss = zero | maxss > max_speed, maxss = max_speed
4 s( k1 b0 i! a  k( E- _      #zero indicates spindle off (not a mistake)
$ n( M& q( T/ c$ l* w      if speed,
        [
2 }) q, r1 M( E0 E) l4 j        if speed > max_speed, speed = maxss
        if speed < min_speed, speed = min_speed
6 ~" E4 x" `% p9 a2 ]! S) B* k  u        ]
/ V2 q( I- n/ A; ~2 j& \      spdir2 = fsg3(spdir)

Admin

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

1. pwcs      #g54+ coordinate setting at toolchange
   9 o- d+ k% x2 O- o+ J. Q
2.   if mi1 > one,
   
3.    &#91;
   7 p, j' c) Q7 K# a1 s8 ]) E+ ]7 }" x$ d
4.    sav_frc_wcs = force_wcs
   
5.    if sub_level, force_wcs = zero
   
6.    if workofs <> prv_workofs | (force_wcs &amp; toolchng),
   1 W) `: i' q3 D' |+ Z8 k
7.      &#91;
   6 p$ G& G" r- [5 z) H. P! B
8.      if workofs < 6,
   
9.      &#91;
   5 t: m9 V9 P! {2 y5 ?
10.      g_wcs = workofs + 54
    2 Y  C* w3 z: m( F2 }4 c, `
11.      ]
    
12.      else,
    $ l" V  F7 ^* e  n; Q
13.      &#91;
    1 ^8 N3 f  u6 C, h3 b! {: F  e9 z
14.      g_wcs = workofs + 104
    
15.      ]
    3 O+ A7 K  W" f, l4 d. ]
16.      if workofs >= 0 &amp; workofs <= 25, *g_wcs
    ( J7 U2 V7 P! o% ]' N
17.      else, "error - invalid work coordinate system", e
    
18.      ]
    + ]- U8 {& _4 O* U: a
19.    force_wcs = sav_frc_wcs
    ! p# J; w" C4 _) b
20.    !workofs
    1 z2 Z; e# m5 A& a( [1 G! w7 |; b
21.    ]

复制代码

改为
; F& e+ i4 Z6 k. ?+ x1 j

1. pwcs      #g54+ coordinate setting at toolchange
   
2.   if mi1 > one,
   - l; k/ S3 C9 l
3.    &#91;
   9 i' S6 L# t; O3 d
4.    sav_frc_wcs = force_wcs
   
5.    if sub_level, force_wcs = zero
   . y8 o* z" V+ f
6.    if workofs <> prv_workofs | (force_wcs &amp; toolchng),
   $ v  A4 l  N9 Z$ o
7.      &#91;
   . J# B0 q8 B2 S2 o
8.      if workofs > 0 &amp; workofs < 7,
   
9.      &#91;
   0 }# I% G$ Y) A& L' q% }
10.      g_wcs = workofs + 53
    
11.   *g_wcs
    
12.      ]
    8 A6 @& W9 A2 ~5 b$ Z1 ]
13.      else,
    # L1 ]; i5 ]9 A7 g5 m" k
14.      &#91;
    
15.      if workofs > 7 &amp; workofs <= 25
    
16.      g_wcs = workofs + 104
    
17.   *g_wcs
    & U' i- Z# x; x7 J
18.   ]
    7 K0 z2 G% W6 P
19.      ]
    ( c* T6 y% _. e
20.    force_wcs = sav_frc_wcs
    
21.    !workofs
    
22.    ]

复制代码

Admin

上面我给出的代码还是会出现g53.每次写刀路时如下图设置即可完全解决
/ t% C% e- J( D不要太依赖后处理.当然,后处理是可以做到和避免人为的疏忽,但养成一个良好的习惯是很有必要的.
$ \7 d* F( Y  a  V3 x# `如不想按上面的设置,请按如下修改.

1. 
   / j. M1 Z4 F8 [$ O" Y
2. g_wcs = workofs + 53
   

复制代码

0 v- S' w1 H0 ?! \/ L) V

1. 
   
2. g_wcs = workofs + 54
   

复制代码

. L+ c2 E2 L# b; f同时删除以下代码

1. 
   
2. workofs > 0
   

复制代码

nt2256

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

[p]再次感谢斑竹~

若枫

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

若枫

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

liuhaidong

回复 8# 若枫


7 }* V) t  @# C; M4 u% r    当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。

liuhaidong

回复 9# liuhaidong


. m  T) _  W, g) F    你想要加G54-G59均可，根据实际需求。

yanglinchu

回复  若枫


' a$ [) R) ]# P5 z1 W5 S+ s    当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。
: f4 s$ ^& J, v! G/ tliuhaidong 发表于 2011-6-15 14:18 http://postp.net/images/common/back.gif

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

若枫

回复 11# yanglinchu

; I& W' c1 s+ \6 X7 u* j
: P+ O3 F/ B( d! c$ N9 P    都说了,这是刀路设置问题.后处理是可以生产G54,关键在于刀路.
还有这牙咬根据每个人的习惯去设定该后处理是可以做到一劳永逸的,但那是个固定的死东西,不方便与其他用G55,G56....设定
) z2 Z( G6 x& L5 g所以改变个人的编程习惯是最好的解决方法