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

sdafew000

+ P+ Y; q. U: e  K3 X8 K不知道后处理哪个参数不对，处理出来螺旋下刀是直线，程序太长了。
, X6 y& M" ^6 |* F还有这个后处理我把第四轴改成B轴了，不是联动的情况下，在B轴转动前一行，加个M11;转动之后加个M10；
# --------------------------------------------------------------------------
# General Output Settings
+ f$ y! Y$ Q( ?  G# --------------------------------------------------------------------------
% c' H/ _: W+ g; O2 L1 gsub_level   : 1     #Enable automatic subprogram support
" V! d, C8 i2 _( y* T: gbreakarcs   : 2     #Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs
arcoutput   : 1     #0 = IJK, 1 = R no sign, 2 = R signed neg. over 180
9 ^, e& o2 j" p( ~arctype     : 2     #Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.
' o* p; m5 p: y: K! M9 d! |do_full_arc : 0     #Allow full circle output? 0=no, 1=yes
- C, E% A# w/ K9 e, L% ^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
4 H% T. G5 X5 N+ j+ Y7 h: |( y( Eatol        : .01   #Angularity tolerance for arccheck = 2
ltol        : .002  #Length tolerance for arccheck = 1
7 w5 F+ b" p, ~% @: V- d% Yvtol        : .0001 #System tolerance
maxfeedpm   : 500   #Limit for feed in inch/min
6 @$ h, [; |% l& A% pltol_m      : .05   #Length tolerance for arccheck = 1, metric

sdafew000

顶自己一下

sdafew000

http://postp.net/viewthread.php?tid=6538      
1 N- I* Z3 G1 p$ G' I3 V! ^4轴夹紧松开

sdafew000

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

若枫

回复 1# sdafew000
  r3 Q, i% h% L2 F2 ?
- q2 }4 e! b3 ]  A/ S' a. m
    你的后处理不支持螺旋程序，智慧输出G1线段，缺少相应的代码。
' E0 P. P0 ^4 T2 i
0 }. k7 ^. Z) v6 Y& [替换你的原有的即可
7 [$ Z9 Z. h* S: p+ y
pcirout         #Output to NC of circular interpolation
      if full_arc_flg,
        [
        if plane = zero, result = force(xabs,yabs)   #force coordinate on full arc              
6 b# ~+ Q/ c- ]* W; {        if plane = one,  result = force(yabs,zabs)   #force coordinate on full arc              
5 R4 @, X3 _& E/ r& s) i; ], j        if plane = two,
2 _4 N) m6 l5 C* S+ P# M: W+ @2 m          [
          result = force(xabs,xabs)   #force coordinate on full arc              
2 T+ ?' l: X( _5 _6 C5 G          result = force(zabs,zabs)   #force coordinate on full arc              
          ]
7 \! e; T7 _; q9 w' i* ~        ]
      if hel_2100 = one, pcirout2
      else, pcirout1
2 M3 m5 t* h0 r& V
' V) `8 D% y0 T: a  Npcirout1        #Output to NC of circular interpolation
      pcan1, pbld, sgcode, sgabsinc, pccdia,
6 K* b) u# c& x/ W        pxout, pyout, pzout, pcout, parc, feed, strcantext, scoolant, e
3 @, u) {- ^8 v$ a" e( g- ?$ b0 R        
2 U1 M9 }; P2 S0 ]4 Jfmt  "K" 2  lead        #Helical lead
hel_2100    : no   #Acramatic 2100 style helical moves, 0=no, 1=yes

2 m6 ^; v1 G7 ?: J6 ppcirout2        #Output to NC of circular interpolation
0 c" r" S1 \4 x/ P" E      if (plane = zero & fmtrnd(zinc)<>0)
: C; k2 r8 O. }6 C       | (plane =  one & fmtrnd(xinc)<>0)
3 j3 o) x  p; f' U; ~: d9 U       | (plane =  two & fmtrnd(yinc)<>0), phelout
      else, pcirout1
  o5 H: C2 g# Z. B  U+ {0 i& ~( O
5 ?! B$ }* _  P2 ^8 ?! S! Ophelout         #Output to NC of helical interpolation
      if plane = zero,
        [
4 H( [/ F  S& ~  H3 }% R        result = nwadrs(strk, lead)
$ q/ ^; v1 \, B. t        lead = abs(zinc/sweep*360)
        ]
5 c) l1 ]4 ?( _( d      if plane = one,
( t4 q+ L, h2 Z# n' _( Z+ `) g        [
        result = nwadrs(stri, lead)
; a: \# V& Q1 a7 ]- t        lead = abs(xinc/sweep*360)
& s2 f$ m2 Z$ w4 E' O/ G  c0 j        ]
. q# F4 `( b. |" K      if plane = two,
        [
& A! K3 T- X1 h% `3 }% M7 _4 z        result = nwadrs(strj, lead)
        lead = abs(yinc/sweep*360)
        ]
      pcan1, pbld, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,
9 S0 @5 g* ~" B( @        pxout, pyout, pzout, *lead, pcout, parc, feed, strcantext, scoolant, e

huamanyi

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