宏程序专帖，有什么问题可以贴上来

hfj110

OK,明天给你

hfj110

内半圆与外半圆的加工宏程序.PDF
%9013
#1=#4+#26; 进刀点相对球心Z坐标
#2=SQRT[#4*#4-#1*#1]；切削圆半径
#3=ATAN#1/#2;
角度初值
#2=#2+#7;
G90 G0 X[#24+#2+#7+2] Y#25;

Z5;
G1 Z#26 F300;
WHILE [#3 LT 90] DO1;
当进刀点相对水平方向夹角小于90度时加工
G1 Z#1 F#9;

X[#24+#2];
G2 I-#2;
#3=#3+#17;
#1=#4*[SIN[#3]-1];Z= - (R - RSINθ)
#2=#4*COS[#3]+#7 ;r=RCOSθ+r刀
END1;
G0 Z5;
M99;

[ 本帖最后由 hfj110 于 2009-12-30 18:42 编辑 ]

hfj110

%1000
G54 G90 G0 G17 G40;
Z50 M03 S1000;
X0 Y0;
Z5 M08;
G1 Z-10 F60;
#10=25    ;粗加工起始刀补值
#11=9.25　;步距
#12=6     ;精加工刀补值
#1=2　　　;粗、精加工控制
WHILE[ #1 GE 1] DO1;
   WHILE[ #10 GE #12] DO2;
G41 X30 D[#10] F100;
   Y60;
   X-30;
   Y0;
   G3 X30 R30;
   G0 G40 X0;
   #10=#10-#11;
   END2;
#10=#12　;半精加工刀补值
#1=#1-1;
END1;
Z50;
G91G28Z0
Y0
M30

hfj110

O0001;
#14=12   
#1=9.0   (第1轮切削结束的深度坐标）   
#2=7.7   (第2轮切削结束的深度坐标）
#3=7.5   (第3轮切削结束的深度坐标）   
#6=0.5 (第1轮切削每刀吃刀深度，直径值）   
#7=0.3 (第2轮切削每刀吃刀深度，直径值）
#8=0.1 (第3轮切削每刀吃刀深度，直径值）

G00 X20 Z1.0 G99
S** M03
#15=#14
N100 #15=#15-#6 (变量重新赋值）
G01 X#15 F0.3 G32 U2.21 W-26 F3
G00 X20 G00 W26 IF[#15GT#1]GOTO100 （判断，如果#15大于#1，就执行N100程序段，否则执行下个程序段）
M98P17000 （执行一次子程序O7000）
N200#15=#15-#7 (变量重新赋值）   
IF[#15LE#2]THEN#15=#2 （判断，如果#15小于等于#2，就使#15等于#2）
G01 X#15 F0.3 （到达螺纹起始点）
G32 U2.21 W-26 F3 （车锥螺纹，X轴终点坐标移动2.21）
G00 X20 G00 W26 IF[#15GT#2]GOTO200
M98P17000
N300#15=#15-#8
IF[#15LE#3]
THEN#15=#3（判断，如果#15小于等于#2，就使#15等于#2，这样可以避免进刀过度）
G01 X#15 F0.3 G32 U2.21 W-26 F3
G00 X20 G00 W26
IF[#15GT#3]GOTO300
M98P17000 M30

O7000;
G01 X#15 F0.3 G01 W-0.1 F0.3
G32 U2.21 W-26 F3 G00 X20
G00 W26 G00 U-2.21
M99

hfj110

%120
G50 X100 Z200;
T0101;
G90 G0 X28 Z2 M03 M07 S800;
#1=-3;                Z
WHILE #1 GE -81 DO1; 粗加工控制
#2=SQRT[100+#1]/8;    X
G0 Z[#1+0.3];
G1 X[#2-0.3] F0.3;
G0 X28 W2;
#1=#1-3;;
END1;
#10=0.2;
#11=0.2;
WHILE #10 GE 0 DO1; 半精、精加工控制
#1=-81;
G0 Z-81 S1500;
WHILE #1 LT 0.5 DO2; 曲线加工控制
#2=SQRT[100+#1]/8;    X
G1 X[#2-#10] Z[#1+#11] F0.1;
#1=#1+0.3;
END2;
G0 X28;
#10=#10-0.2;
#11=#11-0.2;
END1;
G0 X100 Z200 M05 M09;
T0100;
M30;

hfj110

今天就弄这些了

风在树梢

想要个到圆角和斜面的宏 希望有注解 谢谢好人 发那科系统 加工中心

ablove37

谢谢版主大哥

saviola

华中系统加工椭圆的宏程序。
#23=Xo－椭圆中心的工件坐标横向绝对坐标值
#24=Yo－椭圆中心的工件坐标纵向绝对坐标值
#7=H－最终加工深度
#17=R－安全高度
#0=A－长半轴
#1=B－短半轴
#3=D－刀具半径补偿号
＃4=E刀具半径
#5=F－进给速度
#8=I－初始角度
#9=J－终止角度
#10=K－角度步长
%100
N010 #30=#0*COS[[#8-1]*PI/180]
N015 #31=#1*SIN[[#8-1]*PI/180]
N020 #33=#0*COS[[#9+1]*PI/180]
N025 #34=#1*SIN[[#9+1]*PI/180]
N035 G00 X[#23+#30+#4+3] Y[#24+#31]
N040 Z[#17]
N045 G01 Z[-#7] F[#5]
N050 G64 G42 G01 X[#23+#30] F[#5] D[#3]
N055 WHILE #8LE#9
N060 #30=#0*COS[#8*PI/180]
N065 #31=#1*SIN[#8*PI/180]
N070 G64 G01 X[#30] Y[#31] F[#5]
N075 #8=#8+#10
N080 ENDW
N085 G01 X[#23+#33] Y[#24+#34] F[#5]
N090 G00 Z100
N095 G40 X[#23+#30+#4+3]
N105 M99

ablove37

版主大哥,你给我的程序好像不是那个图的, 放在仿真软件上加工不出来
麻烦您再帮我用宏程序编下那个半椭球的程序可以吗!用华中系统或者是FANUC系统.

klblove

可不可以上传宏程序的书呀！　要俺也学学！！　

hfj110

我那个椭圆的还没做呀

明艳

我是一个数控新人，工作一年。现在想学习宏程序，但是不知道从哪里下手，版主能不能指导下。跪谢

baitao84

%­

O0098( D8 & 20 ) ­

G17G40G49G69G80­

M06T01­

G90G54G00X0.Y0.­

G43H01Z50.M03S3500 ­

Z20. ­

#101=10­

#102=4 ­

#103=#101/COS[30]­

#1=#101+#102+5 ­

#2=#103+#102+10­

#3=#1-5­

#4=#2-10 ­

#5=-10 ­

#6=0 ­

N2 ­

#104=0 ­

#106=240 ­

WHILE[#104 LE #106]DO1 ­

G68X0.Y0.R#104.­

G00X-#2.Y#1. ­

Z#6. ­

G41D05G01X-#4.Y#3.F4000M08 ­

X#4.F1600­

G40G00Z15. ­

G00X#2.Y-#1. ­

Z#6. ­

G41D05G01X#4.Y-#3.F4000­

X-#4.F1600 ­

G40G00Z15. ­

#104=#104+120­

END1 ­

#6=#6-0.2­

IF[#6 GE #5]GOTO2­

G00Z50.­

M09­

M05­

G91G28Z0.­

G28X0.Y0.­

G49­

M30­

%­

ablove37

版主大哥,有空就帮我编下吧!
我的老师都编不来,只能指望您了.

hfj110

好的，这几天有点忙，不好意思

ablove37

有劳版主大哥了

hfj110

建议你先把增量编程弄精了，再学宏

ablove37

版主大哥！那个半椭球的程序我已经知道了，但还是不理解为什么！算了，就那样了。

请您帮我看下这两个图的程序怎么写？麻烦您了！

dujunxiang

在这里学到了很多东西，不过还有很多问题不解又好像无从问起！