在 TCL 中获取列值

Question

我正在尝试在 TCL 中捕获一些数据。我有以下数据： {0.0 0.0} {0.741 0.48} 我需要的输出是此数据的第 3 列。 0.741 我怎样才能实现它？

set oaDesign [ed]
set rprb [db::getShapes -of $oaDesign -lpp {INST_B drawing}] 
set r [de::getBBox  $rprb]
puts $r
{0.0 0.0} {0.741 0.48}

我只需要第 3 列，即 0.741

Answer 1

您将分别使用 lindex 和 lset 来访问已知位置的嵌套列表元素：

 % lindex $r 1 0
 0.741

要在给定位置写回该列表列表：

 % lset r 1 0 0.0
 {0.0 0.0} {0.0 0.48}

在提出问题之前，您是否搜索过 previous answers？

Getting columns values in TCL