FAUNC数控系统中，如何利用宏程序铣一个方形槽，请编程高手赐教！

Question

就以100*100*5的方形槽为例吧，要用到动态刀补，能否把加工的程序写出来，急用！感激万分！

Answer 1

o8001;
#27=#[2000+#7]/2;
#28=#27;
#30=#24-#27/2;
#31=#25-#28*2;
IF[#8 NE 0] GOTO 1;
#8=54;
N1 #11=#[2000+#11];
IF[#11 GT 0] GOTO 2;
#11=1.0;
N2 G90 G00 G#8 X#27 Y#28;
Z#18;
#29=0;
WHILE[#29 LT #26] DO1;
#1=0;
#29=#29+#17;
Z-[#29-#17-#11];
IF[#29 LT #26] GOTO 11;
#29=#26;
N11 G01 Z-[#29] F#8;
#32=#27;
#33=0;
IF[#27 EQ 1] GOTO 100;
IF[#22 EQ 1] GOTO 201;
IF[#24 LT #25] GOTO 201;
N100 DO2;
#32=#32+#[2000+#20];
#33=#33+1;
IF[[#33 AND 1] EQ 0] GOTO 101;
X#30;
GOTO 102;
N101 X#27;
N102 IF[#1 EQ 1] GOTO 12;
IF[#32 LT #31] GOTO 103;
#32=#31;
#1=1;
N103 Y#32;
END2;
N201 DO2;
#32=#32+#[2000+#20];
#33=#33+1;
IF[[#33 AND 1] EQ 0] GOTO 202;
Y#31;
GOTO 203;
N202 Y#28;
N203 IF[#1 EQ 1] GOTO 12;
IF[#32 LT #30] GOTO 204;
#32=#30;
#1=1;
N204 X#32;
END2;
N12 IF[#23 NE 1] GOTO 18;
IF[#22 EQ 1] GOTO 15;
Y#28;
IF[[#33 AND 1] EQ 0] GOTO 13;
X#27;
GOTO 14;
N13 X#30;
N14 Y#27;
GOTO 18;
N15 X#27;
IF[[#33 AND 1] EQ 0] GOTO 16;
Y#28;
GOTO 17;
N16 Y#31;
N17 X#30;
N18 G00 Z#18;
X#27 Y#28;
END1;
N99 M99;

调用指令：G65 P8001 D(刀具直径补偿号) E(坐标系选择) F(进给量) H(每次深度进给前刀尖与切削面距离补偿号) Q(深度方向每次增量) R(每层切削完后Z轴返回点) T(宽度方向每次增量) U(为1时以X向为切削方向) V(为1时以Y向为切削方向) X(X向长度) Y(Y向长度)Z(深度) W(为1时最后沿四壁加工一周)

这是十年前用的，很粗糙，不知现在的系统能用不，你再调试一下吧。

Answer 2

这不用宏程式,写太麻烦,你去买一不宏程式书,上面写的很清楚,你还可以学一下别的宏程式本回答被提问者采纳