![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
TCL
a845179011
这个作者很懒,什么都没留下…
展开
-
ANSYS TCL开始
最近在做ANSYS经典版开发,用到了TCL脚本语言,经前辈和自己的研究,总结一些经验。tcl内置在ANSYS内,ANSYS17.0版可以在目录:D:\Program Files\ANSYS Inc\v170\commonfiles\Tcl\bin\winx64中找到tcl程序:tclsh.exe,wish.exe。可以安装ActiveTcl实现Tcl脚本的运行,安装包附于文章后。编写TCL代码可以...原创 2018-04-18 19:55:14 · 1160 阅读 · 1 评论 -
TCL数组array
下面是Tcl 数组(array)的应用技巧。(1)数组与列表的转换(2)在函数中不能返回整个数组proc func{} \{ set a(1) 10 set a(2) 20 return $a}set temp [func]上面的代码报错如下:(3)可以在函数中将数组转换为列表,返回该列表;在调用函数的地方将列表转换为数组:proc func{} \{ se...原创 2018-04-18 20:09:16 · 5630 阅读 · 0 评论 -
引用传递:upvar
(1) 传递数组可以改变数组的值namespace eval sp { proc func {arr} \ { upvar $arr name foreach var [array names name] { set name($var) [expr $name($var) + 2] } } ...原创 2018-04-18 20:12:30 · 181 阅读 · 0 评论 -
ANSYS中脚本的问题
(1)Ansys的TCL程序命名空间变量每次必须初始化如下面的代码:namespace eval sp { proc main {} \ { variable Lst lappend Lst 1 tk_messageBox -message $Lst }}sp::main在ansys中执行第一次结果:第二次结果:因此要加语句:se...原创 2018-04-18 20:20:37 · 1946 阅读 · 0 评论 -
TCL在脚本中引用外部脚本过程
可查看《TCL_TK入门经典(第2版)》->第14章,创建与使用TCL脚本库->自动加载。具体步骤如下:1、 在一个目录中创建2个tcl脚本:module1.tcl,module2.tcl。# module1.tclnamespace eval model::submodel1 { proc submodel1_func { } { global...原创 2018-04-18 20:26:41 · 3509 阅读 · 0 评论 -
TCL的lappend,concat的使用
示例:set lst [list 1 2 3 4]>1 2 3 4lappend lst [list 1 2 3]>1 2 3 4 {1 2 3}lappend第二个参数是一个数时,给指定列表添加一个元素;第二个参数是一个列表时,也给指定列表添加一个元素,但是该元素是列表(一个整体),不是将新列表中的元素加入到列表中。继续: set a(1) [list 1 2 3 4...原创 2018-11-27 21:03:08 · 12126 阅读 · 0 评论 -
TCL几何管理
TCL用了有段时间,但是都是复制别人代码做的UI,每次要用的时候都是重新看,或者瞎改,实际上自己对几何管理器还是不懂。今天看了一下,做下总结:(1)grid不能控制组件尺寸一样,但pack可以(就目前所知):labelframe .f -text "haha"button .ok -text okbutton .cancel -text cancelbutton .he...原创 2018-12-25 20:17:31 · 342 阅读 · 0 评论 -
TCL深入学习的资料
如果学的东西没有做记录,以后碰到一样的问题可能要做重复的工作,还不一定见效!如果需要深入学习TCL/TK,可以从ActiveTcl的库入手,里面有示例源码,都是高大上的东西。(1)打开Wish,键入cd "C:\\ActiveTcl\\lib\\tk8.6\\demos"进入demos目录(题外话:可以在资源管理器进入这个目录,双击任意tcl文件,发现都不能直接运行;可以用VSCode打开...原创 2019-01-07 22:43:45 · 415 阅读 · 0 评论