方法一：
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] 把路徑記錄下來后續使用。