jw_cad 外部変形 － (482) jscriptで円を点に変換する －

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

jscriptで円を点に変換する

@if(0==1) //jscriptで円を点に変換する
@echo off
cscript //nologo //e:jscript %0
goto:eof

REM #jww
REM #h1
REM #g1
REM #hc 円を選択してください
REM #e
@end

with (new ActiveXObject("Scripting.FileSystemObject")) {
  g = CreateTextFile("myfiles")
  f = OpenTextFile("jwc_temp.txt")
  while (! f.AtEndOfLine) {
    line = f.ReadLine()
    if (/^ci/ .test(line)) {
      str = line.split(/\s+/)
      if (str.length == 4) {
        g.WriteLine(line.replace(/^ci/, "pt").split(/\s+/, 3).join(" "))
        g.WriteLine(line) // 円を復帰する
      } else {
        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")
}