jw_cad 外部変形 - (521) mshtaで点を打つ -

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

 

mahtaで点を打つ

:mshtaで点を打つ
@echo off
if exist jwc_temp.txt (
  copy jwc_temp.txt myfiles > nul
  mshta %~f0 > jwc_temp.txt
)
goto:eof

REM #jww
REM #1ln 基準線を指示してください
REM #e

<script>
with (new ActiveXObject("Scripting.FileSystemObject")) {
  g = GetStandardStream(1)
  f = OpenTextFile("myfiles")
  while( ! f.AtEndOfStream ){
    line = f.ReadLine()
    if( /^\s+/i.test(line) ){ //ln 指示線
      ln = line.split(/\s+/)
      if( ln ) for( i = 0; i < ln.length; i++ ) ln[i] *= 1.0;
      g.WriteLine( ["pt", ln[0], ln[1]].join(" ") )
      g.WriteLine( ["pt", ln[2], ln[3]].join(" ") )
    }
  }
  f.Close()
}
close()
</script>