jw_cad 外部変形 - (752) gawkでスケールを取得する(hs) -

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

 

gawkでスケールを取得する(hs)

:gawkでスケールを取得する(hs)
@echo off
for /f %%n in ('gawk "/^#!/ { print NR }" %0') do (
  copy jwc_temp.txt myfiles > nul
  more +%%n %0 | gawk -f - myfiles > jwc_temp.txt
)
goto:eof

REM #jww
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
/^hs/ { while (i != NF) { hs[sprintf("%x", i)] = $(i + 2); i++ } }
/^lg[0-9a-f]/ {
  plg = substr($0, 3, 1)
  if (lg == "") { lg = plg }
  print "h#S=1/"hs[lg]
}