chuck wrote:
拉了一段当然不行了。
proc MOM_before_output {} {
global mom_pos machine_limits
if { ![info exists machine_limits] } {
for {set i 0} {$i<3} {incr i} {
set machine_limits($i,0) $mom_pos($i)
set machine_limits($i,1) $mom_pos($i)
}
}
for {set i 0} {$i<3} {incr i} {
if { $mom_pos($i) < $machine_limits($i,0)} {
set machine_limits($i,0) $mom_pos($i)
}
if { $mom_pos($i) > $machine_limits($i,1)} {
set machine_limits($i,1) $mom_pos($i)
}
}
}
请问我该把这加在哪一段,工艺单中才会出现呢?
(我是用shopdoc_programview_text.tcl进行更改的!)
谢谢!  |