基于tcl tk 的HyperView二次开发实例【3】

下面用例子说明在HyperView中获取节点的ID

# 首先获取模型的Handle

::post::GetActiveModelHandle m

# 创建一个单元的集合，并将ID为100的单元添加到集合中,
#然后增加与该单元相连接的单元
m GetSelectionSetHandle eset [m AddSelectionSet element]

eset Add "id == 100"

eset Add adjacent

 
# 获取查询的Handle并设置结果对应的单元Set，可以通过命令
# GetDataSourceList获取DataSourceList, properties 属性获取可以通过命令 GetDataSourceFieldList并传递相应的参数参数获取，例如:

#     qc GetDataSourceList returns "node element component ..."

#     qc GetDataSourceFieldList element returns "id config compid ..."


m GetQueryCtrlHandle qc

qc SetSelectionSet [eset GetID]

qc SetQuery "element.id element.connectivity"


#当查询结果与选择集合设置好后，可以通过iterator执行循环获取相应的结果，命名如下：
qc GetIteratorHandle qciter

 

for {qciter First} {[qciter Valid]} {qciter Next} {

   puts [qciter GetDataList]

}

 

# 执行完毕后，释放所有的handle

qciter ReleaseHandle

qc ReleaseHandle

eset ReleaseHandle

m ReleaseHandle

HyperView的查询命名与其他命名的执行方式相同。

对应的才做面板如下：