|
|
本帖最后由 yjhua2005 于 2014-8-8 23:35 编辑
http://pan.baidu.com/s/1i3iiVFf
后处理在里面，请高手看看tcl语句问题出在哪里，就差这点就完美了
#=============================================================
proc PB_CMD_TOOL_INFO { } {
#=============================================================
#PB_CMD_TOOL_INFO
set outputthd 1
global mom_tool_name
global mom_tool_diameter
global mom_tool_corner1_radius
set tdi [ format "%.2f" $mom_tool_diameter]
set tr [ format "%.2f" $mom_tool_corner1_radius]
|
|
发表于 2014-8-8 23:31:38
