方法一:
source [file join [file dirname [info script]] Export_inp_by_loadstep.tcl]
方法二:
source [file join [file dirname [dict get [info frame 0] file]] Export_inp_by_loadstep.tcl]
转载地址:
http://blog.chinaunix.net/uid-7762010-id-5211102.html
#---------------------------------------------------------------------------------------------------------------------
更新20190107
Hypermesh 二次开发相关
实际上对于不是直接运行tcl而言,最开始通过[file dirname [info script] 获取的路径确实是脚本的路径,但只要通过toplevel 调用主窗口命令后,路径就已经不是脚本路径而是窗口路径。
所以如果下面有命令是需要调用同路径下的其他tcl文件时,第一步就用set path [file dirname [info script] 把路径记录下来后续使用。