@REM 座標値を多角形に変換
@echo off
REM #jww
REM #cd
REM #h3
REM #hc座標値を範囲選択してください
REM #0基準点を指示してください
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks 座標作図.rb temp.txt > jwc_temp.txt
◎スクリプトファイル（ファイル名 座標作図.rb）
# 座標値を多角形に変換
BEGIN{
print "hd\n"
$x=Array.new
$y=Array.new
}
def main
while ARGF.gets
xy = split
if xy[0] =="hp1"
x=xy[1].to_f
y=xy[2].to_f
end
if xy[0] =="ch"
ward=xy[5].delete("\"")
xxyy=ward.split("\,")
$x.push(xxyy[0].to_f)
$y.push(xxyy[1].to_f)
end
end
n=0
while (n<$x.size-1)
naname($x[n],$y[n],$x[n+1],$y[n+1])
n +=1
end
end
def naname(x1,y1,x2,y2)
printf("%e %e %e %e\n", x1, y1, x2, y2)
end
main()
@REM 座標値を直接入力して多角形を作図
REM 座標値を入力してください。例 x1,y1 x2,y2 ・・・
@echo off
REM #jww
REM #cd
REM #h0
REM #0原点を指示してください
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks 座標作図2.rb temp.txt > jwc_temp.txt
◎スクリプトファイル（ファイル名 座標作図2.rb ）
# 座標値を直接入力して多角形を作図
BEGIN{
$x=Array.new
$y=Array.new
}
def main
while ARGF.gets
xy = split
if xy[0] =="hp1"
ax=xy[1].to_f
ay=xy[2].to_f
end
end
zahyou=gets.chop
xxyy=zahyou.split("\s")
n=0
while (n$xy=xxyy[n].split("\,")
x=$xy[0].to_f
y=$xy[1].to_f
$x.push(x)
$y.push(y)
n+=1
end
m=0
while (m<$x.size-1)
naname($x[m],$y[m],$x[m+1],$y[m+1])
m +=1
end
end
def naname(x1,y1,x2,y2)
printf("%e %e %e %e\n", x1, y1, x2, y2)
end
main()