5.3.2系统参数调用案例-凸面椭圆
凸椭圆视频
a)二维零件图
b)三维模型图
刀具清单
1) 55°外圆车刀T1 D1:粗精一体车外圆
数控程序
主程序:判断当前时间
N10 DEF INT CHRNO,TIME ;定义两个变量
N20 D1 ;调用刀补
N30 S1500 M03 ;主轴旋转
N40 TIME=$P_HOUR*100+$P_MIN ;将实时时间作为系统变量,经过计算赋值给自定义变量TIME
N50 IF TIME<800 || TIME>2000 ;如果变量小于800或者大于2000执行变量1002,否则执行变量1001
N60 CHRNO=1002 ;变量赋值,凸面椭圆参数
N70 ELSE
N80 CHRNO=1001 ;变量赋值,凹面椭圆参数
N90 ENDIF ;判断结束
N100 ZX_KK(CHRNO) ;调用子程序ZX_KK并传递参数
N110 G00 X100 Z100 ;退刀
N120 M30
参数子程序传递时间参数:ZX_KK.iso
PROC ZX_KK(INT CHRNO) ;承接按值传递子程序参数
CASE CHRNO OF 1001 GOTOF N10 1002 GOTOF N20 ;根据CHRNO的值,调用CASE语句来执行下面的程序
N10 ;切削凹椭圆的主程序
G90 G95
T1D1
M03 S1500
G00 X50 Z3
CYCLE95 ("ao1", 1, 0.2, 0.3, 0, 0.2, 0.1, 0.1, 9, 0, 0, 0) ;调用凹椭圆子程序
RET
N20 ;切削凸椭圆的主程序
G90 G95
T1D1
M03 S1500
G00 X50 Z3
CYCLE95 ("tu1", 1, 0.2, 0.3, 0, 0.2, 0.1, 0.1, 9, 0, 0, 0) ;调用凸椭圆子程序
RET
凹椭圆子程序
名称:ao1.iso
N10 G01 X25 Z0.5
N20 X30 Z-2
N30 Z-15
N40 X40
N50 Z-26.095
N60 R1= 13.905 ;定义椭圆加工起始点13.095,表示起点相对于椭圆原点的增量数值
N70 WHILE R1>=-13.905 ;定义椭圆加工终点-13.095,表示终点相对于椭圆原点的增量数值
N80 R2=2*8*SQRT(1-R1*R1/15/15) ;根据椭圆方程计算X向数值,并乘以2表示直径方向上
N90 G01 X=46-R2 Z=R1-40 ;“X=46-R2”椭圆中心距减去X向值即可,“Z=R1-40”椭圆中心减去工件坐标系起点数值
N100 IF R1 == -13.905 GOTO 170 ;避免发生死循环
N110 R1=R1-0.5 ;步长0.5
N120 IF R1 < -13.905
N130 R1= -13.905 ;保证切削至尺寸
N140 GOTO 70
N150 ENDIF
N160 ENDWHILE
N170 G01 X40
N180 Z-65
N190 X50
凸椭圆子程序
名称:tu1.iso
N10 G01 X25 Z0.5
N20 X30 Z-2
N30 Z-15
N40 X40
N50 Z-26.095
N60 R1= 13.905
N70 WHILE R1>=-13.905
N80 R2=2*8*SQRT(1-R1*R1/15/15)
N90 G01 X=34+R2 Z=R1-40 ;“X=34+R2”椭圆中心距加上X向值即可,“Z=R1-40”椭圆中心减去工件坐标系起点数值
N100 IF R1 == -13.905 GOTO 170 ;避免发生死循环
N110 R1=R1-0.5
N120 IF R1 < -13.905
N130 R1= -13.905 ;保证切削至尺寸
N140 GOTO N70
N150 ENDIF
N160 ENDWHILE
N170 G01 X40
N180 Z-65
N190 X50