jw_cad 外部変形 - (644) コマンドプロンプトで指示線を確認する(ln) -

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

 

コマンドプロンプトで指示線を確認する(ln)

/* コマンドプロンプトで指示線を確認する(ln)
@cls & echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

REM #jww
REM #1%dln 線を指示してください
REM #99#
REM #e
*/

function lnlength(x) {
  return Math.sqrt(Math.pow(x[3] - x[1], 2) + Math.pow(x[2] - x[0], 2));
}
with (WScript) {
  f = StdIn
  while (! f.AtEndOfStream) {
    $_ = f.ReadLine()
    if (/^\s+(\S+ \S+ \S+ \S+)/i .test($_)) {
      F = (RegExp.$1).split(/\s+/)
      x1 = F[0] * 1.0
      y1 = F[1] * 1.0
      x2 = F[2] * 1.0
      y2 = F[3] * 1.0
      r = lnlength(F) / 2
      echo("ci " + (x1 + x2) / 2 + " " + (y1 + y2) / 2 + " " + r)
    }
  }
}

 

 

外部変形のバッチファイルの構成は以下のとおりです。
/* タイトル
@cls & echo off
コマンドによるスクリプト
goto:eof
*/
jscriptによるスクリプト
=>コマンドによるスクリプトjscript のコメント文に記述しています。