TCL 引用同目录下其他脚本文件--source

方法一：

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] 把路径记录下来后续使用。