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

0 (0)
文章评级 (未投票)
文章评级
附件 (1)
评论
暂无评论,第一发布评论。
姓名
邮箱地址
验证码 Security Code
相关文章 RSS Feed
4.3.4 综合加工案例2—工序二
从 Tue, Mar 21, 2017起,访问3079 次。
5.2.2 双曲线零件编程
从 Tue, Mar 21, 2017起,访问2987 次。
4.2.1 CYCLE95加工案例
从 Tue, Mar 21, 2017起,访问5539 次。
5.3.1 抛物线零件编程
从 Tue, Mar 21, 2017起,访问3031 次。
4.2.3 CYCLE97加工案例
从 Tue, Mar 21, 2017起,访问4457 次。
4.3.1 外圆零件案例
从 Tue, Mar 21, 2017起,访问3485 次。
4.3.4 综合加工案例2—工序一
从 Tue, Mar 21, 2017起,访问2950 次。
4.2.2 CYCLE93加工案例
从 Tue, Mar 21, 2017起,访问3107 次。
5.1 变量及参数子程序调用
从 Tue, Mar 21, 2017起,访问3482 次。
4.3.4 综合加工案例二—工序四
从 Tue, Mar 21, 2017起,访问2675 次。