jw_cad 外部変形 - (762) gawkで文字寸法を取得する(hcw,hch,hcd,hcc) -

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

 

gawkで文字寸法を取得する(hcw,hch,hcd,hcc)

:gawkで文字寸法を取得する(hcw,hch,hcd,hcc)
@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 行
/^hcw / {
  split(substr($0, 5), hcw)
  next
}
/^hch / {
  split(substr($0, 5), hch)
  next
}
/^hcd / {
  split(substr($0, 5), hcd)
  next
}
/^hcc / {
  split(substr($0, 5), hcc)
  next
}
/^cn[0-9]/ {
  cn = substr($1, 3)
  if (cn == 0) {
    cw = $2
    ch = $3
    cd = $4
    cc = $5
    print "h#cn"cn, cw, ch, cd, cc
  } else {
    print "h#cn"cn, hcw[cn], hch[cn], hcd[cn], hcc[cn]
  }
}