用行切法加工橢球臺塊,X,Y按行距增量進給
O8000 #10=100/2 毛坯X方向長度
#11=70/2 毛坯Y方向長度
#12=50 橢圓長軸
#13=35 橢圓短軸
#14=10 橢圓台高度
#15=2 行距步長
G90 G00 Z50
G17 Z0
G00 X#10 Y#11
G01 X-#10 Y#11
Y-#11
X#10
Y#11
#0=#10
#1=-#0
#2=#13-#14
#5=#12*SQRT[1-[#2*#2]/ [#13/#13] ]
G01 Z[#14] WHILE #0 GE #1 IF ABS [#0] LT #5
#3=#13*SQRT[1-[#0*#0]/ [#12*#12] ] IF #3 GT#2
#4=SQRT[[#3*#3]- [#2*#2] ]
G01 Y [#4]
G19 G03 Y[-#4] J[-#4] K-[#2]
ENDIF
ENDIF
G01 Y[-#11/2]
#0=#0-#15
G01 X[#0] IF ABS [#0] LT #5
#3=#13*SQRT[1-[#0*#0]/ [#12*#12] ]
IF #3 GT #2 #4=SQRT[[#3*#3]- [#2*#2] ]
G01 Y[-#4]
G19 G02 Y#11
ENDIF
ENDIF
G01 Y#11
#0=#0-#15
G01 X[#0]
ENDW
G00 Z[#13+20]
M02 |