用行切法加工椭园台块编程源程序

%0110（X，Y按行距增量进给）
N10  #10=100   毛坯X方向长度
N20  #11=70       毛坯Y方向长度
N30  #12=50   椭圆长轴
N40  #13=20   椭圆短轴
N50  #14=10   椭园台高度
N60  #15=2   行距步长
N70  G92 X0 Y0 Z[#13+20]
N80  G90G00X[#10/2] Y[#11/2] M03M07
N90  G01 Z0
N100 X[-#10/2]Y[#11/2]
N110 G17G01 X[-#10/2] Y[-#11/2]
N120 X[#10/2]
N130 Y[#11/2]
N140 #0=#10/2
N150 #1=-#0
N160 #2=#13-#14
N170 #5=#12*SQRT[1-#2*#2/#13/#13]
N180 G01 Z[#14]
N190 WHILE #0 GE #1
N200 IF ABS[#0] LT #5
N210 #3=#13*SQRT[1-#0*#0/[#12*#12]]
N220 IF #3 GT #2
N230 #4=SQRT[#3*#3-#2*#2]
N240 G01 Y[#4] F400
N250 G19 G03 Y[-#4] J[-#4]  K[-#2]
N260 ENDIF
N270 ENDIF
N280 G01 Y[-#11/2]  F400
N290 #0=#0-#15
N300 G01 X[#0]
N310 IF ABS[#0] LT #5
N320 #3=#13*SQRT[1-#0*#0/[#12*#12]]
N330 IF #3 GT #2
N340 #4=SQRT[#3*#3-#2*#2]
N350 G01 Y[-#4]  F400
N360 G19 G02 Y[#4] J[#4] K[-#2]
N370 ENDIF
N380 ENDIF
N390 G01 Y[#11/2] F1500
N400 #0=#0-#15
N410 G01 X[#0]
N420 ENDW
N430 G00 Z[#13+20]  M05
N440 G00 X0 Y0
N450 M05M09
N460 M02