jw_cad 外部変形 - (1036) tclshで時刻を書き込む -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

tclshで時刻を書き込む

:tclshで時刻を書き込む
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  copy jwc_temp.txt myfiles > nul
  more +%%n %0 | tclsh - > jwc_temp.txt
)
goto:eof

REM #jww
REM #0 時刻を書き込む基点を指示してください。
REM #e

#!この次の行からプログラムを書いてください
set week [list 日 月 火 水 木 金 土]
set systemTime [clock seconds]
set w [clock format $systemTime -format %w]
puts "ch 0 0 1 0 \"[clock format $systemTime -format \
    {日本時間 %Y/%m/%d %H:%M:%S (}][lindex $week $w])"