ポリラインもどき

曲線属性の連続線（直線）を作図する外部変形です。

//連続点指示後、「左AM 0時」点指示終了で実行

//指示点は99ヶ所まで、書込み線種/線色で作図
・REM #1- ⇒ #1/、#2- ⇒ #2/ にすると、15度毎の角度指定線になります。

　
@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=" " //スペース

k=0

xy=new Array()

//"jwc_temp.txt"読込み

while (!r.AtEndOfLine){

data=r.ReadLine()

if(/hq/.test(data)){} //"hq"スキップ

//指示点座標データ

else if(/hp/.test(data)){ 

 xy[k]=data.split(sp).slice(2)

 k=k+1

 }

else{ w.WriteLine(data)

 }

}

 w.WriteLine("pl") //曲線属性指定

//線データ(2点間)

for(i=0;i<=k-2;i++){

 tline=xy[i].concat(xy[i+1]) //配列の結合

 line=tline.join(sp)

 w.WriteLine(line) //線データ書出し

 }

 w.WriteLine("#")

//ファイルクロース 

w.Close();r.Close()

//

//連続点指示後、「左AM0時」点指示終了で実行

//指示点は99ヶ所まで、書込み線種/線色で作図

//2018.12.8　by somem