ポリラインもどき(改)
以前、紹介した ポリラインもどき ですが、
連続線を作図する場合は、
頂点座標を順に記述すれば良いということなので、
スプリクトを簡略してみました。
@if(0==1) //ポリラインもどき(改)
@echo off
REM #jww
REM #cd
REM #1- 始点を指示してください (L)free (R)Read
REM #2- 次の点を指示してください (L)free (R)Read
REM #99#
REM #e
cscript //nologo //e:jscript %0
copy temp.txt jwc_temp.txt
del temp.txt
goto:eof
@end
//ファイルオープン
fso=new ActiveXObject("Scripting.FileSystemObject")
w=fso.CreateTextFile("temp.txt")
r=fso.OpenTextFile("jwc_temp.txt")
//
sp=" " //スペース
//"jwc_temp.txt"読込み
while (!r.AtEndOfLine){
data=r.ReadLine()
if(/hq/.test(data)){
w.WriteLine("pl") //曲線属性指定
}
//指示点座標
else if(/hp/.test(data)){
xy=data.split(sp).slice(2)
xy=xy.join(sp)
w.WriteLine(xy) }
else{ }
}
//ファイルクロース
w.Close();r.Close()
| 固定リンク
コメント