关于后处理文件信息

Q852388180

关于后处理文件信息
http://www.ugsnx.com/thread-24209-1-1.html
(出处: UG爱好者)
朋友,你这个后来是怎么解决的?

正宗金大侠

学习

13529340673*

参考TCL命令：
global mom_part_name


MOM_output_literal "(PART: $mom_part_name)"   程式中 零件信息

string last str1 str2
返回 str2 在 str1 最后一次出现的位置索引。没有搜索到就返回-1。

string length str
返回 str 中的字符个数

string index string n; 获取string的第n个字符，从0开始算
string range string n1 n2;获取string的第n1到n2个字符

字符串置换 string replace
例 string replace "San Diego, California" 4 8 "Francisco"; 将字符串的4到8替换成"Francisco"。

string replace string first last ?newstring?
使用newstring替换string中的first到last的字符串，如果没有newstring，就是使用空代替。

UG8.0.0

一个高手给的答案，定制命令，
#############下面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

张思颖

UG8.0.0 发表于 2019-5-2 09:36
一个高手给的答案，定制命令，
#############下面OK！
global mom_part_name

这个是正解，如图

张思颖

完整代码，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 三}

   效果如下

张思颖

张思颖 发表于 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)"

じ★ve飛鹰♀

张思颖 发表于 2024-3-5 14:24
完整代码，global mom_machine_name
global mom_part_name
global mom_sys_control_out mom_sys_control_ ...

为什么我把你给的代码输入后处理文件，后处理对话框文件名一栏不跟随选择的程序组自动更改？还是显示图档名字