maizezhen 发表于 2016-12-8 11:39:35

UG后处理tcl文件中hiset的含义

#_______________________________________________________________________________
# utility to return TRUE(1) if the variable v1 is set, else FALSE(0)
# example set xx returns xx as TRUE(1) or FALSE(0)
# example if {} {puts $list_file "yy"}
#_______________________________________________________________________________
proc hiset { v1 } {
         upvar $v1 v2
         if { } { return 1 } else { return 0 }
}

maizezhen 发表于 2016-12-8 13:41:40

给自己顶一个{:lol:}
页: [1]
查看完整版本: UG后处理tcl文件中hiset的含义