找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 321|回复: 5

[求助] 帮忙改下MA9.1后处理,螺旋下刀

[复制链接]

5

主题

60

回帖

37

积分

注册会员

积分
37
发表于 2014-7-9 12:25:55 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 sdafew000 于 2014-7-9 12:29 编辑 ( n* g7 k/ S( H

- f8 f& N7 o" G' J不知道后处理哪个参数不对,处理出来螺旋下刀是直线,程序太长了。
, z  d3 h9 c/ s: T还有这个后处理我把第四轴改成B轴了,不是联动的情况下,在B轴转动前一行,加个M11;转动之后加个M10;
% g) X  r; r6 n8 j% S7 o4 L# --------------------------------------------------------------------------
" Y% v! R2 I/ p( j: y! C# General Output Settings9 A, R8 ~, b0 j, e! Q
# --------------------------------------------------------------------------$ n$ a& m. `; [1 @1 f
sub_level   : 1     #Enable automatic subprogram support
! J, ~  z: t5 K( J2 J3 d$ @+ E. Wbreakarcs   : 2     #Break arcs, 0 = no, 1 = quadrants, 2 = 180deg. max arcs/ Q& X+ r! L" }! E7 G7 c0 o/ G6 T+ @
arcoutput   : 1     #0 = IJK, 1 = R no sign, 2 = R signed neg. over 180
/ w7 |, _  e7 b: w) w: xarctype     : 2     #Arc center 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.
. _+ f6 b. t* w* ldo_full_arc : 0     #Allow full circle output? 0=no, 1=yes
  K0 H2 N  _9 n( y+ ?helix_arc   : 2     #Support helix arc output, 0=no, 1=all planes, 2=XY plane only) y9 Q& Q( }( [& _& r
arccheck    : 3     #Check for small arcs, convert to linear6 U7 R+ P2 M8 i7 n3 ~/ I
atol        : .01   #Angularity tolerance for arccheck = 2
4 i$ u' X8 ]. n6 U, Qltol        : .002  #Length tolerance for arccheck = 1
: X8 y; p  n2 }/ gvtol        : .0001 #System tolerance
5 e; v9 @8 s7 _( ]# x' Wmaxfeedpm   : 500   #Limit for feed in inch/min0 S' q/ D6 j: \. H3 h
ltol_m      : .05   #Length tolerance for arccheck = 1, metric

发那科Mpfan原版.rar

15.22 KB, 下载次数: 1, 下载积分: 金钱 -5

5

主题

60

回帖

37

积分

注册会员

积分
37
 楼主| 发表于 2014-7-9 12:42:56 | 显示全部楼层
顶自己一下
回复

使用道具 举报

5

主题

60

回帖

37

积分

注册会员

积分
37
 楼主| 发表于 2014-7-9 12:50:15 | 显示全部楼层
http://postp.net/viewthread.php?tid=6538       4 J3 K; L5 h5 Y3 T. a
4轴夹紧松开
回复

使用道具 举报

5

主题

60

回帖

37

积分

注册会员

积分
37
 楼主| 发表于 2014-7-9 14:33:14 | 显示全部楼层
晕,我改了一天一夜,最后发现是软件设置问题,螺旋渐降斜插,设置打断成若干直线了。。。
回复

使用道具 举报

433

主题

5759

回帖

901万

积分

管理员

积分
9014270
发表于 2014-7-9 17:43:47 | 显示全部楼层
回复 1# sdafew000
) K% h* l0 F5 w$ s& t
* X$ I& A# B" c; [3 F5 \0 d( P
6 V/ x" y" z- K3 H& B4 x2 B    你的后处理不支持螺旋程序,智慧输出G1线段,缺少相应的代码。
  c( ^# V% ?7 P2 g: b( G# q% l+ u+ P, _3 |" H. N
替换你的原有的即可* i5 W- z8 Q7 W8 ?& @
7 C* i" T. B, P% O" o
pcirout         #Output to NC of circular interpolation
! X# O2 a$ E' z0 R1 |8 I      if full_arc_flg,' C* Z* _4 Y3 A- ^; c  q
        [. ]5 v% Q/ t. Y7 }0 m( v% y
        if plane = zero, result = force(xabs,yabs)   #force coordinate on full arc              
* J1 J2 f2 `6 d3 z% e3 X        if plane = one,  result = force(yabs,zabs)   #force coordinate on full arc              
0 b9 W& Q6 d1 \& |        if plane = two,( R6 N3 d' H; c8 t/ h
          [! C0 w! @$ d" U2 |
          result = force(xabs,xabs)   #force coordinate on full arc              
7 e" s# P% J, m' y1 C6 u          result = force(zabs,zabs)   #force coordinate on full arc              
) d0 q$ G& o- X          ]. ^5 ^3 W8 U* }7 `9 ~
        ]8 g4 {* ^" z; [% U4 ?* o4 q$ a
      if hel_2100 = one, pcirout20 x" o0 e$ d, b1 z8 J
      else, pcirout1$ f8 l; }! E- P0 a
9 V. R: \! @7 ^. x( g. A! u
pcirout1        #Output to NC of circular interpolation. R5 L/ ~6 S$ \2 i
      pcan1, pbld, sgcode, sgabsinc, pccdia,
4 n! }5 `" `4 \        pxout, pyout, pzout, pcout, parc, feed, strcantext, scoolant, e2 x0 _- c, [8 i" ^: R8 I4 M
        1 V! ~" |2 J" T
fmt  "K" 2  lead        #Helical lead
  V$ r) e5 ~$ h$ P# X8 `! B% Zhel_2100    : no   #Acramatic 2100 style helical moves, 0=no, 1=yes$ S! H' D$ G  P
- m6 N' p8 \' n
pcirout2        #Output to NC of circular interpolation" J! z$ \4 q! z6 v, p9 @
      if (plane = zero & fmtrnd(zinc)<>0)
* O/ k/ M2 i: @* L, M       | (plane =  one & fmtrnd(xinc)<>0)* o% {  ~' [( \1 n  w3 A9 j/ |
       | (plane =  two & fmtrnd(yinc)<>0), phelout
! Y6 ?4 K9 R" a8 ~" n9 w      else, pcirout1
3 ]  K$ i( ~: T; o" [- L/ j6 t! r7 N2 N' L7 S% J7 I$ b
phelout         #Output to NC of helical interpolation9 j* W; B( Q- K
      if plane = zero,
, m, S8 y1 q% A* B6 E9 [) Z        [" d' s/ Z" e3 A- L+ r
        result = nwadrs(strk, lead)
* P  O# ~1 Q" [* K7 R3 \% F        lead = abs(zinc/sweep*360)$ s' }4 z" V" T# L
        ]: g, J2 }6 B- M$ U7 H* G
      if plane = one,
* ^( [- |  z6 j/ Z4 u' I        [
: j* j8 J3 Z/ P8 X# l/ y( D$ w        result = nwadrs(stri, lead)
, M4 R) G, S2 @% J; e" Z' t. H+ |        lead = abs(xinc/sweep*360)0 y, J, M; H  B# L
        ]
# n$ S1 l/ Z" g. j      if plane = two,
& Y5 W3 H7 U% d        [
. w1 E: X5 A0 _: W) L        result = nwadrs(strj, lead). }( ]; J- Y* t* I
        lead = abs(yinc/sweep*360)7 x& ?% ^6 X6 K7 T: c; ]+ S
        ]& }7 S( T, K+ E0 K' C2 ^
      pcan1, pbld, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,4 u9 ~9 G8 a$ O0 M, |
        pxout, pyout, pzout, *lead, pcout, parc, feed, strcantext, scoolant, e
回复

使用道具 举报

3

主题

60

回帖

107

积分

注册会员

积分
107
发表于 2014-7-13 07:56:25 | 显示全部楼层
实在是太复杂了啊,不知道怎么改
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

QQ|Archiver|手机版|小黑屋|若枫后处理论坛 ( 苏ICP备11015087号-1|苏公网安备32059002001368号 )

GMT+8, 2026-9-5 05:34 , Processed in 0.210396 second(s), 24 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表