切槽宏程序

(M98P0003X40z-30D2E0.2I1J2F0.05  ;x,z为终点槽底坐标，D刀宽，E精加余量,I每次退刀量,J为吃刀深)
%0003
    #40=#30
    #50=#40+0.1
    #42=#32+#3
    #52=#42
IF   [AR[#3]EQ0]OR[AR[#23]EQ0]OR[AR[#25]EQ0]
     M99
ENDIF(如果终点槽底坐标和刀宽没有定义则返回主程序)
  IF   [AR[#8]EQ0]
       #8=100
ENDIF
  G0X[#17]
   G01G99 Z[#25+#3]F0.5
WHILE[#42]GT[#25+#4]
    #40=#40-5  
    WHILE[#40]GT[#23+#4]
        G01X[#40]F[#5]
        #40=#40-#8-#7
        G01U[-[#7]]F0.5
        G04X1
   ENDW
   G01X[#23+#4]F[#5]
       X[#50]F0.5
       #42=#42-[#3]*0.7
   G01G99 Z[#42]F0.5
ENDW
   G01Z[#23+#4]F0.5
   G01X[#23+#4]F[#5]
          X[#50]F0.5
          W-0.1
          U0.2W0.1F[#5]
          X[#23]
          Z[#52]
          X[#50]
M99
       
  
加点分吧　斑主

弱弱地问：这个应用在哪里呀

怎么用？

楼主大哥，把宏程序的学习资料上传一下啊。谢谢

这个是车床上的切槽宏。有些系统没有这种循环。比如华中世纪星。。把它输入系统中，使用时直接调用子程序就可以了
M98P0003X40z-30D2E0.2I1J2F0.05 ;x,z为终点槽底坐标，D刀宽，E精加余量,I每次退刀量,J为吃刀深)  
至于资料你得了解一下计算机高级语言

RRRQQQ wrote:

你笑什么，这可是我的心血啊，我还没破零呢

不错不错 很好很好  
不过写的不够详细， 现在切槽 槽底 槽顶都有圆弧或直倒角 你没有考虑 希望你编出来。
另外问一下 你的附件是哪里搞的 能给我发份完整的吗？
谢谢 jlzho@163.com

槽底圆角和倒角用G72固定循环就可以了