jw_cad 外部変形 － (1368) mshtaで曲線データを確認する(pl) －

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

mshtaで曲線データを確認する(pl)

:mshtaで曲線データを確認する(pl)
@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>
plflg = 0
pln = 0
pl =
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 (/^pl/i.test($_)) {
      plflg = 1
      pln += 1
      s =
      continue
    }
    if (/^\s+/i.test($_)) {
      if (F.length == 4 && plflg == 1) {
        s.push(F)
        continue
      }
    }
    if (/^#/i.test($_)) {
      if (plflg == 1) {
        pl[pln] = s
        plflg = 0
      }
      continue
    }
  }
  f.close()
  for (i = 1; i <= pln; i++) {
    g.WriteLine("pl")
    g.WriteLine("lc" + (6+i))
    for (j = 0; j < pl[i].length; j++) {
      g.WriteLine(pl[i][j].join(" "))
    }
    g.WriteLine("#")
  }
}
close()
</script>

選択した曲線データを色を指定して表示画面に書き換えています。スクリプト言語は jscript を使用しています。