螺旋下刀宏程序

少年游

最近，为方便车间加工，编制了一个宏程序。该程序可以使用模态调用（G66/G67），将几个Z轴坐标相同的孔连接在一起加工。发到社区同大家分享。
IF[#17EQ#0]GOTO0999;
; B9 d: R: h" [4 f) @/ r/ r$ ?#105=#5003;
IF[#20GE#7]GOTO0999
3 O+ ~- F! a+ y0 h: W+ O#111=[#7-#20]/2.0
IF[#18EQ#0]THEN#18=#5003  
#112=#18
Z#18
# `- o; e% c+ cIF[#11NE#0]GOTO1
GOTO02
1 e+ L1 M1 I6 o$ `- M0 x& x$ l9 ^4 SN1
+ b/ I( D1 y- R: [IF[#26NE#0]GOTO999  
#11=ABS[#11]
7 s; l: C0 S! }* e7 C#26=#18-#11   
% S  Z9 Q4 g% L! f* D! a3 w; N# q9 y8 B N2
0 N9 z# W7 @" c% S; w#115=#112-#17  
5 M+ h6 o2 c6 [3 T+ K/ ]#102=#115
G91 G01 Y-#111  
' Z* u) S. @8 _, O+ {/ gN3
WHILE[#102GE#26]DO01  
G90 G03 J#111 Z#115
2 B$ g4 D$ }5 E* j% [#115=#115-#17
#102=#115
END01
#121=#102+#17
3 l0 q& @, B( j! j. aIF[#121EQ#26]GOTO05  
4 _& I. b' }& J  e9 ?$ w5 FG90 G03 J#111 Z#26
9 y' \7 w5 L4 r3 |" I  `, LN5
G90 G03 J#111
G91 G01 Y#111
( E# ^5 f& L8 IGOTO08
6 n$ D3 ~! `# t) M/ SN999
#300=1
N8
8 s" N9 S; s. I: p* m  Q- b' RG90 G00 Z#105  
D（直径）T（刀径）Q（每层步进值） Z（H）孔底坐标值（从R点到底孔深度）R（安全高度从R点开始执行G01）
注：Z值和H值只能取其一
没有R值从起刀点开始加工
9 t8 x+ J' W, R6 V1 q" @( }

韩寒11

#17，#18，#20等几个对应的尺寸是多少应该提供一下，便于大家通过公式来验证

少年游

韩寒11 发表于 2020-5-1 20:50
#17，#18，#20等几个对应的尺寸是多少应该提供一下，便于大家通过公式来验证

4 P# K: y" H9 `4 N6 M: V4 ~1 X4 `您说的这些是宏变量。可以参照FANUC说明书。

少年游

韩寒11 发表于 2020-5-1 20:50
#17，#18，#20等几个对应的尺寸是多少应该提供一下，便于大家通过公式来验证

. _0 e' \' G' M* `这只是一个螺旋下刀转圆程序，相信有一定宏程序编辑能力的人，理解起来并不是难事。