jw_cad 外部変形 - (750) gawkで罫線を引く -

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

 

gawkで罫線を引く

:gawkで罫線を引く
@echo off
set sx=15
set sy=20
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 #hp
REM #zs
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
/^hq/ { print "bz\nlc9\nlt9" }
/^hzs/ {
  sx = ENVIRON["sx"] * 1
  sy = ENVIRON["sy"] * 1
  yp = 8
  div = 2
  w = $2
  h = $3
  n = int( (h - sy * 2) / yp)
  x0 = sx
  x1 = x0 + (w / div - sx)
  for (i = 0; i < n; i++) {
    y = yp * i + sy
    print x0, y, x1, y
  }
}