jw_cad 外部変形 - (1372) mshtaで円環ソリッドを確認する(so:同一扁平率) -

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

 

mshtaで円環ソリッドを確認する(so:同一扁平率)

:mshtaで円環ソリッドを確認する(so:同一扁平率)
@echo off
if exist jwc_temp.txt (
  copy jwc_temp.txt myfiles > nul
  mshta %~f0 < myfiles > jwc_temp.txt
)
goto:eof

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

<script>
sln = 0
sl = []
with (new ActiveXObject("Scripting.FileSystemObject")) {
  f = GetStandardStream(0) //stdin
  g = GetStandardStream(1) //stdout
  while (! f.AtEndOfStream) {
    F = ($_ = f.ReadLine()).split(/\s+/)
    if (/^hq/i .test($_)) { //hq
      g.WriteLine("hd\nbz")
      continue
    }
    if (/^so/i.test($_)) {
      sln += 1
      sl[sln] = F
      continue
    } else {
      g.WriteLine($_)
    }
  }
  f.close()
  for (i = 1; i <= sln; i++) {
    g.WriteLine("lc" + (6+i))
    g.WriteLine(sl[i].join(" "))
  }
}
close()
</script>

 

 

選択した円環ソリッド図形を色を指定して表示画面に書き換えています。スクリプト言語jscript を使用しています。