|
|
global mom_operation_name_list 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 程序中包含多个坐标系,基于坐标系名称检测!请检查!]
}
}
这是一个大神写的判断同组程序中是否有多个坐标系的,很有用。不过有一个操作它就提示一次,,。有没有大神有办法让它只提示一次。或者可以选择继续或终止 |
|