jw_cad 外部変形 - (1078) wishでクリップボードを使う -

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

 

wishでクリップボードを使う

:wishでクリップボードを使う
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | wish - > jwc_temp.txt
)
goto:eof

REM #jww
REM #e

#!この次の行からプログラムを書いてください
# 文字列の設定
set a "ようこそ ありがとう"

# クリア
clipboard clear
# 追加
clipboard append $a
# 取得
set b [clipboard get]

# 文字列の表示
pack [text .txt]
.txt insert end $b

puts "h#clip=$b"