机械必威体育网址

 找回密码
 注册会员

QQ登录

只需一步,快速开始

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

UG后处理tcl语言解释

[复制链接]
跳转到指定楼层
1#
发表于 2016-8-31 17:12:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我曾经学习如何设置UG的后处理器,进入后处理构造器后,原来进行设置时,要用到tcl语言,自己不会但通过搜索网上的教程和程序,也能基本满足使用要求,但总是心里没底的感觉。# A7 F% J0 |! S7 i% o  ~
原来这个tcl语言是可以学习的,有空下载点资料来学习一下。+ X0 ]7 ^8 X3 x# g3 q" F
资料:/ N9 A% q* {/ |: ~
TCL语言 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 \  / n. @# e* e" b. G5 L% Q7 l
  exec tclsh ${1+"$@"}    # echo server that can handle multiple    # simultaneous connections.  
7 i0 w& q5 |( H+ A& N  proc newConnection { sock addr port } {    # client connections will be handled in    # line-buffered, non-blocking mode  0 s  _. f3 b( s: g
  fconfigure $sock -blocking no -buffering line    # call handleData when socket is readable  
. a5 I* M; ]/ |0 I0 r& v  fileevent $sock readable [ list handleData $sock ]    }  
2 k. Y2 n# P" o8 U* F. Q0 s% h( T  proc handleData {  9 L# u3 W3 w3 X+ ]
  puts $sock [ gets $sock ]    if { [ eof $sock ] } {    close $sock    }    }  
; T! z% f. F6 Z* I2 K5 k  # handle all connections to port given    # as argument when server was invoked    # by calling newConnection   
2 O" e  d# g" X- N) W, d2 hset port [ lindex $argv 0 ]  , q4 X) K7 z4 t) }" r* O9 b
  socket -server newConnection $port    # enter the event loop by waiting  8 |& K, a% t, o% b. k2 e2 H
  # on a dummy variable that is otherwise    # unused.  3 \' O$ `. R$ N- F, |
  vwait forever  ( M3 P' m4 x( k& Q+ R7 [# V
  另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间,3行就显示了一个时钟。    A" p! J! \% N2 Q- \: w# B
  proc every {ms body} {eval $body; after $ms [info level 0]}    pack [label .clock -textvar time]  . z0 W( f. `& s9 b9 r. k% r' z0 ?
  every 1000 {set ::time [clock format [clock sec] 7 ]6 W5 \) ]( a2 t( e* ^" _. i
-format %H:%M:%S]} # RS  
( `4 d. }( O! U  A) ]2 |* p  解释:第一行定义了过程every, 每隔ms毫秒,就重新执行body代码。第二行创建了标签起内容由time变量决定。第3行中设置定时器,time变量从当前时间中每秒更新一次。 2 [( u( U6 D7 @+ b( i, Y3 |1 H  t

" Z: {9 Z, X: _2 M: s( h8 ?4 a
5 i. |% U2 E. ~5 ~# o: h. r  ^; I: _- D5 C8 @" E) @
回复

使用道具 举报

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 | 只看该作者

  e- g. ?# u5 k  }/ W6 f% u, _路过,楼主有心人啊
回复 支持 反对

使用道具 举报

6#
发表于 2017-11-5 15:36:55 | 只看该作者
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2024-12-24 07:04 , Processed in 0.049339 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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