|
发表于 2011-11-22 19:54:59
|
显示全部楼层
tcl文件程序头
#=============================================================
proc PB_CMD_program_start { } {
#=============================================================
global mom_motion_type
global mom_part_name
global mom_logname
global mom_date
global mom_path_name
MOM_output_literal "%"
MOM_output_literal "G40 G17 G49 G54 G80"
MOM_output_literal "G91 G28 Z0.0"
MOM_output_literal "( NAME: $mom_logname )"
MOM_output_literal "( PART: $mom_part_name )"
MOM_output_literal "( DATE: $mom_date )"
}
|
|