jw_cad 外部変形 － (953) jscriptで円環ソリッドを確認する(sg:楕円同一幅) －

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

jscriptで円環ソリッドを確認する(sg:楕円同一幅)

/* jscriptで円環ソリッドを確認する(sg:楕円同一幅)
@cls & echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

REM #jww
REM #h1
REM #hc 円環ソリッドを選択してください
REM #e
*/

sln = 0
sl = []

f = WScript.StdIn
while (! f.AtEndOfStream) {
  $_ = f.ReadLine()
  if (/^sg/i.test($_)) {
    sln += 1
    sl[sln] = $_
    continue
  }
}

WScript.echo("hd")
for (i = 1; i <= sln; i++) {
  WScript.echo("lc" + (6+i))
  WScript.echo(sl[i])
}