jw_cad 外部変形 - (766) gawkで点データを確認する(pt) -

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

 

gawkで点データを確認する(pt)

:gawkで点データを確認する(pt)
@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 #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
BEGIN { CONVFMT = OFMT = "%.15g"; PI = atan2(1, 1) * 4 }
/^hq/ {
  print "hd"
  next
}
/^hk/ {
  hk = $2 * 1
  next
}
/^pt/ {
  ptn++
  if (NF == 3) {
    pt[ptn] = $2 FS $3
  } else {
    pt[ptn] = $2 FS $3 FS $4 FS $5 FS $6
  }
  x = $2
  y = $3
  lx = cos(hk * PI / 180)
  ly = sin(hk * PI / 180)
  print "cc4"
  print "cn0 5 5 0.5 2"
  print "ch", x, y, lx, ly, "\"ようこそ ありがとう"
  print $0
  next
}
!/^pt / {
  print $0
  next
}