机械必威体育网址

找回密码
注册会员

QQ登录

只需一步,快速开始

搜索
查看: 6545 | 回复: 5
打印 上一主题 下一主题

UG后处理tcl语言解释

[复制链接]
跳转到指定楼层
1#
发表于 2016-8-31 17:12:51 | 只看该作者 回帖奖励 | 倒序浏览 | 阅读模式
我曾经学习如何设置UG的后处理器,进入后处理构造器后,原来进行设置时,要用到tcl语言,自己不会但通过搜索网上的教程和程序,也能基本满足使用要求,但总是心里没底的感觉。
) S" k- S& H! U6 N' g. S$ W3 H原来这个tcl语言是可以学习的,有空下载点资料来学习一下。& V/ k3 H$ `1 W( i: D
资料:
" s7 B, a, V, ZTCL语言Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义,不过我们仍然称呼它为TCL)是一种 脚本语言。 由John Ousterhout创建。 TCL很好学,功能很强大。TCL经常被用于 快速原型开发,脚本编程, GUI和测试等方面。Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义,不过我们仍然称呼它为TCL)是一种 脚本语言。 由John Ousterhout创建。 TCL很好学,功能很强大。TCL经常被用于 快速原型开发,脚本编程, GUI和测试等方面。TCL念作“踢叩” "tickle". Tcl的特性包括:* 任何东西都是一条命令,包括语法结构(for, if等)。 * 任何事物都可以重新定义和重载。 * 所有的数据类型都可以看作字符串。 * 语法规则相当简单* 提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。* 动态的域定义。* 很容易用C, C++,或者Java扩展。* 解释语言,代码能够动态的改变。 * 完全的Unicode支持。* 平台无关。Win32, UNIX, Mac 上都可以跑。 * 和Windows的GUI紧密集成。 Tk * 代码紧凑,易于维护。TCL本身不提供面向对象的支持。但是语言本身很容易扩展到支持面向对象。许多C语言扩展都提供面向对象能力,包括XOTcl, Incr Tcl 等。另外SNIT扩展本身就是用TCL写的。使用最广泛的TCL扩展是TK。 TK提供了各种OS平台下的图形用户界面GUI。连强大的Python语言都不单独提供自己的GUI,而是提供接口适配到TK上。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力,例如(passwd, ftp, telnet等命令驱动的外壳). 具体例子下面是TCL程序的例子: #!/bin/sh# next line restarts using tclsh in path \4 {8 l& e6 u- |2 \) y8 b* f& e N3 V
exec tclsh ${1+"$@"} # echo server that can handle multiple # simultaneous connections.
& z. I) Q J8 U$ y4 hproc newConnection { sock addr port } { # client connections will be handled in # line-buffered, non-blocking mode
& J' z1 d* T' C/ u |9 pfconfigure $sock -blocking no -buffering line # call handleData when socket is readable9 i/ M9 m( V" u/ Y* d
fileevent $sock readable [ list handleData $sock ] }5 E6 c: F+ z7 x; W5 r
proc handleData {
* }, i, o e/ q8 Y% Q" C4 Vputs $sock [ gets $sock ] if { [ eof $sock ] } { close $sock } }& l! _( u g" M% u: H `$ i
# handle all connections to port given # as argument when server was invoked # by calling newConnection% p* h/ t3 h& u, _% ]
set port [ lindex $argv 0 ]) W: M7 m h1 f" }) n
socket -server newConnection $port # enter the event loop by waiting( F+ ?: }7 H/ r/ y
# on a dummy variable that is otherwise # unused.
0 l: `* a% _; @vwait forever# g/ p7 P7 f' K ?8 E/ g
另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间,3行就显示了一个时钟。- P3 m5 o7 t0 x9 \
proc every {ms body} {eval $body; after $ms [info level 0]} pack [label .clock -textvar time]- J. L* ?$ R- f
every 1000 {set ::time [clock format [clock sec]# y0 E) C" Z# f' n
-format %H:%M:%S]} # RS( ^" [0 Q4 [. ^, G( P
解释:第一行定义了过程every, 每隔ms毫秒,就重新执行body代码。第二行创建了标签起内容由time变量决定。第3行中设置定时器,time变量从当前时间中每秒更新一次。) A# }' i- O. F3 n( x; [ g: y

# d3 K# e3 l* m k6 F7 {4 N' h' {& g6 V. v& Y3 `" M
( H6 q6 g, f% R+ H! U) P2 q
2#
发表于 2016-8-31 21:48:44 | 只看该作者
路过,楼主有心人啊.
3#
发表于 2017-9-8 17:42:35 | 只看该作者
看不懂
4#
发表于 2017-10-9 09:44:09 | 只看该作者
虽还不懂,努力在看!
5#
发表于 2017-11-2 18:58:15 | 只看该作者

. |! t! e6 F& N& O& a' T7 B路过,楼主有心人啊
6#
发表于 2017-11-5 15:36:55 | 只看该作者
您需要登录后才可以回帖 登录| 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械必威体育网址(京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号)

GMT+8, 2024-5-4 17:31, Processed in 0.052076 second(s), 14 queries , Gzip On.

Powered byDiscuz!X3.4Licensed

? 2001-2017Comsenz Inc.

快速回复 返回顶部 返回列表