jw_cad 外部変形 - (723) gawkで線角を計算する(lnslope) -

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

 

gawkで線角を計算する(lnslope)

:gawkで線角を計算する(lnslope)
@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 #1ln 基準線を指示してください
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
BEGIN { CONVFMT = OFMT = "%.15g" }
/^[ ]/ && NF == 4 {
  PI = atan2(1, 1) * 4
  printf "h#∠ = %.03f゚ ",( $0 ? atan2($4 - $2, $3 - $1) * 180 / PI : 0 )
}