jw_cad 外部変形 － (605) コマンドプロンプトで２点間の勾配を計算する(ptslope) －

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

コマンドプロンプトで２点間の勾配を計算する

/* コマンドプロンプトで２点間の勾配を計算する(ptslope)
@cls & echo off
for /f "tokens=1*" %%i in (jwc_temp.txt) do (
  if %%i == hp1- set p1=%%j
  if %%i == hp2  set p2=%%j
)
if exist jwc_temp.txt (
  cscript //nologo //e:jscript %~f0 %p1% %p2% > jwc_temp.txt
)
goto:eof

REM #jww
REM #1-%d 始点を指示してください
REM #2%d 終点を指示してください
REM #e
*/

with( WScript ){
  F = arguments
  dx = F(2) - F(0)*1
  dy = F(3) - F(1)*1
  d = Math.atan2(dy, dx) * 180 / Math.PI
  echo("h#２点間の勾配 d = " + d.toFixed(3) + "ﾟ")
}

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