jw_cad 外部変形 - (768) gawkで曲線データを確認する(pl) -

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

 

gawkで曲線データを確認する(pl)

:gawkで曲線データを確認する(pl)
@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 #h1
REM #hc 曲線を選択してください
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
BEGIN { CONVFMT = OFMT = "%.15g" }
/^hq/ {
  print "hd"
  next
}
/^pl/ {
  plflg = 1
  i++
  j = 0
  next
}
/^[ ]/ && NF == 4 && plflg == 1 {
  pl[i,j] = $0
  j++
  next
}
/^#/ && plflg == 1 {
  plflg = 0
  size[i] = j
  next
}
END {
  m = i
  for (i = 1; i <= m; i++) {
    print "pl"
    print "lc"(6 + i)
    n = size[i] - 1
    for (j = 0; j <= n; j++) {
      print pl[i,j]
    }
    print "#"
  }
}