我这里刚好有一个在８０２Ｄsl 系统上车椭圆的程序．大家可以参考一下．
１．设工件坐标系原点为椭圆中心
２．椭圆长轴长为３０mm，短轴长为15mm
３．加工时请先模拟，确认安全后再进行实际加工．
程序如下：
T1D1;R=0.8mm roughing tool
N10 G90G54G96
LIMS=2000
N20 M4S2000
N30 G0X55Z40
G1F0.2
N40 CYCLE95( "COUNTOUR:COUNTOUR_END", 0.50000, 0.20000, 0.20000, 0.20000, 0.15000, 0.10000, 0.10000, 1, 0.10000, 5.00000, )
N50 G0 X50
Z40
T3D1;R=0.4 finishing tool
M4S2000
N10 R1=0
N20 R2=30
N30 R3=30
N40 G0X40
Z30
G1X-0.2Z30F0.2
N40 LAB:
N50 R5=R2*COS(R1)
N60 R6=R3*SIN(R1)
N70 G1 Z=R5 X=R6 F0.1
N80 R1=R1+0.1
N90 IF R1<=123.5 GOTOB LAB
N110 G01 X30 Z-28 F0.1
N120 Z-40
N130 X50
X55
Z40
N60 M30

;*************CONTOUR************
N70 COUNTOUR:
N10 R1=0
N20 R2=30
N30 R3=30
;N40 X0Z30
N40 LAB:
N50 R5=R2*COS(R1)
N60 R6=R3*SIN(R1)
N70 G0 Z=R5 X=R6
N80 R1=R1+4
N90 IF R1<=123.5 GOTOB LAB
N110 G01 X30 Z-28 F0.2
N120 Z-40
N130 X40
N160 M17
N170 COUNTOUR_E:;************* CONTOUR ENDS ************