在圆弧上车网纹

xby8628678

fmt  "X" 2  g32_xabs    #G32X
fmt  "Z" 2  g32_zabs    #G32Z
fmt  "Z" 2  g32_dzabs    #G32Z起点      对应杂项 mr1$
fmt  "Z" 2  g32_nzabs    #G32螺纹终点  对应杂项 mr2$
fmt  "Q" 2   G32_Q        #G32Qfmt  "X" 2  g32_xabs    #G32X
fmt  "Z" 2  g32_zabs    #G32Z
fmt  "Z" 2  g32_dzabs    #G32Z起点      对应杂项 mr1$
fmt  "Z" 2  g32_nzabs    #G32螺纹终点  对应杂项 mr2$
fmt  "Q" 2   G32_Q        #G32Q


pthrg32_1$       #G32 threading first
      comment$
      gcode$ = zero
      if tool_op$ = 227,
         [
         copy_x = vequ(x$)
         pcan
         c_rcc_setup$
         plcc_lead_begin
         pcom_moveb
         g32_xabs = xabs
         g32_zabs = zabs
         !zabs
         ]
         else, lrapid$

pthrg32_2$       #G32 threading second
      gcode$ = zero
      if tool_op$ = 227,  #自定义螺纹
         [
         copy_x = vequ(x$)
         pcan
         c_rcc_setup$
         plcc_lead_begin
         pcom_moveb
         g32_dzabs = mr1$
         *g32_dzabs, e$
         !zabs, pxout, e$
         ]
         else, lrapid$


pthrg32_3$       #G32 threading third

      copy_x = vequ(x$)
      pcom_moveb
      g32_nzabs =  mr2$
      G32_Q = (g32_zabs - g32_dzabs )/feed * 360
      pcan1, pbld, sgfeed, *sthdgcode, pxout, pyout, *g32_nzabs, !zabs, pcout, pffr, *G32_Q,
      strcantext, e$
      pcom_movea
      prv_gcode$ = m_one


pthrg32_1$       #G32 threading first
      comment$
      gcode$ = zero
      if tool_op$ = 227,
         [
         copy_x = vequ(x$)
         pcan
         c_rcc_setup$
         plcc_lead_begin
         pcom_moveb
         g32_xabs = xabs
         g32_zabs = zabs
         !zabs
         ]
         else, lrapid$

pthrg32_2$       #G32 threading second
      gcode$ = zero
      if tool_op$ = 227,  #自定义螺纹
         [
         copy_x = vequ(x$)
         pcan
         c_rcc_setup$
         plcc_lead_begin
         pcom_moveb
         g32_dzabs = mr1$
         *g32_dzabs, e$
         !zabs, pxout, e$
         ]
         else, lrapid$


pthrg32_3$       #G32 threading third

      copy_x = vequ(x$)
      pcom_moveb
      g32_nzabs =  mr2$
      G32_Q = (g32_zabs - g32_dzabs )/feed * 360
      pcan1, pbld, sgfeed, *sthdgcode, pxout, pyout, *g32_nzabs, !zabs, pcout, pffr, *G32_Q,
      strcantext, e$
      pcom_movea
      prv_gcode$ = m_onefmt  "X" 2  g32_xabs    #G32X
fmt  "Z" 2  g32_zabs    #G32Z
fmt  "Z" 2  g32_dzabs    #G32Z起点      对应杂项 mr1$
fmt  "Z" 2  g32_nzabs    #G32螺纹终点  对应杂项 mr2$
fmt  "Q" 2   G32_Q        #G32Q


pthrg32_1$       #G32 threading first
      comment$
      gcode$ = zero
      if tool_op$ = 227,
         [
         copy_x = vequ(x$)
         pcan
         c_rcc_setup$
         plcc_lead_begin
         pcom_moveb
         g32_xabs = xabs
         g32_zabs = zabs
         !zabs
         ]
         else, lrapid$

pthrg32_2$       #G32 threading second
      gcode$ = zero
      if tool_op$ = 227,  #自定义螺纹
         [
         copy_x = vequ(x$)
         pcan
         c_rcc_setup$
         plcc_lead_begin
         pcom_moveb
         g32_dzabs = mr1$
         *g32_dzabs, e$
         !zabs, pxout, e$
         ]
         else, lrapid$


pthrg32_3$       #G32 threading third

      copy_x = vequ(x$)
      pcom_moveb
      g32_nzabs =  mr2$
      G32_Q = (g32_zabs - g32_dzabs )/feed * 360
      pcan1, pbld, sgfeed, *sthdgcode, pxout, pyout, *g32_nzabs, !zabs, pcout, pffr, *G32_Q,
      strcantext, e$
      pcom_movea
      prv_gcode$ = m_one

心梦无痕1.

谢谢分享

Xiaoxiang007

这是不是还得改杂项系数？