jw_cad 外部変形 - (908) jscriptで放射線を引く(ray) -

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

 

jscript放射線を引く(ray)

/* jscript放射線を引く(ray)
@cls & echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

REM #jww
REM #0 基準点を指示して下さい
REM #e
*/

f = WScript.StdIn
while (! f.AtEndOfStream) {
  F = ($_ = f.ReadLine()).split(/\s+/)
  if (/^hk/i .test($_)) { hk = F[1] } //hk 軸角
}
with (Math) {
  x = cos(hk * PI / 180) * 1e+10
  y = sin(hk * PI / 180) * 1e+10
}
g = WScript.StdOut
g.WriteLine([0, 0, x, y].join(" "))
// WScript.Echo([0, 0, x, y].join(" "))