jw_cad 外部変形 - (477) 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 #1-%d 始点を指示してください
REM #2%d 終点を指示してください
REM #e
@end

f = WScript.StdIn
while (! f.AtEndOfStream) {
  F = ($_ = f.ReadLine()).split(/\s+/)
  if (/^hp1-/i .test($_)) p1 = F.slice(1, 3)
  if (/^hp2 /i .test($_)) p2 = F.slice(1, 3)
}
g = WScript.StdOut
g.WriteLine(p1.concat(p2).join(" "))
//WScript.echo(p1.concat(p2).join(" "))