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

nt2256 · 发表于 2011-3-19 18:36:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

您需要登录才可以下载或查看，没有账号？立即注册

×

以下是我的后处理
还有一把刀具加工程序时程序开头没有刀号(t)
多把刀具加工时有刀号
请问如何让处理出来的一把刀具加工程序有刀具号呢(t)？

# tool comment / manual entry section
# --------------------------------------------------------------------------
ptoolcomment #comment for tool
   tnote = t
   toffnote = tloffno
   tlngnote = tlngno
   #"(", pstrtool, *tnote, *toffnote, *tlngnote, *tldia, ")", e
   "(",*tldia,")", e
pstrtool       #comment for tool
   if strtool <> sblank,
      [
      strtool = ucase(strtool)
      *strtool, " "
      ]
pcomment       #comment from manual entry (must call pcomment2 if booleans)
   pcomment2
pcomment2       #comment from manual entry
   scomm = ucase (scomm)
   if gcode = 1007, "(", scomm, ")"
   else, "(", scomm, ")", e
# --------------------------------------------------------------------------
# start of file and toolchange setup
# --------------------------------------------------------------------------
psof0          #start of file for tool zero
   psof
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
      ]
   "%", e
   *progno, e
   "(", sprogname, ")", e
   "(", date, " ", time, ")", e
   pbld, n, *smetric, e
   pbld, n, *sgcode, *sgplane, "g40", "g49", "g80",*sgabsinc,"g94", e
   sav_absinc = absinc
   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
      absinc = sav_absinc
      ]
   pcom_moveb
   c_mmlt #multiple tool subprogram call
   ptoolcomment
   comment
   pcan
   if stagetool >= zero, pbld, n, *t, "m6", e
   pbld, n, "/",scoolant
   pindex
   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
   pbld, n, "*2030=0.0"
   pbld, n, "*2031=0.0"
   pcom_movea
   toolchng = zero
   c_msng #single tool subprogram call

ptlchg0          #call from nci null tool change (tool number repeats)
   pcuttype
   pcom_moveb
   c_mmlt #multiple tool subprogram call
   comment
   pcan
   pbld, n, sgplane, e
   pspindchng
   pbld, n, scoolant, e
   if mi1 > one & workofs <> prv_workofs,
      [
      sav_absinc = absinc
      absinc = zero
      pbld, n, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e
      pe_inc_calc
      ps_inc_calc
      absinc = sav_absinc
      ]
   if cuttype = zero, ppos_cax_lin
   if gcode = one, plinout
   else, prapidout
   pcom_movea
   c_msng #single tool subprogram call
ptlchg          #tool change
   pcuttype
   toolchng = one
   if mi1 = one, #work coordinate system
      [
      pfbld, n, *sg28ref, "x0.", "y0.", e
      pfbld, n, "g92", *xh, *yh, *zh, e
      ]
   pbld, n, "m01", e
   pcom_moveb
   c_mmlt #multiple tool subprogram call
   ptoolcomment
   comment
   pcan
   pbld, n, *t, "m6", e
   pbld, n, "/",scoolant
   pindex
   sav_absinc = absinc
   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
   pbld, n, "*2030=0.0"
   pbld, n, "*2031=0.0"
   absinc = sav_absinc
   pcom_movea
   toolchng = zero
   c_msng #single tool subprogram call
pretract       #end of tool path, toolchange
   sav_absinc = absinc
   sav_coolant = coolant
   coolant = zero
   #cc_pos is reset in the toolchange here
   cc_pos = zero
   gcode = zero
   pbld, n, sccomp, *sm05, psub_end_mny, e
   pbld, n, scoolant, e
   absinc = one
   pbld, n, sgabsinc, sgcode, *sg28ref, "z0.", e

   #pbld, n, *sg28ref, "x0.", "y0.", protretinc, e
   absinc = sav_absinc
   coolant = sav_coolant

protretinc    #reset the c axis revolution counter
   if frc_cinit & rot_on_x,
      [
      rev = zero
      sav_rev = zero
      cabs = zero
      csav = zero
      indx_out = zero
      if index, e, pindxcalc, pindex
      else, *cabs
      prvcabs = zero
      !csav, !cabs
      ]
peof0          #end of file for tool zero
   peof
peof             #end of file for non-zero tool
   pretract
   comment
   #remove pound character to output first tool with staged tools
   #if stagetool = one, pbld, n, *first_tool, e
   pbld, n, *sg28ref,"y0.", protretinc, e
   n, "m30", e
   mergesub
   clearsub
   mergeaux
   clearaux
   "%", e
pwcs             #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),
      [
      if workofs < 6,
         [
         g_wcs = workofs + 54
         ]
      else,
         [
         g_wcs = workofs + 104
         ]
      if workofs >= 0 & workofs <= 25, *g_wcs
         else, "error - invalid work coordinate system", e
      ]
      force_wcs = sav_frc_wcs
      !workofs
      ]

pgear          #find spindle gear from lookup table
   if use_gear = one,
      [
      gear = frange (one, speed)
      *gear
      ]
#toolchange setup
pspindchng    #spindle speed change
   if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n, *sm05, e
   if prv_speed <> speed | prv_spdir2 <> spdir2,
      [
      if speed, pbld, n, *speed, *spindle, pgear, e
      ]
   !speed, !spdir2
pspindle       #spindle speed calculations for rpm
   speed = abs(ss)
   if maxss = zero | maxss > max_speed, maxss = max_speed
   #zero indicates spindle off (not a mistake)
   if speed,
      [
      if speed > max_speed, speed = maxss
      if speed < min_speed, speed = min_speed
      ]
   spdir2 = fsg3(spdir)

Admin · 发表于 2011-3-19 18:55:16

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

pwcs #g54+ coordinate setting at toolchange
( {- _& }* p8 b) t9 k
if mi1 > one,
4 z! n8 k; V1 ^! Z0 p
[; }" b" b: a$ k! H# N2 o, _
sav_frc_wcs = force_wcs
1 l0 X/ o/ [4 k3 ~
if sub_level, force_wcs = zero
+ K7 u5 K' ?/ M. p
if workofs <> prv_workofs | (force_wcs & toolchng),
3 p! g. V9 o) X- E2 R# F8 a; b
[
$ b& u0 E5 K5 \+ ~& c3 m
if workofs < 6,
3 J7 E3 R4 @1 I
[0 z3 O* K# w0 \) n( k5 Y
g_wcs = workofs + 54! g3 v# b( t) {
]
# J4 R' b! w' m! a, ~/ _
else,
& Q' L; u% l4 l
[
% G0 q3 j$ I5 r
g_wcs = workofs + 1040 A; K9 ~$ v) m
]" L, J+ i9 x4 o( u _& f1 a
if workofs >= 0 & workofs <= 25, *g_wcs+ U/ |, ]+ I% r% u
else, "error - invalid work coordinate system", e
3 h, V4 }- w& @3 J- V, H @
]& E) G. E5 e6 R# i7 o) l3 q
force_wcs = sav_frc_wcs: L& u2 w0 b! @, y
!workofs4 }6 M* s5 [$ F. P
]

复制代码

改为

pwcs #g54+ coordinate setting at toolchange
% f5 F8 h- a: v, C N7 q
if mi1 > one,
7 K$ H# v: s# }& {1 L
[1 Z6 i5 D: b/ D: o, {4 R
sav_frc_wcs = force_wcs( p& D9 |2 i7 A6 J
if sub_level, force_wcs = zero2 i. _* M# o% Y U. L
if workofs <> prv_workofs | (force_wcs & toolchng),
8 ^, u+ `! }/ Q# h( ]
[
V) D2 {$ K. _* ] r$ s+ X
if workofs > 0 & workofs < 7,; Z( u0 I6 v; S' F, g4 d4 h
[; g7 f* |3 A! @4 b* g
g_wcs = workofs + 534 l' h* r$ P. I. m% z. ?3 w
*g_wcs
$ h3 @8 K j2 {) h0 {! L9 ?
]! A& Q5 f) R7 r" w5 T+ u
else,. q; \4 j% i! [( P
[
+ {; l+ ]' t% c; E
if workofs > 7 & workofs <= 25
# t5 V- E+ s4 Q% g0 R* ^( a
g_wcs = workofs + 104( T4 Y; ~% a' C+ h" S* j* C% K/ X
*g_wcs/ H6 L4 W( p! |( E
]
' M6 o1 s$ @9 }, x+ K+ [: }" P
]; B8 R) T3 u( G3 V; X, `4 g( H0 Q
force_wcs = sav_frc_wcs
9 }" ], n _! ?% E
!workofs
. o2 z) _2 z! @2 D2 e
]

复制代码

Admin · 发表于 2011-3-19 19:16:21

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

4 E X$ u- Q+ ^" V2 f0 N0 E
g_wcs = workofs + 53% L" B( Y9 r7 K

复制代码

* Q. X) h5 V& L! X8 b
g_wcs = workofs + 54
5 G2 J9 |! h/ m" E

复制代码

同时删除以下代码

+ m) Q3 d! s4 j/ A
workofs > 0
1 |2 ]% _" ?( g9 ?& o) P) I

复制代码

nt2256 · 发表于 2011-3-19 22:01:47

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

[p]再次感谢斑竹~

若枫 · 发表于 2011-3-19 22:26:09

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

若枫 · 发表于 2011-6-15 12:28:13

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

liuhaidong · 发表于 2011-6-15 14:18:29

回复 8# 若枫

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

liuhaidong · 发表于 2011-6-15 14:19:29

回复 9# liuhaidong

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

yanglinchu · 发表于 2011-11-20 00:30:23

回复若枫
1 H2 d8 n8 C$ ~- Q! j. e# R$ d. [
* G6 e- u5 f+ K. |. ~
当你在后处理出现第一段XY坐标的位置前加"G54"就行了，没必要加那么多的后处理语句。
. Q% Y8 h. n0 b6 zliuhaidong 发表于 2011-6-15 14:18 http://postp.net/images/common/back.gif

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

若枫 · 发表于 2011-11-20 11:03:08

回复 11# yanglinchu

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

re:你的机器应该是haas的控制器. p...

re:上面我给出的代码还是会出现G53.每次写...

re:感谢斑竹不过用了之后报警我先在每次处...

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

站长推荐 /2

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

re:你的机器应该是haas的控制器. p...

re:上面我给出的代码还是会出现G53.每次写...

re:感谢斑竹 不过用了之后报警 我先在每次处...

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

站长推荐 /2

re:感谢斑竹不过用了之后报警我先在每次处...