帮忙改下MA9.1后处理，螺旋下刀

sdafew000

' y9 H: A6 W" q) L" W. e
/ O# w& V) o7 W% r9 L6 h不知道后处理哪个参数不对，处理出来螺旋下刀是直线，程序太长了。
还有这个后处理我把第四轴改成B轴了，不是联动的情况下，在B轴转动前一行，加个M11;转动之后加个M10；
) Z  i) l) C% t, `" R7 q9 X# --------------------------------------------------------------------------
# General Output Settings
3 x; n3 k/ S: s7 |; ]+ X' \# --------------------------------------------------------------------------
sub_level   : 1     #Enable automatic subprogram support
/ p% e1 K' W( \+ Ybreakarcs   : 2     #Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
5 p, x0 f7 t! \* t. \arcoutput   : 1     #0 = IJK, 1 = R no sign, 2 = R signed neg. over 180
1 o& @$ x8 m4 ]- farctype     : 2     #Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.
: `; [" N% _2 p  q3 Q) [7 pdo_full_arc : 0     #Allow full circle output? 0=no, 1=yes
- s# ?2 n7 Q( i) F& qhelix_arc   : 2     #Support helix arc output, 0=no, 1=all planes, 2=XY plane only
arccheck    : 3     #Check for small arcs, convert to linear
6 x8 y  G' @3 H# m4 o) x& Q% Ratol        : .01   #Angularity tolerance for arccheck = 2
ltol        : .002  #Length tolerance for arccheck = 1
vtol        : .0001 #System tolerance
9 @" T! Y3 w( ^. P4 B. l: g, h4 Amaxfeedpm   : 500   #Limit for feed in inch/min
ltol_m      : .05   #Length tolerance for arccheck = 1, metric

sdafew000

顶自己一下

sdafew000

http://postp.net/viewthread.php?tid=6538      
4轴夹紧松开

sdafew000

晕，我改了一天一夜，最后发现是软件设置问题，螺旋渐降斜插，设置打断成若干直线了。。。

若枫

回复 1# sdafew000
- o4 n8 c6 z% t
# g! B" O3 c  I
    你的后处理不支持螺旋程序，智慧输出G1线段，缺少相应的代码。
) F5 A1 d, G' Z$ M$ L7 ~
替换你的原有的即可

pcirout         #Output to NC of circular interpolation
2 y( v' g0 n4 T) f1 r; Y( ?: V, |      if full_arc_flg,
4 [- g1 b: K# a% Z3 }# S/ t9 ?        [
        if plane = zero, result = force(xabs,yabs)   #force coordinate on full arc              
8 W: P+ _, ^- o+ e! P        if plane = one,  result = force(yabs,zabs)   #force coordinate on full arc              
        if plane = two,
$ b0 G/ G& _9 J. o          [
          result = force(xabs,xabs)   #force coordinate on full arc              
          result = force(zabs,zabs)   #force coordinate on full arc              
          ]
        ]
6 a3 i, R7 J8 R5 p0 p6 t      if hel_2100 = one, pcirout2
      else, pcirout1
! B+ r' b) i. F9 t4 p
pcirout1        #Output to NC of circular interpolation
      pcan1, pbld, sgcode, sgabsinc, pccdia,
' T% h% \1 O8 I( ^5 g        pxout, pyout, pzout, pcout, parc, feed, strcantext, scoolant, e
# ^5 E/ \5 D6 G4 T% \7 m- e        
/ y2 l4 N, b; \2 f. \3 c: x7 Q+ Rfmt  "K" 2  lead        #Helical lead
; y- `4 ?/ h, F$ f. Ahel_2100    : no   #Acramatic 2100 style helical moves, 0=no, 1=yes

& v. |& T: }' T1 Y& i( @: rpcirout2        #Output to NC of circular interpolation
      if (plane = zero & fmtrnd(zinc)<>0)
( y4 b5 t/ O0 v: n1 \* U( n+ M       | (plane =  one & fmtrnd(xinc)<>0)
       | (plane =  two & fmtrnd(yinc)<>0), phelout
# T: F$ x7 X2 O9 T7 ]4 L( Z: E      else, pcirout1

5 \2 r$ x/ c- s! e1 ?phelout         #Output to NC of helical interpolation
      if plane = zero,
        [
        result = nwadrs(strk, lead)
        lead = abs(zinc/sweep*360)
        ]
( T- L- N* d, f& g3 A# Q      if plane = one,
/ u" V9 g0 e% u. e1 \8 J* o; c  s. Z        [
        result = nwadrs(stri, lead)
        lead = abs(xinc/sweep*360)
. H6 v) n1 j6 [. c+ U& F        ]
. e! z0 M& r: ^/ h+ v" R      if plane = two,
        [
        result = nwadrs(strj, lead)
        lead = abs(yinc/sweep*360)
        ]
      pcan1, pbld, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,
$ P7 q) V9 \. \5 s$ ~0 T4 z        pxout, pyout, pzout, *lead, pcout, parc, feed, strcantext, scoolant, e

huamanyi

实在是太复杂了啊，不知道怎么改