jw_cad 外部変形 - (904) jscriptで2点間の距離を計算する(ptdist) -

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

 

jscriptで2点間の距離を計算する(ptdist)

/* jscriptで2点間の距離を計算する(ptdist)
@cls & echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

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

f = WScript.StdIn
while (! f.AtEndOfStream) {
  F = ($_ = f.ReadLine()).split(/\s+/)
  if (/^hp1-/i .test($_)) p1 = F.slice(1, 3);
  if (/^hp2 /i .test($_)) p2 = F.slice(1, 3);
}
with (Math) {
  l = sqrt(pow(p2[0] - p1[0], 2) + pow(p2[1] - p1[1], 2))
}
g = WScript.StdOut
g.WriteLine("h#2点間の距離 L = " + l.toFixed(3))
// WScript.Echo("h#2点間の距離 L = " + l.toFixed(3))