jw_cad 外部変形 - (767) gawkで指示文字を確認する(ch) -

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

 

gawkで指示文字を確認する(ch)

:gawkで指示文字を確認する(ch)
@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 #1%dch 文字を指示してください
REM #99#
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
BEGIN { CONVFMT = OFMT = "%.15g" }
/^hq/ {
  print "hd"
  next
}
/^hp/ {
  i = substr($1, 4)
  sub(/ch-?/, "", i)
  hp[i] = $2 FS $3
  next
}
/^hhp[1-9][0-9]?ci/ {
  chn = substr($1, 4)
  sub(/ch-?/, "", chn)
  next
}
/^c[hvsroptkz2]/ {
  ch[chn] = $0
  x1 = $2
  y1 = $3
  lx = $4
  ly = $5
  a = atan2(ly, lx)
  l = sqrt(lx * lx + ly * ly)
  x2 = x1 + l * cos(a)
  y2 = y1 + l * sin(a)
  print x1, y1, x2, y2
  next
}
!/^c[hvsroptkz2]/ {
  print $0
  next
}