jw_cad 外部変形 - (478) jscriptで円を描く -

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

 

jscriptで円を描く

@if(0==1) //jscriptで円を描く
@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
@end

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) {
  x1 = p1[0] * 1.0; y1 = p1[1] * 1.0
  x2 = p2[0] * 1.0; y2 = p2[1] * 1.0
  r = sqrt(pow(x2 - x1, 2) + pow(y2 - y1, 2))
}
g = WScript.StdOut
g.WriteLine(["ci", x1, y1, r].join(" "))
//WScript.echo(["ci", x1, y1, r].join(" "))