jw_cad 外部変形 - (1051) tclshで軸角を取得する(hk) -

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

 

tclshで軸角を取得する(hk)

:tclshで軸角を取得する(hk)
@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 #e

#!この次の行からプログラムを書いてください
set f [open myfiles]
foreach 0 [split [read $f] \n] {
  switch -regexp -- $0 {
    ^hk {
      lassign $0 1 2
      set hk $2
      puts "h#hk=$hk゚"
    }
  }
}
close $f