数控铣床椭圆宏程序编程

西门子：
长半轴=45
短半轴=25
O0001
T1D1
N13G90G00X65Y0Z100.0 刀具运行到(65,0,100)的位置
N14S1000M03
N15G01Z-10F1000.0 刀具下到-10mm
N16#114=0 赋初始值
N18#112=45*COS[#114] 计算X坐标值
N20#113=25*SIN[#114] 计算Y坐标值
N22G01G42X[#112]Y[#113]D02F200.0走到第一点 N24#114=#114+1 变量#114增加一个角度步长
N26IF[#114LT361]GOTO18 条件判断#114是否小于361，满足则返回18
N28G01G40X65Y0 取消刀具补偿，回到(65,0)
N30G90G00Z100.0M05 快速抬刀
N32M30 程序结束

发那科：
长轴48，短轴36
程序如下：
O1001（主程序）
T0101
G94S700M03M08
G54
G00G43Z30
G90X40Y0
Z2
G01Z0F150
M98P120L9（去毛坯余量，每次切深2毫米）
G00Z3
M30

O120（毛坯余量子程序）
G91G01Z-2
G90
#103=360(角度变量初赋值)
N100 #104=18*COS[#103]（X坐标值变量）
#105=24*SIN[#103] （Y坐标值变量）
G41 X#104 Y#105 D01
#103=#103-1（角度增量-1）
IF[#103GE0]GOTO100（如果角度大于等于0，则返回执行循环）
G40G01X40Y0
M99

内椭圆以及去除内部毛胚。
O0002
G40G49G80
G91G28Z0.
G54G90G00X0.Y0.
Z50.
M03S2000
M07
Z3.
#1=0. 内圆圆点
#2=3. 每次下刀深度，这是抬高的一个深度
#3=20. 内圆直径
#4=9. 圆深度
#5=5. 刀具半径
#6=#3-#5 单边走量最大
N11#1=#1+#5 第一个内圆
G01X#1F800
N10G02X#1Y0.I-#1Z-#2 螺旋下刀
#2=#2+3 第二次下刀深度
IF[#2LE#4]GOTO10
G03X#1Y0.I-#1
G00Z3.
#2=3
IF[#1LT#6]GOTO11
G00Z3.
#2=3 椭圆的下刀深度
#3=20 椭圆短半径
#4=9 椭圆深度
#5=20 椭圆从内圆处每次进刀点最大处
#7=0 角度
#8=40 椭圆长轴 ，需要考虑刀半径
N12 #5=#5+5 每次加一个刀半径
N13 #10=#5-5 进刀点减去一个刀具半径更有效保护刀具低刃，改成侧刃加工
G01X#10Y0 刀具进刀位置
G01Z-#2 下刀深度
#2=#2+3 每次下刀深度
N14 #9=#3*SIN[#7] Y轴对应坐标点
#10=#5*COS[#7] X轴对应坐标点
G01X#10Y#9 走椭圆
#7=#7+10 每次走10度
IF[#7LE360]GOTO14 椭圆循环
#7=0 角度归零，方便第二次循环，否则第二次不走椭圆，因为#6为360了，所以归零
IF[#2LE#4]GOTO13 深度循环
#7=0 又有一次循环就要角度归零
#2=3 深度归原点，不然第二次循环直接进到最深处了
IF[#5LT#8]GOTO12 椭圆循环，这里只能用小于，否者会变大
G00Z50;
M05
M09
G40G49G80
G91G28Z0.
G91G28Y0.
M30

华中
长半轴=47，短半轴=37.用R4的刀铣
O1234
%1234
G90G54G40G49
M03S1200
M8
G0X43Y0
Z5
G01Z-5F500
#1=-1
N1#1=#1+1
WHILE{[#1]LE360}DO1
#2=43*COS[#1]
#3=33*SIN[#1]
G1X[#2]Y[#3]F500
#1=#1+1
ENDW
G0Z100
M05
M30

O0001
N2#100=1
角度步长
N4#101=0
初始角度
N6#102=361
终止角度
N8#103=45
长半轴
N10#104=25
短半轴
N12#105=-10.0
深度
N13G90G00X[#103+20]Y0Z100.0
刀具运行到(65,0,100)的位置
N14S1000M03
N15G01Z[#105]F1000.0
刀具下到-10mm
N16#114=#101
赋初始值
N18#112=#103*COS[#114]
计算X坐标值
N20#113=#104*SIN[#114]
计算Y坐标值
N22G01G42X[ROUND[#112]]Y[ROUND[#113]]D02F500.0
走到第一点，并运行一个步长
N24#114=#114+#100
变量#114增加一个角度步长
N26IF[#114LT#102]GOTO18
条件判断#114是否小于361，满足则返回18
N28G01G40X[#103+20]Y0
取消刀具补偿，回到(65,0)
N30G90G00Z100.0M05
快速抬刀
N32M30
程序结束