QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
系统
[系统通知] 平台第一个项目外包——项目拼多;正式上线,欢迎各单位个人有外包、设计、采购、加工需求的,在此寻找更牛的解决方案
2021-07-01
查看: 16809|回复: 75
收起左侧

[原创] Mastercam 2D toolpath 拐角减速及圆弧插补减速后处理

[复制链接]
发表于 2012-10-30 10:49:11 | 显示全部楼层 |阅读模式

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
本帖最后由 ta488 于 2012-11-1 09:40 编辑 6 x( L& R. v+ a
" n( I5 v& h+ ^! [4 h, a& l1 P3 r
UG 等其它Cam软件 2D刀路都有拐角减速及圆弧插补进给速度改写功能,Mastercam通过编写后处理可以实现,方法下叙。
, k: z* J' Z/ F/ ^0 Y# I2 k* L; G- K/ F# c. u
! p% ^4 j+ u$ l& i
修改pncoutput       #Movement output  . C: u% }3 P/ q2 N# W
pncoutput       #Movement output
: ]2 w9 O9 h' g; L$ ~; n, n! S#..................................................................................................................................................+ c! X& T( D+ J3 w4 H7 L0 c
      if gcode$ = one & mi3$ = 0, plinout0 G* c# S/ \& q) z, x
      if gcode$ = one & mi3$ < 0, plinout_force_f8 r# |6 O  V/ D
      if gcode$ = one & mi3$ >0, plinout_corner_dec8 M4 n# f+ O& p3 ?# k' o
      if (gcode$ > one & gcode$ < four) & mi3$ = 0, pcirout
, [+ W6 v6 i) c# \: U! F, m      if (gcode$ > one & gcode$ < four) & mi3$, pcirout_corner_dec" \$ D" l6 ]9 a
#.................................................................................................................................................; A1 n8 F7 G& q' f( ^8 M  H1 G0 X: I9 ?
, t$ o9 w( e: u2 s) p
后处理末尾插入以下代码# z( i2 A- a7 g) R
#----------------------------------------------------------------------------------------------------------------------
5 t) S4 Y/ _" _  y2 D) f#功能说明
4 U4 V+ o1 H& G% @3 u0 f0 f# 2D toolpath corner decelerate  #2D拐角减速及圆弧插补减速后处理
9 z+ }8 G1 y( K4 O+ ]3 V, p# Only support ABS. NCI point  #仅支持绝对编程方式
! a9 \7 J; F0 t1 M# support G02/G03 feed override, arcoutput$=1 #支持圆弧插补减速
, [; H; D' }8 n5 V0 `/ U6 C# Nonsupport post 3D NCI, Nonsupport post Ramp #不支持3D刀路,不支持螺旋插补
$ S, \: n) Z& p2 _6 o#mi3$                  #mi3 进给改写,编程时在Misc values输入
3 V! c0 S- Z4 G9 H3 B: b                           #正值表示直线和圆弧都减速,7 f* b" X7 w" P4 e1 ~5 @2 n
                           #负值仅圆弧减速,
( Y  U# w/ R, g                           #0不启用减速后处理。; T% _$ N1 t5 W5 N# \+ q
#-----------------------------------------------------------------------------------------------------------------------; a! ?% ~9 e1 T
#用户参数
, o6 H% z- U" Z& P3 p9 l#min_distance : 5      # setting min_distance to break 直线减速距离,打断长度57 b8 I6 G& C: N$ m
#skip_distance :10     # to skip the line length small than直线长度小于10,直接减速不打断 7 L2 ?  d% c' H& ?; x! |( e: F. e
#small_r       : 2     # <= R2 use ov_f overiide feed  小于等于R2用Mi3参数改写圆弧插补进给
4 M( L# U- [& ~0 G#big_r         : 10    # R2<R<=R10 use 80% feed$ override feed 小于等于R10且大于R2圆弧用80%进给改写,大于R10圆弧不改写进给
& c- Z% A- m$ ?; Z  v- [+ Q8 d0 p8 C#-------------------------------------------------------------------------------------------------------------------------& R( O$ k, Q* c1 i
#作者信息
$ f& v- _% U' s  m0 n6 c# Programmer TA   : R2 ^( O9 K2 W7 a( Z4 ~. q, z
# Version v1.0
3 _& C/ f- S5 X. t* [& }# Date 2012-10 / N8 h! W; ]6 V* |
# 不明白之处请到博客咨询
. [3 }0 m" J4 @; z+ p1 Q: w7 Y: l#Blog http://attao.blog.163.com
/ m8 x+ T/ ^) s/ i: o9 ?#请保留开发者个人信息,以示对作者尊重
2 a4 j5 X0 V+ \' p1 C+ U- O3 A' M7 L0 o#----------------------------------------------------------------------------------------------------------------------  v3 a9 V! @0 z4 o
fmt   1  x1    # line end point one 3 z( f$ j3 S& c  V% e
fmt   1  y1     2 X+ S/ R! e( y) S  h0 M
fmt   1  z1   ; F3 |. T2 D, |: B5 O$ T
fmt   1  x2    # line end point two   f5 a* K! A3 e% a0 R
fmt   1  y2- e# f7 H" ]  ]+ ]- F
fmt   1  z2: v% v$ h2 O' m) f6 T
#-------
$ i  @) V' i9 R" z  e% x% p# t  ]fmt   1  xcenter         # arc data 2 D6 ?! C" [+ k! T6 z
fmt   1  ycenter
: ]9 u7 Q9 t; yfmt   1  radius7 I5 Q' ]4 i7 `- z2 m! h. N( H
fmt   1  start5 `& s- r- P( u. w
fmt   1  arcsweep6 R: \  d1 U, d; v# c8 _
#--------* d; Y; n2 o: \) J% N& z8 h1 v; @& p
fmt   "X" 2  int1x       # intersect point one (result point)
4 f, w' R9 Z7 `5 x0 W/ sfmt   "Y" 2  int1y$ `1 ?2 _0 d" M! w$ H7 R) b* E
fmt   "Z" 2  int1z" C. \. @- s! F, J1 ?
fmt   "X" 2  int2x       # intersect point one (result point) ! Z) Y; m6 w" A$ O0 f
fmt   "Y" 2  int2y
  `, C  C( e5 j( O, E# U- I4 O! jfmt   "Z" 2  int2z/ @* F6 Q' N9 Q, h9 h/ A0 K) \* j
#-----------
% b2 }1 q+ r. p, a, e0 J, }fmt  "F" 15  ov_f" ~% \4 x- ^$ @8 A) Q  M2 q& p/ X
fmt  "F" 15  ov_f2
! O3 G0 B6 N0 z/ s; {: h8 V- }% x#----------
) w% l7 {7 W2 D/ a. pfmt   1    min_distance) ~$ H) M" @" f
fmt   1    skip_distance* F) N' U6 H5 Z% d0 M0 y+ p
fmt   1    skip_dis: C" K% a+ g+ J6 K, Q. ^5 E
fmt   1    small_R
& T! b$ A8 y2 o+ @9 K8 kfmt   1    big_R; }2 R+ m5 O! I# |" E

& f" b. Y6 Z* c; {- y) q  a6 ~xtol$   :  0.00001    # tolerance, default = 0.0001 . A4 g3 |: B) L( l! f1 J
skip_dis :0           # Do not modify' i" y5 H* [, j, l) [$ C
min_distance : 5      # setting min_distance to break
1 @" z  {: L5 Z$ uskip_distance :10     # to skip the line length small than& y+ I5 m) z$ l+ ]0 g* h' b
small_r       : 2     # <= R2 use ov_f overiide feed% w/ D: ~. Z$ T% h( _$ W" W
big_r         : 10    # R2<R<=R10 use 80% feed$ override feed   m3 R; Y, U4 [$ n1 S0 e
plinout_corner_dec  # postline to set corner decelerate   
$ z/ F& O% t& ^, w& `- W  # B; C, v! b* L8 p) L8 S- l& g
           ov_f=feed          #init. feed" S% h! m! P+ ?- g, g
           if mi3$,ov_f=abs(mi3$)  # mi3$ override feed
( Q% ~0 X; V: z2 P% @' o$ [% f: K& @: f7 }
           ptnearx$  =  xabs  # near point
8 Y, Z5 h6 L/ T( t           ptneary$  =  yabs: O) q" `% u/ m* J  U( v
           ptnearz$  =  0
8 v0 p5 I( b! Q7 r& r" d/ f           x1  =  prv_xabs   # line start point one
; c- b9 k/ T! S$ Q           y1  =  prv_yabs$ P* M, `) Q  T% i& r# S+ y3 C7 K- [
           z1  =  zabs
& [  @0 q- M8 _2 n& r           x2  =  xabs     # line end point two
/ r9 L: c  w$ T* y" z1 u           y2  =  yabs
! ?9 u6 K$ }% _- ^/ V/ z  E9 v# V           z2  =  zabs! \, ]: a1 t( T9 F/ d
           xcenter   =  prv_xabs    # findinter
" |' ^* q1 J) w3 z" k+ D           ycenter   =  prv_yabs, l+ L; g  Q% f$ b
           radius   =  min_distance  h. C- k' `) W8 \$ u  W7 |
           start    =  0
+ Q% Q# r+ Z  w* K: p! J           arcsweep  =  3606 l: Q6 M) p' c$ s7 o+ |+ e
           int1x  =  xla(x1,xcenter)          $ R+ x/ O/ p/ c$ e. Z
           if (t1$<0.998&t1$>0.002),skip_dis=min_distance/t1$
) K3 W# ~2 H3 G" c& r- P+ h4 {           if ((t1$<0.998&t1$>0.002)&skip_dis>skip_distance),pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia, *int1x, *int1y, *ov_f, e$/ k2 z8 O, h: ^! {# M
           # "(","intersect P1 ",*int1x," ",*int1y, " ",*int1z," ", " ", "startpiont ",*x1," ",*y1," ",*z1," ", "endpiont "*x2," ",*y2," ",*z2,*t1$,*t2$,"skip_dis",*skip_dis,"skip_distance",*skip_distance,")",e$ # only For debug
# d/ J( V* e/ X% N2 a          1 B8 X/ ^" U/ c$ C! g
   
1 M' `1 c, o% p3 b6 V0 Z           ptnearx$  =  prv_xabs  # near point & R5 o; ~( ~) Z: R+ m, H7 |: y2 G
           ptneary$  =  prv_yabs
3 W& x8 ~" W# ?4 Z( S; [, K2 l           x1  =  prv_xabs   # line start point one ' ?7 w! D- _. ^, y9 }* G
           y1  =  prv_yabs
% c7 U+ w. S0 q, I& e' \- ~           z1  =  zabs
  K/ F! X; X8 v! G' c" d6 U$ P7 y           x2  =  xabs       # line end point two ' Z9 F: k) j0 U  L0 U
           y2  =  yabs
5 |. o, {  n" E, h9 _           z2  =  zabs8 n. m2 Y7 F0 D& y) ]# M. k
           xcenter   =  xabs    # findinter0 G: |6 S4 P1 g& n+ b  T( D
           ycenter   =  yabs) ?" q$ X2 v4 s- B
           radius   =  min_distance
8 w7 z3 }2 M$ K  ^, W0 q  F           start    =  01 X; K( V6 S: c4 s! z; r8 b
           arcsweep  =  360) E/ X( p; g) ^  F. g$ B2 I' f+ @; F
           int1x  =  xla(x1,xcenter)% k) T. C$ _4 V6 N! X) a+ z0 V
           7 x- w3 }, |9 N6 R
           if ((t1$<0.998&t1$>0.002)&skip_dis>skip_distance),pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc,pccdia, *int1x, *int1y, *feed, e$
3 a/ B" B$ B, t; R( c           # "(","intersect P2 ",*int1x,*int1y,*int1z," ", " ", "startpiont ",*x1," ",*y1," ",*z1," ", "endpiont "*x2," ",*y2," ",*z2,*t1$,*t2$,"skip_dis",*skip_dis, "skip_distance",*skip_distance,")",e$ #only For debug
% V3 i2 D; [% O9 i. H/ q: q* J& W1 h/ D
! F1 }8 P$ j% `$ U           if (t1$>0.998|t1$<0.002), pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, *feed, strcantext, e$ # plung linout ' @3 d( t* Z9 k) ~* N& ^4 \1 h& D
           else,pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, *ov_f, strcantext, e$ #linout
6 y- |2 t+ O+ W8 R4 y# }* g5 W  X( }         ' D3 u0 p" p4 k9 E4 }; g  c
1 O0 n2 L6 n6 e3 J) |9 z+ y
pcirout_corner_dec # postline to set corner decelerate! X; z: [* B+ h; q$ D9 v
      ov_f=feed          #init. ov_f feed! g5 y5 O  }1 p* h! u
      ov_f2=0.8*feed     #init. ov_f2 feed
$ ~  P: c. ?0 _3 H6 Y      if mi3$,ov_f=abs(mi3$)  # mi3$ override feed. K" ?) t/ }6 v3 H) c4 S4 z, K
      if compwarn, pcompwarn
2 {  {' h* u5 e8 \5 M      if hel_2100 = one, pcirout2
$ H6 G9 J4 M, \3 V      else, pcirout1_dec
0 A1 S7 ?# p7 g' C- R  |9 p) p# ]pcirout1_dec        #Output to NC of circular interpolation0 s# t. I* q- Q7 y- p
      if arcrad$<=small_r,  
8 L' |# V; V5 ?2 j
      pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, parc, *ov_f, strcantext, e$  #,"(","r<=2,ovf",")",e$ #only for debug
; l" ^* A9 [8 l8 Z2 m+ U5 s      if arcrad$>big_r,    : z. B+ T; s3 a' p. }7 H
      pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, parc, *feed, strcantext, e$  #,"(","r>10,feed",")",e$ #only for debug
7 \( n3 r1 P. z      if arcrad$<=big_r&arcrad$>small_r,
/ f, A6 a& M6 F  P
      pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, parc, *ov_f2, strcantext, e$ #,"(","10<=R & R>2,ov_f2",")",e$ #only for debug
& B" N2 U0 c: A5 y8 P; X; l- K/ c5 u3 |# b. c
plinout_force_f      #Output to NC of linear movement - feed                        
8 I1 @/ Y2 j' c2 e" l, a9 o' V5 E  a. l        pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,# H) s) L3 C% P4 H) _+ i0 ]
        pxout, pyout, pzout, pcout, *feed, strcantext, e$ ( j4 s& e6 r8 X
1.jpg
3.jpg
2.jpg

评分

参与人数 1三维币 +10 收起 理由
路过不买 + 10 好资料,感谢您对论坛的支持!

查看全部评分

发表于 2012-10-30 11:55:39 | 显示全部楼层
本帖最后由 sonkit 于 2012-10-30 16:44 编辑 . L6 q( f; x- e. w
  u, [$ w  g- _6 u& }  _
LZ强 ,  不错!  赞一个!!
" l0 _1 I7 J: N- N) `6 h5 s5 {建议 LZ 改成杀气一些的名称:
   2D无段变速  / r! }! s3 D& ?9 n. E% P

+ q/ \# g1 x4 _$ q6 b5 V
- r" L/ @/ M1 S  K- K4 p Sonkita.jpg
8 F0 s% Y9 v* f1 T3 c- }3 M. a3 i0 h3 h
# [3 P5 x9 J6 j* f4 k
3 x& O+ D" V7 H# J
 楼主| 发表于 2012-10-30 12:03:37 | 显示全部楼层
本帖最后由 ta488 于 2012-10-30 20:30 编辑 $ `" ?0 I( Q6 q, {
2 V5 i3 ^  M4 i) X2 N' I
各路豪杰,请指正!
发表于 2012-10-30 12:04:42 | 显示全部楼层
先顶一个,再来看细节
发表于 2012-10-30 13:09:50 | 显示全部楼层
直接複制會有論壇上的代碼......$ C' r* ^+ A  o7 p0 Y: ]

5 y4 B5 |3 t- q1 W/ `方便給個文字檔嗎.....怕複製時出錯9 H+ w1 T+ d% j; t% @  g
# d; p- m/ D* d9 E9 s4 ^& Q
謝謝
 楼主| 发表于 2012-10-30 14:11:27 | 显示全部楼层
本帖最后由 ta488 于 2012-10-30 14:16 编辑
5 A, z- U( K) e; L8 u" |
. }6 {  ~! x2 P2 |' F' r0 O董事长出来关注了,荣幸啊,附件为代码,还望大家狂顶

修改说明.zip

2.02 KB, 下载次数: 416

发表于 2012-10-30 14:18:20 | 显示全部楼层
难得的资料,没有多少人会知道这些,3q
发表于 2012-10-30 14:29:26 | 显示全部楼层
很好的资料,谢谢楼主拿出来分享!
 楼主| 发表于 2012-10-30 14:45:28 | 显示全部楼层
呵呵,多顶一些总工、董事、坛主、富豪出来热闹一番:D
发表于 2012-10-30 16:49:05 | 显示全部楼层
very good
 楼主| 发表于 2012-10-30 17:04:41 | 显示全部楼层
本帖最后由 ta488 于 2012-10-30 17:12 编辑   E/ }; R! R$ E1 P! z
0 v% N7 N# r* F" L9 r/ u- i/ d
lixinqiou 对 您 说 : 我就找不出问题的所在,帮我看下呗。 查收邮件:已经发出。7 a6 i4 I) M! {* I
二楼朋友,够霸气!
2012-10-30 16-57-32.png
2012-10-30 17-06-53.png
发表于 2012-10-30 17:27:15 | 显示全部楼层
感谢楼主分享
发表于 2012-10-30 17:44:17 | 显示全部楼层
楼主能不能发个源文件
6 S2 n% c/ _3 a" `9 p
发表于 2012-10-30 18:06:05 | 显示全部楼层
很好的资料,谢谢楼主拿出来分享!
 楼主| 发表于 2012-10-30 18:45:52 | 显示全部楼层
先贴源码顶出高手,后续再贴源文件,不懂得不要急,可以先贴贴“仓井空”之类的
发表于 2012-10-30 22:27:24 | 显示全部楼层
本帖最后由 lixinqiou 于 2012-10-30 22:29 编辑
/ }- F) z0 R. I) U' w/ Z/ R) o
ta488 发表于 2012-10-30 17:04 http://www.3dportal.cn/discuz/static/image/common/back.gif# P( x$ r" j: G2 b1 O7 z
lixinqiou 对 您 说 : 我就找不出问题的所在,帮我看下呗。 查收邮件:已经发出。
' `# T/ @6 f8 q& Z二楼朋友,够霸气!:lol ...
3 w& f: G* n0 ~# A" a

8 l  X- _  b: u楼主这才是真才实学,佩服之至!路过不买版主以后要多加分哦!
发表于 2012-10-31 00:08:05 | 显示全部楼层
楼主人才。其实只需要修改数控系统里的拐角长度和拐角速率的百分比就可以了,如果怕修改软件出错的话,尤其对于我这种新手来说其实我不敢改软件里的东西,但是数控系统的参数我敢修改
 楼主| 发表于 2012-10-31 06:53:22 | 显示全部楼层
本帖最后由 ta488 于 2012-10-31 09:54 编辑 3 }+ V) F& c  n& g4 P- g

4 j( d) _( h2 Q: T/ }" Q楼上:是的,楼主所提是指Machine dynamics 、MC High Feed ,MC此功能很少有人知道。还有修改机床数控系统参数也可以实现,且简单,FANUC18i等高级系统都带有这样的功能。软件拐角可弥补机床系统未开通拐角减速,应用时应综合加工质量和效率,考虑是否一定要使用,使用最简单的方法加工出合格的产品便是最好的方法。
发表于 2012-10-31 09:46:16 | 显示全部楼层
楼主后处理程序的时候你的出现这个没,能不能弄掉它?
1.jpg
 楼主| 发表于 2012-10-31 10:26:09 | 显示全部楼层
楼主后处理程序的时候你的出现这个没,能不能弄掉它?: v# O: x9 ~- `' {$ N
致命的是不可以的。一般的如图设置。
2012-10-31 10-22-57.png
发表于 2012-10-31 10:57:04 | 显示全部楼层
ta488 发表于 2012-10-31 10:26 static/image/common/back.gif# }7 H9 E- _8 H7 A' G( }
楼主后处理程序的时候你的出现这个没,能不能弄掉它?
- a% z; ^2 B! P/ o+ P致命的是不可以的。一般的如图设置。
7 w5 _2 t7 v' ]) b9 T0 C/ s. l, T
改过了,估计是后处理文件有设置这个,把这个警告屏蔽掉,后处理本身没问题可以肯定。
2.jpg
发表于 2012-10-31 11:28:12 | 显示全部楼层
先顶再看/ B1 B3 z* b/ }
 楼主| 发表于 2012-10-31 13:17:28 | 显示全部楼层
你安装的是不是 X6mu2 ? 是的话升级后处理.
发表于 2012-10-31 16:11:39 | 显示全部楼层
ta488 发表于 2012-10-31 13:17 static/image/common/back.gif
  K& I0 H* `. a  k你安装的是不是 X6mu2 ? 是的话升级后处理.
! U$ }" {* w1 T1 p7 C% R
正是X6MU2 64位。刚刚升过级了,问题依旧。照说你用的没问题到我这应该没问题才是,汗!我自己也去研究下,楼主再关注下呗。
3.jpg
 楼主| 发表于 2012-10-31 20:58:53 | 显示全部楼层
警告找到原因是少了,三个逗号,按上图修正。
2012-10-31 20-49-27.png
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

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