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

sdafew000

不知道后处理哪个参数不对，处理出来螺旋下刀是直线，程序太长了。
还有这个后处理我把第四轴改成B轴了，不是联动的情况下，在B轴转动前一行，加个M11;转动之后加个M10；
# --------------------------------------------------------------------------
) [. ]( u/ O7 }, q# General Output Settings
# --------------------------------------------------------------------------
sub_level   : 1     #Enable automatic subprogram support
breakarcs   : 2     #Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
" \( L5 V9 z# v1 narcoutput   : 1     #0 = IJK, 1 = R no sign, 2 = R signed neg. over 180
arctype     : 2     #Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.
9 v/ S0 T* {) V' ?: @3 y, p# kdo_full_arc : 0     #Allow full circle output? 0=no, 1=yes
helix_arc   : 2     #Support helix arc output, 0=no, 1=all planes, 2=XY plane only
arccheck    : 3     #Check for small arcs, convert to linear
atol        : .01   #Angularity tolerance for arccheck = 2
ltol        : .002  #Length tolerance for arccheck = 1
vtol        : .0001 #System tolerance
maxfeedpm   : 500   #Limit for feed in inch/min
+ K: S" `; k2 y. O/ jltol_m      : .05   #Length tolerance for arccheck = 1, metric

sdafew000

顶自己一下

sdafew000

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

sdafew000

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

若枫

回复 1# sdafew000

& s; o2 i6 o8 o  {. J6 ~
    你的后处理不支持螺旋程序，智慧输出G1线段，缺少相应的代码。

替换你的原有的即可
6 @+ ~7 N* j4 ^) s. |
pcirout         #Output to NC of circular interpolation
, J" u5 \$ a: I9 i  O      if full_arc_flg,
        [
        if plane = zero, result = force(xabs,yabs)   #force coordinate on full arc              
        if plane = one,  result = force(yabs,zabs)   #force coordinate on full arc              
        if plane = two,
- X9 O+ O2 J% N" T5 }2 D          [
6 |8 K% }0 i- ^4 E  c# N# l: b          result = force(xabs,xabs)   #force coordinate on full arc              
: ?$ q1 H, X9 t  I% a" t, h. E          result = force(zabs,zabs)   #force coordinate on full arc              
          ]
  W) h* L& c- l; J9 S) f        ]
      if hel_2100 = one, pcirout2
6 Q1 f' g& Z6 }, r      else, pcirout1
! I( a6 }) e/ E& L1 a8 n/ W& h/ O
1 r3 d( @) Y) |pcirout1        #Output to NC of circular interpolation
      pcan1, pbld, sgcode, sgabsinc, pccdia,
2 c7 R3 G; s% I9 m3 m& M) O, s9 e% _        pxout, pyout, pzout, pcout, parc, feed, strcantext, scoolant, e
        
6 k" g9 x; ]: E# ~9 r0 ~fmt  "K" 2  lead        #Helical lead
: R/ S. Y% t9 q0 ?$ @hel_2100    : no   #Acramatic 2100 style helical moves, 0=no, 1=yes

pcirout2        #Output to NC of circular interpolation
      if (plane = zero & fmtrnd(zinc)<>0)
       | (plane =  one & fmtrnd(xinc)<>0)
       | (plane =  two & fmtrnd(yinc)<>0), phelout
& W' y+ P+ k. e9 N      else, pcirout1
6 p" o0 z5 R5 j6 u# h$ p  i
1 H; H; s* G9 X8 @8 C% l) e( Lphelout         #Output to NC of helical interpolation
      if plane = zero,
' o3 r( Y2 a9 n2 n9 n        [
        result = nwadrs(strk, lead)
        lead = abs(zinc/sweep*360)
        ]
! w8 Q) C) x0 _* J; {+ c8 a      if plane = one,
        [
        result = nwadrs(stri, lead)
        lead = abs(xinc/sweep*360)
7 L# s9 y% k% q4 ~        ]
4 T7 `' c6 T9 B: P: o      if plane = two,
, u+ A+ `" y( D        [
* u3 a! ]$ X' p: r( T, ?: I& e$ f  {        result = nwadrs(strj, lead)
% [2 @7 l1 E4 r' S$ i        lead = abs(yinc/sweep*360)
, q* E) O; p) l/ S' Y- w" I        ]
      pcan1, pbld, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, *lead, pcout, parc, feed, strcantext, scoolant, e

huamanyi

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