tcl 把tk_block_1,"(0,0,6,6)",tk拆分成tk_block_1 (0,0,6,6) tk ，而不是tk_block_1 (0 0

Tcl中字符串拆分函数是`split`，可以将一个字符串按照特定字符或字符串进行分割。例如，你可以使用以下代码将字符串 `tk_block_1,"(0,0,6,6)",tk` 按照逗号 `,` 进行拆分：

set str "tk_block_1,\"(0,0,6,6)\",tk"
set parts [split $str ","]

拆分后的结果为一个列表 `parts`，其中包含了三个元素：`tk_block_1`、`"(0,0,6,6)"` 和 `tk`。注意，由于 `"(0,0,6,6)"` 中包含了逗号，因此需要将整个字符串用双引号引起来。

如果你希望将 `"(0,0,6,6)"` 中的括号和逗号去掉，可以使用正则表达式进行替换，例如：

set coords [regexp -inline {\d+} "(0,0,6,6)"]

这将匹配出 `"(0,0,6,6)"` 中的数字，并将其保存到一个列表 `coords` 中。你可以根据自己的需要对这些数字进行进一步处理。