|
楼主 |
发表于 2024-3-2 14:53:26
|
显示全部楼层
我之前用的命令是这个,貌似只能提示同一个程序的不同坐标系。今天刚出错了一次,同个程序组的用了不同坐标没有提示:
global mom_operation_name_list
global mom_mcsname_attach_opr
foreach op $mom_operation_name_list {
lappend mcs_list $mom_mcsname_attach_opr($op)
}
set mcs_list_count [llength $mcs_list]
for {set i 1} {$i <= [expr $mcs_list_count - 1]} {incr i} {
if {![string match [lindex $mcs_list 0] [lindex $mcs_list $i]]} {
set msg [MOM_display_message 程序中包含多坐标系,请注意 多坐标系提醒!确认生成多坐标系加工吗? I 按原程序输出 中止后处理]
switch $msg {
1 {
set offset_flag 1
}
2 {
MOM_abort 中止
}
}
}
} |
|