时间精确到ms可以用clock clicks -milliseconds。比如你第一个命令用一次clock clicks -milliseconds把值赋给a,第二个命令再用一次clock clicks -milliseconds把值赋给b,然后用$b-$a就是你要的计时的时间,以ms为单位。显示当前时间是clock format [clock scan now] -f %c,不过时间单位只能到秒。
举个例子说明:
proc milliseconds {} {
set a [clock clicks -milliseconds]
after 100
set b [clock clicks -milliseconds]
puts "[expr $b-$a]"
}
此时运行结果就是after的100ms。