;**********************************************
;* 函数名 : CT_RECORD.SPF
;* 功能 :
;* 输入参数: 无
;* 输出参数: 无
;* 开发者 : DK
;* 开发日期: 20201201
;* 机器名 :
;* 备注 :
;**********************************************
N20 DEF INT ERROR 定义ERROR用户变量
N30 DEF REAL AAA 定义AAA用户变量
N40 DEF REAL TIN 定义TIN用户变量
N50 DEF REAL TIM 定义TIM用户变量
...
...
$AC_TIMER[1]=0 $AC_TIMER[1]赋值0;开始计时
...
...
...
...
...
...
N340 BEGIN:
N350 TIN=0 赋值TIN变量为0
N360 TIM=$AC_TIMER[1] 将$AC_TIMER[1]系统变量赋值给TIM用户变量
N370 AAA=TIM-TIN AAA变量赋值为(当前段加工时间)
N380 WRITE(ERROR,"/_N_WKS_DIR/_N_TIME_STUDY_WPD/_N_CT_FORDC490_MPF","06.9231-5787.1") 将"06.9231-5787.1"写入WKS-TIME_STUDY-CT_FORDC490文件中
N390 WRITE(ERROR,"/_N_WKS_DIR/_N_TIME_STUDY_WPD/_N_CT_FORDC490_MPF","Ready:"<<AAA) 将"Ready: + AAA"写入WKS-TIME_STUDY-CT_FORDC490文件中
N400 IF ERROR (0=没有错误,1=路径不允许,2=路径没找到,3=文件没找到,4=错误的文件类型,10=文件已满,11=文件被使用,12=没有空余资源,13=没有存取权限,20=其它错误)
N410 MSG("WARNING:"<<ERROR) 信息显示"警告+错误号"
N420 M0 程序暂停
N430 ENDIF 结束IF
...
...
...
...
...
N1410 TIN=TIM 将上次的时间赋值到TIN变量中
N1420 TIM=$AC_TIMER[1] 将$AC_TIMER[1]系统变量赋值给TIM用户变量
N1430 AAA=TIM-TIN AAA变量赋值为(当前段加工时间)
N1440 WRITE(ERROR,"/_N_WKS_DIR/_N_TIME_STUDY_WPD/_N_CT_FORDC490_MPF","T1:"<<AAA) 将"T1: + AAA"写入WKS-TIME_STUDY-CT_FORDC490文件中
N1450 IF ERROR
N1460 MSG("WARNING:"<<ERROR)
N1470 M0
N1480 ENDIF
...
...
...
...
N1930 TIN=TIM
N1940 TIM=$AC_TIMER[1]
N1950 AAA=TIM-TIN
N1960 WRITE(ERROR,"/_N_WKS_DIR/_N_TIME_STUDY_WPD/_N_CT_FORDC490_MPF","T2:"<<AAA)
N1970 IF ERROR
N1980 MSG("WARNING:"<<ERROR)
N1990 M0
N2000 ENDIF
...
...
...
...
N5640 R38=(R30+R31+R32+R33+R34+R35+R36+R37)/480
N5650 $AC_TIMER[1]=-1
N5660 STOPRE
N5670 TI_STOP ;TOOLINSPECT AUS
N5680 R100=($AC_TIMER[1])/480
M17
分享一个专用记录每把刀具CT的子程序,适用于process分析每把的加工时间,及优化。