jw_cad 外部変形 － (907) jscriptで点と点マーカを円に変換する －

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

jscriptで点と点マーカを円に変換する

/* jscriptで点と点マーカを円に変換する
@cls & echo off
cscript //nologo //e:jscript %0
goto:eof

REM #jww
REM #h1
REM #g1
REM #hc 点と点マーカを選択してください
REM #bz
REM #e
*/

with (new ActiveXObject("Scripting.FileSystemObject")) {
  g = CreateTextFile("myfiles")
  f = OpenTextFile("jwc_temp.txt")
  while (! f.AtEndOfLine) {
    line = f.ReadLine()
    if (/^pt/ .test(line)) {
      str = line.split(/\s+/)
      if (str.length == 3) {
        g.WriteLine(line.replace( /^pt/,"ci" ).split(/\s+/).join(" ")+" 10")
        g.WriteLine(line) // 点を復帰する
      } else {
        g.WriteLine(line.replace( /^pt/,"ci" ).split(/\s+/).slice(0, 3).join(" ")+" 10")
        g.WriteLine(line) // 点マーカを復帰する
      }
    } else {
      if (/^hq/ .test(line)) {
        g.WriteLine("hd")
      } else {
        g.WriteLine(line) // hq を除き 復帰する
      }
    }
  }
  f.Close()
  g.Close()
//ファイル myfiles を jwc_temp.txt に上書きする
  CopyFile("myfiles", "jwc_temp.txt")
//ファイル myfiles を 削除する
  DeleteFile("myfiles")
}