宏应用实例：几个有代表性的例子！

h12345

举几个有代表性的例子。从简单的车外圆到一些非圆曲线到一些异形螺纹到大螺距螺纹变齿宽变螺距螺纹。。。因个人能力有限难免有错误或不得到的地方，还请大神指出不吝赐教。或者有很好的更简便的方法分享给大家。

车三个台阶的外圆，毛坯直径50mm，粗车程序，留1毫米余量



T0101
M3 S800
G0 X53 Z3
#1=49 X初始值49mm
#2=-50 第一个台阶车到-50mm
N1 G0 X#1 定位
G99 G1 Z#2 F0.2
U2
G0 X53
Z3
#1=#1-2 每刀车2mm
IF [#1GE41] GOTO1 判定，如果直径大于等于41则返回N1处继续加工
#2=-30 第二个台阶长度
IF [#1GE21] GOTO1
#2=-13
IF [#1GE11] GOTO1
G0 X100 Z100;
M30

h12345

粗车带锥度的，毛坯直径61mm



T0101
M3 S800
G0 X63 Z3
#1=19 初始值设为19mm
N1 #2=#1/TAN(33.69) 可以算出斜边与Z轴的夹角为33.69.根据三角函数可以定义Z轴的值
G0 X[#1*2+21] 定位
G99 G1 Z[-#2] F0.2
G0 X63 Z3
#1=#1-1
IF [#1GE1] GOTO1
G0 X100 Z100;
M30

h12345

没人顶么？？

h12345

粗车圆弧，毛坯知己41mm，留1毫米余量



T101
M3S800
G0 X43 Z3
#1=19 同上初始值设为19
N1 #2=SQRT(400-#1*#1) 可根据勾股定理定义Z的值
G0 X[#1*2+1] 定位
G99 G1 Z[#2-20] F0.2
U2
G0 X43 Z3
#1=#1-1
IF [#1GE0] GOTO1
G0 X100 Z100;
M30

h12345

粗车球形工件，不支持G71二型的可以采用此方法，此程序为左半部分，毛坯81mm。留1mm余量



T0101
M3 S800
G0 X83 Z3
#1=39 初始值设为39
N1 #2=SQRT(1600-#1*#1) 同上
G0 Z[-41-#2] 因考虑过切Z轴往负方向留1mm余量或更多
G99 G1 X[#1*2+1] F0.2
Z-80
U2
G0 X83
#1=#1-1
IF [#1GE10] GOTO1
G0 X100 Z100;
M30

h12345

综合一下



T0101
M3S800
#1=109
#2=-98
N1G0X113Z3
G0X#1
G99G1Z#2F0.2
#1=#1-2
IF[#1GE101]GOTO1
#2=-83
IF[#1GE81]GOTO1
#3=9
N2G0X83Z3
#4=#3/TAN[26.57]
G0X[61+#3*2]
G1Z[-#4-50]
#3=#3-1
IF[#3GE0]GOTO2
#5=9
N3G0X63Z3
#6=SQRT[100-#5*#5]
G0X[41+#5*2]
G1Z[#6-50]
#5=#5-1
IF[#5GE0]GOTO3
#7=19 椭圆以X为变量
N4G0X43Z3
#8=40*SQRT[1-#7*#7/400]
G0X[#7*2+1]
G1Z[#8-40]
#7=#7-1
IF[#7GE0]GOTO4
G0X200Z200
M30