|
发表于 2024-3-25 15:30:40
|
显示全部楼层
首先再程序开始的时候加入定制命令
global mom_oper_geom tp inr tpi mom_tool_name tn tni dhcf dhcfa dhcfb
if {[info exists tp]} {
for {set i 0} {$i < $inr} {incr i} {
set tpi [lindex $tp $i]
if {$mom_oper_geom==$tpi} {
set dhcf "温馨提示!出现多个几何体!\n\n$tpi\n\n"
return
}
}
} else {set inr 0}
lappend tp $mom_oper_geom
if { [info exists dhcf] } { lappend dhcfa $dhcf }
incr inr
然后在程序结束的时候加入定制命令
global dhcfb dhcfa
if { [info exists dhcfa] } {
set dhcfb [lsort -unique $dhcfa]
foreach i $dhcfb {
MOM_output_to_listing_device "**************************************************************"
MOM_output_to_listing_device " $i "
MOM_output_to_listing_device "**************************************************************"
MOM_display_message " $i "
}
} |
|