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

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

 

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

/* jscriptで線角を計算する(lnslope)
@cls & echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

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

f = WScript.StdIn
while (! f.AtEndOfStream) {
  F = ($_ = f.ReadLine()).split(/\s+/)
  if (/^\s+/i .test($_)) { //ln 指示線
    lx = F[2] - F[0]
    ly = F[3] - F[1]
    d = Math.atan2(ly, lx) * 180 / Math.PI
    //continue
    break
  }
}
g = WScript.StdOut
g.WriteLine("h#∠ = " + d.toFixed(3) + "゚")
// WScript.Echo("h#∠ = " + d.toFixed(3) + "゚")

 

 

jscript は 文字列 "1" を 数値 1 に変換するなら

  "1" + 0

のようにするといいようです。これは awk と同じです。