jw_cad 外部変形 - (765) gawkで指示円を確認する(ci) -

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

 

gawkで指示円を確認する(ci)

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

#!ここから more +n %0 の n 行目:最初の行は 0 行
/^hq/ {
  print "hd"
  next
}
/^hhp[1-9][0-9]?ci/ {
  cin = substr($1, 4)
  sub(/ci-?/, "", cin)
  next
}
/^ci/ {
  ci[cin] = $0
  x = $2
  y = $3
  print "pt", x, y
  print $0
  next
}
!/^ci / {
  print $0
  next
}