jw_cad 外部変形 - (479) jscriptで点を打つ -

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

 

jscriptで(線の両端に)点を打つ

@if(0==1) //jscriptで点を打つ
@echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

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

f = WScript.StdIn
while (! f.AtEndOfStream) {
  F = ($_ = f.ReadLine()).split(/\s+/)
  if (/^\s+/i .test($_)) { //ln 指示線
    x1 = F[0]; y1 = F[1]
    x2 = F[2]; y2 = F[3]
  }
}
g = WScript.StdOut
g.WriteLine(["pt", x1, y1].join(" "))
g.WriteLine(["pt", x2, y2].join(" "))
//WScript.echo(["pt", x1, y1].join(" "))
//WScript.echo(["pt", x1, y1].join(" "))