;**********************************************

;* 函数名  :  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分析每把的加工时间，及优化。