张思颖 发表于 2024-3-5 14:24
完整代码,global mom_machine_name
global mom_part_name
global mom_sys_control_out mom_sys_control_ ...
代码没有搞全
global mom_machine_name
global mom_part_name
global mom_sys_control_out mom_sys_control_in
global mom_output_file_basename
#MOM_output_literal "(Zhang)"
set c $mom_output_file_basename
MOM_output_literal "(程序名称:$c)"
set co $mom_sys_control_out
set ci $mom_sys_control_in
set temp $mom_part_name
set x [string last "\\" $temp]
set x [expr $x + 1]
set part_name_no_path [string range $temp $x end]
append co "模型名称:$part_name_no_path" $ci
MOM_output_literal $co
set a [clock format [clock seconds] -format "%Y/%m/%d"]
set b [clock format [clock seconds] -format "%H:%M"]
set c [clock format [clock seconds] -format "%A"]
if {$c == "Monday"} {set c 一}
if {$c == "Tuesday"} {set c 二}
if {$c == "Wednesday"} {set c 三}
if {$c == "Thursday"} {set c 四}
if {$c == "Friday"} {set c 五}
if {$c == "Saturday"} {set c 六}
if {$c == "Sunday"} {set c 日}
MOM_output_literal "(日期$a 时间:$b 星期$c)"
完整代码,global mom_machine_name
global mom_part_name
global mom_sys_control_out mom_sys_control_in
global mom_output_file_basename
set c $mom_output_file_basename
MOM_output_literal "(程序名称:$c)"
set co $mom_sys_control_out
set ci $mom_sys_control_in
set temp $mom_part_name
set x [string last "\\" $temp]
set x [expr $x + 1]
set part_name_no_path [string range $temp $x end]
append co "模型名称:$part_name_no_path" $ci
MOM_output_literal $co
set a [clock format [clock seconds] -format "%Y/%m/%d"]
set b [clock format [clock seconds] -format "%H:%M"]
set c [clock format [clock seconds] -format "%A"]
if {$c == "Monday"} {set c 一}
if {$c == "Tuesday"} {set c 二}
if {$c == "Wednesday"} {set c 三}
一个高手给的答案,定制命令,
#############下面OK!
global mom_part_name
global mom_sys_control_out mom_sys_control_in
set co $mom_sys_control_out
set ci $mom_sys_control_in
set temp $mom_part_name
set x [string last "\\" $temp]
set x [expr $x + 1]
set part_name_no_path [string range $temp $x end]
append co "模型名称: $part_name_no_path" $ci
MOM_output_literal $co