jw_cad 外部変形 - (1061) tclshで文字基準点を取得する(cc) -

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

 

tclshで文字基準点を取得する(cc)

:tclshで文字基準点を取得する(cc)
@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 #h4               データ選択をしない、読取可能データ全て書き出し
REM #zc
REM #e

#!この次の行からプログラムを書いてください
set cc ""

set f [open myfiles]
foreach 0 [split [read $f] \n] {
  switch -regexp -- $0 {
    ^cc {
      set pcc [string range $0 2 end]
      if {$cc == ""} {set cc $pcc}
    }
  }
}
close $f

puts "h#cc$cc"