简单的A类宏程序 谁帮看看那错 怎么改谢谢了

简单的A类宏程序 谁帮看看那错 怎么改谢谢了
O0001
G65 p0002 X0 Y0 Z-20 R2 A2 B31.9 C-10S2000 F150;
G65 p0002 X0 Y0 Z-20 R2 A2 B32.3 C-10S2000 F150;
G65 p0002 X0 Y0 Z-10 R2 A2 B32.4 C-10S2000 F150;
O0002
　　G90G94G17G40;
　　G0X#24Y#25;
　　M3S#19;
　　#31=#2*0.5+#3;
　　#32=#18-#1;
　　#33=#24-#31;
　　G0Z#18;
　　G1X#33F#9;
　　N20 G02Z-#32I#31;
　　IF[#32LE#26]GOTO30;
　　#32=#32-#1;
　　GOTO20;
　　N30;
　　IF[#3LT0]]THEN #6=#24;
　　G0X#6
　　G90G0Z#18;
    M99

怀疑你会不会数控？

zenger-cnc 发表于 2009-5-26 12:07
怀疑你会不会数控？

我只是不懂宏程序 数控到是会点 才做12年 也没什么长进
想指点就指点一下 没必要这样

%
O0001
G65 P0002 X0 Y0 Z-20 R2 A2 B31.9 C-10S2000 F150;
G65 P0002 X0 Y0 Z-20 R2 A2 B32.3 C-10S2000 F150;
G65 P0002 X0 Y0 Z-10 R2 A2 B32.4 C-10S2000 F150;
O0002
G90G94G17G40
G0X#24Y#25
M3S#19
#31=#2*0.5+#3
#32=#18-#1
#33=#24-#31
G0Z#18
G1X#33F#9
N20G02Z#32I#31(Z-#32这里出错了吧，下刀时底部螺旋会烂牙，原走刀路向下走一圈后又向上走，改过走刀一直向下铣螺纹了)
IF[#32LE#26]GOTO30
#32=#32-#1
GOTO20
N30
IF[#3LT0]]THEN#6=#24
G0X#6
G90G0Z#18
M99
%如图所示