xby8628678 发表于 2026-1-30 21:40:44

在圆弧上车网纹

fmt"X" 2g32_xabs    #G32X
fmt"Z" 2g32_zabs    #G32Z
fmt"Z" 2g32_dzabs    #G32Z起点      对应杂项 mr1$
fmt"Z" 2g32_nzabs    #G32螺纹终点对应杂项 mr2$
fmt"Q" 2   G32_Q      #G32Qfmt"X" 2g32_xabs    #G32X
fmt"Z" 2g32_zabs    #G32Z
fmt"Z" 2g32_dzabs    #G32Z起点      对应杂项 mr1$
fmt"Z" 2g32_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" 2g32_xabs    #G32X
fmt"Z" 2g32_zabs    #G32Z
fmt"Z" 2g32_dzabs    #G32Z起点      对应杂项 mr1$
fmt"Z" 2g32_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. 发表于 2026-1-30 23:09:29

谢谢分享

Xiaoxiang007 发表于 2026-1-30 23:30:07

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

wanmeiaiqing 发表于 2026-1-31 06:57:24

新来的大师，膜拜大佬

xinruyu369 发表于 2026-1-31 08:34:03

楼主好人

chiouho 发表于 2026-1-31 09:41:17

谢谢分享

hsrsung.sung 发表于 2026-1-31 09:48:27

感謝分享 記錄起來

相随* 发表于 2026-1-31 14:12:48

谢谢分享

tudouy 发表于 2026-2-1 09:43:28

谢谢楼主分享

tudouy 发表于 2026-2-1 14:53:21

这是直接添加到后处理？
页: [1] 2
查看完整版本: 在圆弧上车网纹