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

nt2256

以下是我的后处理
) g/ t2 Q6 r2 o1 m* Z( p还有一把刀具加工程序时程序开头没有刀号(t)
' n9 {# {6 e3 K4 f  b多把刀具加工时有刀号
/ G! J  k. E9 L# u4 _  y- R请问如何让处理出来的一把刀具加工程序有刀具号呢(t)？
7 i  ?9 o- m0 [  N
, i* ]. r# U9 }1 K# tool comment / manual entry section
# --------------------------------------------------------------------------
. W) B- f/ m" L$ w' jptoolcomment    #comment for tool
      tnote = t
      toffnote = tloffno
      tlngnote = tlngno
/ E- _5 J% N+ J2 t, D      #"(", pstrtool, *tnote, *toffnote, *tlngnote, *tldia, ")", e
      "(",*tldia,")", e
pstrtool          #comment for tool
! C+ E# p1 z  Y4 t      if strtool <> sblank,
        [
  v4 r2 ~4 W! k- V        strtool = ucase(strtool)
        *strtool, " "
        ]
pcomment          #comment from manual entry (must call pcomment2 if booleans)
      pcomment2
& {# B" x; p/ D, V$ O- Tpcomment2         #comment from manual entry
) F/ W+ V  p- w/ r      scomm = ucase (scomm)
      if gcode = 1007, "(", scomm, ")"
      else, "(", scomm, ")", e
; s- A8 B" G8 X2 t# I1 v$ h2 R( y& @# --------------------------------------------------------------------------
) C" w  ~0 l; M. U2 o- L- V  W# start of file and toolchange setup
# --------------------------------------------------------------------------
: e5 c. c- K* d$ u8 jpsof0             #start of file for tool zero                              
6 [7 f1 I2 z4 d( ~5 P      psof
psof              #start of file for non-zero tool number                 
      pcuttype
      toolchng = one
7 N5 K$ e) p0 @0 R' ]8 }      if ntools = one,
        [
4 T  H$ @6 n- A( }. F6 v$ X" ?  x        #skip single tool outputs, stagetool must be on
8 [# H" E( C; O4 U! n: w3 u: S* f        stagetool = m_one
  t  l+ W; x4 E! [9 t        !next_tool
        ]
      "%", e
% N2 X5 C: Q# X- i) D' E      *progno, e
0 \9 u6 W! }& i% y9 X  e      "(", sprogname, ")", e
( S* o  A9 p' S! `5 O  H      "(", date, " ", time, ")", e
      pbld, n, *smetric, e         
      pbld, n, *sgcode, *sgplane, "g40", "g49", "g80",*sgabsinc,"g94", e
      sav_absinc = absinc         
/ J* q. M& c1 B& Q+ y# O' \      if mi1 <= one, #work coordinate system
% t) P1 a8 m& {. v. f        [
$ H7 s! c, a# u: K, `9 {' y        absinc = one
        #pfbld, n, sgabsinc, *sg28ref, "z0.", e
# C" l7 [9 k: l" i) Q        #pfbld, n, *sg28ref, "x0.", e
' |* H9 Q2 C6 i# J3 k. O        #pfbld, n, "g92", *xh, *yh, *zh, e
        absinc = sav_absinc
  R9 X3 _  q  u- W3 j- L' c0 X        ]
      pcom_moveb
      c_mmlt #multiple tool subprogram call
      ptoolcomment
      comment
      pcan
      if stagetool >= zero, pbld, n, *t, "m6", e
      pbld, n, "/",scoolant
2 R' r6 J2 m  \& \% G- P* l  U      pindex
) U% A! O' Q  d9 _      if mi1 > one, absinc = zero
      pcan1, pbld, n, *sgcode,*sgabsinc, pwcs, pfxout, pfyout,
      pcout, *speed, *spindle, pgear, strcantext, e
      pbld, n, "g43", *tlngno, pfzout, next_tool, e
      absinc = sav_absinc
8 I& R8 _$ \0 g' q5 b$ b6 x      pbld, n, "*2030=0.0"
6 Y1 {" O0 R9 X9 g$ O      pbld, n, "*2031=0.0"
# e6 m8 ]+ N! M2 `      pcom_movea
      toolchng = zero
      c_msng #single tool subprogram call
1 E( O5 A6 s# Y3 K0 q: X( Y3 q                 
ptlchg0           #call from nci null tool change (tool number repeats)                              
3 v( p* k' r, M. F' N      pcuttype
      pcom_moveb
3 L& q' V* A/ t) D0 S% w      c_mmlt #multiple tool subprogram call
      comment
      pcan
- s; R, ]5 X6 C! U- f1 ]      pbld, n, sgplane, e         
" _9 Q" N6 g9 B/ U7 ~      pspindchng
      pbld, n, scoolant, e
      if mi1 > one & workofs <> prv_workofs,
        [
) U9 L, C/ P% Q  z6 e        sav_absinc = absinc
        absinc = zero
        pbld, n, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e
$ ^- ~4 `' F1 g0 u- A        pe_inc_calc
% M4 M7 k' Z$ Y2 B& _: t        ps_inc_calc
        absinc = sav_absinc
8 X9 b" ^# Z1 n% L$ @        ]
      if cuttype = zero, ppos_cax_lin
6 `9 B! |* G% H$ K( I      if gcode = one, plinout
7 ?0 Z" G& p' y# P6 m* `6 ^+ o* F      else, prapidout
2 v* A& Z8 N% |' H      pcom_movea
      c_msng #single tool subprogram call
ptlchg            #tool change                                                     
      pcuttype
      toolchng = one
      if mi1 = one, #work coordinate system
1 }4 a. _* u9 ]* E/ x! t$ \  D! @8 h) p        [
. P6 q4 s1 H  A- g        pfbld, n, *sg28ref, "x0.", "y0.", e
        pfbld, n, "g92", *xh, *yh, *zh, e
1 I% c* x6 t7 T2 R0 J        ]
1 z* r; J. Z4 Q' Z6 }- l* a      pbld, n, "m01", e
0 O/ l; l; w& M: N      pcom_moveb
      c_mmlt #multiple tool subprogram call
4 e" w( |" K* i1 l      ptoolcomment
( ?4 i$ W) q: j8 a% H, w      comment
      pcan
      pbld, n, *t, "m6", e
' u/ J7 R7 T$ ~  m      pbld, n, "/",scoolant
: q  t+ V0 a/ E( P6 N! ?7 R7 L      pindex
      sav_absinc = absinc     
* S$ L3 {( o& i$ ?" [; W" e      if mi1 > one, absinc = zero
5 G+ K4 ~, G' W      pcan1, pbld, n, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
* i; y# ~0 |! s$ E7 G      pcout, *speed, *spindle, pgear, strcantext, e
      pbld, n, "g43", *tlngno, pfzout, next_tool, e
      pbld, n, "*2030=0.0"
4 `8 f# v- t/ X. U& h+ r) O      pbld, n, "*2031=0.0"
3 B9 e! r0 }- U4 b8 K; q      absinc = sav_absinc
      pcom_movea
      toolchng = zero
. m3 ?0 C6 e8 s' z- x1 d      c_msng #single tool subprogram call
7 t7 `) G& u* ?! b4 vpretract          #end of tool path, toolchange                  
; A, X$ ?7 n  w- F      sav_absinc = absinc         
3 \" L! `; }1 j8 k1 X/ n/ q9 a% ^      sav_coolant = coolant
      coolant = zero
. |3 \2 q1 q! B. i) [- K      #cc_pos is reset in the toolchange here
      cc_pos = zero
/ w$ X7 N$ ^. p      gcode = zero
* g2 G& \, p! L. L      pbld, n, sccomp, *sm05, psub_end_mny, e
+ ?8 M8 ?, R% _1 _0 ?( U  D# n      pbld, n, scoolant, e
4 n2 @: J" y/ i  R% l6 B      absinc = one
$ d9 i0 R) f% H% n      pbld, n, sgabsinc, sgcode, *sg28ref, "z0.", e
' I0 m% ]& M+ y! S% g0 M      
      #pbld, n, *sg28ref, "x0.", "y0.", protretinc, e
, X9 z# {2 `& u( r2 C9 \4 m      absinc = sav_absinc         
      coolant = sav_coolant
# B- H+ R# x* \1 S/ E( s         
protretinc      #reset the c axis revolution counter
      if frc_cinit & rot_on_x,
! y3 V& p3 P* m        [
        rev = zero
3 L' G9 u) i: z) w& L( W. B        sav_rev = zero
        cabs = zero
# E: k- V4 U# W- {  ~1 N        csav = zero
        indx_out = zero
& c! [9 \* x6 V        if index, e, pindxcalc, pindex
        else, *cabs
" U+ q& e9 O2 r9 M4 s! x: l) T        prvcabs = zero
        !csav, !cabs
        ]
1 J6 I) @- y2 }& Z/ a' D6 Tpeof0             #end of file for tool zero                  
) T/ R% _# t& u) A      peof
peof              #end of file for non-zero tool            
; s; L1 n* G! F: f1 O$ e: m      pretract
      comment
  g6 J& \6 p; B" B; l8 h      #remove pound character to output first tool with staged tools
      #if stagetool = one, pbld, n, *first_tool, e
7 z, S  i( b2 G  h$ i% M      pbld, n, *sg28ref,"y0.", protretinc, e
( N: }5 y2 [, C, G      n, "m30", e   
& _; C: {) [% i- P2 @      mergesub
: U4 d+ D* Y4 m7 F      clearsub
      mergeaux
3 A( S7 g7 o: T9 f3 N9 }# D      clearaux
0 d5 t5 w! W0 K1 S      "%", e
  }; g5 P6 E5 ?8 N* {8 m* o2 Epwcs              #g54+ coordinate setting at toolchange
      if mi1 > one,
        [
        sav_frc_wcs = force_wcs
        if sub_level, force_wcs = zero
        if workofs <> prv_workofs | (force_wcs & toolchng),
          [
" P3 f% r+ e, X# }0 n. s          if workofs < 6,
            [
; r( v- Y% E0 r- x0 U            g_wcs = workofs + 54
2 K8 j$ O2 T) s            ]
          else,
4 x$ F* L) N1 [9 [% K& U            [
            g_wcs = workofs + 104
            ]
  ~, B' R. V$ y8 g2 l6 A7 Z! S6 V. Y% j          if workofs >= 0 & workofs <= 25, *g_wcs
            else, "error - invalid work coordinate system", e
          ]
4 Q5 c3 z! Y8 y$ _. m0 z2 n& A        force_wcs = sav_frc_wcs
        !workofs
        ]
         
pgear             #find spindle gear from lookup table
      if use_gear = one,
+ x" Y1 V( e; V$ ^7 e        [
- H! x' w$ o# G# n        gear = frange (one, speed)
4 R0 i# b( }" z        *gear
4 {; h8 Y, Y* {1 j4 X2 U# B3 }        ]
# t# C6 x/ J5 T2 O) |#toolchange setup
pspindchng      #spindle speed change
      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n, *sm05, e
6 o/ P; M2 w& B      if prv_speed <> speed | prv_spdir2 <> spdir2,
        [
        if speed, pbld, n, *speed, *spindle, pgear, e
, @0 F) u$ w) S6 ~$ I8 h        ]
8 `4 c6 m+ b9 L& S4 a: s" m2 x      !speed, !spdir2
pspindle          #spindle speed calculations for rpm
0 t7 D2 Q9 a1 \% F1 q( l      speed = abs(ss)
5 u, g1 y9 B) @! f/ I      if maxss = zero | maxss > max_speed, maxss = max_speed
6 F; g. \* ^- i( O( v) f      #zero indicates spindle off (not a mistake)
      if speed,
        [
% {) M# u9 W+ l' s9 d* C5 n        if speed > max_speed, speed = maxss
        if speed < min_speed, speed = min_speed
        ]
      spdir2 = fsg3(spdir)

Admin

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

1. pwcs      #g54+ coordinate setting at toolchange
   
2.   if mi1 > one,
   
3.    &#91;
   1 u9 i8 a. \( W# F6 u4 n- k$ j
4.    sav_frc_wcs = force_wcs
   
5.    if sub_level, force_wcs = zero
   2 p, _% ?7 i6 T0 o8 d
6.    if workofs <> prv_workofs | (force_wcs &amp; toolchng),
   ; l5 y2 Z3 k5 `$ T2 W  d
7.      &#91;
   
8.      if workofs < 6,
   
9.      &#91;
   
10.      g_wcs = workofs + 54
    ; H- l! D5 J1 L2 b/ M6 T  U! r
11.      ]
    
12.      else,
    
13.      &#91;
    1 O& v* v* i  T/ N7 f1 |7 L$ J
14.      g_wcs = workofs + 104
    
15.      ]
    " r1 ]1 h( _1 N5 F
16.      if workofs >= 0 &amp; workofs <= 25, *g_wcs
    2 ~$ V2 f8 X2 g. b9 G+ S
17.      else, "error - invalid work coordinate system", e
    " p. S0 O- Z, G% z9 a8 }. L
18.      ]
    & w- i* b% S1 n' q  K
19.    force_wcs = sav_frc_wcs
    
20.    !workofs
    6 j9 M5 ^! p; N
21.    ]

复制代码

改为

1. pwcs      #g54+ coordinate setting at toolchange
   : `, Q& m& I6 {5 w
2.   if mi1 > one,
   8 A: |2 ?, ?# w; I
3.    &#91;
   
4.    sav_frc_wcs = force_wcs
   - I' j; f( m* B$ ]
5.    if sub_level, force_wcs = zero
   4 L" D  b) {! h; U
6.    if workofs <> prv_workofs | (force_wcs &amp; toolchng),
   5 I' u- ]* J0 t  w
7.      &#91;
   
8.      if workofs > 0 &amp; workofs < 7,
   & ^9 q; K: D3 {% s  I% a: c
9.      &#91;
   
10.      g_wcs = workofs + 53
    ; A7 q6 C- N; p. H% r* x( T
11.   *g_wcs
    
12.      ]
    
13.      else,
    
14.      &#91;
    
15.      if workofs > 7 &amp; workofs <= 25
    3 G# \* n) k7 X# _9 C4 a
16.      g_wcs = workofs + 104
    
17.   *g_wcs
    
18.   ]
    
19.      ]
    
20.    force_wcs = sav_frc_wcs
    
21.    !workofs
    
22.    ]

复制代码

Admin

上面我给出的代码还是会出现g53.每次写刀路时如下图设置即可完全解决
不要太依赖后处理.当然,后处理是可以做到和避免人为的疏忽,但养成一个良好的习惯是很有必要的.
) c* I/ d# j7 t/ Y+ b' g2 m如不想按上面的设置,请按如下修改.

1. 
   6 b4 Y: v- h* @6 b8 a9 z& Z, `
2. g_wcs = workofs + 53
   ! z* _" O5 X/ q+ r: `4 D; m

复制代码

, ^' z  E6 Y" p  R0 l' C% {$ j

1. 
   , Q: B1 G- T7 F# M; R0 d
2. g_wcs = workofs + 54
   

复制代码

同时删除以下代码
: S# v0 I! K6 X+ Z; X0 O7 n

1. 
   
2. workofs > 0
   

复制代码

nt2256

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

[p]再次感谢斑竹~

若枫

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

若枫

g_wcs = workofs + 54
这句话有问题。应该是
, j. y$ `+ T* w( C  g_wcs = workofs + 53

liuhaidong

回复 8# 若枫

1 `3 H9 B0 }6 f1 _
0 E' ~4 }0 @# M    当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。

liuhaidong

回复 9# liuhaidong
; t3 ?6 V1 S8 o

    你想要加G54-G59均可，根据实际需求。

yanglinchu

回复  若枫
) o. @6 o  Q7 ?. N3 g8 v  g, e& m) d

! X% s6 U7 }1 ~4 ^2 k+ [3 ~% q. h    当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。
liuhaidong 发表于 2011-6-15 14:18 http://postp.net/images/common/back.gif

/ d, `) J) b0 b6 b- K3 r2 \3 f2 T
    可行，但是不能从根本解决问题，比如大型的加工中心，换刀无数，谁都难保证少几个G54,忘记加，那就麻烦大了。我也遇到这个问题了，程序缺少G54，请若枫帮忙！

若枫

回复 11# yanglinchu

/ ]: d# M) Z* [! b
    都说了,这是刀路设置问题.后处理是可以生产G54,关键在于刀路.
, l" b2 U, V( U' O还有这牙咬根据每个人的习惯去设定该后处理是可以做到一劳永逸的,但那是个固定的死东西,不方便与其他用G55,G56....设定
$ V9 z' {2 h. y7 D所以改变个人的编程习惯是最好的解决方法