UG后處理tcl語言解釋

我走更遠

我曾經學習如何設置UG的后處理器，進入后處理構造器后，原來進行設置時，要用到tcl語言，自己不會但通過搜索網上的教程和程序，也能基本滿足使用要求，但總是心里沒底的感覺。
! {3 o# D! C5 M) U4 `' w原來這個tcl語言是可以學習的，有空下載點資料來學習一下。
7 v4 f% q, O2 G! k8 M! s0 x資料：
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 \  
) {- y- M- j  G9 N! L  exec tclsh ${1+"$@"}    # echo server that can handle multiple    # simultaneous connections.  
' S+ f$ z6 l8 c/ N" F. C  proc newConnection { sock addr port } {    # client connections will be handled in    # line-buffered, non-blocking mode  
  fconfigure $sock -blocking no -buffering line    # call handleData when socket is readable  
  fileevent $sock readable [ list handleData $sock ]    }  
  proc handleData {  
  puts $sock [ gets $sock ]    if { [ eof $sock ] } {    close $sock    }    }  
2 a/ p  i' _" O9 ]  q4 X1 }  # handle all connections to port given    # as argument when server was invoked    # by calling newConnection   
3 i" A1 p( c* P. Oset port [ lindex $argv 0 ]  
' m' g, Z) H; ^  socket -server newConnection $port    # enter the event loop by waiting  
: \- ^1 V% k: ]( m* r6 D  # on a dummy variable that is otherwise    # unused.  
- k3 L( i+ G+ `7 F" Y7 |2 h0 m  vwait forever  
( X6 g7 D) l+ N1 l3 X4 J  另外一個TK的例子 (來自 A simple A/D clock) 它使用了定時器時間，3行就顯示了一個時鐘。  
( R* N# j; A$ N/ S  proc every {ms body} {eval $body; after $ms [info level 0]}    pack [label .clock -textvar time]  
  every 1000 {set ::time [clock format [clock sec]
) r5 {) N( K' u: z9 I-format %H:%M:%S]} # RS  
  解釋：第一行定義了過程every， 每隔ms毫秒，就重新執行body代碼。第二行創建了標簽起內容由time變量決定。第3行中設置定時器，time變量從當前時間中每秒更新一次。

6 t6 ?6 L- j( t9 {% i

2 A2 V5 K4 k+ j

未來第一站

路過，樓主有心人啊.

FANUC_JKKw3

看不懂

moldzsdj

雖還不懂，努力在看！

liaocao622

' A" ~, J4 l7 l% @8 W路過，樓主有心人啊

3278361064