jw_cad 外部変形 - (612) コマンドプロンプトでソリッド図形の矩形を描く -

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

 

コマンドプロンプトでソリッド図形の矩形を描く

/* コマンドプロンプトでソリッド図形の矩形を描く
@cls & echo off
set r=0
set g=128
set b=128
set /a rgb=r+256*g+256*256*b
for /f "tokens=1*" %%i in (jwc_temp.txt) do (
  if %%i == hk   set hk=%%j
  if %%i == hp1- set p1=%%j
  if %%i == hp2  set p2=%%j
)
( echo lc10 %rgb%
  wscript //nologo //e:jscript %~f0 %hk% %p1% %p2%
) > jwc_temp.txt
goto:eof

REM #jww
REM #1-%d 矩形の始点を指示してください
REM #2%d 対頂点を指示してください
REM #e
*/

with (WScript) {
  with (Math) {
    hk = arguments(0) * 1.0
    x1 = arguments(1) * 1.0
    y1 = arguments(2) * 1.0
    x2 = arguments(3) * 1.0
    y2 = arguments(4) * 1.0
    co = cos(hk * PI / 180)
    si = sin(hk * PI / 180)
    ww = (x2 - x1) * co + (y2 - y1) * si
    hh =-(x2 - x1) * si + (y2 - y1) * co
    p1 = [x1, y1]
    p2 = [x2, y2]
    p3 = [x1 - hh * si, y1 + hh * co]
    p4 = [x1 + ww * co, y1 + ww * si]
    Stdout.WriteLine( ["sl", p1, p3, p2, p4, p1].join(" ").replace(/,/g, " ") )
  }
}

 

 

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

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