Mastercam 2D toolpath 拐角减速及圆弧速度改写后处理

taoshx

UG 等其它Cam软件 2D刀路都有拐角减速及圆弧插补进给速度改写功能，MasterCAM通过编写后处理可以实现，方法下叙，代码下载地址：https://attao.blog.163.com/blog/static/205398212201210313339485/

修改pncoutput       #Movement output  
........................................
      if gcode$ = one & mi3$ = 0, plinout
      if gcode$ = one & mi3$ < 0, plinout_force_f
      if gcode$ = one & mi3$ >0, plinout_corner_dec
      if (gcode$ > one & gcode$ < four) & mi3$ = 0, pcirout
      if (gcode$ > one & gcode$ < four) & mi3$, pcirout_corner_dec
.........................................

后处理末尾插入以下代码
#----------------------------------------------------------------------------------------------------------------------
#功能说明
# 2D toolpath corner decelerate  #2D拐角减速及圆弧插补减速后处理
# Only support ABS. NCI point  #仅支持绝对编程方式
# support G02/G03 feed override, arcoutput$=1 #支持圆弧插补减速
# Nonsupport post 3D NCI, Nonsupport post Ramp #不支持3D刀路，不支持螺旋插补
#mi3$                  #mi3 进给改写，编程时在Misc values输入
                           #正值表示直线和圆弧都减速，
                           #负值仅圆弧减速，
                           #0不启用减速后处理。
#-----------------------------------------------------------------------------------------------------------------------
#用户参数
#min_distance : 5      # setting min_distance to break 直线减速距离，打断长度5
#skip_distance :10     # to skip the line length small than直线长度小于10，直接减速不打断
#small_r       : 2     # <= R2 use ov_f overiide feed  小于等于R2用Mi3参数改写圆弧插补进给
#big_r         : 10    # R2<R<=R10 use 80% feed$ override feed 小于等于R10且大于R2圆弧用80%进给改写，大于R10圆弧不改写进给
#-------------------------------------------------------------------------------------------------------------------------
#作者信息
# Programmer TA   
# Version v1.0
# Date 2012-10
# Contact email etg_taoshx@163.com
# Blog https://attao.blog.163.com
#请保留开发者个人信息，以示对作者尊重
#----------------------------------------------------------------------------------------------------------------------
fmt   1  x1    # line end point one
fmt   1  y1     
fmt   1  z1   
fmt   1  x2    # line end point two
fmt   1  y2
fmt   1  z2
#-------
fmt   1  xcenter         # arc data
fmt   1  ycenter
fmt   1  radius
fmt   1  start
fmt   1  arcsweep
#--------
fmt   "X" 2  int1x       # intersect point one (result point)
fmt   "Y" 2  int1y
fmt   "Z" 2  int1z
fmt   "X" 2  int2x       # intersect point one (result point)
fmt   "Y" 2  int2y
fmt   "Z" 2  int2z
#-----------
fmt  "F" 15  ov_f
fmt  "F" 15  ov_f2
#----------
fmt   1    min_distance
fmt   1    skip_distance
fmt   1    skip_dis
fmt   1    small_R
fmt   1    big_R

xtol$   :  0.00001    # tolerance, default = 0.0001
skip_dis :0           # Do not modify
min_distance : 5      # setting min_distance to break
skip_distance :10     # to skip the line length small than
small_r       : 2     # <= R2 use ov_f overiide feed
big_r         : 10    # R2<R<=R10 use 80% feed$ override feed
plinout_corner_dec  # postline to set corner decelerate   
  
           ov_f=feed          #init. feed
           if mi3$,ov_f=abs(mi3$)  # mi3$ override feed

           ptnearx$  =  xabs  # near point
           ptneary$  =  yabs
           ptnearz$  =  0
           x1  =  prv_xabs   # line start point one
           y1  =  prv_yabs
           z1  =  zabs
           x2  =  xabs     # line end point two
           y2  =  yabs
           z2  =  zabs
           xcenter   =  prv_xabs    # findinter
           ycenter   =  prv_yabs
           radius   =  min_distance
           start    =  0
           arcsweep  =  360
           int1x  =  xla(x1,xcenter)         
           if (t1$<0.998&t1$>0.002),skip_dis=min_distance/t1$
           if ((t1$<0.998&t1$>0.002)&skip_dis>skip_distance),pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia, *int1x, *int1y, *ov_f, e$
           # "(","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
         
   
           ptnearx$  =  prv_xabs  # near point
           ptneary$  =  prv_yabs
           x1  =  prv_xabs   # line start point one
           y1  =  prv_yabs
           z1  =  zabs
           x2  =  xabs       # line end point two
           y2  =  yabs
           z2  =  zabs
           xcenter   =  xabs    # findinter
           ycenter   =  yabs
           radius   =  min_distance
           start    =  0
           arcsweep  =  360
           int1x  =  xla(x1,xcenter)
           
           if ((t1$<0.998&t1$>0.002)&skip_dis>skip_distance),pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc,pccdia, *int1x, *int1y, *feed, e$
           # "(","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

           if (t1$>0.998|t1$<0.002), pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, *feed, strcantext, e$ # plung linout
           else,pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, *ov_f, strcantext, e$ #linout
         

pcirout_corner_dec # postline to set corner decelerate
      ov_f=feed          #init. ov_f feed
      ov_f2=0.8*feed     #init. ov_f2 feed
      if mi3$,ov_f=abs(mi3$)  # mi3$ override feed
      if compwarn, pcompwarn
      if hel_2100 = one, pcirout2
      else, pcirout1_dec
pcirout1_dec        #Output to NC of circular interpolation
      if arcrad$<=small_r,
      pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, parc, *ov_f, strcantext, e$  #,"(","r<=2,ovf",")",e$ #only for debug
      if arcrad$>big_r,
      pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,pxout, pyout, pzout, pcout, parc, *feed, strcantext, e$  #,"(","r>10,feed",")",e$ #only for debug
      if arcrad$<=big_r&arcrad$>small_r,
      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

plinout_force_f      #Output to NC of linear movement - feed                    
        
        pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, pcout, *feed, strcantext, e$

霸天虎

sinayoo

taoshx

qq847864324

鲁修贵

ijlgaqtd

wwhuan

pinery3

25068954