jw_cad 外部変形 - (608) コマンドプロンプトで放射線を引く(ray) -

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

 

コマンドプロンプト放射線を引く(ray)

/* コマンドプロンプト放射線を引く(ray)
@cls & echo off
for /f "tokens=1*" %%i in (jwc_temp.txt) do (
  if %%i == hk set hk=%%j
)
cscript //nologo //e:jscript %0 %hk% > jwc_temp.txt
goto:eof

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

with (WScript) {
  hk = arguments(0) * 1
  with (Math) {
    x = cos(hk * PI / 180) * 1e+10
    y = sin(hk * PI / 180) * 1e+10
  }
  echo([0, 0, x, y].join(" "))
}

 

 

コマンドプロンプトで実数や数学関数を利用するテクニックです。

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