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

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

 

mshtaで放射線を引く(ray)

:mshtaで放射線を引く(ray)
@echo off
if exist jwc_temp.txt (
  copy jwc_temp.txt myfiles > nul
  mshta %~f0 < myfiles > jwc_temp.txt
)
goto:eof

REM #jww
REM #0 基準点を指示してください
REM #e

<script>
with (new ActiveXObject("Scripting.FileSystemObject")) {
  f = GetStandardStream(0) //stdin
  g = GetStandardStream(1) //stdout
  while (! f.AtEndOfStream) {
    F = ($_ = f.ReadLine()).split(/\s+/)
    if (/^hk/i .test($_)) { hk = F[1] } //hk 軸角
  }
  f.Close()
  with (Math) {
    x = cos(hk * PI / 180) * 1e+10
    y = sin(hk * PI / 180) * 1e+10
  }
  g.WriteLine([0, 0, x, y].join(" "))
}
close()
</script>

 

 

スクリプト言語jscript を使用しています。