基于Tcl/Tk的HyperView后处理二次开发实例

加载模型、显示云图并截图至本地

 

hwi OpenStack
hwi GetSessionHandle session1
session1 GetProjectHandle project1
project1 GetPageHandle page1 1
page1 GetWindowHandle win1 1
win1 GetClientHandle client1
client1 Clear
set id [client1 AddModel "xxx.h3d"]
client1 GetModelHandle my_model $id
my_model SetResult "xxx.h3d"

my_model GetResultCtrlHandle my_result
set current [my_result GetCurrentSubcase]
set data_types [my_result GetDataTypeList $current]

my_result GetContourCtrlHandle contour_ctrl_1

contour_ctrl_1 SetDataType [lindex $data_types 0]
contour_ctrl_1 SetDataComponent "Mag"
contour_ctrl_1 SetEnableState true
client1 SetDisplayOptions "contour" true
client1 SetDisplayOptions "legend" true

client1 GetNoteHandle note1 1
note1 SetVisibility False
client1 Draw

set filename "Displacement"
set stress_file [file join "C:/Users" $filename.jpg]
session1 CaptureActiveWindow "j