wangice 发表于 2015-8-31 12:18:02

很可惜，還是沒成功😭

wangice 发表于 2015-8-31 15:38:00

給你這個程序尼試試，衹是个程序循環時間記錄程序，可以附在加工程序里。給個郵箱我發你你試試。

wangice 发表于 2015-8-31 15:43:41

還是貼出來吧，反正也不大

wangice 发表于 2015-8-31 17:38:44

proc timer(int type)
;(1=360Basic,2=360B or AWD,3=360C)
def int error
def string ld_name

if ($p_subpar==false) or (type<1) or (type>3)
ld_name=("<Unknown>")
    endif
if type==1
ld_name=("<360Basic>")
    endif
if (type==2) and (r99==57529)
ld_name=("<360B>")
    endif
if (type==2) and (r99==1359)
ld_name=("<360AWD>")
    endif
if type==3
ld_name=("<360C>")
    endif

write (error,"/_n_spf_dir/_n_cycle_timer_spf",""<<ld_name<<" Running:"<<$a_year<<"."<<$a_month<<"."<<$a_day<<""<<$a_hour<<":"<<$a_minute<<":"<<$a_second )

r600=$a_hour*3600+$a_minute*60+$a_second+$a_msecond/1000-r600
if r600<0
r600=r600+24*3600
endif
if r600>3600
r600=0
endif
r600=round(r600)

write (error,"/_n_spf_dir/_n_cycle_timer_spf","Cycle time :"<<r600<<" Sec")

write (error,"/_n_spf_dir/_n_cycle_timer_spf","Machining Time:"<<round($ac_timer)<<" Sec " )

r600=$a_hour*3600+$a_minute*60+$a_second+$a_msecond/1000
ret
页: 1 [2]
查看完整版本: 西門子840d 子程序問題求教