jw_cad 外部変形 - (1074) wishで jwc_temp.txt を画面表示する -

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

 

wishで jwc_temp.txt を画面表示する

:wishで jwc_temp.txt を 画面表示する(tcl/tk)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  copy jwc_temp.txt myfiles > nul
  more +%%n %0 | start /b wish - > jwc_temp.txt
)
goto:eof

REM #jww
REM #e

#!この次の行からプログラムを書いてください
puts "hd"; #コメントの未実行をキャンセルする

set f [open myfiles]
set a [read $f]
close $f

wm title    . "Lite & Seen Lite"
wm geometry . 720x480+100+100
wm resizable . 0 0

pack [text .txt]
.txt insert end $a