jw_cad 外部変形 - (764) gawkで指示線を確認する(ln) -

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

 

gawkで指示線を確認する(ln)

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

#!ここから more +n %0 の n 行目:最初の行は 0 行
function lnlength(x) { return ($0 = x) ? sqrt( ($3 - $1) ^ 2 + ($4 - $2) ^ 2) : 0 }
BEGIN { CONVFMT = OFMT = "%.15g" }
/^hhp[1-9][0-9]?ln/ {
  lnn = substr($1, 4)
  sub(/ln-?/, "", lnn)
}
/^[ ]/ && NF == 4 {
  ln[lnn] = $0
  pc = ($1 + $3) / 2 FS ($2 + $4) / 2
  r = lnlength(ln[lnn]) / 2
  print "ci", pc, r
}