jw_cad 外部変形 - (492) tclshで文字を書く -

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

 

tclshで文字を書く

tclsh.exe は tcl のスクリプトを実行するツールです。

:tclshで文字を書く
@echo off
call %~dp0set "s" "%*" %~dpn0.txt
if not defined s set s=こんにちは
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | C:\ActiveTcl\bin\tclsh - > jwc_temp.txt
)
goto:eof

REM #jww
REM #0 位置を指示して下さい
REM #c 文字 = 
REM #e

#!この次の行からプログラムを書いてください
puts "ch 0 0 1 0 \"$env(s)"