TclTk如何调用Hyperview运行tcl脚本文件
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
#Tcl/Tk编写界面部分
set t [toplevel .tp]
focus $t
grab $t
set Filename "E:/CAE_Tech/process_files/88/Example.tcl"
set Font "Times 12 bold"
wm title $t "Call HyperView"
wm attribute $t -topmost 1
wm withdraw $t
set tf $t.tf
frame $tf -relief groove -borderwidth 2
set t0 $tf.0
frame $t0
label $bel -text "Filename:" -font $Font -width 10
entry $t0.entry -textvariable Filename -font $Font -width 40 -justify right
button $t0.button -text "Conduct" -font $Font -width 10 -command {Call_HyperView $Filename}
foreach temp {label entry button} {
pack $t0.$temp -padx 5 -side left
}
pack $t0 -pady 10 -padx 10 -side top
pack $tf
wm resizable $t 0 0
wm state $t normal
#Tcl/Tk编写子进程
proc Call_HyperView {filename} {
set bat_file "E:/CAE_Tech/process_files/88/call_HyperView.bat"
set temp_file [open $bat_file w+]
set temp1 "call"
set temp2 " \"F:/Program Files/Altair/13.0/hw/bin/win64/hw.exe\""
set temp3 “ -clientconfig hwpost.dat -tcl ”
set temp4 $filename
append temp3 $temp4
append temp2 $temp3
append temp1 $temp2
puts $temp_file $temp1
close $temp_file
exec $temp_file
}