jw_cad 外部変形 - (663) パワーシェルで線角を計算する(lnslope) -

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

 

パワーシェルで線角を計算する(lnslope)

:パワーシェルで線角を計算する(lnslope)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | powershell -command -
)
type jwc_temp.txt
pause
goto:eof

REM #jww
REM #1ln 基準線を指示してください
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
function lnslope ($ln) #線の角度を返す
{
  $x1,$y1,$x2,$y2 = $ln
  [math]::atan2($y2-$y1,$x2-$x1)
}
(gc jwc_temp.txt) | %{
  if ($_ -match "^ ")
  {
    $ln = ([regex]::split($_,' +')[1..4] | %{ [double] $_ })
    "h#∠ = $([math]::round(((lnslope $ln)*180/[math]::pi), 3))゚"
  }
} | sc jwc_temp.txt

#ここまで powershell は 文末に必ず空白行を置いてください